layout ??

[EderDias 0]

OLá...pessoal.....Eu tou querendo aprender a criar e a ler um layout, mas não sei por onde começar.....alguem poderia me dar algumas dicas.....ou algum material....Basicamente eu queria como por exemplo .....criar um layout para transmitir dados de uma filial a outra....tipo....gerar um periodo (___/___/___ a ___/___/___) na filial 2 edepois ler estes dados que foram mandados via email atraves de um *.TXT na filial 1Alguem poderia me ajudar???Grato

[@beto 0]

Fala.... caro eder....

 

olha eu aqui para lhe prestar ajuda nes hora...

 

já fiz isso algumas vezes....

 

primeiro: você filter o BD usando um sql ou filter, tanto faz....

 

segundo: você deternina tamanho que cada campo vai ocupar, tipo nome com 40 caracter, codigo com 8 caracter, uma dica valores numerico, preencha com '0' e nome, endereco , historico com ' ', valor em casas decimais, são mais complicados... você vai ter que dividir e usar a função chamada format, ex :

StrtoFloat(format('%s,%s',copy(valor, 1,10),copy(valor,11,2));

 

e para a leitura faz da mesma forma....usando os campo com tamanho igual a que foi geradas...

 

beleza...

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

me avisa de não der....

 

 

B)

[EderDias 0]

e ai camarada Beto beleza???

 

Cara..por acaso você não tem nenhum exemplo prático???? algum fonte......porque parece meio complexo......

 

Grato.... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[@beto 0]

Caro Eder... o que você quer não e dificil, e trabalhoso..

 

por que você tem que fazer priticamente e gerar um string gigante com varios dados e para a filial, vai ter que ler a string e ir cortando em pedaços..

 

aqui eu não tenho ex., mas vou ver se te arrumo..

 

 

falo.. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[EderDias 0]

BELEZA....@Beto...se conseguires arrumar um exemplo bem simples....só p/ ver como funciona...te agradeço.....valeu...inté... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[@beto 0]

par criar o arquivo .txt seria +- assim

 

function PoeZero(Numero : integer; tam : byte; antes : boolean) : string

var

z : byte;

zero : string;

valor : string;

 

begin

zero:='';

//

valor:=inttostr(Numero);

//

for z := 1 to Num do

zero := concat(zero,'0');

//

if Antes then

Valor:=Concat(Zero,Valor)

else

Valor:=Concat(Valor,Zero);

//

PoeZero:=Valor;

end;

 

function PoeEspaco(S : String;Tam : byte;Antes : Boolean) : String;

var

t : byte;

Espacos : string;

begin

Espacos:='';

For t:=(length(S)+1) to Tam do

begin

Espacos:=Espacos+' ';

end;

if Antes then // A Variavel Antes indica se os espacos serao colocados antes ou depois

PoeEspaco:=Espacos+S

else

PoeEspaco:=S+Espacos;

end;

 

function GeraTxt(path : string) : boolean;

var

Arquivo : string;{nome do arquivo}

Texto: String;{linha para montaro arquivo texto}

ArquivoTexto: TextFile; {handle do arquivo texto}

 

begin

 

ReWrite(ArquivoTexto); {Recria o arquivo texto}

 

{associa o path do arquivo e o nome do arquivo}

Arquivo := concat(path,'\arqtexto.txt'');

{Associa o arquivo a uma variável do tipo TextFile}

AssignFile(ArquivoTexto,Arquivo);

{Abre o arquivo texto}

Reset(ArquivoTexto);

while not Query1.eof do

begin

texto:='';

texto:=concat(texto,PoeZero(Query1codigo.asinteger,6,true),PoeEspaco(Query1.nome

.asstring,40,false);

{Grava a string Texto no arquivo texto}

Writeln(ArquivoTexto,Texto);

Query1.next;

end.

CloseFile(ArquivoTexto); {Fecha o arquivo texto}

 

end;

 

function LerTxt(path : string) : boolean;

var

Arquivo : string;

Texto: String;

ArquivoTexto: TextFile; {handle do arquivo texto}

 

begin

 

{associa o path do arquivo e o nome do arquivo}

Arquivo := concat(path,'\arqtexto.txt'');

{Associa o arquivo a uma variável do tipo TextFile}

AssignFile(ArquivoTexto,Arquivo);

{Abre o arquivo texto}

Reset(ArquivoTexto);

 

While not eof(ArquivoTexto) do

begin

{Armazena a linha atual do arquivo na string Texto e salta para a próxima linha}

Readln(ArquivoTexto,Texto);

{insere um registo na tabela}

table1.append;

{quebra a linha para inserir nos campos da tabela}

table1codigo.asinteger := copy(texto,1,6);

table1nome.astring:=copy(texto,7,40);

table1.post;

 

end;

 

CloseFile(ArquivoTexto); {Fecha o arquivo texto}

end;

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

tenta este ex.

[EderDias 0]

beleza....@Beto....vou tentar final de semana....qdo estou mais de cabeça fresca....hehehe.......depois de digo

 

valeu...cara...mto grato.... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif