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
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
Curtir tópico
+ 0
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.
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
Clique aqui para fazer login e interagir na Comunidade :)