Page 1 of 1
Abrir un archivo con NotePad (SOLUCIONADO)
Posted: Wed Dec 08, 2010 2:32 am
by juan_arroyo_t
Amigos :
Esto es parte de mi código :
Code: Select all | Expand
STATIC FUNCTION GeneraListado( dFechaIni, dFechaFin )
LOCAL cListado, cEsquema, cEmisor, cMesyano
cListado := "SER-"+SUBSTR(DTOC(dFechaIni),4,2)+SUBSTR(DTOC(dFechaIni),7,4)+".TXT"
--------
--------
--------
MemoWrit(cListado, cCfdLis)
MsgInfo( cCfdLis )
// Esta es la parte del codigo
IF MsgYesNo("Imprime el listado")
WinExec("NotePad")
ENDIF
RETURN NIL
Necesito abrir el NotePad con el archivo cListado
Si alguien me pudiera ayudar
Saludos
Re: Abrir un archivo con NotePad
Posted: Wed Dec 08, 2010 10:17 am
by Daniel Garcia-Gil
Juan
lo tienes casi listo solo te lafla indicarle el niombre del archivo
Re: Abrir un archivo con NotePad
Posted: Wed Dec 08, 2010 10:32 pm
by juan_arroyo_t
Daniel :
Te mando mi rutina completa porque no logro abrir el notepad
Con instruccion
MemoWrit(cListado, cCfdLis)
Estoy creando el archivo, yo checo en la carpeta raíz de mi aplicacion y ahi me aparece el archivo SER-122010.TXT
Que estoy haciendo mal ?
Code: Select all | Expand
STATIC FUNCTION GeneraListado( dFechaIni, dFechaFin )
LOCAL cListado, cEsquema, cEmisor, cMesyano
LOCAL cCfdTmp, cCfdLis, cEstado, Contador
cEsquema := "1"
cEmisor := "SER911203JU5"
cMesyAno := SUBSTR(DTOC(dFechaIni),4,2)+SUBSTR(DTOC(dFechaIni),7,4)
cListado := "SER-"+SUBSTR(DTOC(dFechaIni),4,2)+SUBSTR(DTOC(dFechaIni),7,4)+".TXT"
cCfdTmp := ""
cCfdLis := ""
cCfdLis := cCfdLis + cEsquema + CHR(10)
cCfdLis := cCfdLis + cEmisor + CHR(10)
cCfdLis := cCfdLis + cMesyAno + CHR(10)
cfac->( DBSEEK( DTOS(dFechaIni),.T.))
cfac->( ORDSCOPE(0,DTOS(dFechaIni)))
cfac->( ORDSCOPE(1,DTOS(dFechaFin)))
cfac->( DBGOTOP())
DO WHILE !cfac->(EOF())
IF cfac->estado = "1"
Contador := 1
cEstado := cfac->estado
ELSE
Contador := 2
cEstado := "1"
ENDIF
DO WHILE Contador > 0
// inicio del registro
cCfdTmp := cCfdTmp + "|"
// Rfc del receptor
cCfdTmp := cCfdTmp + ALLTRIM(cli->refeca) + "|"
// número de serie
cCfdTmp := cCfdTmp + cfac->serie + "|"
// número de folio
cCfdTmp := cCfdTmp + LTRIM(STR(cfac->factno)) + "|"
// Año y número de aprobación
cCfdTmp := cCfdTmp + cAprobYear + cNoAprob + "|"
// Fecha y hora de cfd
cCfdTmp := cCfdTmp + DTOC(cfac->fechafact)+" "+ cfac->horafact + "|"
// Monto total de la transacción
cCfdTmp := cCfdTmp + LTRIM(STR(cfac->impfac,12,2)) + "|"
// Monto del impuesto
cCfdTmp := cCfdTmp + LTRIM(STR(cfac->iva,12,2)) + "|"
// Estado del cfd
cCfdTmp := cCfdTmp + cEstado + "|"
// Efecto de cfd
cCfdTmp := cCfdTmp + cfac->tipocfd + "|"
// Agrega caracter de retorno
cCfdTmp := cCfdTmp + CHR(10)
cCfdLis := cCfdLis + cCfdTmp
cCfdTmp := ""
Contador := Contador - 1
IF Contador = 1
cEstado := cfac->estado
ENDIF
ENDDO
cfac->(DBSKIP())
ENDDO
// para eliminar el ultimo linefeed (chr(10))
cCfdLis := SUBSTR(cCfdLis,1,LEN(cCfdLis)-1)
//cListado := cListado + cCfdLis
MemoWrit(cListado, cCfdLis)
IF MsgYesNo("Imprime el listado")
WinExec("NotePad" + cListado )
ENDIF
RETURN NIL
Gracias poor tus atenciones
Saludos
Re: Abrir un archivo con NotePad
Posted: Wed Dec 08, 2010 10:42 pm
by juan_arroyo_t
Daniel :
Una cosa que noté enseguida de enviarte mi mensaje anterior es que el tamaño de mi ejecutable se incrementó de 600 kb mas o menos, a 1899 kb; por qué
Saludos
Re: Abrir un archivo con NotePad
Posted: Wed Dec 08, 2010 11:45 pm
by Daniel Garcia-Gil
Juan
te falta el espacio despues de notepad
Re: Abrir un archivo con NotePad
Posted: Thu Dec 09, 2010 2:25 am
by juan_arroyo_t
Daniel
Muchas gracias funcionó perfecto, una cosa más aprovechando tu gentileza
Cuando he resuelto mis dudas por medio del foro, me recomiendan que cierre mi post como solucionado
Como hago esto ?
Saludos
Re: Abrir un archivo con NotePad
Posted: Thu Dec 09, 2010 2:58 am
by Daniel Garcia-Gil
Juan
editas el post y escribes solucionado
Re: Abrir un archivo con NotePad (SOLUCIONADO)
Posted: Thu Dec 09, 2010 3:00 am
by Daniel Garcia-Gil
Juan
esta vez lo he hecho por ti
