Gerar arquivo para o importação de sistema
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
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
Curtidas 0
Respostas
Thaisandrade
08/06/2004
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.
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.
GOSTEI 0