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

Pedidos proveedor OK

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@112 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2007-11-17 12:03:12 +00:00
parent e78e84709b
commit e00eb84d72
15 changed files with 313 additions and 498 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
Source/Base/Base.dproj
View File

@ -44,6 +44,13 @@
<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>
@ -58,57 +65,57 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Cliente\adortl.dcp" />
<DCCReference Include="..\Cliente\cxDataD10.dcp" />
<DCCReference Include="..\Cliente\cxEditorsD10.dcp" />
<DCCReference Include="..\Cliente\cxExportD10.dcp" />
<DCCReference Include="..\Cliente\cxExtEditorsD10.dcp" />
<DCCReference Include="..\Cliente\cxGridD10.dcp" />
<DCCReference Include="..\Cliente\cxIntl5D10.dcp" />
<DCCReference Include="..\Cliente\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="..\Cliente\cxLibraryD10.dcp" />
<DCCReference Include="..\Cliente\cxPageControlD10.dcp" />
<DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" /> <DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
<DCCReference Include="..\Cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Cliente\dbrtl.dcp" />
<DCCReference Include="..\Cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Cliente\designide.dcp" />
<DCCReference Include="..\Cliente\dsnap.dcp" />
<DCCReference Include="..\Cliente\dxPSCoreD10.dcp" />
<DCCReference Include="..\Cliente\dxThemeD10.dcp" />
<DCCReference Include="..\Cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Cliente\IndyCore.dcp" />
<DCCReference Include="..\Cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Cliente\IndySystem.dcp" />
<DCCReference Include="..\Cliente\Jcl.dcp" />
<DCCReference Include="..\Cliente\JclVcl.dcp" />
<DCCReference Include="..\Cliente\JSDialog100.dcp" />
<DCCReference Include="..\Cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Cliente\pckMD5.dcp" />
<DCCReference Include="..\Cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Cliente\PNG_D10.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" /> <DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\adortl.dcp" /> <DCCReference Include="..\Cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxDataD10.dcp" /> <DCCReference Include="..\Cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxEditorsD10.dcp" /> <DCCReference Include="..\Cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxExportD10.dcp" /> <DCCReference Include="..\Cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxExtEditorsD10.dcp" /> <DCCReference Include="..\Cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxGridD10.dcp" /> <DCCReference Include="..\Cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxIntl5D10.dcp" /> <DCCReference Include="..\Cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxIntlPrintSys3D10.dcp" /> <DCCReference Include="..\Cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxLibraryD10.dcp" /> <DCCReference Include="..\Cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxPageControlD10.dcp" /> <DCCReference Include="..\Cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPSCoreD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxThemeD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\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>

BIN
Source/Base/Base.res
View File

Binary file not shown.

7
Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
View File

@ -63,13 +63,8 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn
Visible = True
end
inherited cxGridViewPOSICION: TcxGridDBColumn
Visible = True
end
inherited cxGridViewTIPO: TcxGridDBColumn inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False
Width = 26 Width = 26
end end
object cxGridViewID_ARTICULO: TcxGridDBColumn [3] object cxGridViewID_ARTICULO: TcxGridDBColumn [3]

20
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
View File

@ -31,6 +31,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_ID' GeneratorName = 'GEN_PEDIDOS_PROV_ID'
Required = True Required = True
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_ID' DictionaryEntry = 'PedidosProveedor_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -62,13 +63,13 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Situaci'#195#179'n' DisplayLabel = 'Situaci'#243'n'
DictionaryEntry = 'PedidosProveedor_SITUACION' DictionaryEntry = 'PedidosProveedor_SITUACION'
end end
item item
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime DataType = datDateTime
DisplayLabel = #194#191'Enviado?' DisplayLabel = #191'Enviado?'
DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO' DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO'
end end
item item
@ -80,7 +81,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
item item
Name = 'FECHA_CONFIRMACION' Name = 'FECHA_CONFIRMACION'
DataType = datDateTime DataType = datDateTime
DisplayLabel = #194#191'Confirmado?' DisplayLabel = #191'Confirmado?'
DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION' DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION'
end end
item item
@ -99,7 +100,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'NOMBRE_ALMACEN' Name = 'NOMBRE_ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Almac'#195#169'n' DisplayLabel = 'Almac'#233'n'
DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN' DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN'
end end
item item
@ -136,7 +137,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Poblaci'#195#179'n' DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'PedidosProveedor_POBLACION' DictionaryEntry = 'PedidosProveedor_POBLACION'
end end
item item
@ -150,7 +151,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
DisplayLabel = 'C'#195#179'd. postal' DisplayLabel = 'C'#243'd. postal'
DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL' DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL'
end end
item item
@ -164,7 +165,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString DataType = datString
Size = 25 Size = 25
DisplayLabel = 'Tel'#195#169'fono' DisplayLabel = 'Tel'#233'fono'
DictionaryEntry = 'PedidosProveedor_TELEFONO' DictionaryEntry = 'PedidosProveedor_TELEFONO'
end end
item item
@ -327,8 +328,11 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
Required = True Required = True
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_Detalles_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item

