Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Informe de facturas de cliente, recibos de cliente, y algunos iconos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@96 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-01-08 18:58:09 +00:00
parent 68e3976390
commit 4189781476
50 changed files with 1662 additions and 943 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Iconos/Cuentas/16x16/Chart.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 611 B

BIN
Resources/Iconos/Cuentas/16x16/User-Edit.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 818 B

BIN
Resources/Iconos/Cuentas/16x16/addsubcuenta.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.6 KiB

BIN
Resources/Iconos/Cuentas/16x16/cuentasespeciales.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.5 KiB

BIN
Resources/Iconos/Cuentas/24x24/Chart.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 831 B

BIN
Resources/Iconos/Cuentas/24x24/User-Edit.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.4 KiB

BIN
Resources/Iconos/Cuentas/24x24/cuentasespeciales.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.0 KiB

BIN
Resources/Iconos/Cuentas/28x28/Chart.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 816 B

BIN
Resources/Iconos/Cuentas/28x28/User-Edit.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.7 KiB

BIN
Resources/Iconos/Empresa/16x16/Outline.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 390 B

BIN
Resources/Iconos/Empresa/24x24/Outline-2.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 573 B

BIN
Resources/Iconos/Empresa/28x28/Outline-2.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 627 B

BIN
Resources/Iconos/logoacana.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 49 KiB

7
Source/Base/Base.dproj
View File

@ -44,13 +44,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>

BIN
Source/Base/Base.res
View File

Binary file not shown.

9
Source/Cliente/Utiles/uClienteUtils.pas
View File

@ -7,13 +7,20 @@ uses
function EsUnModulo(AMenuItem : TMenuItem) : Boolean; function EsUnModulo(AMenuItem : TMenuItem) : Boolean;
function EsModuloVisible(AMenuItem : TMenuItem) : Boolean;
implementation implementation
function EsUnModulo(AMenuItem : TMenuItem) : Boolean; function EsUnModulo(AMenuItem : TMenuItem) : Boolean;
begin begin
Result := (AMenuItem.Tag >= 0) and (AMenuItem.Tag < 9000) Result := (AMenuItem.Tag >= 0) and (AMenuItem.Tag < 9000);
end;
function EsModuloVisible(AMenuItem : TMenuItem) : Boolean;
begin
Result := AMenuItem.Visible;
end; end;
end. end.

3
Source/Cliente/Utiles/uNavPaneUtils.pas
View File

@ -28,7 +28,8 @@ begin
for ItemIndex := 0 to (AMenuItem.Count - 1) do for ItemIndex := 0 to (AMenuItem.Count - 1) do
begin begin
if ((not AMenuItem[ItemIndex].IsLine) // que no sea una línea separadora if ((not AMenuItem[ItemIndex].IsLine) // que no sea una línea separadora
and (AMenuItem[ItemIndex].Count = 0)) // y que no sea el padre de un submenú and (AMenuItem[ItemIndex].Count = 0) // y que no sea el padre de un submenú
and (AMenuItem[ItemIndex].Visible)) // y que sea una acción visible para el submenú
then then
with TTBXLink.Create(Application) do with TTBXLink.Create(Application) do
begin begin

6
Source/Cliente/uBootStrap.pas
View File

@ -23,12 +23,12 @@ begin
begin begin
LoadModule('FormasPago_plugin.bpl'); LoadModule('FormasPago_plugin.bpl');
LoadModule('TiposIVA_plugin.bpl'); LoadModule('TiposIVA_plugin.bpl');
LoadModule('Familias_plugin.bpl');
LoadModule('UnidadesMedida_plugin.bpl');
LoadModule('Contactos_plugin.bpl'); LoadModule('Contactos_plugin.bpl');
{$IFDEF ALMACEN} {$IFDEF ALMACEN}
LoadModule('Familias_plugin.bpl');
LoadModule('UnidadesMedida_plugin.bpl');
LoadModule('Almacenes_plugin.bpl'); LoadModule('Almacenes_plugin.bpl');
LoadModule('Articulos_plugin.bpl'); LoadModule('Articulos_plugin.bpl');
{$ENDIF} {$ENDIF}
@ -39,8 +39,10 @@ begin
LoadModule('RecibosCliente_plugin.bpl'); LoadModule('RecibosCliente_plugin.bpl');
LoadModule('FacturasCliente_plugin.bpl'); LoadModule('FacturasCliente_plugin.bpl');
{$IFDEF PEDIDOSPROVEEDOR}
LoadModule('PedidosProveedor_plugin.bpl'); LoadModule('PedidosProveedor_plugin.bpl');
LoadModule('AlbaranesProveedor_plugin.bpl'); LoadModule('AlbaranesProveedor_plugin.bpl');
{$ENDIF}
LoadModule('RecibosProveedor_plugin.bpl'); LoadModule('RecibosProveedor_plugin.bpl');
LoadModule('FacturasProveedor_plugin.bpl'); LoadModule('FacturasProveedor_plugin.bpl');

3
Source/Cliente/uNavPaneController.pas
View File

@ -117,7 +117,8 @@ begin
// Guardar la lista de secciones (Ventas, Compras, etc...) // Guardar la lista de secciones (Ventas, Compras, etc...)
for ASeccionCount := 0 to MainMenuController.MainMenu.Items.Count - 1 do for ASeccionCount := 0 to MainMenuController.MainMenu.Items.Count - 1 do
begin begin
if not EsUnModulo(MainMenuController.MainMenu.Items[ASeccionCount]) then if (not EsUnModulo(MainMenuController.MainMenu.Items[ASeccionCount]))
or (not EsModuloVisible(MainMenuController.MainMenu.Items[ASeccionCount])) then
Continue; Continue;
AListaSecciones.AddObject(StringReplace(MainMenuController.MainMenu.Items[ASeccionCount].Caption, '&', '', []), AListaSecciones.AddObject(StringReplace(MainMenuController.MainMenu.Items[ASeccionCount].Caption, '&', '', []),
MainMenuController.MainMenu.Items[ASeccionCount]) MainMenuController.MainMenu.Items[ASeccionCount])

74
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -278,6 +278,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
object actLogisticaMenu: TAction object actLogisticaMenu: TAction
Category = 'Log'#237'stica' Category = 'Log'#237'stica'
Caption = 'Log'#237'stica' Caption = 'Log'#237'stica'
Enabled = False
Visible = False
OnExecute = actLogisticaMenuExecute OnExecute = actLogisticaMenuExecute
OnUpdate = actMenuComprasUpdate OnUpdate = actMenuComprasUpdate
end end
@ -347,6 +349,21 @@ object fPantallaPrincipal: TfPantallaPrincipal
00000049454E44AE426082} 00000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000000EE4944415478DA
63FCFFFF3F0325801164C0D22D27C93225DAC79C116E00904350C3DF7FFF197E
FFF9CBF0EBF71F0687E02286733BA6116F00B2E645EB0E30CC5BBA09D3006E6E
6E86AF5FBF82696CE0F9ABB70CBF7FFF6558BEF930760308D90CD20C62AFD97E
0CBF01F85C72FDCE13864D7B4E127601369B7F81E97F0CDB0F9C26EC82B7EF3F
32080BF263B8E0D4C5BB0CFB8F5FC06DC02FA04D2836C2D848E2474E5FC61D0B
AFDEBC67101311C41AA047CFDE021B7AEAC2354C03423D4C08DA0C133F7FF526
A60101CE86446906B1AFDCBC836980B7BD1EC3920D0789CE071806F44E59485A
4E0202B80194000082585AF04025F9110000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end> end>
Left = 51 Left = 51
Top = 181 Top = 181
@ -429,6 +446,30 @@ object fPantallaPrincipal: TfPantallaPrincipal
1B2694FBE012B66F2C0000000049454E44AE426082} 1B2694FBE012B66F2C0000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD252000002064944415478DA
63FCFFFF3F032D0123C882851B8E46B3B0B02CA1A6C17FFEFC89890FB05E0AB6
60E99693FFA37DCCC932E81F50FFBF7FFF19FEFEFD07C1FF40F47F06A7B06286
733BA631526401CC30080D321C62D1A67DA71826CD5C8569013737375CF3D7AF
5F51F8F8C0CBD7EFE086832CDB7AE00C6E0B2273DA19964FA9845B00E2FFFAF5
87E1F7EFDF0CBF7EFF01B241F42F861F3F7E317CFFF193E1EAFE790CCF5EBE45
099E1D87CF52D7078F9FBD4609AEDD47CF63B780DC304717DF77E222610BC8F5
CDD55B8F190E9CBA449C05B0F8F8F4F933031F2F2F51F171F1FA43862367AF90
E68377EF3F320809F213E583B357EE339CB8708DB005B83210B6F007AB03E23F
50B5A72FDFC06F01C8705E1E1E38FFC5ABB70C1262C244F9E0F8F9DB0CE7AEDE
C26D01CCE5FC7CBCF03878FAFC0D83B4A408517170E4CC4D868B37EE60B70039
5890C3FCD1D3570C72D26244F9E0E0C91B0C576EDFC5B420D2DB8CEC300789FD
F9F30FCEBF79FF01A605E19EA6E060810150EE94951225CAD5874FDF44B1ECCE
C347981604B91A31880809C0C3FDC193970C0A32E24485FBFE13D7917CFD8FE1
FE93279816F83B1930888B0AC15D75F7E10B06657909A27CB0E7E855B8E1A00A
F2C1532C16F838E8630D7B4878A3C507344EFEA0C417C47010C06A81A7AD2E55
0CC769819BB536B8A2A01640B10054E94F9CB194AA957E7E4634A2D2A7250000
06681DFEF282FA5E0000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end> end>
Left = 83 Left = 83
Top = 181 Top = 181
@ -599,6 +640,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
end end
object Informacindeempresa1: TMenuItem object Informacindeempresa1: TMenuItem
Caption = 'Informaci'#243'n de empresa' Caption = 'Informaci'#243'n de empresa'
ImageIndex = 3
OnClick = Informacindeempresa1Click OnClick = Informacindeempresa1Click
end end
end end
@ -614,20 +656,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
Caption = '-' Caption = '-'
end end
end end
object Logstica1: TMenuItem
Tag = 3000
Action = actLogisticaMenu
object N7: TMenuItem
Tag = 200
Caption = '-'
end
object N8: TMenuItem
Tag = 300
Caption = '-'
end
end
object Compras1: TMenuItem object Compras1: TMenuItem
Tag = 4000 Tag = 3000
Action = actMenuCompras Action = actMenuCompras
object N9: TMenuItem object N9: TMenuItem
Tag = 200 Tag = 200
@ -639,7 +669,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
end end
end end
object Ventas1: TMenuItem object Ventas1: TMenuItem
Tag = 5000 Tag = 4000
Action = actVentasMenu Action = actVentasMenu
object N3: TMenuItem object N3: TMenuItem
Tag = 200 Tag = 200
@ -650,6 +680,22 @@ object fPantallaPrincipal: TfPantallaPrincipal
Caption = '-' Caption = '-'
end end
end end
object Logistica1: TMenuItem
Tag = 5000
Action = actLogisticaMenu
object N7: TMenuItem
Tag = 200
Caption = '-'
end
object N8: TMenuItem
Tag = 300
Caption = '-'
end
end
object Contabilidad1: TMenuItem
Tag = 6000
Caption = 'Contabilidad'
end
end end
object JvXPMenuItemPainter1: TJvXPMenuItemPainter object JvXPMenuItemPainter1: TJvXPMenuItemPainter
SelectionFrameBrush.Color = 13811126 SelectionFrameBrush.Color = 13811126

3
Source/Cliente/uPantallaPrincipal.pas
View File

@ -65,7 +65,7 @@ type
actMenuCompras: TAction; actMenuCompras: TAction;
actLogisticaMenu: TAction; actLogisticaMenu: TAction;
actVentasMenu: TAction; actVentasMenu: TAction;
Logstica1: TMenuItem; Logistica1: TMenuItem;
pagInicio: TJvNavPanelPage; pagInicio: TJvNavPanelPage;
Panel1: TPanel; Panel1: TPanel;
Label1: TLabel; Label1: TLabel;
@ -90,6 +90,7 @@ type
N8: TMenuItem; N8: TMenuItem;
N9: TMenuItem; N9: TMenuItem;
N10: TMenuItem; N10: TMenuItem;
Contabilidad1: TMenuItem;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure Salir1Click(Sender: TObject); procedure Salir1Click(Sender: TObject);
procedure actSalirExecute(Sender: TObject); procedure actSalirExecute(Sender: TObject);

