Coloque
DM_SEC.ITINERAR.FieldByName('DTCHEGADA').Clear;
.
.
.
Retira qq data fica nulo.
info.suporte escreveu:
> 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:*
>
> *
> <http://br.rd.yahoo.com/SIG=12acpu6q5/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1099584518/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/>*
>
>
>
> ------------------------------------------------------------------------
> *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]
> <mailto:[EMAIL PROTECTED]>
>
> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>
[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
