git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@164 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

@@ -475,9 +475,9 @@ begin
   end;
 
   //Validamos las fechas del albarán
-  if not (EsFechaVacia(AAlbaran.FECHA_ENVIO)) then
+//  if not (EsFechaVacia(AAlbaran.FECHA_ENVIO)) then
-     if AAlbaran.FECHA_ENVIO < AAlbaran.FECHA_PREVISTA_ENVIO then
+//     if AAlbaran.FECHA_ENVIO < AAlbaran.FECHA_PREVISTA_ENVIO then
-        raise Exception.Create('La fecha de envio debe ser posterior a la fecha prevista de envio');
+//        raise Exception.Create('La fecha de envio debe ser posterior a la fecha prevista de envio');
 
   if not (EsFechaVacia(AAlbaran.FECHA_RECEPCION)) then
      if AAlbaran.FECHA_RECEPCION < AAlbaran.FECHA_ENVIO then

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas

@@ -260,15 +260,7 @@ begin
          DisplayValue := DateToStr(eFechaEnvio.Date);
   end
   else
-  begin
+     eFechaRecepcion.Enabled := true;
-     if (eFechaEnvio.Date >= eFechaPrevista.Date) then
-       eFechaRecepcion.Enabled := true
-     else
-     begin
-       ShowWarningMessage('La fecha de envio debe ser posterior a la fecha prevista de envio');
-       eFechaEnvio.SetFocus;
-     end;
-  end;
 end;
 
 procedure TfrViewAlbaranCliente.eFechaPrevistaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;