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

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

@@ -116,10 +116,36 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       ExplicitTop = 28
       inherited dxLayoutControl1: TdxLayoutControl
         Align = alTop
+        inherited edtlNombre: TcxDBTextEdit
+          ExplicitWidth = 224
+          Width = 224
+        end
+        inherited edtNIFCIF: TcxDBTextEdit
+          ExplicitWidth = 562
+          Width = 562
+        end
+        inherited edtCalle: TcxDBTextEdit
+          ExplicitWidth = 562
+          Width = 562
+        end
+        inherited edtPoblacion: TcxDBTextEdit
+          ExplicitWidth = 177
+          Width = 177
+        end
+        inherited edtProvincia: TcxDBTextEdit
+          ExplicitWidth = 327
+          Width = 327
+        end
         inherited edtCodigoPostal: TcxDBTextEdit
           Left = 268
           ExplicitLeft = 268
         end
+        inherited Button1: TBitBtn
+          OnClick = frViewClienteAlbaranButton1Click
+        end
+        inherited Button2: TBitBtn
+          OnClick = frViewClienteAlbaranButton2Click
+        end
         inherited Button3: TBitBtn
           Left = 158
           ExplicitLeft = 158

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

@@ -112,6 +112,8 @@ type
     procedure frViewClienteAlbaranactElegirContactoUpdate(Sender: TObject);
     procedure actElegirDireccionUpdate(Sender: TObject);
     procedure actVerPedidoCliUpdate(Sender: TObject);
+    procedure frViewClienteAlbaranButton1Click(Sender: TObject);
+    procedure frViewClienteAlbaranButton2Click(Sender: TObject);
 
   protected
     FAlbaran : IBizAlbaranCliente;
@@ -310,6 +312,28 @@ begin
      (Sender as TAction).Enabled := not Assigned(FPedidoAsociado);
 end;
 
+procedure TfrViewAlbaranCliente.frViewClienteAlbaranButton1Click(Sender: TObject);
+begin
+  if Assigned(Albaran) and Assigned(Albaran.Cliente) and
+    Assigned (Albaran.Detalles) and (Albaran.Detalles.RecordCount > 0) then
+  begin
+    if (Application.MessageBox('Los descuentos de los artículos del albarán serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
+      Exit;
+  end;
+  frViewClienteAlbaran.actElegirContacto.Execute;
+end;
+
+procedure TfrViewAlbaranCliente.frViewClienteAlbaranButton2Click(Sender: TObject);
+begin
+  if Assigned(Albaran) and Assigned(Albaran.Cliente) and
+    Assigned (Albaran.Detalles) and (Albaran.Detalles.RecordCount > 0) then
+  begin
+    if (Application.MessageBox('Los descuentos de los artículos del albarán serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
+      Exit;
+  end;
+  frViewClienteAlbaran.actAnadirContacto.Execute;
+end;
+
 function TfrViewAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
 begin
   Result := FAlbaran;

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

@@ -14,8 +14,6 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
-    ExplicitWidth = 688
-    ExplicitHeight = 461
     DesignSize = (
       827
       585)
@@ -122,6 +120,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
           Left = 239
           ExplicitLeft = 239
         end
+        inherited Button1: TBitBtn
+          OnClick = frViewProveedorAlbaranButton1Click
+        end
+        inherited Button2: TBitBtn
+          OnClick = frViewProveedorAlbaranButton2Click
+        end
         inherited Button3: TBitBtn
           Left = 123
           ExplicitLeft = 123

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

@@ -214,7 +214,7 @@ begin
     if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos del la orden de devolución actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
       Exit;
   end;
-  frViewProveedorAlbaran.actElegirContacto.Execute;
+  frViewProveedorAlbaran.actAnadirContacto.Execute;
 end;
 
 function TfrViewAlbaranProveedor.GetAlbaran: IBizAlbaranProveedor;