Se arregla el asignar la misma cuenta bancaria a los recibos de las facturas, cuando se asigna una cuenta bancaria de forma masiva

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1108 0c75b7a4-871f-7646-8a2f-f78d34cc349f

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

@@ -288,6 +288,9 @@ begin
           Edit;
           AFacturas.DATOS_BANCARIOS := ACuentaBancaria;
           Post;
+
+          //Se generan los recibos automáticamente a partir de la forma de pago
+          GenerarRecibos(AFacturas);
         end
         else
            Result.Add(Format('%s=%s', [AFacturas.REFERENCIA, AFacturas.NOMBRE]));

Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.dfm

@@ -3,8 +3,8 @@ object fEditorElegirDomiciliacion: TfEditorElegirDomiciliacion
   Top = 0
   BorderStyle = bsDialog
   Caption = 'Domiciliaci'#243'n bancaria'
-  ClientHeight = 124
+  ClientHeight = 152
-  ClientWidth = 497
+  ClientWidth = 500
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -33,18 +33,35 @@ object fEditorElegirDomiciliacion: TfEditorElegirDomiciliacion
     Alignment = taRightJustify
     Caption = 'Cuenta bancaria:'
   end
+  object Label3: TLabel
+    Left = 22
+    Top = 80
+    Width = 443
+    Height = 13
+    Caption = 
+      '* Todos los recibos de las facturas ser'#225'n generados nuevamente c' +
+      'on la cuenta seleccionada'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clMaroon
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
   object Panel1: TPanel
     Left = 0
-    Top = 83
+    Top = 111
-    Width = 497
+    Width = 500
     Height = 41
     Align = alBottom
     TabOrder = 0
+    ExplicitTop = 83
+    ExplicitWidth = 497
     DesignSize = (
-      497
+      500
       41)
     object bAceptar: TButton
-      Left = 333
+      Left = 336
       Top = 8
       Width = 75
       Height = 25
@@ -52,9 +69,10 @@ object fEditorElegirDomiciliacion: TfEditorElegirDomiciliacion
       Caption = 'Aceptar'
       ModalResult = 1
       TabOrder = 0
+      ExplicitLeft = 333
     end
     object bCancelar: TButton
-      Left = 414
+      Left = 417
       Top = 8
       Width = 75
       Height = 25
@@ -62,6 +80,7 @@ object fEditorElegirDomiciliacion: TfEditorElegirDomiciliacion
       Caption = 'Cancelar'
       ModalResult = 2
       TabOrder = 1
+      ExplicitLeft = 414
     end
   end
   object cbCuentaBancaria: TcxComboBox

Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.pas

@@ -16,6 +16,7 @@ type
     Label2: TLabel;
     Panel1: TPanel;
     cbCuentaBancaria: TcxComboBox;
+    Label3: TLabel;
     procedure FormShow(Sender: TObject);
 
   private

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@@ -36,13 +36,6 @@
 		<Borland.ProjectType/>
 		<BorlandProject>
 			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 04 de marzo de 2014 11:21</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.0.6.0\0"
               VALUE "ProductName", "FactuGES Servidor\0"
               VALUE "ProductVersion", "2.0.6.0\0"
-              VALUE "CompileDate", "miércoles, 07 de mayo de 2014 13:49\0"
+              VALUE "CompileDate", "lunes, 26 de mayo de 2014 10:39\0"
          END
     END
     BLOCK "VarFileInfo"