Windev Le Arquivo Texto e Gravar Postgres

---

Windev Le Arquivo Texto e Gravar Postgres

Com essa sequencia abaixo, eu leio um arquivo texto, cada campo seraparado pelo
caracter | e coloco na base de dados.

PROCEDURE CONVERTE_ESTADO()

HReset(estado)
nArquivoid is int
sFimarquivo is string
nArquivoid = fOpen("d:\IMPORTA\ESTADO.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
estado.uf = ExtractString(sLinha,nextRank,"|")
estado.descricao = ExtractString(sLinha,nextRank,"|")
estado.aliquota_icm = ExtractString(sLinha,nextRank,"|")
estado.aliquota_icm_interna = ExtractString(sLinha,nextRank,"|")
estado.percentualreducaoicm = ExtractString(sLinha,nextRank,"|")
estado.icmantecipado = ExtractString(sLinha,nextRank,"|")
HAdd(estado)
END
END
END
END
END