3
Source/FactuGES.inc
View File

@ -1 +1,2 @@
{DEFINE ALMACEN} {DEFINE ALMACEN}
{DEFINE PEDIDOSPROVEEDOR}

76
Source/Informes/InfFacturaCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

90
Source/Informes/InfReciboCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

259
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
View File

@ -498,6 +498,82 @@ object PluginContabilidad: TPluginContabilidad
4E44AE426082} 4E44AE426082}
Name = 'PngImage4' Name = 'PngImage4'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD252000003B54944415478DA
B5D57D4C13671C07F0EFB5B2E812339986B8F88FC67F345B966C7119BAB8F8B6
90C95458548AAB2020C88B2B982E02AD52AA1BBE44DCDC1F2E8BCBE68CC686E9
66A286FA12821A08906605362604116A95D20AED51105AEE6DCF3DCE0B47E36D
23FA2497DFD3E7AEDF4F9EE7EE9E632449C2CB6C8C0C300CA31AB4549F95AACC
46669A994AA3D9530139BCF67A03DCD7BE7BF1801C9EF461224AF655AB007BF1
9C34521C93FEEBB09D60D3FF17F02C3C7EF62C64167F3915902ABE0981F5BBE9
EF6F0FAD0101FE75860A603D7E4E09D7E9186CFFFC600C20D7A4452CE29718E0
A875A2F762645502B7B83E10D7035241AAE3F4C348FA730143F26A1A3E63860E
E905F618A0A4B29DF6FB9BF6A2C64901FCE41D47D4DD80F1E69BD8F3D5611080
792E60DCB4F629A0D7634B5EC57F02E4667B7F315E59B008D65F6F6A0319A9EB
68B83C83D4EC7D3140B1CD4DEE955E057C6D2DA3E723F73B507EFEB23690BD39
8986CBC7860C4B2C50E1223D06BE16EBF4803CC3C734BCE31E8BA4FCDAC9D735
D9D758124D96DB8018C5406BF5F48042633259221DE6AF3E07A9BD000FC3223D
96AF3F0502C054EA24F941043ACFA800491410EDBB4B802BDA8029730374E47D
485875969E5CF6EE42BC91300F979D2E0AECDE731EE2783F06FB6E28C0F1B22F
20452388FA7A61715CD5064A766C849ECC60EECA333876301B1CC7A3B1E52F05
282C3A09E1491F4203ED0A506D36411C1B013734004B4DAD3660CE49A1C09C15
A729108D4EA0C9D5A90005B9551046BBC10E795073BD8E02C74CF9E0C341884F
C2B0FCE2D406F6E67D0ABD4E87D9893FE24865264646C7D0F667AF02E4679581
1FEE001BF4E2427D2B058E1666830F062045C660BD54A70D94E76FA63779D67B
3FC0566A40881D4157F7235CAB6BA5C02E6301B8901BC3A17E5C6C7CF014C835
827BDC0F9100FB9D4DDAC0FEA2AD74D39BB9EC14CC451B31180CE3DE7D1F1A9A
BB28909BB60DFC500B58D68FDF5C231438929586099F8702B6FA766DA0D264A0
40DC3BDF6367C63A0C0482F0781FE38F0E2F0576A6AE07377807C364CD2FB5C5
51E0D0672998F0F690C7770CF6E61EB4BD99A5DA4D7F779E6414C05E9C8EF068
843C453F634BCA72F8FC43F0075874F7042890F3C90764396E211C9114A06A6B
32A29E2E40E060777960B9E3012F8878E01F46F981136AC09C938A1B8D9D3094
36ABF774F2D21D2889578DEDB63F82F9ADB9AAB1A9E1F256A35AA2B7972EC547
2B96E0F5D75E8DF970F0BC084E104815C091BE5C05122607CA7DFE9FFEE4F098
7B207F875F449BBC492AC0CB6C7F035D0EECEF5AA66FD20000000049454E44AE
426082}
Name = 'PngImage5'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD252000003B54944415478DA
B5D57D4C13671C07F0EFB5B2E812339986B8F88FC67F345B966C7119BAB8F8B6
90C95458548AAB2020C88B2B982E02AD52AA1BBE44DCDC1F2E8BCBE68CC686E9
66A286FA12821A08906605362604116A95D20AED51105AEE6DCF3DCE0B47E36D
23FA2497DFD3E7AEDF4F9EE7EE9E632449C2CB6C8C0C300CA31AB4549F95AACC
46669A994AA3D9530139BCF67A03DCD7BE7BF1801C9EF461224AF655AB007BF1
9C34521C93FEEBB09D60D3FF17F02C3C7EF62C64167F3915902ABE0981F5BBE9
EF6F0FAD0101FE75860A603D7E4E09D7E9186CFFFC600C20D7A4452CE29718E0
A875A2F762645502B7B83E10D7035241AAE3F4C348FA730143F26A1A3E63860E
E905F618A0A4B29DF6FB9BF6A2C64901FCE41D47D4DD80F1E69BD8F3D5611080
792E60DCB4F629A0D7634B5EC57F02E4667B7F315E59B008D65F6F6A0319A9EB
68B83C83D4EC7D3140B1CD4DEE955E057C6D2DA3E723F73B507EFEB23690BD39
8986CBC7860C4B2C50E1223D06BE16EBF4803CC3C734BCE31E8BA4FCDAC9D735
D9D758124D96DB8018C5406BF5F48042633259221DE6AF3E07A9BD000FC3223D
96AF3F0502C054EA24F941043ACFA800491410EDBB4B802BDA8029730374E47D
485875969E5CF6EE42BC91300F979D2E0AECDE731EE2783F06FB6E28C0F1B22F
20452388FA7A61715CD5064A766C849ECC60EECA333876301B1CC7A3B1E52F05
282C3A09E1491F4203ED0A506D36411C1B013734004B4DAD3660CE49A1C09C15
A729108D4EA0C9D5A90005B9551046BBC10E795073BD8E02C74CF9E0C341884F
C2B0FCE2D406F6E67D0ABD4E87D9893FE24865264646C7D0F667AF02E4679581
1FEE001BF4E2427D2B058E1666830F062045C660BD54A70D94E76FA63779D67B
3FC0566A40881D4157F7235CAB6BA5C02E6301B8901BC3A17E5C6C7CF014C835
827BDC0F9100FB9D4DDAC0FEA2AD74D39BB9EC14CC451B31180CE3DE7D1F1A9A
BB28909BB60DFC500B58D68FDF5C231438929586099F8702B6FA766DA0D264A0
40DC3BDF6367C63A0C0482F0781FE38F0E2F0576A6AE07377807C364CD2FB5C5
51E0D0672998F0F690C7770CF6E61EB4BD99A5DA4D7F779E6414C05E9C8EF068
843C453F634BCA72F8FC43F0075874F7042890F3C90764396E211C9114A06A6B
32A29E2E40E060777960B9E3012F8878E01F46F981136AC09C938A1B8D9D3094
36ABF774F2D21D2889578DEDB63F82F9ADB9AAB1A9E1F256A35AA2B7972EC547
2B96E0F5D75E8DF970F0BC084E104815C091BE5C05122607CA7DFE9FFEE4F098
7B207F875F449BBC492AC0CB6C7F035D0EECEF5AA66FD20000000049454E44AE
426082}
Name = 'PngImage6'
Background = clWindow
end> end>
Left = 232 Left = 232
Top = 16 Top = 16
@ -516,11 +592,13 @@ object PluginContabilidad: TPluginContabilidad
object actBalances: TAction object actBalances: TAction
Category = 'Contabilidad' Category = 'Contabilidad'
Caption = 'Balances' Caption = 'Balances'
ImageIndex = 5
OnExecute = actBalancesExecute OnExecute = actBalancesExecute
end end
object actCuentasEspeciales: TAction object actCuentasEspeciales: TAction
Category = 'Contabilidad' Category = 'Contabilidad'
Caption = 'Cuentas especiales' Caption = 'Cuentas especiales'
ImageIndex = 6
OnExecute = actCuentasEspecialesExecute OnExecute = actCuentasEspecialesExecute
end end
object actCuentas: TAction object actCuentas: TAction
@ -981,6 +1059,150 @@ object PluginContabilidad: TPluginContabilidad
454E44AE426082} 454E44AE426082}
Name = 'PngImage4' Name = 'PngImage4'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000002234944415478DA
6364400255BD4BFEB715C7303290001891356FDF7594E1FCCEE970B1C67C81FF
C88AEB277E60C46A004873A09B2D435A4907DC0090E6BA09EF193E7D78CCF0EF
E71B8649ED4ED80D00698EF67766F8FBF71F437C5E0B8A0120DA5DF10358E1CE
FB020CF7D7FE40D1BCE0C90F46B00149A1EE600322321A500CC8ABDCC7C0C42E
02569CAFABC630FFF177869FE78F327C3FB987A1B0B5036140669437C3DF7FFF
1802936AF01A000E07736548F89CBC8B30A0383910EC023187C570E7353A5531
C00CF80F0C8302132B86FEEA0AB83C8A0BAA32431978CCE732FCBF94C9F0E4D3
3F30DED5230A36E0FF8F57C0407CC550E29C0637E0DFF7EF0CC57D13110634E6
4732B01ACE044B9A182980695F8128B0017F3F5E61F80734A4CCBB066C0048F3
BFEF5F184AA7CF4518D05A14CDC0A8379DA1A73909EEC4AFFB25C006FC7CB482
E1FFAFD70C9511CBC106FC7A7A1F6C40E5CAADB80DF8F8E92B03CB5965B0013F
EE4C06BBA03A612FD8801F772E03F95F19AA371EC06EC0A327AF183E7DFECAA0
F8C2126CC097B3196003EAF35F800DF8727A2FD0055F19EA0F5FC36EC095EBF7
19F6CE8D6048F17E0836E0D3D120069B727E06E71F37C1067C3AB4096C80DD15
0E0611652B06140364BF43023236B39481FD510EC39CADF270FEB3FE1486BD1C
EAF030028981F20ED880DC783F0609615E8C9CF6EDC76F86AFDF7F016920FEF9
8BE1C7CF3F0CDF8162205C5ADF0F4E74E05467E89EF99F8144004BB100E8BE59
E0AED726660000000049454E44AE426082}
Name = 'PngImage5'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD25200000A4D694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F33000003804944415478DA45936B6C145514
C7FF7766F6D96E9DD2ADBA45E4A1480CADFD5053D2DA6A688A36015B9F21044D
8CC6F841340408C4C444BFC987565452572C36D8B4B52F427641884AA4DD6D83
10A49A1212ACB62E8F6ECB769DB6B33B3B8F3B33DED925E124939B3B77CEEFFC
E7FCEF21C3DF1F8E8678A109B091B4ACB8E2D972CA1D0872966510CBB2C17136
FC3E176ECF2D90F07783714555A73C2E0184103841267ADBD57AD9EF7136D25A
1B97293BB09DC70228856C08A8AC7D05CB8A85E1C8CFB7864F9F7FD9CDF3BF0B
025F00C47ADBA546D92FDEDA403133A7C0A76B80C5924D93AD065678829C3B00
D7BA06D4D63D83AE9EE8CD9EA11FDFA494C6388E0319EFEB906A15B7789E2CE3
A93B0A4AB34BACB00173711956568331378F496D1AE90347302B9540CBCA885D
FCE3EC7F4BCB3B388EB7C9C5BE76497443949269D42516417314349D01953320
3915D3FC14320DDBB1696F1857FEFC07B3376FE3786FF44C7261F145B7D38BB1
C1CF25505BAC5AB88B92441ADA8A029301CCAC025D4EE1929140F5C859881575
E02C1DF1DF6EE0EDB7BA53A979A59CB56086F4873F91ABE653C58F4D26A0B3EA
969A8369A820A04804FE82F4DCAB787AFF0928B20C69298B377675A1B1F189EB
9D9DBF6E668066D2FD71DBBF81C8990705AFE8234EF7999DCEC23C44A6D88567
4FFC84A2B24AD8A68AA3472F20C15476857747BD457BDAF22E7CF55EBDDF7A20
D8B6FDFDEEFE8A521E9ACE7A402DE8CC428E17E00F943226CD5BD6D4D4812F8E
EC4455F59A48E8A5E8CE47371473E4EBC3FBE159F7C28E96E686D315653EE434
139A6142672038821C4B992A272A42073097EC8058EC8A7CF0E5D5D74F5E9DE7
48D7C80408C7B5366FD91809958BC8E6B4BC026ADE4F74221E9F46B873147D03
EFA2C82344CB82FB0ABF706C28C6AEA5DDBAB5F6C9C8C3C11206301880B27BC4
92C97DC0C4F8DFF8263C869EDE7760DB883EBEFEA302E0DBA13106406B63CDA6
48F9AA00949CCEAA9B70E6802983F3B513D7AEDDC1877B7E406CFC1038427E59
BBE6E0F3794078E0027B81D6AD759591505084A268D0997C839AAC0504859921
8C63A1A6FA53EC3BB86D745BCBE693F5359FF5B18343E4D8E028049EBCF6D0AA
C070F26EBA90C88A9AF72AE7018E0BC48589D1590CF64C22F44820955AC81AD4
B0F6928173979D5EADEF1F39D772FDC60CBC5E4F4136B937919C0BC4BB9AB373
09CB51A2AE70ABD50C826E1F8E27A6AC2BFF034532AC3BDDD1324B0000000049
454E44AE426082}
Name = 'PngImage6'
Background = clWindow
end> end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 308 Left = 308
@ -1419,6 +1641,43 @@ object PluginContabilidad: TPluginContabilidad
350000000049454E44AE426082} 350000000049454E44AE426082}
Name = 'PngImage4' Name = 'PngImage4'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000003A24944415478DA
BDD6794814511800F06FD695220A3BA4FF82A2FEE88090105A83448C922C3A29
B522D2E80EDB142ADDCAB4EC80EC262B232D3A362C3292AC3CA243714DB4C46E
C3CC32A35CD75D9DD973A6F73EF5B1E3AC32DAF1C1C7DB7933BBBFF9BED9F718
4E9224F89FC15190E338C589E48CABD2C1C455DC007EB3D740CB1748B18247A5
50FD30F3DF83148B08D5817E77860C4CDD363C8A0C07484EE89A3292CC4B3969
B93960B01B0B183A1862F5E93DC18F7B4FB42266B53482E8F805A70E851B0918
3320D01BF3D7FAC1AAAD693D41FC77458CB3E071906E0D1CB991070454DD7606
1A8E5D936134A336A62840FDBE1AF6E58ED7FB212B3717EA6FDBC3C8E14692D1
5EAD3E97F3D5FEA44F70796418C3341A0E96ADDFAB163466370A8839AA4B4130
15C1F6F4C34602C6F409AE5C30AB13F4272069F1A238835A108F53A68FC771D0
98F1907CEB111090EB135CB3640E625A3F0D56387F75926AF0B861179B17DE57
A903D745CD45ACBBA5112B7628C0F8A412D00C0AFC3BE0A615F31846C7F0E589
BD82929B07FE7DC69F81F1AB178056AB81C0D02BC1E4DC1992BAAEEBCA496E4D
0D4FAEA420864700A13EE7CFC084B8455859C08CEC72A96613625FAD22664864
5639017508128C2E7A4753BE02943C6EB0D7D5A80377AE5F8AED1CA6BB842783
A78DC5312478329CBE701F08081414F9CE5DC6D5522E032926390470347E5407
1A362F033F8D06060767C1D1FD71ECA286C66619E86EAD46D0D35E270345DE06
A29D07D7CF6FEAC07DF1D158A136E87C9FA0B3B91024670B88CE5619E836FF20
372280C76A5607A6E963B0426E6A26035D2E173435B7C840C717236292D30C17
EF1633D0F9FD33A95020F3823A303D61254E768314B3B50B24791928D4652226
92BC5450CD407BFD5BC424871D0CF79EF61F34B75A11A368CEF5C70CE4DFA423
46D1ECE20606D2E540315AE59EC217FD07E9B3A3589BB503EEE45730B0FD6522
ABF0F2331B03F99A32C4E8734C795ADB7FB0F66D3D626DB60E2879F29A81B68A
5856E115933F03DB2B8A11A3996AFA04AFA6C4F6F4A0EAC159AE57B0D4548B98
956465D56706B63D5F88180D6FD0FA2C1F3120EB31B5B201F48575E0728B243D
60E51D90947652099ADB781835F33282F78B4C88D1F0062D2533D91D7B8396A2
5CC470DF25E096820F328CEECBB29626AE5D0C8565EF207AA749D10AB2D5419A
7E84627EC39E2FB02B68B462DE17A6788653274D82D93326C2C88021E02BDC9E
CEF6D074BB7D7C7679BAE6449F9802A4EFA17F3B7ABED732F07FC66FC8CFCCF6
FD53D0090000000049454E44AE426082}
Name = 'PngImage5'
Background = clWindow
end> end>
Left = 232 Left = 232
Top = 80 Top = 80

