Yo tengo este codigo desde hace muchos años que establece la pagina de
codigos de un DBF. La verdad no se de quien es, credito a quien corresponda.
Function MarkCP()
PARAMETER m.fname, m.cpbyte
PRIVATE m.fp_in, m.buf, m.found_one, m.i, m.outbyte
#define C_TOTAL 22 && total code page numbers supported
#define c_buf_size 32
#define c_noopen 1
#define c_badbyte 2
#define c_notfox 3
#define c_maxerror 4
DECLARE error_array[c_maxerror]
error_array[c_noopen] = "No se pudo abrir el archivo"
error_array[c_badbyte] = "Página de códigos inválida"
error_array[c_notfox] = "No es una tabla de Fox Pro"
* Set up table of code pages and DBF bytes numbers
DIMENSION cpnums[C_TOTAL,2]
cpnums[ 1,1] = 437
cpnums[ 1,2] = 1
cpnums[ 2,1] = 850
cpnums[ 2,2] = 2
cpnums[ 3,1] = 1252
cpnums[ 3,2] = 3
cpnums[ 4,1] = 10000
cpnums[ 4,2] = 4
cpnums[ 5,1] = 852
cpnums[ 5,2] = 100
cpnums[ 6,1] = 866
cpnums[ 6,2] = 101
cpnums[ 7,1] = 865
cpnums[ 7,2] = 102
cpnums[ 8,1] = 861
cpnums[ 8,2] = 103
cpnums[ 9,1] = 895
cpnums[ 9,2] = 104
cpnums[10,1] = 620
cpnums[10,2] = 105
cpnums[11,1] = 737
cpnums[11,2] = 106
cpnums[12,1] = 857
cpnums[12,2] = 107
cpnums[13,1] = 863
cpnums[13,2] = 108
cpnums[14,1] = 10007
cpnums[14,2] = 150
cpnums[15,1] = 10029
cpnums[15,2] = 151
cpnums[16,1] = 10006
cpnums[16,2] = 152
cpnums[17,1] = 1250
cpnums[17,2] = 200
cpnums[18,1] = 1251
cpnums[18,2] = 201
cpnums[19,1] = 1253
cpnums[19,2] = 203
cpnums[20,1] = 1254
cpnums[20,2] = 202
cpnums[21,1] = 1257
cpnums[21,2] = 204
cpnums[22,1] = 0
cpnums[22,2] = 0
IF !EMPTY(m.fname)
m.outbyte = m.cpbyte
m.found_one = .F.
FOR m.i = 1 TO C_TOTAL
IF m.cpbyte = cpnums[m.i,1]
m.outbyte = cpnums[m.i,2]
m.found_one = .T.
EXIT
ENDIF
ENDFOR
IF m.found_one
m.cpbyte = m.outbyte
ELSE
* Was it a valid DBF byte if it wasn't a valid code page?
FOR m.i = 1 TO C_TOTAL
IF m.cpbyte = cpnums[m.i,2]
m.found_one = .T.
ENDIF
ENDFOR
IF !m.found_one
DO errormsg WITH c_badbyte
RETURN TO cpzero
ENDIF
ENDIF
IF FILE(m.fname)
m.fp_in = FOPEN(m.fname,2)
IF m.fp_in > 0
* First check that we have a FoxPro table...
m.buf=FREAD(m.fp_in,c_buf_size)
IF (SUBSTR(m.buf,1,1) = CHR(139) OR SUBSTR(m.buf,1,1) = CHR(203);
OR SUBSTR(m.buf,31,1) != CHR(0) OR SUBSTR(m.buf,32,1) !=
CHR(0))
fclose(m.fp_in)
DO errormsg WITH c_notfox
Return
ELSE
* Now poke the codepage id into byte 29
FSEEK(m.fp_in,29)
FWRITE(m.fp_in,CHR(m.cpbyte))
FCLOSE(m.fp_in)
ENDIF
ELSE
DO errormsg WITH c_noopen
RETURN
ENDIF
ELSE
DO errormsg WITH c_noopen
RETURN
ENDIF
ENDIF
PROCEDURE errormsg
PARAMETER num
WAIT WINDOW error_array[num] NOWAIT
El 12/08/2013 07:19 p.m., Rafael Copquin escribió:
Estoy migrando una aplicación de FoxPro DOS a VFP9. Una de las rutinas
consiste en abrir las viejas tablas de FOXPRO y modificarles algunos
campos, pero dejándolas disponibles para que se sigan usando con el
Fox DOS. O sea, son tablas libres del viejo Fox, que tienen que
funcionar con la misma vieja aplicación y muchas rutinas, pantallas e
informes nuevos, hechos en VFP.
Una rutina de modificación abre las tablas (son de EEUU) y el VFP
muestra un diálogo que pide que seleccione el codepage en que fue
creada la tabla. Al elegir MS-DOS y luego 437 US-MS DOS, la rutina
sigue adelante.
Pero yo quiero que directamente seleccione ese codepage, sin mostrar
el diálogo, porque la rutina es automática.
¿cómo se hace?
Rafael Copquin
