Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1108 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2014-06-03 16:43:30 +00:00
parent 5d5e2ff883
commit 192c7d4901
7 changed files with 361 additions and 345 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

3
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -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]));

33
Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.dfm
View File

@ -3,8 +3,8 @@ object fEditorElegirDomiciliacion: TfEditorElegirDomiciliacion
Top = 0
BorderStyle = bsDialog
Caption = 'Domiciliaci'#243'n bancaria'
ClientHeight = 124
ClientWidth = 497
ClientHeight = 152
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
Width = 497
Top = 111
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

1
Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.pas
View File

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

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

9
Source/Servidor/FactuGES_Server.dproj
View File

@ -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>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -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"