77
Source/Modulos/Contabilidad/Views/uEditorBalances.dfm
View File

@ -6,27 +6,37 @@ inherited fEditorBalances: TfEditorBalances
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Caption = 'Lista de cuentas' Caption = 'Lista de balances'
inherited Image1: TImage inherited Image1: TImage
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
0000180806000000E0773DF80000000970485973000017120000171201679FD2 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
520000000467414D410000B18E7CFB5193000001D44944415478DAB5D4BD4B02 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
7118C0F1E737D552D0105843616F838519166551345443A32D2E0DD15863FF41 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
6B2141353544144A2004114144431695841445D00BE950E7905618742F2257CF 17110000171101CA26F33F000002C149444154484BB5954D48545114C76D17D4
D9D9EFCE3BEF4EF001797E9CFAFD1C8A125114A19C43648010A2F98205AF5D7C A25D9B5C460B3308AC4D41EE8C32B05412A9A6C51028A1696A144AB970FA945A
611296C3FE33961802189F5909C13B1383EFF427B05FB94738B40976BB0DC6E7 98B52988C4928C0269B42F48481D92B4C4D486D1E77CBD99E7F8E6CB512747F9
56FEAE7D289EF7EF3E422010280E941ADF589E8754A3AF3820C7F10DA9D798A5 37E7D6DCE6CE3C782A79E1F0DE8337BFDF39E7CE3B7713808C0D5D5A822BCD6D
785D8D0D6EAB87F5013A8E81D46BDC521C471750C731F0CEC44DC55B1B9A41E0 FFC5CAD8A90282EFCD2BDB1801C17B076D6982C6CA6D27E381A478B69AB60A15
0510848C36B038D15410C7F3C1FAB261BCABC3998BF31969472B070A81D97E52 24E023136E2D41FC5D20E01D6241A2350992E1A35659534050CBBD0CFCEC2961
D20F62D0E381CCEF5DF3129043CE494F21B03445C4B1D169C360369B95223C27 82B33B361FAADB9E4557FCBDA655C52B2001654EF08929AFA62014708062BC9B
C0D17E181CCE36E963A19163C1551A40C731747274019DDDED529C460EBF1CD6 0B5855D1A1CF083CB8C644A9550982319B87C16D76DFAA0504950AB3E0AEC8D7
01751CCF91D328F40DBA81653905B2976CB10668C5715F5DDEC2D088473AD3C8 1724E0D36E555310F44B691550E6149EDA627D01654E709712D016A83604D549
0ED3681ED08BE3BEBBB997001C1AD98ED79B038AC5F14E9FEE9FF3008D6C3DD4 A1456B1224E06FFB246464B726C7006D6A401941C033B87E0165EE9D0D31302D
1A03EA38FBCDE501FE6F332F090520236BD755C5013A22A8367D3DF9962C0056 67680503CE187B6602D9025532A709FCF71BE22D2AD26F11C167D430CF3CC760
2315100C06FFFF21D480D938EE743AAD00E4389E3581E1A149D371FC0E388ECD C6B1DA2F5CA04E77C337FE4810F85BEAA136D740AE29D417105C0D4618F0CEEB
03745C17F0F4FA4CC77164401DD705DC2EAFE9B80CE03FA73AAE0B9C733EB03A 28AEBF8808029FB51DDE61932050EFD6C1D75406B9FAB8BE80E0C1B9052E68EA
5A714DA05C5376E00756B52DFEBD3C9AE50000000049454E44AE426082} 080B8299D156782C55187F7322F1A161F6D60578EBCF40AE2AD017107C6E3ECA
04375FCEA3FE894F1028DF6EC0DD7B1A3F5EE572C18CA93CDE9E22B8CF1FD117
107C31BAC40457DBFCA868B123AFB29FEF8177F0329CEF0E63B463CF3F41A391
C19DC65C7D01C1A3BFFEFC6B2E3E74C1601AC301E3472E90FBCBE1E8CAC1C8D3
4C2E501A0C0C6E3FB55F5FB0145B466C7985018DB7ADC8AFB520BBA48B0BDC9F
4A31DD9989EF8FB77081E75209ECA5FBD8B8A0B141E7487208B388E06A709E01
8B1B8671F0DC07EC2CE8E402D7FBA390DAB70A02B9BA300EDF0DA96017135825
0534D37AFA2698481010FCB9F96BEA57CC3EBA94C3862542C0E44885D3641504
04A71F6AAD586C050BF13D0A4716D93BCA6C18B2128443F663CAE14BCB3C31B6
05416AFFD6FB9C7C267001DD6C54FC0655D24B589BE60D550000000049454E44
AE426082}
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
@ -130,7 +140,7 @@ inherited fEditorBalances: TfEditorBalances
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 39422.603399155090000000 ReportDocument.CreationDate = 39422.603399155080000000
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
@ -150,7 +160,7 @@ inherited fEditorBalances: TfEditorBalances
end end
inherited EditorActionList: TActionList [4] inherited EditorActionList: TActionList [4]
inherited actNuevo: TAction inherited actNuevo: TAction
ImageIndex = 22 ImageIndex = 23
end end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
@ -678,6 +688,31 @@ inherited fEditorBalances: TfEditorBalances
10910DF85FFC2BE6F80376357B8923C9356C0000000049454E44AE426082} 10910DF85FFC2BE6F80376357B8923C9356C0000000049454E44AE426082}
Name = 'PngImage22' Name = 'PngImage22'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000002234944415478DA
6364400255BD4BFEB715C7303290001891356FDF7594E1FCCEE970B1C67C81FF
C88AEB277E60C46A004873A09B2D435A4907DC0090E6BA09EF193E7D78CCF0EF
E71B8649ED4ED80D00698EF67766F8FBF71F437C5E0B8A0120DA5DF10358E1CE
FB020CF7D7FE40D1BCE0C90F46B00149A1EE600322321A500CC8ABDCC7C0C42E
02569CAFABC630FFF177869FE78F327C3FB987A1B0B5036140669437C3DF7FFF
1802936AF01A000E07736548F89CBC8B30A0383910EC023187C570E7353A5531
C00CF80F0C8302132B86FEEA0AB83C8A0BAA32431978CCE732FCBF94C9F0E4D3
3F30DED5230A36E0FF8F57C0407CC550E29C0637E0DFF7EF0CC57D13110634E6
4732B01ACE044B9A182980695F8128B0017F3F5E61F80734A4CCBB066C0048F3
BFEF5F184AA7CF4518D05A14CDC0A8379DA1A73909EEC4AFFB25C006FC7CB482
E1FFAFD70C9511CBC106FC7A7A1F6C40E5CAADB80DF8F8E92B03CB5965B0013F
EE4C06BBA03A612FD8801F772E03F95F19AA371EC06EC0A327AF183E7DFECAA0
F8C2126CC097B3196003EAF35F800DF8727A2FD0055F19EA0F5FC36EC095EBF7
19F6CE8D6048F17E0836E0D3D120069B727E06E71F37C1067C3AB4096C80DD15
0E0611652B06140364BF43023236B39481FD510EC39CADF270FEB3FE1486BD1C
EAF030028981F20ED880DC783F0609615E8C9CF6EDC76F86AFDF7F016920FEF9
8BE1C7CF3F0CDF8162205C5ADF0F4E74E05467E89EF99F8144004BB100E8BE59
E0AED726660000000049454E44AE426082}
Name = 'PngImage23'
Background = clWindow
end> end>
Bitmap = {} Bitmap = {}
end end

