Se arregla clase de negocio de recibos cliente y proveedor para que funcione correctamente las referencias e incrementen (no funcionaba bien porque el orden de las reglas de negocio en el esquema)

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@668 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2018-05-31 11:26:33 +00:00
parent f97a479be5
commit 6d0edeb98a
17 changed files with 153 additions and 139 deletions

View File

@ -44,6 +44,27 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<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>
<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\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,55 +79,55 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

View File

@ -52,7 +52,8 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">7</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.8.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></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><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

View File

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

Binary file not shown.

View File

@ -371,7 +371,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'ID_TIENDA'
DataType = datInteger
DisplayLabel = 'RecibosCliente_ID_TIENDA'
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_ID_TIENDA'
end
item
@ -379,22 +378,20 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DataType = datString
Size = 255
DisplayLabel = 'RecibosCliente_TIENDA'
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_TIENDA'
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_LISTA_NOMBRES'
end
item
Name = 'CUENTA_CONTABLE'
DataType = datString
Size = 255
DisplayLabel = 'Cuenta contable'
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_CUENTA_CONTABLE'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

View File

@ -9,10 +9,10 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibos = '{AE89E2C7-E725-49D7-923C-C31DB52289BC}';
RID_RecibosCliente = '{EA2A5415-CD57-4A6D-B0ED-02C852CDF365}';
RID_PagosCliente = '{91E0EB25-0D8D-49CC-BEE9-DDB4DC953232}';
RID_RecibosCompensadosCli = '{8418F37E-CDF2-49D4-8EA6-458D5619E4D4}';
RID_ListaAnosRecibos = '{6F080A07-7F79-49DA-8223-2A765568A41D}';
RID_RecibosCliente = '{FF13E325-433D-4B3F-ACBD-95CB1636F3EE}';
RID_PagosCliente = '{1E77A59F-B566-4264-8DB5-E93D18972BB8}';
RID_RecibosCompensadosCli = '{98D8A267-FB74-476C-A8E5-F8CD6C1E4CD5}';
{ Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos';
@ -225,7 +225,7 @@ const
type
{ IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
['{FAC8D465-4E19-43A8-B172-67E80A7D2D39}']
['{56AA9455-4989-40E3-B732-0FE6B0E52E03}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -260,7 +260,7 @@ type
{ IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{68685DBB-DED5-49DD-8E6F-844F238408B8}']
['{5072D408-2297-4727-B0A0-EB3FCB2C231C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -739,7 +739,7 @@ type
{ IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable)
['{CFF8F00A-377F-4D2C-A75E-4B5E8B17F6F5}']
['{CFAC341F-7138-4FBB-AC89-E63550865FCC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -978,7 +978,7 @@ type
{ IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{241530CF-F60C-48CC-838B-F3F34C69347C}']
['{C1ABC344-B387-4169-A394-4F93FD736B79}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

View File

@ -9,15 +9,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibosDelta = '{B3DE24BA-E4C3-4E3F-B165-880E87414EB2}';
RID_RecibosClienteDelta = '{7241C382-E1CC-4FC6-A769-0EBA50663E8D}';
RID_PagosClienteDelta = '{553625F5-33E4-4FB0-9C0D-EE9012E08F8E}';
RID_RecibosCompensadosCliDelta = '{5AFBB5EF-8AA2-4DFA-805D-D09B444DE070}';
RID_ListaAnosRecibosDelta = '{070BCFBB-6E14-46D6-BBB2-A01C1BAD1371}';
RID_RecibosClienteDelta = '{46CE98E3-16F4-43A1-8219-F238C0D52079}';
RID_PagosClienteDelta = '{8E5F9BD5-BBDE-4A07-A44D-5E2E2E6A11AA}';
RID_RecibosCompensadosCliDelta = '{6B9D813E-0FF0-49C2-A1C3-DCC7F50EF7B5}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
['{B3DE24BA-E4C3-4E3F-B165-880E87414EB2}']
['{070BCFBB-6E14-46D6-BBB2-A01C1BAD1371}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente)
['{7241C382-E1CC-4FC6-A769-0EBA50663E8D}']
['{46CE98E3-16F4-43A1-8219-F238C0D52079}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -529,7 +529,7 @@ type
{ IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente)
['{553625F5-33E4-4FB0-9C0D-EE9012E08F8E}']
['{8E5F9BD5-BBDE-4A07-A44D-5E2E2E6A11AA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@ -767,7 +767,7 @@ type
{ IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{5AFBB5EF-8AA2-4DFA-805D-D09B444DE070}']
['{6B9D813E-0FF0-49C2-A1C3-DCC7F50EF7B5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;

View File

@ -1035,6 +1035,8 @@ object srvRecibosCliente: TsrvRecibosCliente
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
@ -1449,20 +1451,6 @@ object srvRecibosCliente: TsrvRecibosCliente
RelationshipType = rtForeignKey
end>
UpdateRules = <
item
Name = 'Delete PagosCliente'
DoUpdate = False
DoInsert = False
DatasetName = 'PagosCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete RecibosCliente'
DoUpdate = False
DoInsert = False
DatasetName = 'RecibosCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert RecibosCliente'
DoUpdate = False
@ -1490,6 +1478,20 @@ object srvRecibosCliente: TsrvRecibosCliente
DoDelete = False
DatasetName = 'PagosCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete PagosCliente'
DoUpdate = False
DoInsert = False
DatasetName = 'PagosCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete RecibosCliente'
DoUpdate = False
DoInsert = False
DatasetName = 'RecibosCliente'
FailureBehavior = fbRaiseException
end>
Version = 0
Left = 48

View File

@ -14,12 +14,12 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Top = 84
end
object rda_RecibosProveedor: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 151
end
@ -138,8 +138,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
MasterSource = ds_RecibosProveedor
MasterFields = 'ID'
DetailFields = 'ID_RECIBO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PagosProveedor'
IndexDefs = <>
Left = 288
@ -338,8 +336,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
MasterSource = ds_RecibosProveedor
MasterFields = 'ID'
DetailFields = 'ID_RECIBO_COMPENSADO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'RecibosCompensadosProv'
IndexDefs = <>
Left = 424
@ -582,8 +578,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_RecibosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'RecibosProveedor'
IndexDefs = <>
Left = 176
@ -606,8 +600,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_RecibosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosRecibos'
IndexDefs = <>
Left = 176

View File

@ -3,16 +3,16 @@ unit schRecibosProveedorClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibos = '{9B2BA80B-D6E7-4970-B1CC-20990D8D11E7}';
RID_RecibosCompensadosProv = '{E0ECB451-A8BC-4B37-82A9-7F86E2FFE256}';
RID_RecibosProveedor = '{77ED4397-26CE-4EA3-ACF1-8CFDCE5DDF9C}';
RID_PagosProveedor = '{249FF85D-110C-447F-8164-61DF9530E7F9}';
RID_ListaAnosRecibos = '{C4D58B52-1C42-49F5-B6C4-00013B86DF71}';
RID_RecibosCompensadosProv = '{BD0A05F9-B690-4A5D-95AD-57688D408E31}';
RID_RecibosProveedor = '{989AACFA-CB2C-4B5C-ACB8-696687E57527}';
RID_PagosProveedor = '{A527D368-D732-4E18-B125-72560F107BAA}';
{ Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos';
@ -229,7 +229,7 @@ const
type
{ IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
['{4CC0A39B-177C-4530-BDA1-74655040BD1D}']
['{75833044-28F9-487D-ADF7-CDC95EB7B769}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -264,7 +264,7 @@ type
{ IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
['{4CEC51B6-36BE-40B5-9CC9-7942E4916321}']
['{7E4FA871-AD89-406F-B163-6E5154F44888}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -743,7 +743,7 @@ type
{ IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable)
['{2909B622-C1B0-4738-B8EE-87F279FE7CA3}']
['{724C736D-D277-4EBF-914B-78870C1310FA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1222,7 +1222,7 @@ type
{ IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable)
['{D614A1E7-19B0-47A4-A975-E61D0DA5EE19}']
['{322743CC-25F4-4021-95E4-7E633FF70694}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

View File

@ -9,15 +9,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibosDelta = '{6C4A7ACE-8C97-469A-A496-493F1A280405}';
RID_RecibosCompensadosProvDelta = '{07E70EBB-5912-4A27-BB68-34D15E499C1E}';
RID_RecibosProveedorDelta = '{79959841-F924-4E80-B1C0-26D60A1CA5E4}';
RID_PagosProveedorDelta = '{C9839E83-8D1F-4F5D-8A06-704C5BE7E7D8}';
RID_ListaAnosRecibosDelta = '{67B9BDDE-4773-4079-8B6D-307FBB93CC35}';
RID_RecibosCompensadosProvDelta = '{EFA871F9-3800-4DD1-9EF8-691841D06186}';
RID_RecibosProveedorDelta = '{CA420FFF-13D3-416B-A682-A273FA866808}';
RID_PagosProveedorDelta = '{FE2AD486-4B08-424D-AA09-1F387625E6C3}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
['{6C4A7ACE-8C97-469A-A496-493F1A280405}']
['{67B9BDDE-4773-4079-8B6D-307FBB93CC35}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{07E70EBB-5912-4A27-BB68-34D15E499C1E}']
['{EFA871F9-3800-4DD1-9EF8-691841D06186}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -529,7 +529,7 @@ type
{ IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor)
['{79959841-F924-4E80-B1C0-26D60A1CA5E4}']
['{CA420FFF-13D3-416B-A682-A273FA866808}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -1007,7 +1007,7 @@ type
{ IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor)
['{C9839E83-8D1F-4F5D-8A06-704C5BE7E7D8}']
['{FE2AD486-4B08-424D-AA09-1F387625E6C3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;

View File

@ -168,9 +168,10 @@ begin
FProveedor.DataTable.Active := True;
ID_PROVEEDOR := FProveedor.ID;
NOMBRE_PROVEEDOR := FProveedor.NOMBRE;
//El proveedor puede tener un nombre por el ce se le conoce y luego un nombre_comercial
//caso de elegir la dirección principal del proveedor para el recibo, se cogerá el nombre_comercial para los datos fiscales
NOMBRE := FProveedor.NOMBRE_COMERCIAL;
NOMBRE := FProveedor.NOMBRE;
NIF_CIF := FProveedor.NIF_CIF;
CALLE := FProveedor.CALLE;
CODIGO_POSTAL := FProveedor.CODIGO_POSTAL;

View File

@ -1439,20 +1439,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
RelationshipType = rtForeignKey
end>
UpdateRules = <
item
Name = 'Delete PagosProveedor'
DoUpdate = False
DoInsert = False
DatasetName = 'PagosProveedor'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete RecibosProveedor'
DoUpdate = False
DoInsert = False
DatasetName = 'RecibosProveedor'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert RecibosProveedor'
DoUpdate = False
@ -1480,6 +1466,20 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DoDelete = False
DatasetName = 'PagosProveedor'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete PagosProveedor'
DoUpdate = False
DoInsert = False
DatasetName = 'PagosProveedor'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete RecibosProveedor'
DoUpdate = False
DoInsert = False
DatasetName = 'RecibosProveedor'
FailureBehavior = fbRaiseException
end>
Version = 0
Left = 48

View File

@ -106,8 +106,6 @@ uses
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
@ -135,10 +133,12 @@ uses
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<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">8</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 03 de octubre de 2017 12:45</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">8</VersionInfo><VersionInfo Name="Release">7</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.8.7.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.8.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 25 de octubre de 2017 16:15</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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,8,6,0
PRODUCTVERSION 2,8,6,0
FILEVERSION 2,8,7,0
PRODUCTVERSION 2,8,7,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.8.6.0\0"
VALUE "FileVersion", "2.8.7.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.8.6.0\0"
VALUE "CompileDate", "miércoles, 25 de octubre de 2017 16:15\0"
VALUE "ProductVersion", "2.8.7.0\0"
VALUE "CompileDate", "jueves, 31 de mayo de 2018 13:22\0"
END
END
BLOCK "VarFileInfo"

Binary file not shown.