WHILE NOT DM_SG.ITINERAR.EOF DO//origem
BEGIN
DM_SEC.ITINERAR.Append;
DM_SEC.ITINERAR.Edit;//destino
DM_SEC.ITINERAR.FieldByName('CDRELIG').AsString:=
DM_SG.ITINERAR.FieldByName('CDRELIG').AsString;
DM_SEC.ITINERAR.FieldByName('CDCOMU').AsString:=
DM_SG.ITINERAR.FieldByName('CDCOMU').AsString;
DM_SEC.ITINERAR.FieldByName('CDCOMUANT').AsString:=
DM_SG.ITINERAR.FieldByName('CDCOMUANT').AsString;
DM_SEC.ITINERAR.FieldByName('CDCOMUPROX').AsString:=
DM_SG.ITINERAR.FieldByName('CDCOMUPROX').AsString;
DM_SEC.ITINERAR.FieldByName('CDPROV').AsInteger:=
DM_SG.ITINERAR.FieldByName('CDPROV').AsInteger;
DM_SEC.ITINERAR.FieldByName('CDPROVANT').AsInteger:=
DM_SG.ITINERAR.FieldByName('CDPROVANT').AsInteger;
DM_SEC.ITINERAR.FieldByName('CDPROVPROX').AsInteger:=
DM_SG.ITINERAR.FieldByName('CDPROVPROX').AsInteger;
DM_SEC.ITINERAR.FieldByName('DTCHEGADA').AsDateTime:=
DM_SG.ITINERAR.FieldByName('DTCHEGADA').AsDateTime;
IF not DM_SG.ITINERAR.FieldByName('DTSAIDA').IsNull then
begin
DM_SEC.ITINERAR.FieldByName('DTSAIDA').AsDateTime:=
DM_SG.ITINERAR.FieldByName('DTSAIDA').AsDateTime;
end;
DM_SEC.ITINERAR.FieldByName('OBSERV').AsString:=
DM_SG.ITINERAR.FieldByName('OBSERV').AsString;
DM_SEC.ITINERAR.FieldByName('DTATUAL').AsDateTime:=
DM_SG.ITINERAR.FieldByName('DTATUAL').AsDateTime;
DM_SEC.ITINERAR.Post;
DM_SG.ITINERAR.Next;
END;
Se não for nulo ele passa os dados, se não, não passa nada.
Atenciosamente,
Gláucio Saraiva
----- Original Message -----
From: info.suporte
To: [EMAIL PROTECTED]
Sent: Wednesday, November 03, 2004 11:08 AM
Subject: [delphi-br] Data em branco
Alguem sabe como faço para que um campo da tabela receba uma data em branco
// Programa para importar os dados de uma tabela origempara destino
Exemplo:
WHILE NOT DM_SG.ITINERAR.EOF DO//origem
BEGIN
DM_SEC.ITINERAR.Append;
DM_SEC.ITINERAR.Edit;//destino
DM_SEC.ITINERAR.FieldByName('CDRELIG').AsString:=
DM_SG.ITINERAR.FieldByName('CDRELIG').AsString;
DM_SEC.ITINERAR.FieldByName('CDCOMU').AsString:=
DM_SG.ITINERAR.FieldByName('CDCOMU').AsString;
DM_SEC.ITINERAR.FieldByName('CDCOMUANT').AsString:=
DM_SG.ITINERAR.FieldByName('CDCOMUANT').AsString;
DM_SEC.ITINERAR.FieldByName('CDCOMUPROX').AsString:=
DM_SG.ITINERAR.FieldByName('CDCOMUPROX').AsString;
DM_SEC.ITINERAR.FieldByName('CDPROV').AsInteger:=
DM_SG.ITINERAR.FieldByName('CDPROV').AsInteger;
DM_SEC.ITINERAR.FieldByName('CDPROVANT').AsInteger:=
DM_SG.ITINERAR.FieldByName('CDPROVANT').AsInteger;
DM_SEC.ITINERAR.FieldByName('CDPROVPROX').AsInteger:=
DM_SG.ITINERAR.FieldByName('CDPROVPROX').AsInteger;
DM_SEC.ITINERAR.FieldByName('DTCHEGADA').AsDateTime:=
DM_SG.ITINERAR.FieldByName('DTCHEGADA').AsDateTime;
IF DM_SG.ITINERAR.FieldByName('DTSAIDA').IsNull then
begin
// Se a data saida for em branco então a tabela origem recebe data em
branco senão recebe a data da tabela destino
DM_SEC.ITINERAR.FieldByName('DTSAIDA').AsDateTime:=
DM_SG.ITINERAR.FieldByName('DTSAIDA').AsDateTime;
end else
begin
DM_SEC.ITINERAR.FieldByName('DTSAIDA').AsDateTime:=
DM_SG.ITINERAR.FieldByName('DTSAIDA').AsDateTime;
end;
DM_SEC.ITINERAR.FieldByName('OBSERV').AsString:=
DM_SG.ITINERAR.FieldByName('OBSERV').AsString;
DM_SEC.ITINERAR.FieldByName('DTATUAL').AsDateTime:=
DM_SG.ITINERAR.FieldByName('DTATUAL').AsDateTime;
DM_SEC.ITINERAR.Post;
DM_SG.ITINERAR.Next;
END;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