BIN
Source/Modulos/Contabilidad/Views/uEditorBalances.pas
View File

Binary file not shown.

205
Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorCuentasEspeciales: TfEditorCuentasEspeciales
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Lista de cuentas especiales' Caption = 'Lista de cuentas especiales'
ExplicitWidth = 320
ExplicitHeight = 471 ExplicitHeight = 471
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
@ -10,24 +9,59 @@ inherited fEditorCuentasEspeciales: TfEditorCuentasEspeciales
Caption = 'Lista de cuentas especiales' Caption = 'Lista de cuentas especiales'
inherited Image1: TImage inherited Image1: TImage
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
0000180806000000E0773DF80000000970485973000017120000171201679FD2 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
520000000467414D410000B18E7CFB5193000001D44944415478DAB5D4BD4B02 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
7118C0F1E737D552D0105843616F838519166551345443A32D2E0DD15863FF41 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
6B2141353544144A2004114144431695841445D00BE950E7905618742F2257CF 17110000171101CA26F33F000005F249444154484B7D950954945518862F9AA2
D9D9EFCE3BEF4EF001797E9CFAFD1C8A125114A19C43648010A2F98205AF5D7C C725C92C2D2D174C2B3C29E5392EA5A688961E4D33734754C446054D73064501
611296C3FE33961802189F5909C13B1383EFF427B05FB94738B40976BB0DC6E7 9545365359676010942DE4E0129882E9801AA48902C2A0C48E800CB36F6CF376
56FEAE7D289EF7EF3E422010280E941ADF589E8754A3AF3820C7F10DA9D798A5 EFCF4090DACC79CE9DFFBB73DEF7BBF77EFF772D4467BC058306F4F124209D1F
785D8D0D6EAB87F5013A8E81D46BDC521C471750C731F0CEC44DC55B1B9A41E0 0B42543A78598D9D916C39741481C944D897CD03A00348474707696F6B238307
0510848C36B038D15410C7F3C1FAB261BCABC3998BF31969472B070A81D97E52 0F2451B1A9A4A2AAB6DCD2B2BF59E03F43A2C8D784B030B48776820821326303
D20F62D0E381CCEF5DF3129043CE494F21B03445C4B1D169C360369B95223C27 208AB980D8E4DF7136290B3149991CE2C44C44275E434A7A366EE695E2EAED62
C0D17E181CCE36E963A19163C1551A40C731747274019DDDED529C460EBF1CD6 F0DC233179EE96F553ED7790698B7E78019220F43532616378080C1453682820
01751CCF91D328F40DBA81653905B2976CB10668C5715F5DDEC2D088473AD3C8 0EC7BD383FE4461F476EF831E4867921F78C27F24E1F4156D00164A4C5D3C500
0ED3681ED08BE3BEBBB997001C1AD98ED79B038AC5F14E9FEE9FF3008D6C3DD4 0F8A6B91FD5705047E7198F8B9C346DBC5FF63C0C4210E45FE8560649C0B8224
1A03EA38FBCDE501FE6F332F090520236BD755C5013A22A8367D3DF9962C0056 E924240941C88E0BA404205BEC8F9CE813B826F481285208C9AD9B48CDC8C1FD
2315100C06FFFF21D480D938EE743AAD00E4389E3581E1A149D371FC0E388ECD E21A3CAD9683EF1B07EBD90E3B6C17F37AADA27B05A6302A7E311829223F147A
03745C17F0F4FA4CC77164401DD705DC2EAFE9B80CE03FA73AAE0B9C733EB03A EC45A9FB3E480FEF43C9A1BD283EE48A22B79D28707346A1DB3614ED5D8ED80F
5A714DA05C5376E00756B52DFEBD3C9AE50000000049454E44AE426082} 4620D05B80B2865634A98C28AF55C1F36452FBE4398E2E3DB78A333045844317
7C0AC9A147F1D8731FE0E304D3518A9713DAF81BD0B27315F45B9642BBC60EBA
95B390BFDC126976637027270D0E3F0961BFCE0D4B1C0E63D1FA83F864A173F4
0B066C6BEEC5FB2325D207EA4057B453E116AFED30ECDF04ED8ED5506F5A06C5
6A7BC8BF998BC61DB6B8349220EBF86E749800C9FD3224FC9A0751F20DECF711
E3C3B95B427B192445FB19B5C127914AB32FF03E00783BC1E8D929AE73A6E21B
9741F99D3D9A57CC85FCDB9978B86220A266BF034DDD0328B4ED902B7568A654
D72BB09D1F8EC16F6FBEDBB7DFF64C337C921AE56BACBCF233E2438E417FC205
AD1E5BA1E732FFBE3B73262E5B3513F57C1BA48DB180C4C309BA0EA049AE417D
938AE351491D264C12800AF78288C37C8DE96911283AED05046C83E19023F4BB
D742BB7525D46BBF8262E53C34AF9C8DE6F5D321DD3208211FBD0E8DBA0A4D0A
231A646A3C7BAEE298F6E9510C1FB1074ECEE7D80A08C58A1249A202042D92AF
AD21DD331165AEA351CA7B17A54E2321DDF616157C13258E6FA0C4C10A52E761
48184D70EF300F548F8A2ABBC50382AF71590BC5392C166A3660268408FD7E54
89861263F870D21631E635448EEA8B483632DEEBD78D90FE3E633D048DCFEB20
57EB21A7FDA40BDBCF8E61BE5DA0F959DFDB20DC7B8F659015B13CEDB9D9A5B4
4683B656235A8C06E8F57A68341A28556AC8E44A3436C9D14C4785C608A546DF
CDC3C21A2EFB5321595C0CE8E00CFA2F481A30CBED461F12EEED42845E1B484C
BA94F7A4B2916B016DED1D30B6B441AB6F85526D804CA14363B3063273C5B0AA
E9E2E4E92CCEE0C1A36A2E06DAD1B8ADF9227EDCEC8337069298F3C924F1BA94
445FC8E1492B1A380383B1958AB740A531D0C3D4727BCD2AA5EB407B8EEE1E17
3983AE985AA3EDDEA2E907322D487CC60372FE4A2E89A206C57F3FA3DD19D0E8
D83618B88C9ED35264D5D22053BD94790B02C0E89A7FE190CF5DFE83304429D9
BCC227B56869ED80821EA28C66CEB685554B0D7D89AAEBE52F65CE97FE60F498
EF7DC87197EE12863045C27B28AD81CE409B975CCB655DD7A842D533392AEB9A
5F09131F3B41D073FEE506226A905F520DB5F6DF17A89A8A57D4CA505E23A3E3
CB4D782EF1DC193CA2778339919E065624F6E21D0EE12FB778F78AAAB81A6799
73E234F3B26A19A415CFF1A492D1D48B521A3BEE97CE1930A3CA670AD4342863
CD2F9A1D1DF9E46CDA6D8EC8E45BBCBC8272A8E80A3AF79E9A3428699F97D30B
4586D28A263CAD92514366DAC913FACC62EF8FE39B98C9A48FDD0B6DA67A449A
1B1D33E613716A364758C20DDEE3B27A1494D6E0B79C025CBF53846B3985B89A
5D8074C9235CB9998F0C3AF6A6803E17E09430B37DC8B05DF2AE46D7CFD259CD
C4593FA2F52FE13877F9AEAB7BE079EED258B0468085F41261D8AF3B087B1AEB
C53A018DF33B63E6F9250E473063918083FE66E29DBDA8CB20E9EA9F43D7ECF2
1F3F6EE6C6F136F39D5ECD3CC7F153961EB59EB24A3CD166DE2BFF3B946A10C6
3FA327B93991E7C4140000000049454E44AE426082}
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
@ -91,9 +125,19 @@ inherited fEditorCuentasEspeciales: TfEditorCuentasEspeciales
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 543 Width = 543
ExplicitWidth = 543 ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 337 Left = 337
ExplicitLeft = 337 ExplicitLeft = 337
ExplicitWidth = 121
Width = 121
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -121,7 +165,7 @@ inherited fEditorCuentasEspeciales: TfEditorCuentasEspeciales
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 39422.701746956020000000 ReportDocument.CreationDate = 39422.701746956030000000
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
@ -141,7 +185,7 @@ inherited fEditorCuentasEspeciales: TfEditorCuentasEspeciales
end end
inherited EditorActionList: TActionList [4] inherited EditorActionList: TActionList [4]
inherited actNuevo: TAction inherited actNuevo: TAction
ImageIndex = 22 ImageIndex = 23
end end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
@ -669,6 +713,125 @@ inherited fEditorCuentasEspeciales: TfEditorCuentasEspeciales
10910DF85FFC2BE6F80376357B8923C9356C0000000049454E44AE426082} 10910DF85FFC2BE6F80376357B8923C9356C0000000049454E44AE426082}
Name = 'PngImage22' Name = 'PngImage22'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD25200000A4D694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F33000003804944415478DA45936B6C145514
C7FF7766F6D96E9DD2ADBA45E4A1480CADFD5053D2DA6A688A36015B9F21044D
8CC6F841340408C4C444BFC987565452572C36D8B4B52F427641884AA4DD6D83
10A49A1212ACB62E8F6ECB769DB6B33B3B8F3B33DED925E124939B3B77CEEFFC
E7FCEF21C3DF1F8E8678A109B091B4ACB8E2D972CA1D0872966510CBB2C17136
FC3E176ECF2D90F07783714555A73C2E0184103841267ADBD57AD9EF7136D25A
1B97293BB09DC70228856C08A8AC7D05CB8A85E1C8CFB7864F9F7FD9CDF3BF0B
025F00C47ADBA546D92FDEDA403133A7C0A76B80C5924D93AD065678829C3B00
D7BA06D4D63D83AE9EE8CD9EA11FDFA494C6388E0319EFEB906A15B7789E2CE3
A93B0A4AB34BACB00173711956568331378F496D1AE90347302B9540CBCA885D
FCE3EC7F4BCB3B388EB7C9C5BE76497443949269D42516417314349D01953320
3915D3FC14320DDBB1696F1857FEFC07B3376FE3786FF44C7261F145B7D38BB1
C1CF25505BAC5AB88B92441ADA8A029301CCAC025D4EE1929140F5C859881575
E02C1DF1DF6EE0EDB7BA53A979A59CB56086F4873F91ABE653C58F4D26A0B3EA
969A8369A820A04804FE82F4DCAB787AFF0928B20C69298B377675A1B1F189EB
9D9DBF6E668066D2FD71DBBF81C8990705AFE8234EF7999DCEC23C44A6D88567
4FFC84A2B24AD8A68AA3472F20C15476857747BD457BDAF22E7CF55EBDDF7A20
D8B6FDFDEEFE8A521E9ACE7A402DE8CC428E17E00F943226CD5BD6D4D4812F8E
EC4455F59A48E8A5E8CE47371473E4EBC3FBE159F7C28E96E686D315653EE434
139A6142672038821C4B992A272A42073097EC8058EC8A7CF0E5D5D74F5E9DE7
48D7C80408C7B5366FD91809958BC8E6B4BC026ADE4F74221E9F46B873147D03
EFA2C82344CB82FB0ABF706C28C6AEA5DDBAB5F6C9C8C3C11206301880B27BC4
92C97DC0C4F8DFF8263C869EDE7760DB883EBEFEA302E0DBA13106406B63CDA6
48F9AA00949CCEAA9B70E6802983F3B513D7AEDDC1877B7E406CFC1038427E59
BBE6E0F3794078E0027B81D6AD759591505084A268D0997C839AAC0504859921
8C63A1A6FA53EC3BB86D745BCBE693F5359FF5B18343E4D8E028049EBCF6D0AA
C070F26EBA90C88A9AF72AE7018E0BC48589D1590CF64C22F44820955AC81AD4
B0F6928173979D5EADEF1F39D772FDC60CBC5E4F4136B937919C0BC4BB9AB373
09CB51A2AE70ABD50C826E1F8E27A6AC2BFF034532AC3BDDD1324B0000000049
454E44AE426082}
Name = 'PngImage23'
Background = clWindow
end> end>
Bitmap = {} Bitmap = {}
end end

BIN
Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.pas
View File

Binary file not shown.

17
Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj
View File

