Fórum Gerar arquivo para o importação de sistema #236770

08/06/2004

0

Pessoal estou tentando gerar um arquivo texto que vai ser importado por um sistema de contabilidade, mas não estou tendo sucesso, alguém poderia me ajudar? Segue abaixo o layout para ser gerado

Descrição Tipo
Códogo da empresa Inteiro (6)
Código do Cliente Inteiro (6)
Sigla do Estado Caracter(2)
Conta Contábil Inteiro(6)
Código do Município Inteiro(7)
Nome Reduzido Caracter(10)
Razão Social Caracter(40)
Endereço Caracter(40)
Número Inteiro(6)


Agradeço a quem puder ajudar


Virus69

Virus69

Responder

Posts

08/06/2004

Thaisandrade

Bom, na verdade primeiro você precisa definir como será a estrutura do seu arquivo texto. Por exemplo o que vai usar como separador, enfim. Nesse exemplo vou usar a vírgula (,) como separador.

var
arquivo: TextFile

begin
//vincula a variável a um arquivo já existente
AssignFile(arquivo,´c:\dados.txt´);

//´abre´ o arquivo e prepara para a inclusão do texto no final
Append(arquivo);

//Escreve no arquivo e salta para a próxima linha
WriteLn(arquivo, CodEmpresa+´,´+CodCliente+´,´+UF+´,´contaCont+...);

//Fecha o arquivo
CloseFile(arquivo)

end;

Espero ter ajudado, se precisar de mais algo.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar