Arreglos varios

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

Source/Compras_Group.bdsgroup

@@ -53,7 +53,8 @@
       <Projects Name="RemesasCliente_view.bpl">Modulos\Remesas de cliente\Views\RemesasCliente_view.bdsproj</Projects>
       <Projects Name="BancaElectronica_controller.bpl">Modulos\Banca electronica\Controller\BancaElectronica_controller.bdsproj</Projects>
       <Projects Name="Articulos_model.bpl">Modulos\Articulos\Model\Articulos_model.bdsproj</Projects>
-      <Projects Name="Targets">DataAbstract_D10.bpl Base.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl RecibosProveedor_model.bpl RecibosProveedor_data.bpl RecibosProveedor_controller.bpl RecibosProveedor_view.bpl RecibosProveedor_plugin.bpl FacturasProveedor_model.bpl FacturasProveedor_data.bpl AlbaranesProveedor_controller.bpl AlbProv_FacProv_relation.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl PedidosProveedor_controller.bpl FacturasProveedor_controller.bpl PedProv_FacProv_relation.bpl FacturasProveedor_view.bpl PedidosProveedor_view.bpl FacturasProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe PedCli_PedProv_relation.bpl PedProv_AlbProv_relation.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl FacturasCliente_controller.bpl AlbCli_FacCli_relation.bpl FacturasCliente_model.bpl FacturasCliente_view.bpl RemesasCliente_model.bpl RemesasProveedor_model.bpl RemesasProveedor_data.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl RemesasProveedor_controller.bpl RemesasProveedor_view.bpl RemesasCliente_view.bpl BancaElectronica_controller.bpl Articulos_model.bpl</Projects>
+      <Projects Name="Articulos_controller.bpl">Modulos\Articulos\Controller\Articulos_controller.bdsproj</Projects>
+      <Projects Name="Targets">DataAbstract_D10.bpl Base.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl RecibosProveedor_model.bpl RecibosProveedor_data.bpl RecibosProveedor_controller.bpl RecibosProveedor_view.bpl RecibosProveedor_plugin.bpl FacturasProveedor_model.bpl FacturasProveedor_data.bpl AlbaranesProveedor_controller.bpl AlbProv_FacProv_relation.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl PedidosProveedor_controller.bpl FacturasProveedor_controller.bpl PedProv_FacProv_relation.bpl FacturasProveedor_view.bpl PedidosProveedor_view.bpl FacturasProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe PedCli_PedProv_relation.bpl PedProv_AlbProv_relation.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl FacturasCliente_controller.bpl AlbCli_FacCli_relation.bpl FacturasCliente_model.bpl FacturasCliente_view.bpl RemesasCliente_model.bpl RemesasProveedor_model.bpl RemesasProveedor_data.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl RemesasProveedor_controller.bpl RemesasProveedor_view.bpl RemesasCliente_view.bpl BancaElectronica_controller.bpl Articulos_model.bpl Articulos_controller.bpl</Projects>
     </Projects>
     <Dependencies/>
   </Default.Personality>

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm

@@ -1,5 +1,6 @@
 inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente
   Caption = 'Lista de '#243'rdenes de devoluci'#243'n a cliente'
+  ExplicitHeight = 478
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -132,15 +133,15 @@ inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente
       inherited TBXItem44: TTBXItem
         Visible = False
       end
-      inherited TBXItem45: TTBXItem
-        Caption = 'Generar abono...'
-      end
     end
   end
   inherited EditorActionList: TActionList
     inherited actNuevo: TAction
       ImageIndex = 24
     end
+    inherited actGenerarFactura: TAction
+      Caption = 'Generar abono...'
+    end
     inherited actEnviar: TAction
       Visible = False
     end

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas

@@ -208,11 +208,15 @@ begin
         if (AInventarioRecibido.CANTIDAD <> 0) then
         begin
           ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
-          ADetallesController.AnadirArticulo(ADetalles, AInventarioRecibido.REFERENCIA, tCliente);
+//Se cambia porque puede haber articulos del pedido que no tengan referencia de proveedor
+//          ADetallesController.AnadirArticulo(ADetalles, AInventarioRecibido.REFERENCIA, tCliente);
+          ADetallesController.AnadirArticulo(ADetalles, AInventarioRecibido.ID_ARTICULO);
           ADetalles.Edit;
 
           APedido.Detalles.First;
-          if not APedido.Detalles.DataTable.Locate(fld_ArticulosREFERENCIA, ADetalles.REFERENCIA, []) then
+//Se cambia porque puede haber articulos del pedido que no tengan referencia de proveedor          
+//          if not APedido.Detalles.DataTable.Locate(fld_ArticulosREFERENCIA, ADetalles.REFERENCIA, []) then
+          if not APedido.Detalles.DataTable.Locate(fld_INVENTARIOID_ARTICULO, ADetalles.ID_ARTICULO, []) then
              raise Exception.Create(Format('No se ha encontrado el artículo del pedido con REFERENCIA %s (CopiarArticulosAAlbaran)', [ADetalles.REFERENCIA]));
           ADetalles.IMPORTE_UNIDAD := APedido.Detalles.IMPORTE_UNIDAD;
           ADetalles.DESCUENTO := APedido.Detalles.DESCUENTO;

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.dfm