@ -48,16 +48,17 @@
<DelphiCompile Include="Contactos_plugin.dpk"> <DelphiCompile Include="Contactos_plugin.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_data.dcp" /> <DCCReference Include="..\Contactos_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" /> <DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" /> <DCCReference Include="..\PluginSDK_D10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="uPluginContactos.pas"> <DCCReference Include="uPluginContactos.pas">
<Form>PluginContactos</Form> <Form>PluginContactos</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>

140
Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
View File

@ -207,13 +207,62 @@ object PluginContactos: TPluginContactos
000049454E44AE426082} 000049454E44AE426082}
Name = 'PngImage7' Name = 'PngImage7'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300000AC400000AC401666D82D40000052F4944415478DA
9596794C14571CC7BF73ECBD8BE06E16835204A1423CAAD636581B6B2D6AD50A
D8186A6BEABFA5872D264AD4D668AAAD47AAD4D436452555898146C588D5AA35
0A06F1C083D48A16AC72ACDCAB0BBB3BB3BB73F5CDB018114CD6497E79B36FDE
FB7CDEFBBD79F3965214051445E1D9EBF8F6052347391D798A22CFE2F94074AF
8F6BEFE8F29EA9AA6D2DDA7BEA9E0B115ED45082AB451FBF95F092E3304DC1E1
F373D0C2D757763DF2BA2B6FB4E7169EB8779434955E5870ECFB39C913C6255D
B6988C764114C0F341F8391EFEB048BDF7F282FF7045E3D2E3D56DE5A48BF242
82AAC29CDF631D51393419BE24C9080643E00301705C80C039F0E4B7DABABEC5
5BBF664FEDDBE4B63562C1AE95AF8D989C1CFFC06C361A695227C93204414080
403B1FF9E1EAE4111B63848E0E91678A5270E8DFBC2B77BA7791AE724482E2B5
D3178D1C117344A76328B54E961578BC013475F0700EB761728A032CA5A0A1C5
8D879D1EFC71B1F94459554B0EE9CA4524F86BC7FC1524BF3B0221115C488128
338873C6607C921D261D0591AC894866A4968140107F56375EC8DF73E37DD2D5
1D91E0F2AF59790EBBBDA0871361351B106D33822C05644922EB2186E122A4B0
E86C4DF395E5BB6A1691AE6D4F5E924994BAE8ABB36A95AD8304E70BE6652727
C695310C4BD10CA32DA6FA5C266BA10A24B12FB49990F2D0B986CA0D076EA929
EAEC87BFF7D117A09B8A517EB147930C10FC923BD1993163C20393C960A6685A
ABEF1768120295D59988DA6C946D25B5078BCF36E592AEFEC3A5858A6E4B2E32
A70F03AA3D285734E6A641AF694D6176996378D4224D107EC995B0A03F55AAA8
A79713966CBCB0B2B99BFF99C0C5376766A1BDBD1D6507F6E3D5733FA2AD5601
31538304C56BD3A74C4D4DA8D2E959D3130169A3C82A5CD2246AFE4F5F6DAECB
DFFBF7B28A7DB9D7EE0626213D3D1D8D8D8D9AA4B4A414159515D4733F15C737
CECC4F4E706CA6C9A5C1C3A1C149FE5BBBBCBE4F775EDBBC7FDBB2EF5ECF180F
DA750DFB6AD3B5BE4FC38716AC079D8AA4EC2C7DECEE254EA79D6C090257D323
6B336872FB956F2FDEBB5FF041E6987E781BD7898EFA9358BC69145C2ED780D1
0E108C5D658F639D097B28BB699EAC0F5173EF8EC6342B0B83EC415090D1DC6B
40B1B71E3BDF988948E003042FAF494835458F3A83187DBC64269F024B084EB7
191BC6AC874EA7D716F9ECA3D398E571470C7F2248F9D21E65758CBF42459952
55B04C42B20621198258E65B8CE5B3F350D375196CD5D121E1C372622FDDDE7D
3D0B3E740D2998B4766ABECE1CB755B2087D704B509B816C164043441A9582CF
FEB3E0BC2B13EB169E1C00777E35118C8F45DBCD1BEB5CE5AE2D84290E124C5D
FDCE25DA6C4B5753231389569A88C824403190CDC5CAC82CF2E19BA5D3F04375
3616C6E76870477E1A184E0FC6AF87CFE5BA59F75BCDBBFDBB7AA060D5DC078C
C93A5A036B70223112B891C07512D63F1C879AEA4A7C3E2511DB4FDCC7B10611
F6AFC782E175A05501A703D7D1D176ABA82A8330EB060B566454B2C6E133D451
6B70123219B9A227A19331E6C848DC6FB88339137C38333B1E7490051D20F000
ABCD8026A2DED69696BA8397E613E63F8304699FA42DB09A134B688BD9261BC3
6931F48D1E243DF24FDD484A4943E3DC6E5022F9848498A7240C823D3D5C53C5
F5438FEF3CCE1F3245EAE9322CD53CC53A3AE64343B4ED15D66A88A32D8C0D7A
4A4F91412A6A2BF50813150921084A481164BFC889BD210FD7D1D3ECB9EDBE20
F8E45384D78267CEE86777324DC248C246C212BE67C3F5EAB1A8FE8B10C21122
C1872388E71C9BFF03819532AB3875DFD60000000049454E44AE426082}
Name = 'PngImage6'
Background = clWindow
end> end>
Left = 232 Left = 232
Top = 16 Top = 16
Bitmap = {} Bitmap = {}
end end
object ModuleActionList: TActionList object ModuleActionList: TActionList
Images = LargeImages Images = SmallImages
Left = 40 Left = 40
Top = 72 Top = 72
object actClientes: TAction object actClientes: TAction
@ -251,6 +300,7 @@ object PluginContactos: TPluginContactos
end end
object actProcedenciasCliente: TAction object actProcedenciasCliente: TAction
Caption = 'Procedencias de cliente' Caption = 'Procedencias de cliente'
ImageIndex = 6
OnExecute = actProcedenciasClienteExecute OnExecute = actProcedenciasClienteExecute
end end
end end
@ -443,6 +493,36 @@ object PluginContactos: TPluginContactos
00000049454E44AE426082} 00000049454E44AE426082}
Name = 'PngImage7' Name = 'PngImage7'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000002CA4944415478DA
7D936B48935118C7FF6717753275F3D2E62CCB0A15115141F14BD2170BC450EC
1E89A225D9851C5DB0483492402824BC942559604266F8212AD23E885A88A80C
0761A6D568329D9BBBE82EEFDE77EFDBBB8143B1F5C081C339CFEFC773CE790E
E1380E84106CC4EC9BEAB380F79AC56ADF6134D934DA05C3BD3B5DDA710409B2
59A0ED29AF5228E54F9D4EB7C062B1C16CB162C56C770E6B964B3ADFCD0FFD57
D0A7CE932467EFD3854B42E3280F8DB535070C2B5630B40706936BB6B67D2A87
CF5F0F2EB89B5FA052440F0A0542B8281A7AA303CA984848C380399D916BEAD1
1E9EFF631F0A2A186D2FAE5A5DF774D10C815C1689E45D321096818772C3E972
E161EF6465F7A0AE3BA860A2B3F86842BCA25F2416FB37BC0C039A2F9FA62850
949B6BE89AA8EA1FD3FB05EE4C709F40EA8A355C7340F0B6E9407C56F21E9D38
24C46F6059963F3FEDBF03BBDDC194D47F2E583453C33E587CE60AE8DE56F092
8F5B5E61BAABF4755444F809DF9CE3055EAFAF0A1AE3338BB3E75A26F2C79FC0
A8DF3B03D3CC2B08AE376F7FC617EABC84F434C5A43454AC64F975DF31566DEB
9E9BCFA66B1F5DB5746414B56179EE035E8EE442D5D8886A9E0F0852EB543142
95AA239A90E36A6A3F8900DF030E8256CB6FAE25F51BD9807DE358D34EE8F57A
12A820E3D66EB9203A698C8DE3D218B913A7982294A6946260690087161A100C
0E08B2EB0FB611B9E412CDC38CDC85B050A030AE0047A6EE6F876DFA58ACC1BC
459073BB50C7C904898CCC0526CA05AF9442EDB21A99741914C9850158559E0B
DDE8C8C9E51153DF56C18DA29F244294C444B9FD301BEEC165570D2ACA4E43F3
5CE4879517B220B249B0F065E4E2CAD7A5C75B0419E7F32A84D28807C2187134
2B65091BCAC07CFF7BA0DB1435E9E0ACACC7FEC33833FF5E53091ADA7FFDC6D8
B044518A54199E088950CAB110701443336EDAC99869BB73D16BE0737EF1C3BA
B995FF02F23E8C514129D4FC0000000049454E44AE426082}
Name = 'PngImage6'
Background = clWindow
end> end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 308 Left = 308
@ -482,6 +562,64 @@ object PluginContactos: TPluginContactos
6AD20000000049454E44AE426082} 6AD20000000049454E44AE426082}
Name = 'PngImage2' Name = 'PngImage2'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
94000000097048597300000AC400000AC401666D82D4000006474944415478DA
A5D6796C14551C07F0EFCCECD1DDB2BD0FB1B4288240B15C4DB05AC4832A8A72
24A0048F3F3448AB18225E104563221E281E4882518BE295A22287072A72B426
A05284526D0B2D2D5B5CD8B6D82EDB6E6777E77AFEDE4CB7B6520CD597FCB2B3
BBEFBDCFFE7EEFEDBC11709EF6D9F2A2C48B47A6153BEDD20C4551B342DDE1AE
6067775DBDB7A36CE5FB55BBA88B8AFFD084813EDCFFEE9D85970C4B2F7338A4
6C590EA35B8E400EF3D730BABA64D6EC0F567CB1A7A97877F59F0DD49DFD2FF0
EB97674E9C306EC45EB7CB99A4AA2AC29128E41E90E372388230C5C936B9F6DD
AF8ECDAF690E1D1D0CDA0FFCEC764897DD76F7E1F4D4843C81BED1341D544E13
0DF7401C8C2A0A18633850D7B1FBE54DB50B6868FB7F02B7BE78D3BC9139999F
DBED36811A745D87AA6A2610E12845FB5919369141920484229AFE6A59EDE2EA
13C18D34DC1834B8E3959B375376F32451A46F04188641596A6696C1500475CD
9D484F1E82E47809D1683724EAF65D65CBDED2AF8FCFA7E11D8306B7BF50D49A
94E0CA107B40466097ACA0F1344D6E73A020F722A4253AA0D38F683A1540734B
00550DEDADEBB61C9D41C38F0C0AFCE481BCE4E41159BEA8A2BA197D1C08A9E8
0C3324277A30E9F24CA42739A968BA993107354DA52C151CF3B607E63D5B3E8B
A6D83710B07DA2C037D48A39556C753F707DC9F88C1BAE9D70D21F883AE5888E
B4E4785C9CEE81CB2199A5E5EBA913C231EBDA424FB70543D31FFB81977427FE
B15B3976DB9D0F416CFE085FEE0B9A682FB8381FF687972D6C4B4AF42489A204
81CACA370EDF8DBCB486A1F7623C4B43D7CC57AFAF2330F3A9BD0BFF096EDEF4
36B3BF5482D98589F4C73E8B2F9949ADEAB7868737CCAF484B4D9CC6D7D05C47
2A00430CA4E09999619595C74FBF9DF22E7AEDC05DD4797F5F6CEA7573D0D2D2
822D1F7E80FC3D6FC05FC55062EE8C3EADFCF5198F5C927DD11AC204C104ADD6
0BF6A25A6F893FDED9B06FF5A775F752B706738E8D25EC6864220A0A0AE0F57A
4D7453D9269457940BE7ECD2B78A27644D2B1C5DEB76C525087D7E0B2F6B5F30
565EBA03E94BDEFCE5ADCAFAC04AEA16E4D894A22B20FA0E6263558139B62F76
0EC8DBF7AB6F7C764476DA3394A1D017E45932666D1EC35C4715076ADAFE58BC
B6F261EAB28D303D86F9E536B4D6EFC0FC55C3E0F3F9FA19E780778FCF8C2F5E
347967468AE7EA7E602CCB9E1DDA1194A34BD71FDCF0BBB7EB39C2FC17820D08
F236EDFEAC5B968ECEFD2237CDE3627D328C6D9A6077943DFF556DF5AE7D2D4B
CB4B4B2A2E143B071CB3C4932A65E7AC41DA907B1CDD8A74DF991C4CCE50E076
0866391555C7F13306D6D57971669C0BEF5D3A1583C1FA816356E4E4DB53876E
15925DD9864B81EE5231AE71186E4D9A8170A019727727A2CC8DA3C269FC34BC
1AA562E1A0B15E70ECF2E1939C49C3F720C191A41366B85518044A11154F391F
C7B553AEA7D341426BB71FF7D52CC64BBED1D8EB9B8DA767EDE88F857D597450
9DFE5770D832B8523D53AB258F67248762A06EA20AC6B46463ED35EB00BAC396
1C294693DD8FD9EFC85879D75558B37F2E6665DF6162990F4E605D4DC73FAD2F
3D564CF3769E17CC5B9EBB24CE3D6A1D6524F4622E2B43339C2A52BADC08B964
44E30CAC3A72252AF75760C9E44BF1EA374DD8DEA021FDD1719064078C90A235
7EF3E3826075781BCE733E0A939E98F683CD955214037AB1381E1A9883EE9B76
1A4B377D41173176FD183435D4E1A6BC107616E5400ADB21F604BF6EAD3954E6
DD7E8267D9352098FFE8F47AC99538CA044C90107EEDD4CC60761D4C32ACD536
04D89F543062D45834CDF1438CDA2C2CF237DADE587BF0F8E69AB9D4FBD4C0E0
B2E9BFDA9C2993AD8CACACCC7058D9319B6181BC33DDF1058D4E11954E13C566
81915858E099C6DF0F376EAB9947DD4F0CBC864BF35F88B78F5C4188C041E6B4
30C3A15BD91108B1E7D4A1175E5641E3A0049107A142D46EA24204ACE9978A6F
DB7E6E5B44BDFD0382A957C3937E795EA93B25638EE48E77323AD819618689F1
60E6FA99253541C10229530E0A0442D159347036D45275AC92B0B7A9E7569CE7
4139F62775210E931247C515BA3313726D435C43C5385BB2E8909C9018CD4AA4
CECC53D8D098C6A2BA6A4499A287A321B533D22EB7854F854FAA7534CF218A7A
FCCB53B930C07B3B451C85B327240AD1CACFDCEA3A85D627D49ED070010FC47F
017259CFAF05A567900000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end> end>
Left = 232 Left = 232
Top = 80 Top = 80

