|
Importação e Exportação de Dados usando TXT |
Débuté par adrianoboller, 16 jan. 2015 12:24 - 5 réponses |
| |
| | | |
|
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 16 janvier 2015 - 12:24 |
TableDeleteAll(TABLE_itens_vendidos) nArquivoid is int sFimarquivo is string nArquivoid = fOpen("C:\amarildo\orcamento.txt",foReadWrite) IF nArquivoid<>-1 THEN sLinha is string sPegacampo is string LOOP sLinha = fReadLine(nArquivoid) IF sLinha = EOT THEN BREAK ELSE IF sLinha="" THEN BREAK ELSE sPegacampo = ExtractString(sLinha,firstRank,"|") sFimarquivo= ExtractString(sLinha,nextRank,"|") IF sFimarquivo="FIM" THEN BREAK ELSE IF sFimarquivo="ORCAMENTO" THEN EDT_MATERIAL_SEQUENCIA=ExtractString(sLinha,nextRank,"|") EDT_Material_Chave = ExtractString(sLinha,nextRank,"|") TableAddLine(TABLE_itens_vendidos,EDT_MATERIAL_SEQUENCIA,EDT_Material_Chave,Material_nome,EDT_MATERIAL_Quantidade,EDT_MATERIAL_Valor_produto,EDT_MATERIAL_Valor_produtos,EDT_MATERIAL_Valor_percentual_ipi,EDT_MATERIAL_Valor_ipi,EDT_MATERIAL_Valor_total,EDT_MATERIAL_REFERENCIA,EDT_MATERIAL_CODIGO_BARRA,EDT_material_observacao) ELSE END END END END END END
sMonta is string sMonta = "|" nPrimeiravez is int nPrimeiravez=0 FOR ALL ROW OF TABLE_itens_vendidos EDT_MATERIAL_TOTAL_VALOR_GERAL+=TABLE_itens_vendidos.COL_VALOR_TOTAL EDT_MATERIAL_TOTAL_V_IPI+=TABLE_itens_vendidos.COL_VALOR_IPI EDT_MATERIAL_TOTAL_V_PRODUTOS+=TABLE_itens_vendidos.COL_VALOR_PRODUTOS sMonta+=["|"]+"ORCAMENTO" sMonta+=["|"]+TABLE_itens_vendidos.COL_Sequencia sMonta+=["|"]+TABLE_itens_vendidos.COL_CODIGO_MATERIAL IF TABLE_itens_vendidos.COL_DESCRICAO_MATERIAL="" THEN sMonta=sMonta+["|"]+" " ELSE sMonta+=["|"]+TABLE_itens_vendidos.COL_DESCRICAO_MATERIAL END IF EDT_Condicao_pagamento_descricao="" THEN sMonta+=["|"]+" " ELSE sMonta+=["|"]+EDT_Condicao_pagamento_descricao END sMonta+=["|"]+EDT_Valor_percentual_venda sMonta+=CR END sMonta+=["|FIM"] sMonta+=CR fSaveText("C:\amarildo\orcamento.txt",sMonta)
Procedure criar_temp(minhatabela) EXTERN Temp_File MyFile is File Description MyItem1 is Item Description Tabelas is string=HListItem({minhatabela},hLstDetail)
MyFile..Name = "Temp_File" MyFile..Type = hFileNormal MyFile..DescribedDirectory="c:\tmp\outros" FOR EACH STRING sResultado OF Tabelas SEPARATED by CR MyItem1..Name=ExtractString(sResultado,1,TAB) MyItem1..Type=ExtractString(sResultado,3,TAB) MyItem1..Size=ExtractString(sResultado,4,TAB) HDescribeItem(MyFile, MyItem1) END HDescribeFile(MyFile) HCreation("Temp_File")
|
| |
| |
| | | |
|
| | |
| |
Membre enregistré 8 messages Popularité : +2 (2 votes) |
|
Posté le 16 avril 2015 - 02:14 |
Boa Noite Adriano, Estava fazendo este exemplo acima e os dados estão aparecendo em linguagem oriental. Você saberia como resolver isso.
Marcos Alves |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 16 avril 2015 - 13:38 |
Prezado Marcos,
No projeto voce tem que mudar para ANSI
Só isso...
P - (Project) - Project Description - Describer current configuration - Unicode - tem dois options mude de UNICODE para ANSI.
Segue imagem:
|
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 16 avril 2015 - 13:39 |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 8 messages Popularité : +2 (2 votes) |
|
Posté le 17 avril 2015 - 02:12 |
Adriano,
Muito obrigado, deu certo! |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 17 avril 2015 - 14:33 |
| |
| |
| | | |
|
| | | | |
| | |
|