Fórum Como passo uma data em branco para uma instrucao sql #284004

      if not DM.CDS_Apagar.Eof then
         begin
            if (DM.CDS_Apagar.FieldByName(´QUITADO´).asString = ´Sim´) and (EditTotPag.Value = 0) then
               begin
                  if wRequest(´Esta parcela já foi recebida! Deseja reabrir?´,0) = idYes then
                     begin
********* AQUI **************
                        EditDatPag.Text    := O QUE COLOCO AQUI ????´;
                        EditFormPag.Text   := ´´;
                        EditJuros.Value    := 0;
                        EditDesconto.Value := 0;
                        EditDiasAtra.Value := 0;
                        Quitado            := ´Nao´;
                     end
                  else
                     begin
                        EditTotPag.SetFocus;
                        exit;
                     end
                  end;
            DM.SQL_Apagar.CommandText := ´UPDATE Apagar SET ´+
                                                ´DATPAG=:vDatPag, DIASATRA=:vDiasAtra, FORMPAG=:vFormPag, JUROS=:vJuros, DESCONTO=:vDesconto, TOTPAG=:vTotPag, OBSPAG1=:vObsPag1, OBSPAG2=:vObsPag2, QUITADO=:vQuitado, DATAALT=:vDataAlt, HORAALT=:vHoraAlt ´+
                                                ´WHERE CODEMP=:vCodEmp and CodFor=:vCodFor AND Doc=:vDoc AND Pa=:vPa´;
            vvDataAlt          := FormatDateTime(´dd/mm/yyyy´,Date);
            vvHoraAlt          := FormatDateTime(´hh:nn´,Now);
            DM.SQL_Apagar.ParamByName(´vCodEmp´).AsInteger         := fMenu.CodEmpSelec ;
            DM.SQL_Apagar.ParamByName(´vCodFor´).AsCurrency        := EditCodFor.Value ;
            DM.SQL_Apagar.ParamByName(´vDoc´).AsString             := EditDoc.Text ;
            DM.SQL_Apagar.ParamByName(´vPa´).AsCurrency            := EditPa.Value ;
********* AQUI **************
            DM.SQL_Apagar.ParamByName(´vDatPag´).AsDate            := StrToDate(EditDatPag.Text) ;
            DM.SQL_Apagar.ParamByName(´vDiasAtra´).AsCurrency      := EditDiasAtra.Value ;
            DM.SQL_Apagar.ParamByName(´vFormPag´).AsString         := EditFormPag.Text ;
            DM.SQL_Apagar.ParamByName(´vJuros´).AsCurrency         := EditJuros.Value ;
            DM.SQL_Apagar.ParamByName(´vDesconto´).AsCurrency      := EditDesconto.Value ;
            DM.SQL_Apagar.ParamByName(´vTotPag´).AsCurrency        := EditTotPag.Value ;
            DM.SQL_Apagar.ParamByName(´vObsPag1´).AsString         := EditObsPag1.Text  ;
            DM.SQL_Apagar.ParamByName(´vObsPag2´).AsString         := EditObsPag2.Text  ;
            DM.SQL_Apagar.ParamByName(´vQuitado´).AsString         := Quitado ;
            DM.SQL_Apagar.ParamByName(´vDataAlt´).AsDate           := StrToDate(vvDataAlt) ;
            DM.SQL_Apagar.ParamByName(´vHoraAlt´).AsString         := vvHoraAlt ;
            DM.SQL_Apagar.ExecSQL;
            DM.Conexao.Commit(Trs);