BIN
Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.identcache
View File

Binary file not shown.

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

@ -3,16 +3,16 @@ unit schPedidosProveedorClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, 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_DarReferencia = '{ECD374FB-DEC3-4BD3-8B94-3D682010F0FC}'; RID_DarReferencia = '{CA7994DB-6CC3-4494-8CDA-4D8411DB5D2D}';
RID_PedidosProveedor = '{2D04B1A7-0FD8-4D76-A3C5-A359F90149B0}'; RID_PedidosProveedor = '{684C5776-911B-490A-9C71-D4EDCCAD631E}';
RID_PedidosProveedor_Detalles = '{C2304714-5565-46A7-B19D-3E0B8FB1CCAC}'; RID_PedidosProveedor_Detalles = '{FCF3DE95-4073-4679-92C0-87B7E7C46108}';
RID_PedidosProveedor_Articulos_Pendientes = '{6016265E-4953-4240-BB67-842699A43AD5}'; RID_PedidosProveedor_Articulos_Pendientes = '{EA978B2E-441A-49F8-AF4D-76517D74CF10}';
{ Data table names } { Data table names }
nme_DarReferencia = 'DarReferencia'; nme_DarReferencia = 'DarReferencia';
@ -151,7 +151,7 @@ const
type type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{87AF2361-34C9-47CE-8B54-87175DC678BB}'] ['{04456888-5D38-48BB-8CED-95617D1F2BB9}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -165,7 +165,7 @@ type
end; end;
{ TDarReferenciaDataTableRules } { TDarReferenciaDataTableRules }
TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia) TDarReferenciaDataTableRules = class(TDADataTableRules, IDarReferencia)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -186,7 +186,7 @@ type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{E49280D2-1776-46E8-86B8-5149F77BDCF3}'] ['{4E3D9B42-CF76-460B-8136-2D0C2B3417D4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -402,7 +402,7 @@ type
end; end;
{ TPedidosProveedorDataTableRules } { TPedidosProveedorDataTableRules }
TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor) TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
@ -629,7 +629,7 @@ type
{ IPedidosProveedor_Detalles } { IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{89FC103E-BFB3-41F8-9043-F97B9A488EAA}'] ['{127BE3FD-DEF4-4C58-ABC5-5A54DCE0608D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -721,7 +721,7 @@ type
end; end;
{ TPedidosProveedor_DetallesDataTableRules } { TPedidosProveedor_DetallesDataTableRules }
TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles) TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -820,7 +820,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes } { IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{809B7C0C-097F-41C4-B931-B8E1C69B6CA5}'] ['{34BDDF31-970F-4F58-923B-1C0E66F27A5F}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -864,7 +864,7 @@ type
end; end;
{ TPedidosProveedor_Articulos_PendientesDataTableRules } { TPedidosProveedor_Articulos_PendientesDataTableRules }
TPedidosProveedor_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Articulos_Pendientes) TPedidosProveedor_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

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

