From cb82d83f57ea8b141f6c1ab941561d2c97a786a2 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 23 May 2008 14:57:11 +0000
Subject: [PATCH] =?UTF-8?q?Se=20desactiva=20la=20creaci=C3=B3n=20de=20orde?=
 =?UTF-8?q?nes=20de=20devoluci=C3=B3n=20cuando=20hacemos=20abonos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@235 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../uFacturasProveedorController.pas          |  2 +-
 .../Model/uBizFacturasProveedor.pas           |  3 ---
 .../Views/uEditorFacturaProveedor.dfm         | 22 +++++++++++++++----
 .../Views/uEditorFacturaProveedor.pas         |  2 +-
 4 files changed, 20 insertions(+), 9 deletions(-)

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;