423
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -20,44 +20,48 @@ object RptFacturasCliente: TRptFacturasCliente
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID' DictionaryEntry = 'FacturasCliente_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'ID_EMPRESA' Name = 'REFERENCIA'
DataType = datInteger DataType = datString
DictionaryEntry = 'FacturasCliente_ID_EMPRESA' Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
end end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datFloat DataType = datCurrency
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
end end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datFloat
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'FacturasCliente_DESCUENTO' DictionaryEntry = 'FacturasCliente_DESCUENTO'
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
end
item
Name = 'IVA'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'FacturasCliente_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
end end
item item
@ -66,17 +70,17 @@ object RptFacturasCliente: TRptFacturasCliente
end end
item item
Name = 'IMPORTE_RE' Name = 'IMPORTE_RE'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
end end
item item
Name = 'IVA' Name = 'OBSERVACIONES'
DataType = datFloat DataType = datMemo
DictionaryEntry = 'FacturasCliente_IVA' DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
end end
item item
Name = 'FORMA_PAGO' Name = 'FORMA_PAGO'
@ -95,27 +99,22 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 15 Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF' DictionaryEntry = 'FacturasCliente_NIF_CIF'
end end
item
Name = 'OBSERVACIONES'
DataType = datMemo
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 100 Size = 255
DictionaryEntry = 'FacturasCliente_NOMBRE' DictionaryEntry = 'FacturasCliente_NOMBRE'
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 150 Size = 255
DictionaryEntry = 'FacturasCliente_CALLE' DictionaryEntry = 'FacturasCliente_CALLE'
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 30 Size = 255
DictionaryEntry = 'FacturasCliente_PROVINCIA' DictionaryEntry = 'FacturasCliente_PROVINCIA'
end end
item item
@ -124,6 +123,12 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 10 Size = 10
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
end end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_POBLACION'
end
item item
Name = 'TITULAR' Name = 'TITULAR'
DataType = datString DataType = datString
@ -150,10 +155,9 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 15 Size = 15
end end
item item
Name = 'POBLACION' Name = 'ID_EMPRESA'
DataType = datString DataType = datInteger
Size = 150 DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
DictionaryEntry = 'FacturasCliente_POBLACION'
end end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
@ -355,43 +359,97 @@ object RptFacturasCliente: TRptFacturasCliente
TargetTable = 'FACTURAS_CLIENTE' TargetTable = 'FACTURAS_CLIENTE'
SQL = SQL =
'SELECT'#10' V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' + 'SELECT'#10' V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' +
' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.BASE_I' + ' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.IMPORT' +
'MPONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPOR' + 'E_NETO,'#10' V_FACTURAS_CLIENTE.BASE_IMPONIBLE, V_FACTURAS_CLIENT' +
'TE_DESCUENTO,'#10' V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMP' + 'E.DESCUENTO, V_FACTURAS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_FACTURA' +
'ORTE_IVA,'#10' V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_' + 'S_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMPORTE_IVA,'#10' V_FACTURAS_CL' +
'RE,'#10' V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE' + 'IENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS_CLIENTE.' +
'.OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURA' + 'IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO' +
'S_CLIENTE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS' + '.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10' V' +
'_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENT' + '_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS' +
'E.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENT' + '_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FACTURAS_CLI' +
'E.POBLACION,'#10' CONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DA' + 'ENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' CONTACTOS_' +
'TOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTA' + 'DATOS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CONT' +
'CTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EM' + 'ACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' CO' +
'PRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIA' + 'NTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NIF_CIF as ' +
'L,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as PO' + 'NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CA' +
'BLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EM' + 'LLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRES' +
'PRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELE' + 'AS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as COD' +
'FONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EM' + 'IGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRE' +
'PRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIP' + 'SAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS' +
'O'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID' + '.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE'#10'L' +
'_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_C' + 'EFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_P' +
'LIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTAC' + 'AGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT ' +
'TOS_DATOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHE' + 'JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO' +
'RE V_FACTURAS_CLIENTE.ID = :ID' ' = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = ' +
':ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item item
DatasetField = 'DESCUENTO' DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO' TableField = 'DESCUENTO'
end end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
item item
DatasetField = 'IVA' DatasetField = 'IVA'
TableField = 'IVA' TableField = 'IVA'
end end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'RE'
TableField = 'RE'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item item
DatasetField = 'OBSERVACIONES' DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES' TableField = 'OBSERVACIONES'
end end
item
DatasetField = 'FORMA_PAGO'
TableField = '<unknown>'
SQLOrigin = 'FORMA_PAGO'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item item
DatasetField = 'NOMBRE' DatasetField = 'NOMBRE'
TableField = 'NOMBRE' TableField = 'NOMBRE'
@ -404,181 +462,155 @@ object RptFacturasCliente: TRptFacturasCliente
DatasetField = 'PROVINCIA' DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA' TableField = 'PROVINCIA'
end end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item item
DatasetField = 'POBLACION' DatasetField = 'POBLACION'
TableField = 'POBLACION' TableField = 'POBLACION'
end end
item item
DatasetField = 'REFERENCIA' DatasetField = 'TITULAR'
TableField = 'REFERENCIA' TableField = '<unknown>'
SQLOrigin = 'TITULAR'
end end
item item
DatasetField = 'ID' DatasetField = 'ENTIDAD'
TableField = 'ID' TableField = '<unknown>'
SQLOrigin = 'ENTIDAD'
end
item
DatasetField = 'SUCURSAL'
TableField = '<unknown>'
SQLOrigin = 'SUCURSAL'
end
item
DatasetField = 'DC'
TableField = '<unknown>'
SQLOrigin = 'DC'
end
item
DatasetField = 'CUENTA'
TableField = '<unknown>'
SQLOrigin = 'CUENTA'
end end
item item
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA' TableField = 'ID_EMPRESA'
end end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'FORMA_PAGO'
TableField = 'FORMA_PAGO'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item item
DatasetField = 'NIF_CIF_EMPRESA' DatasetField = 'NIF_CIF_EMPRESA'
TableField = 'NIF_CIF_EMPRESA' TableField = '<unknown>'
SQLOrigin = 'NIF_CIF_EMPRESA'
end end
item item
DatasetField = 'RAZON_SOCIAL' DatasetField = 'RAZON_SOCIAL'
TableField = 'RAZON_SOCIAL' TableField = '<unknown>'
SQLOrigin = 'RAZON_SOCIAL'
end end
item item
DatasetField = 'CALLE_EMPRESA' DatasetField = 'CALLE_EMPRESA'
TableField = 'CALLE_EMPRESA' TableField = '<unknown>'
SQLOrigin = 'CALLE_EMPRESA'
end end
item item
DatasetField = 'POBLACION_EMPRESA' DatasetField = 'POBLACION_EMPRESA'
TableField = 'POBLACION_EMPRESA' TableField = '<unknown>'
SQLOrigin = 'POBLACION_EMPRESA'
end end
item item
DatasetField = 'PROVINCIA_EMPRESA' DatasetField = 'PROVINCIA_EMPRESA'
TableField = 'PROVINCIA_EMPRESA' TableField = '<unknown>'
SQLOrigin = 'PROVINCIA_EMPRESA'
end end
item item
DatasetField = 'CODIGO_POSTAL_EMPRESA' DatasetField = 'CODIGO_POSTAL_EMPRESA'
TableField = 'CODIGO_POSTAL_EMPRESA' TableField = '<unknown>'
SQLOrigin = 'CODIGO_POSTAL_EMPRESA'
end end
item item
DatasetField = 'TELEFONO_1' DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1' TableField = '<unknown>'
SQLOrigin = 'TELEFONO_1'
end end
item item
DatasetField = 'FAX' DatasetField = 'FAX'
TableField = 'FAX' TableField = '<unknown>'
SQLOrigin = 'FAX'
end end
item item
DatasetField = 'MOVIL_1' DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1' TableField = '<unknown>'
SQLOrigin = 'MOVIL_1'
end end
item item
DatasetField = 'EMAIL_1' DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1' TableField = '<unknown>'
SQLOrigin = 'EMAIL_1'
end end
item item
DatasetField = 'PAGINA_WEB' DatasetField = 'PAGINA_WEB'
TableField = 'PAGINA_WEB' TableField = '<unknown>'
SQLOrigin = 'PAGINA_WEB'
end end
item item
DatasetField = 'REGISTRO_MERCANTIL' DatasetField = 'REGISTRO_MERCANTIL'
TableField = 'REGISTRO_MERCANTIL' TableField = '<unknown>'
SQLOrigin = 'REGISTRO_MERCANTIL'
end end
item item
DatasetField = 'LOGOTIPO' DatasetField = 'LOGOTIPO'
TableField = 'LOGOTIPO' TableField = '<unknown>'
end SQLOrigin = 'LOGOTIPO'
item
DatasetField = 'RE'
TableField = 'RE'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end
item
DatasetField = 'TITULAR'
TableField = 'TITULAR'
end
item
DatasetField = 'ENTIDAD'
TableField = 'ENTIDAD'
end
item
DatasetField = 'SUCURSAL'
TableField = 'SUCURSAL'
end
item
DatasetField = 'DC'
TableField = 'DC'
end
item
DatasetField = 'CUENTA'
TableField = 'CUENTA'
end> end>
end> end>
Name = 'InformeFacturasCliente' Name = 'InformeFacturasCliente'
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID' DictionaryEntry = 'FacturasCliente_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'ID_EMPRESA' Name = 'REFERENCIA'
DataType = datInteger DataType = datString
DictionaryEntry = 'FacturasCliente_ID_EMPRESA' Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
end end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datFloat DataType = datCurrency
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
end end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datFloat
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'FacturasCliente_DESCUENTO' DictionaryEntry = 'FacturasCliente_DESCUENTO'
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
end
item
Name = 'IVA'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'FacturasCliente_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
end end
item item
@ -587,17 +619,17 @@ object RptFacturasCliente: TRptFacturasCliente
end end
item item
Name = 'IMPORTE_RE' Name = 'IMPORTE_RE'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
end end
item item
Name = 'IVA' Name = 'OBSERVACIONES'
DataType = datFloat DataType = datMemo
DictionaryEntry = 'FacturasCliente_IVA' DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
end end
item item
Name = 'FORMA_PAGO' Name = 'FORMA_PAGO'
@ -616,27 +648,22 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 15 Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF' DictionaryEntry = 'FacturasCliente_NIF_CIF'
end end
item
Name = 'OBSERVACIONES'
DataType = datMemo
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 100 Size = 255
DictionaryEntry = 'FacturasCliente_NOMBRE' DictionaryEntry = 'FacturasCliente_NOMBRE'
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 150 Size = 255
DictionaryEntry = 'FacturasCliente_CALLE' DictionaryEntry = 'FacturasCliente_CALLE'
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 30 Size = 255
DictionaryEntry = 'FacturasCliente_PROVINCIA' DictionaryEntry = 'FacturasCliente_PROVINCIA'
end end
item item
@ -645,6 +672,12 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 10 Size = 10
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
end end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_POBLACION'
end
item item
Name = 'TITULAR' Name = 'TITULAR'
DataType = datString DataType = datString
@ -671,10 +704,9 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 15 Size = 15
end end
item item
Name = 'POBLACION' Name = 'ID_EMPRESA'
DataType = datString DataType = datInteger
Size = 150 DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
DictionaryEntry = 'FacturasCliente_POBLACION'
end end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
@ -1104,7 +1136,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 39290.847101226850000000 ReportOptions.LastChange = 39455.745879444450000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12' ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13' ReportOptions.VersionMinor = '13'
@ -1178,27 +1210,29 @@ object RptFacturasCliente: TRptFacturasCliente
'begin' 'begin'
' DatosEmpresa.Lines.Clear;' ' DatosEmpresa.Lines.Clear;'
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);' ' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">);'
'' ''
' Cadena := <frxDBCabecera."CALLE_EMPRESA"> + '#39' - '#39' + <frxDBCabe' +
'cera."CODIGO_POSTAL_EMPRESA"> + '#39' '#39' + <frxDBCabecera."POBLACION_' +
'EMPRESA">;'
' DatosEmpresa.Lines.Add(Cadena);'
' '
' Cadena := '#39#39';' ' Cadena := '#39#39';'
' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then' ' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1">;' ' Cadena := '#39'Telf: '#39' + <frxDBCabecera."TELEFONO_1">;'
' if (<frxDBCabecera."FAX"> <> '#39#39') then' ' if (<frxDBCabecera."MOVIL_1"> <> '#39#39') then'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;' ' Cadena := Cadena + '#39' / '#39' + <frxDBCabecera."MOVIL_1">;'
' DatosEmpresa.Lines.Add(Cadena);' ' DatosEmpresa.Lines.Add(Cadena);'
'' ''
' Cadena := '#39#39';' ' Cadena := '#39#39'; '
' if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '#39#39') then' ' if (<frxDBCabecera."EMAIL_1"> <> '#39#39') then'
' Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">;' ' Cadena := '#39'E-Mail: '#39' + <frxDBCabecera."EMAIL_1">;'
' if (<frxDBCabecera."POBLACION_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' '#39' + <frxDBCabecera."POBLACION_EMPRES' +
'A">;'
' if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' - '#39' + <frxDBCabecera."PROVINCIA_EMPR' +
'ESA">;'
' DatosEmpresa.Lines.Add(Cadena);' ' DatosEmpresa.Lines.Add(Cadena);'
''
' Cadena := '#39#39'; '
' if (<frxDBCabecera."PAGINA_WEB"> <> '#39#39') then'
' Cadena := '#39'Web: '#39' + <frxDBCabecera."PAGINA_WEB">;'
' DatosEmpresa.Lines.Add(Cadena); '
'end;' 'end;'
'' ''
'procedure Memo15OnBeforePrint(Sender: TfrxComponent);' 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
@ -1222,19 +1256,6 @@ object RptFacturasCliente: TRptFacturasCliente
'' ''
'end;' 'end;'
'' ''
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena : String;'
'begin'
' if (<frxDBCabecera."TITULAR"> <> '#39#39') then'
' begin'
' Cadena := Memo11.Lines.Text;'
' Memo11.Lines.Clear;'
' Memo11.Lines.Add(<frxDBCabecera."TITULAR">);'
' Memo11.Lines.Add(Cadena);'
' end'
'end;'
''
'procedure Band2OnBeforePrint(Sender: TfrxComponent);' 'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' if not Engine.FinalPass then' ' if not Engine.FinalPass then'

