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

Repaso de pedidos a proveedor. Sigue sin funcionar bien el auto-refresh.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@609 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2014-12-12 17:36:14 +00:00
parent 2b5858388e
commit 6bdea2d44a
19 changed files with 344 additions and 181 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

124
Source/Base/Base.dproj
View File

@ -44,34 +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">False</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">False</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>
@ -86,54 +58,54 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de proveedor\adortl.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\adortl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\designide.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\designide.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dsnap.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dsnap.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\GUISDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Jcl.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\Jcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcl.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcldb.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclx.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,6,0,0 FILEVERSION 2,6,1,0
PRODUCTVERSION 2,6,0,0 PRODUCTVERSION 2,6,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.6.0.0\0" VALUE "FileVersion", "2.6.1.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.6.0.0\0" VALUE "ProductVersion", "2.6.1.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

46
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj
View File

@ -49,34 +49,34 @@
<DelphiCompile Include="FacturasProveedor_controller.dpk"> <DelphiCompile Include="FacturasProveedor_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="AlbaranesProveedor_controller.dcp" /> <DCCReference Include="..\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="AlbaranesProveedor_model.dcp" /> <DCCReference Include="..\AlbaranesProveedor_model.dcp" />
<DCCReference Include="Articulos_controller.dcp" /> <DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="ContratosCliente_controller.dcp" /> <DCCReference Include="..\ContratosCliente_controller.dcp" />
<DCCReference Include="ContratosCliente_model.dcp" /> <DCCReference Include="..\ContratosCliente_model.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="FacturasProveedor_data.dcp" /> <DCCReference Include="..\FacturasProveedor_data.dcp" />
<DCCReference Include="FacturasProveedor_model.dcp" /> <DCCReference Include="..\FacturasProveedor_model.dcp" />
<DCCReference Include="FormasPago_controller.dcp" /> <DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="RecibosProveedor_controller.dcp" /> <DCCReference Include="..\RecibosProveedor_controller.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uArticulosFacturaProveedorController.pas" /> <DCCReference Include="uArticulosFacturaProveedorController.pas" />
<DCCReference Include="uContratosFacturaProveedorController.pas" /> <DCCReference Include="uContratosFacturaProveedorController.pas" />
<DCCReference Include="uDetallesFacturaProveedorController.pas" /> <DCCReference Include="uDetallesFacturaProveedorController.pas" />
<DCCReference Include="uFacturasProveedorController.pas" /> <DCCReference Include="uFacturasProveedorController.pas" />
<DCCReference Include="uFacturasProveedorReportController.pas" /> <DCCReference Include="uFacturasProveedorReportController.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="View\uIEditorElegirArticulosFacturasProveedor.pas" /> <DCCReference Include="View\uIEditorElegirArticulosFacturasProveedor.pas" />
<DCCReference Include="View\uIEditorFacturaProveedor.pas" /> <DCCReference Include="View\uIEditorFacturaProveedor.pas" />
<DCCReference Include="View\uIEditorFacturasProveedor.pas" /> <DCCReference Include="View\uIEditorFacturasProveedor.pas" />

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

@ -174,7 +174,7 @@ begin
begin begin
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO); ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
ADestino.Edit; ADestino.Edit;
ADestino.REFERENCIA := AOrigen.REFERENCIA; // ADestino.REFERENCIA := AOrigen.REFERENCIA;
if AOrigen.ID_ARTICULO > 0 then if AOrigen.ID_ARTICULO > 0 then
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO;
ADestino.CONCEPTO := AOrigen.CONCEPTO; ADestino.CONCEPTO := AOrigen.CONCEPTO;
@ -184,7 +184,7 @@ begin
ADestino.DESCUENTO := AOrigen.DESCUENTO; ADestino.DESCUENTO := AOrigen.DESCUENTO;
ADestino.IMPORTE_PORTE := AOrigen.IMPORTE_PORTE; ADestino.IMPORTE_PORTE := AOrigen.IMPORTE_PORTE;
ADestino.VISIBLE := AOrigen.VISIBLE; ADestino.VISIBLE := AOrigen.VISIBLE;
ADestino.REFERENCIA_PROVEEDOR := AOrigen.REFERENCIA_PROVEEDOR; // ADestino.REFERENCIA_PROVEEDOR := AOrigen.REFERENCIA_PROVEEDOR;
ADestino.Post; ADestino.Post;
AOrigen.Next; AOrigen.Next;
end; end;

BIN
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.RES
View File

Binary file not shown.

2
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daConnections Normal file
View File

