Converter XML para DBF
Enviado: 30 Mar 2005 15:18
Alguém tem conhece algum programa para conversão de um XML para DBF ou Txt ??
Não sei qual sua intenção com um arquivo XML mas analise a rotina abaixo.
Eu uso ela para ler arquivos .OFX com dados de minha conta bancária, neste caso do Unibanco.
Não é dificil entender o funcionamento dos dados dentro de um arquivo XML, pois os dados estarão separados por tags.
Código: Selecionar todos
...
M->REGISTRO := RECNO()
M->DESDE := DATA
M->IDCONTA := IDCONTA
MENSAGEM('Verificando arquivos de retorno...')
aDIRECTORY := DIRECTORY("OFX\*.OFX")
aOFXes := {}
FOR I = 1 TO LEN(aDIRECTORY)
cIDt := SeekIniDt("OFX\"+aDIRECTORY[I,1])
cFDt := SeekFimDt("OFX\"+aDIRECTORY[I,1])
AADD( aOFXes, PADR(aDIRECTORY[I,1],13)+" "+cIDt+" "+cFDt )
NEXT
SELE SALDO
M->IDOFX := SPACE(15) // ALLTRIM(M->IDCONTA) + ".OFX"
//M->DESDE := DATE()
CREATE CONTROL GROUPBOX 'group3' AT MAXROW()-8,52 SIZE 5, 25 TEXT " Dados da Conta " STYLE NORMAL // RECESSED
@ MAXROW()-6,54 say 'Arquivo'
@ MAXROW()-5,54 say 'Desde'
@ MAXROW()-6,64 GET M->IDOFX PICT "@!@S10" ;
WHEN SAYIT('Digite o nome do arquivo de transa‡„o.') ;
VALID PSQ_TAB3( 8, 24, aOFXes , "IDOFX" ) // VALID PSQOFX(M->IDOFX)
@ MAXROW()-5,64 GET M->DESDE WHEN SAYIT('Digite a DATA de inicio para conciliar.')
SET CURSOR ON
READ
SET CURSOR OFF
IF LASTKEY() <> 27 .OR. !EMPTY(M->IDOFX)
//PSQOFX(M->IDOFX)
CLOSE DATABASES
//ARQ_PRN1 := ".\BANCOS\" + M->IDOFX
ARQ_PRN1 := "OFX\" + ALLTRIM(SUBSTR( M->IDOFX, 1, 14 ))
DBCREATE( "NFOFX2", { { "LI_NHA" , "C",255, 0 } } )
DBCREATE( "NFOFX3", { { "IDBANCO" , "C",20, 0 } , ;
{ "IDCONTA" , "C",20, 0 } , ;
{ "AGENCIA" , "C", 6, 0 } , ;
{ "DATA" , "D", 8, 0 } , ;
{ "HISTORICO" , "C",45, 0 } , ;
{ "DOCUMENTO" , "C",10, 0 } , ;
{ "VALOR" , "N",14, 2 } , ;
{ "CREDITO" , "N",14, 2 } , ;
{ "DEBITO" , "N",14, 2 } , ;
{ "TIPO" , "C", 1, 0 } , ;
{ "CONCILIADO", "D", 8, 0 } , ;
{ "FECHAMENTO", "L", 1, 0 } } )
USE NFOFX3 NEW
USE NFOFX2 NEW
APPEND FROM &ARQ_PRN1 SDF
GO TOP
M->BANKID := ''
M->ACCTID := ''
M->TRNTYPE := ''
M->DTPOSTED := ''
M->TRNAMT := ''
M->FITID := ''
M->CHECKNUM := ''
M->MEMORAND := ''
M->CABECA := .F.
MENSAGEM('Verificando registros...')
DO WHILE .NOT. EOF()
IF '<BANKID>' $ LI_NHA
M->BANKID := SUBSTR(LI_NHA,9,05)
ENDIF
IF '<ACCTID>' $ LI_NHA
M->ACCTID := SUBSTR(LI_NHA,9,15)
ENDIF
IF '<TRNTYPE>' $ LI_NHA
M->TRNTYPE := SUBSTR(LI_NHA,10,40)
ENDIF
IF '<DTPOSTED>' $ LI_NHA
M->DTPOSTED := CTOD(SUBSTR(LI_NHA,17,2)+'/'+;
SUBSTR(LI_NHA,15,2)+'/'+;
SUBSTR(LI_NHA,11,4))
ENDIF
IF '<TRNAMT>' $ LI_NHA
M->TRNAMT := VAL(SUBSTR(LI_NHA,9,15))
ENDIF
IF '<FITID>' $ LI_NHA
M->FITID := SUBSTR(LI_NHA,8,15)
ENDIF
IF '<CHECKNUM>' $ LI_NHA
M->CHECKNUM := SUBSTR(LI_NHA,11,15)
ENDIF
IF '<MEMO>' $ LI_NHA
M->MEMORAND := SUBSTR(LI_NHA,7,40)
ENDIF
IF '<STMTTRN>' $ LI_NHA
SELE NFOFX3
APPEND BLANK
SELE NFOFX2
ENDIF
IF '</STMTTRN>' $ LI_NHA
SELE NFOFX3
REPLACE IDBANCO WITH M->BANKID
REPLACE IDCONTA WITH SUBSTR(M->ACCTID,5,9)
REPLACE AGENCIA WITH SUBSTR(M->ACCTID,1,4)
REPLACE DATA WITH M->DTPOSTED
REPLACE HISTORICO WITH STRTRAN(M->MEMORAND,'*','')
REPLACE DOCUMENTO WITH M->CHECKNUM
REPLACE VALOR WITH IIF(M->TRNAMT<0,M->TRNAMT*-1,M->TRNAMT)
REPLACE CREDITO WITH IIF(M->TRNTYPE='C',M->TRNAMT,0)
REPLACE DEBITO WITH IIF(M->TRNTYPE='D',IIF(M->TRNAMT<0,M->TRNAMT*-1,M->TRNAMT),0)
REPLACE TIPO WITH M->TRNTYPE
REPLACE CONCILIADO WITH CTOD(' / / ')
REPLACE FECHAMENTO WITH .F.
SELE NFOFX2
ENDIF
SKIP
ENDDO
SELE NFOFX3
APPEND BLANK
SELE NFOFX2
ENDIF
USE TRANSACA INDEX TRANS001 NEW
USE PN INDEX PN007,PN008 NEW
USE CONTRCNT NEW
USE CONTRCTB NEW
USE CONTAS INDEX CONTA009,CONTA010,CONTA016,CONTA011,CONTA012,CONTA013,CONTA014,CONTA015,CONTA017,CONTA018,CONTA109,CONTA110 NEW
USE CORRENTE INDEX CORRE021,CORRE022,CORRE023,CORRE024 NEW
USE SALDO INDEX SALDO022 NEW
SEEK M->IDCONTA // Pesquisa pela conta
IF .NOT. FOUND()
BEEP(); MENSAGEM('Conta nao foi encontrada!', 3)
SELE CORRENTE // Seleciona arquivo de movimentacao de contas
RETURN .T.
ENDIF
M->SALDO := SALDO->SALDO // Pega pelos dados da conta
M->LIMITE := SALDO->LIMITE // Pega pelos dados da conta
//M->IDCONTA := SALDO->IDCONTA
M->BANCO := SALDO->BANCO
M->AGENCIA := SALDO->AGENCIA
SELE CORRENTE
MENSAGEM('Adicionando registros ao movimento...')
APPEND FROM NFOFX3 FOR DATA >= M->DESDE
SET ORDER TO 1
#ifdef TRIOART
SET FILTER TO CORRENTE->IDCONTA = M->IDCONTA .AND. CORRENTE->TIPO # 'A'
#else
SET ORDER TO 1
M->SUBARQ := '_'+substr(ordName(),1,2)+substr(strtran(time(),":",""),4,3)+".NTX"
SubNtx( ordBagName(), M->SUBARQ, M->IDCONTA )
SET INDEX TO CORRE021,CORRE022,CORRE023,CORRE024,&SUBARQ.
SET ORDER TO 5
SET FILTER TO CORRENTE->TIPO # 'A' .AND. CORRENTE->TIPOLAN # 'E'
#endif
GO BOTTOM
SKIP -9
retorno = 2
...
@braços :?)