2
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -26,10 +26,10 @@ type
DADataVencimientos: TDADataSource; DADataVencimientos: TDADataSource;
tbl_Vencimientos: TDAMemDataTable; tbl_Vencimientos: TDAMemDataTable;
frxDBDataset1: TfrxDBDataset; frxDBDataset1: TfrxDBDataset;
schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
frxReport: TfrxReport; frxReport: TfrxReport;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
schReport: TDASchema;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;

9
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -455,15 +455,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited dxLayoutControl1Item10: TdxLayoutItem inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False Visible = False
end end
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
inherited dxLayoutControl1Item4: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item1: TdxLayoutItem
Visible = False
end
end
end end
inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup

6
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas
View File

@ -66,9 +66,9 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
AEditor.LoadFromStream(AStream); LoadFromStream(AStream);
AEditor.Preview; Preview;
AEditor.Release; Release;
end; end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);

2
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas
View File

@ -71,7 +71,7 @@ uses
function TDataModuleRecibosCliente.GetReport(const ID: String): Binary; function TDataModuleRecibosCliente.GetReport(const ID: String): Binary;
begin begin
// Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID); Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
end; end;
procedure TDataModuleRecibosCliente.DAClientDataModuleCreate(Sender: TObject); procedure TDataModuleRecibosCliente.DAClientDataModuleCreate(Sender: TObject);

550
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
View File

@ -4,33 +4,211 @@ object RptRecibosCliente: TRptRecibosCliente
Height = 405 Height = 405
Width = 447 Width = 447
object DADataCabecera: TDADataSource object DADataCabecera: TDADataSource
DataSet = tbl_Cabecera.Dataset
DataTable = tbl_Cabecera DataTable = tbl_Cabecera
Left = 264 Left = 264
Top = 72 Top = 72
end end
object tbl_Cabecera: TDACDSDataTable object tbl_Cabecera: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = <> Fields = <
Params = <> item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
end
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'ID_REMESA'
DataType = datInteger
end
item
Name = 'REFERENCIA_REMESA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE'
DataType = datFloat
end
item
Name = 'OTROS_GASTOS'
DataType = datFloat
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datFloat
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'ENTIDAD_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'DC_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
end
item
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
end
item
Name = 'LOGOTIPO'
DataType = datBlob
end>
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <> LocalSchema = schReport
DataRequestCall.Params = <> LocalDataStreamer = Bin2DataStreamer
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Cabecera'
IndexDefs = <> IndexDefs = <>
Left = 264 Left = 264
Top = 128 Top = 128
end end
object DABINAdapter: TDABINAdapter
Left = 48
Top = 80
end
object frxRichObject1: TfrxRichObject object frxRichObject1: TfrxRichObject
Left = 48 Left = 48
Top = 296 Top = 296
@ -67,7 +245,6 @@ object RptRecibosCliente: TRptRecibosCliente
Params = < Params = <
item item
Name = 'ID_RECIBO' Name = 'ID_RECIBO'
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -99,46 +276,22 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end end
item item
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -330,452 +483,187 @@ object RptRecibosCliente: TRptRecibosCliente
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_RECIBO_COMPENSADO' Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA_REC_COMPENSADO' Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 9 Size = 9
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_REMESA' Name = 'ID_REMESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA_REMESA' Name = 'REFERENCIA_REMESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_EMISION' Name = 'FECHA_EMISION'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FORMA_PAGO_FACTURA' Name = 'FORMA_PAGO_FACTURA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_FACTURA' Name = 'IMPORTE_FACTURA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NOMBRE_CLIENTE' Name = 'NOMBRE_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF_CLIENTE' Name = 'NIF_CIF_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ENTIDAD_CLIENTE' Name = 'ENTIDAD_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SUCURSAL_CLIENTE' Name = 'SUCURSAL_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DC_CLIENTE' Name = 'DC_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CUENTA_CLIENTE' Name = 'CUENTA_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'RAZON_SOCIAL' Name = 'RAZON_SOCIAL'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CALLE_EMPRESA' Name = 'CALLE_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'POBLACION_EMPRESA' Name = 'POBLACION_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PROVINCIA_EMPRESA' Name = 'PROVINCIA_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CODIGO_POSTAL_EMPRESA' Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'MOVIL_1' Name = 'MOVIL_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'EMAIL_1' Name = 'EMAIL_1'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PAGINA_WEB' Name = 'PAGINA_WEB'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REGISTRO_MERCANTIL' Name = 'REGISTRO_MERCANTIL'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'LOGOTIPO' Name = 'LOGOTIPO'
DataType = datBlob DataType = datBlob
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end> end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <> Commands = <>
RelationShips = <> RelationShips = <>
UpdateRules = <> UpdateRules = <>
Version = 0
Left = 48 Left = 48
Top = 16 Top = 16
end end
@ -785,7 +673,7 @@ object RptRecibosCliente: TRptRecibosCliente
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '3.23.7' Version = '4.3'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
@ -793,6 +681,7 @@ object RptRecibosCliente: TRptRecibosCliente
PreviewOptions.OutlineWidth = 180 PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = ( ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.') 'Demonstrates how to create simple list report.')
@ -851,17 +740,6 @@ object RptRecibosCliente: TRptRecibosCliente
StoreInDFM = False StoreInDFM = False
Left = 169 Left = 169
Top = 16 Top = 16
Datasets = <
item
DataSet = frxDBCabecera
DataSetName = 'frxDBCabecera'
end
item
DataSet = frxDBCompensados
DataSetName = 'frxDBCompensados'
end>
Variables = <>
Style = <>
end end
object frxDBCabecera: TfrxDBDataset object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
@ -871,6 +749,7 @@ object RptRecibosCliente: TRptRecibosCliente
Top = 16 Top = 16
end end
object DADataCompensados: TDADataSource object DADataCompensados: TDADataSource
DataSet = tbl_Compensados.Dataset
DataTable = tbl_Compensados DataTable = tbl_Compensados
Left = 360 Left = 360
Top = 72 Top = 72
@ -882,23 +761,44 @@ object RptRecibosCliente: TRptRecibosCliente
Left = 360 Left = 360
Top = 16 Top = 16
end end
object tbl_Compensados: TDACDSDataTable object tbl_Compensados: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = <> Fields = <
Params = <> item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
end>
Params = <
item
Name = 'ID_RECIBO'
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <> LocalSchema = schReport
DataRequestCall.Params = <> LocalDataStreamer = Bin2DataStreamer
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Compensados'
IndexDefs = <> IndexDefs = <>
Left = 360 Left = 360
Top = 128 Top = 128
end end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
end
end end

37
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas
View File

@ -7,13 +7,12 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces; uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable;
type type
TRptRecibosCliente = class(TDataModule) TRptRecibosCliente = class(TDataModule)
DADataCabecera: TDADataSource; DADataCabecera: TDADataSource;
tbl_Cabecera: TDACDSDataTable; tbl_Cabecera: TDAMemDataTable;
DABINAdapter: TDABINAdapter;
frxRichObject1: TfrxRichObject; frxRichObject1: TfrxRichObject;
frxBarCodeObject1: TfrxBarCodeObject; frxBarCodeObject1: TfrxBarCodeObject;
frxOLEObject1: TfrxOLEObject; frxOLEObject1: TfrxOLEObject;
@ -24,10 +23,11 @@ type
frxDBCabecera: TfrxDBDataset; frxDBCabecera: TfrxDBDataset;
DADataCompensados: TDADataSource; DADataCompensados: TDADataSource;
frxDBCompensados: TfrxDBDataset; frxDBCompensados: TfrxDBDataset;
tbl_Compensados: TDACDSDataTable; tbl_Compensados: TDAMemDataTable;
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
frxReport: TfrxReport; frxReport: TfrxReport;
Bin2DataStreamer: TDABin2DataStreamer;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
@ -91,27 +91,32 @@ var
AStream: TMemoryStream; AStream: TMemoryStream;
begin begin
AStream := TMemoryStream.Create; // AStream := TMemoryStream.Create;
try try
dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]); // dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]);
dsCompensados := schReport.NewDataset(FConnection, ds_InformeCompensados, ['ID_RECIBO'], [ID], False); // dsCompensados := schReport.NewDataset(FConnection, ds_InformeCompensados, ['ID_RECIBO'], [ID], False);
AStream.Clear; // AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); // DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE); // DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
AStream.Clear; // AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsCompensados, [woRows, woSchema], -1); // DABINAdapter.WriteDataset(AStream, dsCompensados, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Compensados, TRUE, '', TRUE, TRUE); // DABINAdapter.ReadDataset(AStream, tbl_Compensados, TRUE, '', TRUE, TRUE);
tbl_Cabecera.ParamByName('ID').AsInteger := ID;
tbl_Compensados.ParamByName('ID_RECIBO').AsInteger := ID;
tbl_Cabecera.Active := True;
tbl_Compensados.Active := True;
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
AStream.Free; // AStream.Free;
dsMaster := Nil; // dsMaster := Nil;
dsCompensados := Nil; // dsCompensados := Nil;
end; end;
end; end;