@@ -1,11 +1,16 @@
 inherited fEditorAlbaranesDevProveedor: TfEditorAlbaranesDevProveedor
   Caption = 'Lista de '#243'rdenes de devoluci'#243'n de proveedor'
+  ClientWidth = 872
+  ExplicitWidth = 880
   ExplicitHeight = 478
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
+    Width = 872
     Caption = 'Lista de '#243'rdenes de devoluci'#243'n de proveedor'
+    ExplicitWidth = 872
     inherited Image1: TImage
+      Left = 845
       Picture.Data = {
         0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
         0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -122,13 +127,26 @@ inherited fEditorAlbaranesDevProveedor: TfEditorAlbaranesDevProveedor
         334DEAEF21B3FA234C3E2FD615D0396F56AC818A1C2AA6DE9BC73BA7F7AF11C8
         57A308AABE386478304D80AFBF710C4F5121CA43E698041AB8669DA7F7EB63EA
         6F8A0E921A675CAE400000000049454E44AE426082}
+      ExplicitLeft = 845
     end
   end
   inherited TBXDock: TTBXDock
+    Width = 872
+    ExplicitWidth = 872
+    inherited tbxMain: TTBXToolbar
+      ExplicitWidth = 632
+    end
+    inherited tbxMenu: TTBXToolbar
+      ExplicitWidth = 872
+    end
     inherited TBXTMain2: TTBXToolbar
       ExplicitWidth = 112
     end
   end
+  inherited StatusBar: TJvStatusBar
+    Width = 872
+    ExplicitWidth = 872
+  end
   inherited EditorActionList: TActionList
     inherited actNuevo: TAction
       ImageIndex = 24
@@ -866,6 +884,14 @@ inherited fEditorAlbaranesDevProveedor: TfEditorAlbaranesDevProveedor
       end>
     Bitmap = {}
   end
+  inherited GridPopupMenu: TPopupMenu
+    object N4: TMenuItem [5]
+      Caption = '-'
+    end
+    object Acercade1: TMenuItem [6]
+      Action = actGenerarFactura
+    end
+  end
   inherited JsPrevisualizarDialog: TJSDialog
     CustomButtons = <
       item
@@ -893,6 +919,6 @@ inherited fEditorAlbaranesDevProveedor: TfEditorAlbaranesDevProveedor
   inherited JsListaAlbaranesNoEliminados: TJSDialog
     Instruction.Text = 
       'Las siguientes ordenes de devoluci'#243'n no han podido ser eliminada' +
-      's, porque est'#225'n asociadas a una factura'
+      's, porque est'#225'n asociadas a un abono'
   end
 end

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas

@@ -1,4 +1,4 @@
-unit uEditorAlbaranesDevProveedor;
+unit uEditorAlbaranesDevProveedor;
 
 interface
 
@@ -13,6 +13,8 @@ uses
 type
 
   TfEditorAlbaranesDevProveedor = class(TfEditorAlbaranesProveedor, IEditorAlbaranesDevProveedor)
+    N4: TMenuItem;
+    Acercade1: TMenuItem;
   protected
     procedure AsignarVista; override;
     procedure NuevoInterno; override;
@@ -44,7 +46,7 @@ procedure TfEditorAlbaranesDevProveedor.PonerTitulos(const ATitulo: string);
 var
   FTitulo : String;
 begin
-  FTitulo := 'Lista de órdenes de devolución de proveedor - ' + dmUsuarios.EmpresaActual.NOMBRE;
+  FTitulo := 'Lista de órdenes de devolución de proveedor - ' + dmUsuarios.EmpresaActual.NOMBRE;
   inherited PonerTitulos(FTitulo);
 end;
 

Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas

@@ -237,6 +237,7 @@ var
   AFacturaActual : IBizFacturaCliente;
   AAlbaranesController : IAlbaranesClienteController;
   I: Integer;
+  bEnEdicion : Boolean;
 begin
   Result := False;
 
@@ -281,6 +282,19 @@ begin
         AAlbaranesController.RecuperarCliente(AListaAlbaranes);
         AListaAlbaranes.Cliente.DataTable.Active := True;
         AFacturas.Cliente := AListaAlbaranes.Cliente;
+
+        //Si el albaran es de tipo devolución hacemos la factura de tipo abono
+        if (AListaAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then
+        begin
+          bEnEdicion := (AFacturas.DataTable.State in dsEditModes);
+          if not bEnEdicion then
+             AFacturas.Edit;
+          AFacturas.TIPO := CTE_TIPO_ABONO;
+          AFacturas.Post;
+          if bEnEdicion then
+             AFacturas.Edit;
+        end;
+
         AFacturaActual := AFacturas;
       end;
 

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

@@ -280,6 +280,18 @@ begin
         if bEnEdicion then
            AFacturas.Edit;
 
+        //Si el albaran es de tipo devolución hacemos la factura de tipo abono
+        if (AListaAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then
+        begin
+          bEnEdicion := (AFacturas.DataTable.State in dsEditModes);
+          if not bEnEdicion then
+             AFacturas.Edit;
+          AFacturas.TIPO := CTE_TIPO_ABONO;
+          AFacturas.Post;
+          if bEnEdicion then
+             AFacturas.Edit;
+        end;
+
         AFacturaActual := AFacturas;
       end;