diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index dcbbe042..2654ad45 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -657,7 +657,7 @@ begin //En caso de ser un Abono no podra tener un importe total positivo if (AFactura.TIPO = CTE_TIPO_ABONO) then if (AFactura.IMPORTE_TOTAL >= 0) then - raise Exception.Create('Un abono nunca no puede tener un importe positivo'); + raise Exception.Create('Un abono nunca no puede tener un importe positivo, asegurese que las cantidades sean negativas'); { Asegurarse de valores en campos "automáticos" tanto en MODIFICACIÓN como en INSERCIÓN. } diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas index f3317c9e..3e8682d6 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas @@ -245,11 +245,8 @@ begin IVA := AppFactuGES.EmpresaActiva.IVA; RE := 0; SITUACION := CTE_PENDIENTE; - - //TEMPORAL ID_TIENDA := AppFactuGES.VAR_IDTIENDA; TIENDA := AppFactuGES.VAR_TIENDA; - IGNORAR_CONTABILIDAD := 0; end; diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm index 56fa75cf..e9c7793d 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm @@ -124,8 +124,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Width = 169 end inherited bFormasPago: TButton - Left = 240 - ExplicitLeft = 240 + Left = 183 + ExplicitLeft = 183 end inherited eReferenciaProveedor: TcxDBTextEdit ExplicitWidth = 316 @@ -143,13 +143,17 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end end inherited frViewProveedorFactura1: TfrViewProveedorFactura - Left = 400 + Left = 343 Width = 350 - ExplicitLeft = 400 + ExplicitLeft = 343 ExplicitWidth = 350 inherited dxLayoutControl1: TdxLayoutControl Width = 350 ExplicitWidth = 350 + inherited Bevel1: TBevel + Width = 242 + ExplicitWidth = 242 + end inherited edtlNombre: TcxDBTextEdit DataBinding.DataSource = dsDataTable ExplicitWidth = 266 @@ -175,7 +179,17 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Width = 266 end inherited edtCodigoPostal: TcxDBTextEdit + Left = 258 DataBinding.DataSource = dsDataTable + ExplicitLeft = 258 + end + inherited Button3: TBitBtn + Left = 142 + ExplicitLeft = 142 + end + inherited cxDBTextEdit1: TcxDBTextEdit + ExplicitWidth = 276 + Width = 276 end end end diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas index 3d18bec0..0d63c0a3 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas @@ -272,7 +272,7 @@ begin begin ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA); //Preguntamos is desea hacer una orden de devolución asociada - if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then +// if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then // GenerarAlbaranProv(FFactura); end; end;