@ -9,15 +9,15 @@ 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_DarReferenciaDelta = '{C99C46FF-39A2-4012-9082-AB75F2697D32}'; RID_DarReferenciaDelta = '{A1F1C534-FD91-42C1-856B-0CAE9DE48B68}';
RID_PedidosProveedorDelta = '{202FCF2F-55FB-46BF-BE89-70B9FF26C348}'; RID_PedidosProveedorDelta = '{349D50BE-57FD-468A-8751-0374A571AAA4}';
RID_PedidosProveedor_DetallesDelta = '{2C1855B3-AB89-4FCF-901B-0B55C5B1C45F}'; RID_PedidosProveedor_DetallesDelta = '{E924668B-8D1B-44C3-9DA2-D033F8C44E06}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{C22CA682-0E3B-40F8-9F4A-D422BC284233}'; RID_PedidosProveedor_Articulos_PendientesDelta = '{0B859C3A-9F82-4451-A206-24CEF18A61E9}';
type type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{C99C46FF-39A2-4012-9082-AB75F2697D32}'] ['{A1F1C534-FD91-42C1-856B-0CAE9DE48B68}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -51,7 +51,7 @@ type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{202FCF2F-55FB-46BF-BE89-70B9FF26C348}'] ['{349D50BE-57FD-468A-8751-0374A571AAA4}']
{ 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)
['{2C1855B3-AB89-4FCF-901B-0B55C5B1C45F}'] ['{E924668B-8D1B-44C3-9DA2-D033F8C44E06}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -685,7 +685,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta } { IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{C22CA682-0E3B-40F8-9F4A-D422BC284233}'] ['{0B859C3A-9F82-4451-A206-24CEF18A61E9}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;

4
Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas
View File

@ -46,7 +46,7 @@ begin
try try
//Siempre va a estar rellena //Siempre va a estar rellena
Empresa := Sender.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA]; Empresa := Sender.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA];
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'ID_EMPRESA'], [REF_PEDIDOS_PROVEEDOR, Empresa]); dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_PEDIDOS_PROVEEDOR, Empresa]);
except except
RaiseError('No existe la tabla REFERENCIAS'); RaiseError('No existe la tabla REFERENCIAS');
end; end;
@ -59,7 +59,7 @@ begin
REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString; REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString;
try try
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_PEDIDOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]); ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_PEDIDOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]);
except except
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
end; end;

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

@ -203,6 +203,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_ID' GeneratorName = 'GEN_PEDIDOS_PROV_ID'
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_ID' DictionaryEntry = 'PedidosProveedor_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -473,8 +474,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
Required = True GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_Detalles_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
@ -620,23 +623,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = < Params = <
item item
Name = 'VALOR' Name = 'VALOR'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO' Name = 'CODIGO'
DataType = datString
Size = 50
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_EMPRESA' Name = 'EMPRESA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -644,7 +639,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
TargetTable = 'REFERENCIAS' TargetTable = 'REFERENCIAS'
SQL = SQL =
'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' + 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' +
'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA' 'IGO AND'#10' ID_EMPRESA = :EMPRESA'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -654,9 +649,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = < Params = <
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -672,77 +665,53 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = < Params = <
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -764,9 +733,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = < Params = <
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -784,83 +751,55 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = < Params = <
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -883,197 +822,129 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = < Params = <
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 20
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_PEDIDO' Name = 'FECHA_PEDIDO'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_CONFIRMACION' Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_ENTREGA' Name = 'FECHA_ENTREGA'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_PEDIDO_CLIENTE' Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -1104,222 +975,156 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
Params = < Params = <
item item
Name = 'USUARIO' Name = 'ID'
DataType = datString Value = ''
Size = 20 end
item
Name = 'USUARIO'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_PEDIDO' Name = 'FECHA_PEDIDO'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_CONFIRMACION' Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_ENTREGA' Name = 'FECHA_ENTREGA'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_PEDIDO_CLIENTE' Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR' TargetTable = 'PEDIDOS_PROVEEDOR'
SQL = SQL =
'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' USUARIO = :USUARIO, '#10' OBS' + 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' USUARIO = :USU' +
'ERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :REFERENCIA,'#10' ' + 'ARIO, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :RE' +
'ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECH' + 'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_' +
'A_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROVEEDOR = :ID_PR' + 'ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROV' +
'OVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FE' + 'EEDOR = :ID_PROVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECH' +
'CHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' ' + 'A_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFI' +
'FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS,' + 'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS =' +
' '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS =' + ' :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDEN' +
' :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMACEN, '#10' CALLE' + 'CIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMAC' +
' = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVIN' + 'EN, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVI' +
'CIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO ' + 'NCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PER' +
'= :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_C' + 'SONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ' +
'LIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, ' + ' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :' +
#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO' + 'IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENT' +
', '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIB' + 'O = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' ' +
'LE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPOR' + ' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORT' +
'TE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO'#10' WHERE'#10' (ID = :O' + 'E_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO'#10' WHER' +
'LD_ID)' 'E'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -42,9 +42,9 @@ implementation
uses uses
Dialogs, Dialogs,
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
schPedidosProveedorClient_Intf, uRestriccionesUsuarioUtils; schPedidosProveedorClient_Intf, uRestriccionesUsuarioUtils,
uBizPedidosProveedorServer;
// uRptPedidosProveedor_Server, uBizPedidosProveedorServer; // uRptPedidosProveedor_Server, ;
{ uRORemoteDataModule, { uRORemoteDataModule,
fServerForm, Variants, IB, schPedidosProveedorClient_Intf; fServerForm, Variants, IB, schPedidosProveedorClient_Intf;
@ -73,7 +73,7 @@ end;
procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject); procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject);
begin begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
// bpPedidosProveedor.BusinessRulesID := BIZ_SERVER_PEDIDOS_PROVEEDOR; bpPedidosProveedor.BusinessRulesID := BIZ_SERVER_PEDIDOS_PROVEEDOR;
end; end;
procedure TsrvPedidosProveedor.DataAbstractServiceBeforeAcquireConnection( procedure TsrvPedidosProveedor.DataAbstractServiceBeforeAcquireConnection(

BIN
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.identcache
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

4
Source/Servidor/FactuGES_Server.dpr
View File

@ -79,9 +79,9 @@ uses
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDataAbstractService}, srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDataAbstractService},
uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