12
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas
View File

@ -42,8 +42,8 @@ implementation
uses uses
Dialogs, Dialogs,
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
schRecibosClienteClient_Intf, uRestriccionesUsuarioUtils, uBizPagosClienteServer; schRecibosClienteClient_Intf, uRestriccionesUsuarioUtils, uBizPagosClienteServer,
// uRptRecibosCliente_Server; uRptRecibosCliente_Server;
procedure Create_srvRecibosCliente(out anInstance : IUnknown); procedure Create_srvRecibosCliente(out anInstance : IUnknown);
@ -78,17 +78,15 @@ begin
end; end;
function TsrvRecibosCliente.GenerateReport(const ID: String): Binary; function TsrvRecibosCliente.GenerateReport(const ID: String): Binary;
//var var
// AReportGenerator : TRptRecibosCliente; AReportGenerator : TRptRecibosCliente;
begin begin
{ AReportGenerator := TRptRecibosCliente.Create(nil); AReportGenerator := TRptRecibosCliente.Create(nil);
try try
Result := AReportGenerator.GenerarRecibo(ID); Result := AReportGenerator.GenerarRecibo(ID);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
}
Result := NIL;
end; end;
initialization initialization

74
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -49,19 +49,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 691 Width = 685
Height = 335 Height = 329
ExplicitWidth = 691 ExplicitWidth = 685
ExplicitHeight = 335 ExplicitHeight = 329
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 307 ExplicitHeight = 301
inline frViewReciboCliente1: TfrViewReciboCliente inline frViewReciboCliente1: TfrViewReciboCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 683 Width = 677
Height = 335 Height = 335
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -72,15 +72,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 335 ExplicitHeight = 335
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 683 Width = 677
Height = 335 Height = 335
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 335 ExplicitHeight = 335
DesignSize = ( DesignSize = (
683 677
335) 335)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 217 ExplicitWidth = 217
@ -138,14 +138,14 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 84 Width = 84
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 544 Left = 540
ExplicitLeft = 544 ExplicitLeft = 540
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
inherited eDC: TcxDBTextEdit inherited eDC: TcxDBTextEdit
Left = 624 Left = 618
ExplicitLeft = 624 ExplicitLeft = 618
ExplicitWidth = 37 ExplicitWidth = 37
Width = 37 Width = 37
end end
@ -177,8 +177,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewPagosCliente1: TfrViewPagosCliente inline frViewPagosCliente1: TfrViewPagosCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 683 Width = 677
Height = 307 Height = 301
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -188,19 +188,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 307 ExplicitHeight = 301
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 683 Width = 677
Height = 307 Height = 301
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 307 ExplicitHeight = 301
end end
inherited dxLayoutControl2: TdxLayoutControl inherited dxLayoutControl2: TdxLayoutControl
Width = 683 Width = 677
Height = 307 Height = 301
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 307 ExplicitHeight = 301
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 666 Width = 666
ExplicitWidth = 666 ExplicitWidth = 666
@ -239,8 +239,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
Left = 0 Left = 0
Top = 0 Top = 0
Width = 683 Width = 677
Height = 307 Height = 301
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -250,13 +250,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 307 ExplicitHeight = 301
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 683 Width = 677
Height = 282 Height = 276
ExplicitWidth = 683 ExplicitWidth = 677
ExplicitHeight = 282 ExplicitHeight = 276
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -268,7 +268,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 683 Width = 677
ExplicitWidth = 683 ExplicitWidth = 683
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 113 ExplicitWidth = 113
@ -324,6 +324,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
ExplicitWidth = 150
Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable

6
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

@ -264,11 +264,8 @@ end;
procedure TfEditorReciboCliente.ImprimirInterno; procedure TfEditorReciboCliente.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Print(FRecibo); FController.Print(FRecibo);
}
end; end;
procedure TfEditorReciboCliente.JvFormStorageRestorePlacement(Sender: TObject); procedure TfEditorReciboCliente.JvFormStorageRestorePlacement(Sender: TObject);
@ -306,11 +303,8 @@ end;
procedure TfEditorReciboCliente.PrevisualizarInterno; procedure TfEditorReciboCliente.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Preview(FRecibo); FController.Preview(FRecibo);
}
end; end;
procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteController); procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteController);

6
Source/Modulos/Recibos de cliente/Views/uEditorReciboClienteReport.dfm
View File

@ -1,10 +1,6 @@
inherited fEditorReciboClientePreview: TfEditorReciboClientePreview inherited fEditorReciboClientePreview: TfEditorReciboClientePreview
Caption = 'Previsualizar el recibo' Caption = 'Previsualizar el recibo'
ExplicitHeight = 485
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited frxReport1: TfrxReport
Datasets = <>
Variables = <>
Style = <>
end
end end

3
Source/Modulos/Recibos de cliente/Views/uEditorReciboClienteReport.pas
View File

@ -14,7 +14,8 @@ uses
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRecibosClientePreview, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRecibosClientePreview,
JvExComCtrls, JvStatusBar, frxExportImage, frxExportPDF, frxDCtrl, frxClass, JvExComCtrls, JvStatusBar, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode; frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
frxExportText, frxExportRTF, frxExportMail, frxExportXLS;
type type
TfEditorReciboClientePreview = class(TfEditorPreview, IEditorRecibosClientePreview) TfEditorReciboClientePreview = class(TfEditorPreview, IEditorRecibosClientePreview)

6
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
View File

@ -136,8 +136,6 @@ var
ARecibosCliente: IBizRecibosCliente; ARecibosCliente: IBizRecibosCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
ARecibosCliente := Nil; ARecibosCliente := Nil;
AllItems := False; AllItems := False;
@ -171,7 +169,6 @@ AppFactuGES.ShowCapado;
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorRecibosCliente.ModificarInterno; procedure TfEditorRecibosCliente.ModificarInterno;
@ -201,8 +198,6 @@ var
ARecibosCliente: IBizRecibosCliente; ARecibosCliente: IBizRecibosCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
ARecibosCliente := Nil; ARecibosCliente := Nil;
AllItems := False; AllItems := False;
@ -236,7 +231,6 @@ AppFactuGES.ShowCapado;
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorRecibosCliente.SetController(const Value: IRecibosClienteController); procedure TfEditorRecibosCliente.SetController(const Value: IRecibosClienteController);

2
Source/Modulos/Tipos de IVA/Plugin/uPluginTiposIVA.dfm
View File

@ -48,7 +48,7 @@ object PluginTiposIVA: TPluginTiposIVA
end end
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
Images = LargeImages Images = SmallImages
Left = 40 Left = 40
Top = 16 Top = 16
object Ventas1: TMenuItem object Ventas1: TMenuItem

2
Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm
View File

@ -47,7 +47,7 @@ object PluginUnidadesMedida: TPluginUnidadesMedida
end end
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
Images = LargeImages Images = SmallImages
Left = 40 Left = 40
Top = 16 Top = 16
object Ventas1: TMenuItem object Ventas1: TMenuItem

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

3
Source/Servidor/FactuGES_Server.dpr
View File

@ -113,7 +113,8 @@ uses
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
uRptFichasEmpleado_Server in '..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas' {RptFichasEmpleado: TDataModule}, uRptFichasEmpleado_Server in '..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas' {RptFichasEmpleado: TDataModule},
uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule}, uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule},
uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule}; uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule},
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule};
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

488
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,247 +1,249 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> </ProjectExtensions>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
</ProjectExtensions> <ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <DelphiCompile Include="FactuGES_Server.dpr">
<ItemGroup> <MainSource>MainSource</MainSource>
<DelphiCompile Include="FactuGES_Server.dpr"> </DelphiCompile>
<MainSource>MainSource</MainSource> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
</DelphiCompile> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" /> <Form>srvEjercicios</Form>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvEjercicios</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <Form>srvEmpresas</Form>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvEmpresas</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> <Form>srvAlbaranesCliente</Form>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlbaranesCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlbaranesProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <Form>srvAlmacenes</Form>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvAlmacenes</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" /> <Form>srvContabilidad</Form>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvContabilidad</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <Form>RptEtiquetasContacto</Form>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DesignClass>TDataModule</DesignClass>
<Form>RptEtiquetasContacto</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
</DCCReference> <Form>RptFichasEmpleado</Form>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DesignClass>TDataModule</DesignClass>
<Form>RptFichasEmpleado</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
</DCCReference> <Form>srvContactos</Form>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvContactos</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <Form>RptFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DesignClass>TDataModule</DesignClass>
<Form>RptFacturasCliente</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
</DCCReference> <Form>srvFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <Form>srvFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" /> <Form>srvHistoricoMovimientos</Form>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvHistoricoMovimientos</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <Form>srvInventario</Form>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvInventario</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvPedidosProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> </DCCReference>
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
</DCCReference> <Form>srvPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvPresupuestosCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" /> <Form>RptRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DesignClass>TDataModule</DesignClass>
<Form>srvRecibosCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
</DCCReference> <Form>srvRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
</DCCReference> <Form>srvRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
</DCCReference> <Form>srvRemesasCliente</Form>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
</DCCReference> <Form>srvRemesasProveedor</Form>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<Form>srvUnidadesMedida</Form> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
</DCCReference> <Form>srvUnidadesMedida</Form>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> </DCCReference>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<Form>srvConfiguracion</Form> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
</DCCReference> <Form>srvConfiguracion</Form>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>frConexionBD</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\uConexionBD.pas">
</DCCReference> <Form>frConexionBD</Form>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DesignClass>TFrame</DesignClass>
<Form>frConfGeneral</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\uConfGeneral.pas">
</DCCReference> <Form>frConfGeneral</Form>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DesignClass>TFrame</DesignClass>
<Form>fConfiguracion</Form> </DCCReference>
<DesignClass>TForm</DesignClass> <DCCReference Include="Configuracion\uConfiguracion.pas">
</DCCReference> <Form>fConfiguracion</Form>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DesignClass>TForm</DesignClass>
<Form>FrameConfiguracion</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
</DCCReference> <Form>FrameConfiguracion</Form>
<DCCReference Include="srvLogin_Impl.pas"> <DesignClass>TFrame</DesignClass>
<Form>srvLogin</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="srvLogin_Impl.pas">
</DCCReference> <Form>srvLogin</Form>
<DCCReference Include="srvReferencias_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvReferencias</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="srvReferencias_Impl.pas">
</DCCReference> <Form>srvReferencias</Form>
<DCCReference Include="uAcercaDe.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>fAcercaDe</Form> </DCCReference>
</DCCReference> <DCCReference Include="uAcercaDe.pas">
<DCCReference Include="uDataModuleServer.pas"> <Form>fAcercaDe</Form>
<Form>dmServer</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="uDataModuleServer.pas">
</DCCReference> <Form>dmServer</Form>
<DCCReference Include="uServerMainForm.pas"> <DesignClass>TDataModule</DesignClass>
<Form>fServerForm</Form> </DCCReference>
</DCCReference> <DCCReference Include="uServerMainForm.pas">
<DCCReference Include="Utiles\RegExpr.pas" /> <Form>fServerForm</Form>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> </DCCReference>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
</ItemGroup> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "martes, 08 de enero de 2008 10:35\0" VALUE "CompileDate", "martes, 08 de enero de 2008 19:51\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"