@ -0,0 +1,2 @@
<?xml version="1.0" encoding="utf-8"?>
<Connections><PoolingEnabled>True</PoolingEnabled><PoolingBehavior>Wait</PoolingBehavior><MaxPoolSize>10</MaxPoolSize><WaitIntervalSeconds>1</WaitIntervalSeconds><PoolTimeoutSeconds>60</PoolTimeoutSeconds><Definitions><Definition><Name>IBX</Name><ConnectionString>IBX?Server=localhost;Database=C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO8859_1;</ConnectionString><Default>True</Default><Description></Description><ConnectionType>Interbase</ConnectionType></Definition></Definitions></Connections>

2
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daDictionary Normal file
View File

File diff suppressed because one or more lines are too long

114
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daSchema Normal file
View File

File diff suppressed because one or more lines are too long

14
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
View File

@ -3,14 +3,14 @@ unit schPedidosProveedorClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedor = '{7EF42C92-22B3-49CB-9631-6269AEBC7331}'; RID_PedidosProveedor = '{8F705F12-7866-40F9-BF45-064FA4AB0E9C}';
RID_PedidosProveedor_Detalles = '{3B03134F-60AA-426F-BFF5-15D252E44C4C}'; RID_PedidosProveedor_Detalles = '{1333907A-3DD9-4E64-9A35-C07D2D0F0778}';
{ Data table names } { Data table names }
nme_PedidosProveedor = 'PedidosProveedor'; nme_PedidosProveedor = 'PedidosProveedor';
@ -127,7 +127,7 @@ const
type type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{3FFE7F5F-75DA-4568-A26D-D3DF98DF31D4}'] ['{5F73734D-426D-4AD7-84EF-C9002ADCED0A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -361,7 +361,7 @@ type
end; end;
{ TPedidosProveedorDataTableRules } { TPedidosProveedorDataTableRules }
TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor) TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
@ -606,7 +606,7 @@ type
{ IPedidosProveedor_Detalles } { IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{C4F4AD90-C1D7-4CD9-852D-5DB340996FD4}'] ['{2CD81487-C982-4E98-BD11-9573AC7B786B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -686,7 +686,7 @@ type
end; end;
{ TPedidosProveedor_DetallesDataTableRules } { TPedidosProveedor_DetallesDataTableRules }
TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles) TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

8
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedorDelta = '{89C09828-8924-4EEB-AB87-13EF828A7921}'; RID_PedidosProveedorDelta = '{035551F2-3A55-4ACC-A976-AAE2E3E99E86}';
RID_PedidosProveedor_DetallesDelta = '{AC634C35-D723-4602-A06A-9E814C4D889C}'; RID_PedidosProveedor_DetallesDelta = '{B9014A9C-DA86-4B5A-A477-F630A27C8465}';
type type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{89C09828-8924-4EEB-AB87-13EF828A7921}'] ['{035551F2-3A55-4ACC-A976-AAE2E3E99E86}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -495,7 +495,7 @@ type
{ IPedidosProveedor_DetallesDelta } { IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{AC634C35-D723-4602-A06A-9E814C4D889C}'] ['{B9014A9C-DA86-4B5A-A477-F630A27C8465}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;

145
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

@ -476,6 +476,61 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency DataType = datCurrency
end> end>
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_ID'
Value = '1000000013'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_PEDIDOS_PROVEEDOR'
SQL =
'SELECT ID, NOMBRE, REFERENCIA FROM V_PEDIDOS_PROVEEDOR WHERE ID ' +
'= :ID'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end>
end>
Name = 'PedidosProveedor_Refresh'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_ID'
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_ID'
InPrimaryKey = True
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_NOMBRE'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
ServerAutoRefresh = True
end>
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
@ -688,16 +743,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger DataType = datInteger
@ -858,22 +903,22 @@ object srvPedidosProveedor: TsrvPedidosProveedor
TargetTable = 'PEDIDOS_PROVEEDOR' TargetTable = 'PEDIDOS_PROVEEDOR'
SQL = SQL =
'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (ID, ID_EMPRESA, FECHA_ALTA,' + 'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (ID, ID_EMPRESA, FECHA_ALTA,' +
' FECHA_MODIFICACION, ID_PROVEEDOR,'#10' USUARIO, OBSERVACIONES, ' + ' ID_PROVEEDOR,'#10' USUARIO, OBSERVACIONES, REFERENCIA, FECHA_EN' +
'REFERENCIA, FECHA_ENVIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, ' + 'VIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, FECHA_ENTREGA, INCID' +
'FECHA_ENTREGA, INCIDENCIAS, '#10' IMPORTE_TOTAL, INCIDENCIAS_ACT' + 'ENCIAS, '#10' IMPORTE_TOTAL, INCIDENCIAS_ACTIVAS, ID_ALMACEN, CA' +
'IVAS, ID_ALMACEN, CALLE, '#10' POBLACION, PROVINCIA, CODIGO_POST' + 'LLE, '#10' POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO' +
'AL, PERSONA_CONTACTO, '#10' TELEFONO, ID_PEDIDO_CLIENTE, IMPORTE' + ', '#10' TELEFONO, ID_PEDIDO_CLIENTE, IMPORTE_NETO, IMPORTE_PORTE' +
'_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_I' + ', '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, '#10' ' +
'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA, DESC' + ' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA, DESCRIPCION_GENERAL)'#10' V' +
'RIPCION_GENERAL)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_ALTA, :F' + 'ALUES'#10' (:ID, :ID_EMPRESA, CURRENT_TIMESTAMP, :ID_PROVEEDOR,'#10' ' +
'ECHA_MODIFICACION, :ID_PROVEEDOR,'#10' :USUARIO, :OBSERVACIONES,' + ' :USUARIO, :OBSERVACIONES, :REFERENCIA, :FECHA_ENVIO,'#10' :F' +
' :REFERENCIA, :FECHA_ENVIO,'#10' :FECHA_PEDIDO, :FECHA_CONFIRMAC' + 'ECHA_PEDIDO, :FECHA_CONFIRMACION, :FECHA_ENTREGA, :INCIDENCIAS,'#10 +
'ION, :FECHA_ENTREGA, :INCIDENCIAS,'#10' :IMPORTE_TOTAL, :INCIDEN' + ' :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, :ID_ALMACEN, :CALLE,'#10 +
'CIAS_ACTIVAS, :ID_ALMACEN, :CALLE,'#10' :POBLACION, :PROVINCIA, ' + ' :POBLACION, :PROVINCIA, :CODIGO_POSTAL, :PERSONA_CONTACTO,'#10 +
':CODIGO_POSTAL, :PERSONA_CONTACTO,'#10' :TELEFONO, :ID_PEDIDO_CL' + ' :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, :IMPORTE_PORT' +
'IENTE, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_' + 'E,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' ' +
'DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_P' + ' :IMPORTE_IVA, :ID_FORMA_PAGO, :ID_TIENDA, :DESCRIPCION_GENER' +
'AGO, :ID_TIENDA, :DESCRIPCION_GENERAL)'#10' '#10' '#10' '#10' '#10#10 'AL)'#10' '#10' '#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -903,16 +948,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger DataType = datInteger
@ -1061,23 +1096,22 @@ object srvPedidosProveedor: TsrvPedidosProveedor
SQL = SQL =
'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' USUARIO = :USUARIO,'#10' OBSE' + 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' USUARIO = :USUARIO,'#10' OBSE' +
'RVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :REFERENCIA,'#10' I' + 'RVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :REFERENCIA,'#10' I' +
'D_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA' + 'D_EMPRESA = :ID_EMPRESA,'#10' FECHA_MODIFICACION = CURRENT_TIMEST' +
'_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROVEEDOR = :ID_PRO' + 'AMP,'#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' FECHA_ENVIO = :FECHA' +
'VEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FEC' + '_ENVIO,'#10' FECHA_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACIO' +
'HA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' F' + 'N = :FECHA_CONFIRMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' ' +
'ECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS, ' + ' INCIDENCIAS = :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOT' +
#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS = ' + 'AL, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALM' +
':INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMACEN, '#10' CALLE ' + 'ACEN = :ID_ALMACEN, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLA' +
'= :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINC' + 'CION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_' +
'IA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO =' + 'POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFONO' +
' :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_CL' + ' = :TELEFONO, '#10' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, '#10' ' +
'IENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10 + 'IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORT' +
' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO,' + 'E, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORT' +
' '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBL' + 'E_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :' +
'E = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORT' + 'IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_F' +
'E_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_' + 'ORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA,'#10' DESCRIPCION_GENERAL =' +
'TIENDA,'#10' DESCRIPCION_GENERAL = :DESCRIPCION_GENERAL'#10' WHERE'#10' ' + ' :DESCRIPCION_GENERAL'#10' WHERE'#10' (ID = :OLD_ID)'#10
' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1086,7 +1120,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
RelationShips = < RelationShips = <
item item
Name = 'FK_PedidosProveedor_Detalles' Name = 'FK_PedidosProveedor_Detalles'
MasterDatasetName = 'PedidosProveedor' MasterDatasetName = 'PedidosProveedor_Refresh'
MasterFields = 'ID' MasterFields = 'ID'
DetailDatasetName = 'PedidosProveedor_Detalles' DetailDatasetName = 'PedidosProveedor_Detalles'
DetailFields = 'ID_PEDIDO' DetailFields = 'ID_PEDIDO'
@ -1140,12 +1174,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Top = 24 Top = 24
end end
object bpPedidosProveedor: TDABusinessProcessor object bpPedidosProveedor: TDABusinessProcessor
OnProcessChange = bpPedidosProveedorProcessChange
Schema = schPedidosProveedor Schema = schPedidosProveedor
InsertCommandName = 'Insert_PedidosProveedor' InsertCommandName = 'Insert_PedidosProveedor'
DeleteCommandName = 'Delete_PedidosProveedor' DeleteCommandName = 'Delete_PedidosProveedor'
UpdateCommandName = 'Update_PedidosProveedor' UpdateCommandName = 'Update_PedidosProveedor'
ReferencedDataset = 'PedidosProveedor' ReferencedDataset = 'PedidosProveedor'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 240 Left = 240
Top = 24 Top = 24

20
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas
View File

@ -15,7 +15,7 @@ uses
{Ancestor Implementation:} DataAbstractService_Impl, {Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf, {Used RODLs:} DataAbstract4_Intf,
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
uDAScriptingProvider, uDAClasses, uDAScriptingProvider, uDAClasses, uDADelta,
FactuGES_Intf, uDAInterfaces; FactuGES_Intf, uDAInterfaces;
type type
@ -29,6 +29,9 @@ type
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
procedure bpPedidosProveedorProcessChange(Sender: TDABusinessProcessor;
aChangeType: TDAChangeType; aChange: TDADeltaChange;
const aCommand: IDASQLCommand);
protected protected
{ IsrvPedidosProveedor methods } { IsrvPedidosProveedor methods }
function GenerateReport(const ID: String): Binary; function GenerateReport(const ID: String): Binary;
@ -55,6 +58,21 @@ end;
{ srvPedidosProveedor } { srvPedidosProveedor }
procedure TsrvPedidosProveedor.bpPedidosProveedorProcessChange(
Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
aChange: TDADeltaChange; const aCommand: IDASQLCommand);
var
I: Integer;
begin
{ dmServer.EscribirLog('**************************************************');
dmServer.EscribirLog(aCommand.SQL);
for I := 0 to aCommand.Params.Count - 1 do
begin
dmServer.EscribirLog(aCommand.Params[I].Name + ' -> ' + aCommand.Params[I].AsString);
end;
dmServer.EscribirLog('**************************************************');}
end;
procedure TsrvPedidosProveedor.DARemoteServiceBeforeGetDatasetData( procedure TsrvPedidosProveedor.DARemoteServiceBeforeGetDatasetData(
const Dataset: IDADataset; const IncludeSchema: Boolean; const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer); const MaxRecords: Integer);

20
Source/Servidor/FactuGES_Server.dproj
View File

@ -29,6 +29,26 @@
<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">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 11 de diciembre de 2014 13:41</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">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 11 de diciembre de 2014 13:41</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,6,0,0 FILEVERSION 2,6,1,0
PRODUCTVERSION 2,6,0,0 PRODUCTVERSION 2,6,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.6.0.0\0" VALUE "FileVersion", "2.6.1.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.6.0.0\0" VALUE "ProductVersion", "2.6.1.0\0"
VALUE "CompileDate", "jueves, 11 de diciembre de 2014 13:41\0" VALUE "CompileDate", "viernes, 12 de diciembre de 2014 17:21\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.

3
Source/Servidor/uDataModuleServer.dfm
View File

@ -29,7 +29,7 @@ object dmServer: TdmServer
object DriverManager: TDADriverManager object DriverManager: TDADriverManager
DriverDirectory = '%SYSTEM%\' DriverDirectory = '%SYSTEM%\'
AutoLoad = True AutoLoad = True
TraceActive = True TraceActive = False
TraceFlags = [toPrepare, toExecute, toFetch, toError, toStmt, toConnect, toTransact, toBlob, toService, toMisc, toParams] TraceFlags = [toPrepare, toExecute, toFetch, toError, toStmt, toConnect, toTransact, toBlob, toService, toMisc, toParams]
OnTraceEvent = DriverManagerTraceEvent OnTraceEvent = DriverManagerTraceEvent
Left = 136 Left = 136
@ -71,6 +71,7 @@ object dmServer: TdmServer
object JvLogFile1: TJvLogFile object JvLogFile1: TJvLogFile
FileName = 'ServerLog.txt' FileName = 'ServerLog.txt'
Active = False Active = False
AutoSave = True
Left = 136 Left = 136
Top = 144 Top = 144
end end

5
Source/Servidor/uDataModuleServer.pas
View File

@ -280,14 +280,13 @@ end;
procedure TdmServer.EscribirLog(const AMensaje: String); procedure TdmServer.EscribirLog(const AMensaje: String);
begin begin
{ { FEscribirLog.Acquire;
FEscribirLog.Acquire;
try try
JvLogFile1.Add(AMensaje); JvLogFile1.Add(AMensaje);
finally finally
FEscribirLog.Release; FEscribirLog.Release;
end; end;
} }
end; end;
procedure TdmServer.RefrescarConexion; procedure TdmServer.RefrescarConexion;