356
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,180 +1,184 @@
<?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">3</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">3.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">domingo, 30 de septiembre de 2007 20:47</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">3</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">3.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">domingo, 30 de septiembre de 2007 20:47</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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup> <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>
<DelphiCompile Include="FactuGES_Server.dpr"> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<MainSource>MainSource</MainSource> </ProjectExtensions>
</DelphiCompile> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> <ItemGroup>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DelphiCompile Include="FactuGES_Server.dpr">
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <MainSource>MainSource</MainSource>
<Form>srvEmpresas</Form> </DelphiCompile>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <Form>srvEmpresas</Form>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Base\schBase_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Base\schBase_Intf.pas" />
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <Form>srvAlbaranesCliente</Form>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlbaranesProveedor</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\Almacenes\Model\schAlmacenesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlmacenes</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <Form>srvAlmacenes</Form>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <Form>srvContactos</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> </DCCReference>
<Form>srvFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <Form>srvFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasProveedor</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\Familias\Model\schFamiliasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <Form>srvFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> </DCCReference>
<Form>RptPresupuestosCliente</Form> <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\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<Form>srvPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>RptPresupuestosCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <Form>srvPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosCliente</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 proveedor\Model\schRecibosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <Form>srvRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <Form>srvRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<Form>srvConfiguracion</Form> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
</DCCReference> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>frConexionBD</Form> <Form>srvConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConfGeneral</Form> <Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>fConfiguracion</Form> <Form>frConfGeneral</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>FrameConfiguracion</Form> <Form>fConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>srvLogin</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>fAcercaDe</Form> <Form>srvLogin</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="uDataModuleServer.pas"> </DCCReference>
<Form>dmServer</Form> <DCCReference Include="uAcercaDe.pas">
<DesignClass>TDataModule</DesignClass> <Form>fAcercaDe</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="uDataModuleServer.pas">
<Form>fServerForm</Form> <Form>dmServer</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="Utiles\RegExpr.pas"/> </DCCReference>
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="uServerMainForm.pas">
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <Form>fServerForm</Form>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> </DCCReference>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
</ItemGroup> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<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", "3.0.0.0\0" VALUE "FileVersion", "3.0.0.0\0"
VALUE "ProductVersion", "3.0.0.0\0" VALUE "ProductVersion", "3.0.0.0\0"
VALUE "CompileDate", "viernes, 16 de noviembre de 2007 22:18\0" VALUE "CompileDate", "sábado, 17 de noviembre de 2007 12:35\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"