PC Toledo

esta é a versao que eu uso

Harbour 3.4.0 28-04-2018

tenho este mesmo sistema em harbour também

este cliente especifico está usando a versão em harbour

Boa tarde pessoal

Consegue me passar as funcoes HB_ para fazer este tratamento de arquivos ? não estou conseguindo achar.

Desde já agradeço

Opa Itamar, vou tentar aqui e retorno

Obrigado por enquanto!!!

Fiz o teste e sei que se transformar pro ASCII funciona a importação

Se o harbour fizer isso aí resolve tudo, pois este meu aplicativo está em harbour

qual comando teria que fazer no harbour para transformar para o ASCII ?

Descobri que estes arquivos não estão no padrão ASCII

Se tiver, ele importa normal

existe algum utilitario de linha de comando que posso usar para fazer essa transoformaçao ?

PS Y:\proceda> Get-Content edi0000003199.txt | Set-Content -Encoding ascii test-ascii2.txt
PS Y:\proceda> Get-Content ...

O estranho é que já uso assim a muito anos, já importei usando esta mesma rotina arquivos padrão CONEMB de muitas empresas diferentes.

é a primeira vez em muitos anos que presencio este problema.

Será que teria algum utilitario que eu executasse e ele mudaria o formato da codificação do arquivo ...

São arquivos de empresas diferentes, gerada por sistemas diferentes

conseguiu importar usando o SDF?

Sim, ja comparei

O que pode ocorrer é que em alguns txts tem outros registros que nao tem em outros.

então meu sistema compara os primeiros 3 digitos de cada linha por exemplo "310", aí ele sabe que é pra ler no padrão do layout do registro 310.

O registro que não precisa importar, simplesmente ...

Durante o teste que fiz tentando importar, após a importação SDF, analisei linha por linha (registro por registro) importado

Percebi que, neste arquivo que dá o erro, ele importa dando um espaço em branco em cada letra por exemplo

(o inicio de um determinado registro seria "310RIBEIRAO")

ele ...

Olá, bom, veja este arquivo em anexo importa sem problemas.

Veja

Pessoal, bom dia, todos bem? Espero que sim !!

Estou tendo um problema na importação de um arquivo txt padrão Conemb/PROCEDA/NOTFIS

No meu sistema importo este padrão para um PDF, e após isso vou tratando linha por linha para importar os dados pra minha tabela interna.

Tudo funciona ...

Segue rotina que usei para importar um arquivo parecido com este.



clear
USE CIDADE ALIAS CIDADE NEW
ZAP

USE importa ALIAS importa NEW
GO TOP
CONTA=0
DO WHILE .T.
CLEAR
do while !EOF()
mLINHA:=importa->LINHA

mCEP=' '
mCEP=SUBSTR(mLINHA,1,8)

mCIDADE=' '
X=10
DO WHILE SUBSTR(mLINHA ...

Compilei meu programa no harbour, e pelo que parece está funcionando normalmente.

O unico problema é que não consigo configurá-lo em tela cheia ou mesmo janela no windows XP ou VISTA, pois a tela fica desconfigurada, e as vezes se meche sozinha.

Gostaria de saber como devo proceder para deixar ...

:)Pos
Abaixo segue a forma que uso, com o nodosimp.exe


// exemplo de relatorio usando funcao lertexto em conjunto com nodosimp.exe


use irrf
DO WHILE .T.
SET RELATION TO CCODIGO INTO CONTRAT
if RELATORIO()
ACTPRINTER(1,15)
IMPIR1()
ACTPRINTER(0)
else
ACTPRINTER(1,15,'IRRF1.TXT ...