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] 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