Clipper/FiveWin - Creación de un fichero plano

 
Vista:

Creación de un fichero plano

Publicado por Javier (1 intervención) el 03/05/2006 19:48:53
Saludos a todos.
El caso es que necesito crear desde fw un fichero plano (tipo txt) con coordenadas fila-columna, para una aplicación de nóminas. Desde clipper era muy facil:

set default to \CARPETA
set printer to &NOMFICH
set device to PRINT
set printer on

@ nFila,00 say "ETI"
@ nFila,03 say "AFI5"
@ nFila,07 say "0"
@ nFila,08 say "WS55"

Pero ¿cómo lo hago desde fw?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Creación de un fichero plano

Publicado por miguel (7 intervenciones) el 03/05/2006 21:56:34
function main()
IF ( nHnd1 := FCREATE( "C:\NOM2000\PAGO.TXT" ) ) != -1
do while !nomina->(eof())
imprime()
nomina->(dbskip())
enddo
ENDIF
return nil

STATIC FUNCTION IMPRIME(nProgresivo)

LOCAL cProgresivo := strzero( nProgresivo, 5, 0 )
LOCAL nImporte := (percep->deimporte - deduc->deimporte) * 100
LOCAL cImporte := STRZERO( nImporte ,15,0)
LOCAL cNombre, cReg := ""

cNombre := LEFT(alltrim(maesnomi->mn_nom)+[ ]+alltrim(maesnomi->mn_pat)+[ ]+alltrim(maesnomi->mn_mat),40)

cReg := maesnomi->mn_rfc+" "+;
SPACE(9)+;
"99"+; // TIPO DE CUENTA **No. Cuenta cCuenta+; // CUENTA DE NOMINA DE EMPRESA
"00"+maesnomi->mn_cuenta+; // cuenta del empleado
cImporte+; //IMPORTE A DEPOSITAR
"." + CRLF // PUNTO FINAL

FWRITE ( nHnd1, cReg )

return nil

Saludos desde México
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar