22 Dez 2009 09:17
22 Dez 2009 10:01
22 Dez 2009 12:44
22 Dez 2009 13:19
22 Dez 2009 14:26
anacatacombs escreveu:Poste um trecho do código problemático.
22 Dez 2009 14:53
22 Dez 2009 16:55
*******************************************************
** CONVERSAO PARA ARQUIVOS TIPO TXT (??? POSICOES) **
*******************************************************
Close Databases
Close Indexes
**********************
** REGISTRO 10 **
**********************
If Abre_local("ANFPTP10")
If Trava_arq()
* Copy to \NEW\SP\NFPA\R10.TXT SDF
Copy to \NEW\SP\NFPA\R10.TXT DELI
UNLOCK
Endif
Endif
**********************
** REGISTRO 20 **
**********************
If Abre_local("ANFPTP20")
If Trava_arq()
* Copy to \NEW\SP\NFPA\R20.TXT SDF
Copy to \NEW\SP\NFPA\R20.TXT DELI
UNLOCK
Endif
Endif
**********************
** REGISTRO 30 **
**********************
If Abre_local("ANFPTP30")
If Trava_arq()
* Copy to \NEW\SP\NFPA\R30.TXT SDF
Copy to \NEW\SP\NFPA\R30.TXT DELI
UNLOCK
Endif
Endif
**********************
** REGISTRO 40 **
**********************
If Abre_local("ANFPTP40")
If Trava_arq()
* Copy to \NEW\SP\NFPA\R40.TXT SDF
Copy to \NEW\SP\NFPA\R40.TXT DELI
UNLOCK
Endif
Endif
**********************
** REGISTRO 50 **
**********************
If Abre_local("ANFPTP50")
If Trava_arq()
* Copy to \NEW\SP\NFPA\R50.TXT SDF
Copy to \NEW\SP\NFPA\R50.TXT DELI
UNLOCK
Endif
Endif
**********************
** REGISTRO 60 **
**********************
If Abre_local("ANFPTP60")
If Trava_arq()
* Copy to \NEW\SP\NFPA\R60.TXT SDF
Copy to \NEW\SP\NFPA\R60.TXT DELI
UNLOCK
Endif
Endif
**********************
** REGISTRO 90 **
**********************
If Abre_local("ANFPTP90")
If Trava_arq()
* Copy to \NEW\SP\NFPA\R90.TXT SDF
Copy to \NEW\SP\NFPA\R90.TXT DELI with
UNLOCK
Endif
Endif
***********************************************************
********************************
** MONTA O ARQUIVO NFPA **
********************************
If Abre_local("NFPA")
If Trava_arq()
Zap
Append from D:\NEW\SP\NFPA\R10.TXT SDF
Append from D:\NEW\SP\NFPA\R20.TXT SDF
Append from D:\NEW\SP\NFPA\R30.TXT SDF
Append from D:\NEW\SP\NFPA\R40.TXT SDF
Append from D:\NEW\SP\NFPA\R50.TXT SDF
* Append from D:\NEW\SP\NFPA\R60.TXT SDF
Append from D:\NEW\SP\NFPA\R90.TXT SDF
******************************************************
** DEFINICAO DO NOME DO ARQUIVO PREVENDO SEMPRE **
** PERIODO DE MES FECHADO FORMATO "MM" E ANO "AA" **
******************************************************
Mmes = substr(Dtj(Mdatini),7,2)
Mano = substr(Dtj(Mdatini),3,2)
Marq = "NFPA" + Mmes + Mano + ".TXT"
Copy to D:\NEW\SP\NFPA\&Marq SDF
* Copy to d:\testesin\SP\NFPA\&Marq SDF
Endif
Endif
22 Dez 2009 17:11
22 Dez 2009 17:14
If Abre_local("ANFPTP20")
If Trava_arq()
nHandle := FCREATE("\NEW\SP\NFPA\R20.TXT")
GO TOP
DO WHILE !EOF()
FWRITE(nHandle,Var_Arquivo+CHR(13)+CHR(10))
* var_arquivo = Variavel do seu banco de dados ou a linha
* ja formatada para Nota Fiscal Paulista
SKIP
ENDDO
FcLOSE(nHandle)
ENDIF
UNLOCK
Endif
22 Dez 2009 20:56
29 Dez 2009 18:07