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

Subida contabilidad asociada a facturas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@64 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2007-12-20 17:41:06 +00:00
parent 163c3efcfc
commit ecbb65ec2b
17 changed files with 635 additions and 288 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
Source/Base/Base.dproj
View File

@ -51,13 +51,6 @@
<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>
@ -74,56 +67,56 @@
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" /> <DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" /> <DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExportD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxGridD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntl5D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl5D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.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\dxPSCoreD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.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\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"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

12
Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm
View File

@ -496,6 +496,18 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
DataType = datInteger DataType = datInteger
DisplayLabel = 'Asientos_ORDEN' DisplayLabel = 'Asientos_ORDEN'
DictionaryEntry = 'Asientos_ORDEN' DictionaryEntry = 'Asientos_ORDEN'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DisplayLabel = 'Asientos_ID_FACTURA'
DictionaryEntry = 'Asientos_ID_FACTURA'
end
item
Name = 'ID_RECIBO'
DataType = datInteger
DisplayLabel = 'Asientos_ID_RECIBO'
DictionaryEntry = 'Asientos_ID_RECIBO'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

120
Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas
View File

@ -3,20 +3,20 @@ unit schContabilidadClient_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_Diario = '{66712740-10D2-4473-B0A9-EFFD4AC0B07B}'; RID_Diario = '{D82D3AB7-DF24-495E-8364-FE35C84A5B98}';
RID_Apuntes = '{0A3E0101-E3E5-4E82-8AD0-D469CD1486C5}'; RID_Apuntes = '{DB1540B8-60CF-41C1-9583-9DB8B436C90C}';
RID_Asientos = '{1D02E039-AD52-4983-9209-380097067356}'; RID_Asientos = '{25DD3D96-A3B1-4D2E-906D-5426063FC28B}';
RID_SubCuentas = '{18A3B588-2C4C-404F-8D40-FF8E09A4F16A}'; RID_SubCuentas = '{84DF18AF-8F7D-4059-A27D-498675555921}';
RID_Cuentas = '{1DF0C5B8-1A7A-4077-A69B-81B3A1938CCC}'; RID_Cuentas = '{B4E99ED2-DEB9-4329-BAEB-7D68DEABB3BF}';
RID_CuentasEspeciales = '{09EE5C02-8563-4873-835A-9D6485039ACA}'; RID_CuentasEspeciales = '{EAE10E2C-BA4C-4EBD-A88B-1E7D7315A189}';
RID_Epigrafes = '{FC10535F-25FE-407E-9168-7D78FB9427A5}'; RID_Epigrafes = '{404E197C-5984-49EC-AE04-64D0E212112B}';
RID_Balances = '{7897556D-5310-4EA5-AA9C-1D4E88729372}'; RID_Balances = '{425C6D97-157D-4372-9312-FB797BDEADDF}';
{ Data table names } { Data table names }
nme_Diario = 'Diario'; nme_Diario = 'Diario';
@ -86,11 +86,15 @@ const
fld_AsientosID = 'ID'; fld_AsientosID = 'ID';
fld_AsientosFECHA_ASIENTO = 'FECHA_ASIENTO'; fld_AsientosFECHA_ASIENTO = 'FECHA_ASIENTO';
fld_AsientosORDEN = 'ORDEN'; fld_AsientosORDEN = 'ORDEN';
fld_AsientosID_FACTURA = 'ID_FACTURA';
fld_AsientosID_RECIBO = 'ID_RECIBO';
{ Asientos field indexes } { Asientos field indexes }
idx_AsientosID = 0; idx_AsientosID = 0;
idx_AsientosFECHA_ASIENTO = 1; idx_AsientosFECHA_ASIENTO = 1;
idx_AsientosORDEN = 2; idx_AsientosORDEN = 2;
idx_AsientosID_FACTURA = 3;
idx_AsientosID_RECIBO = 4;
{ SubCuentas fields } { SubCuentas fields }
fld_SubCuentasID = 'ID'; fld_SubCuentasID = 'ID';
@ -193,7 +197,7 @@ const
type type
{ IDiario } { IDiario }
IDiario = interface(IDAStronglyTypedDataTable) IDiario = interface(IDAStronglyTypedDataTable)
['{31F2AED8-604E-49BA-8323-9F0928E09AEB}'] ['{44E078C5-01C0-49EA-BC54-7D59EC624B99}']
{ Property getters and setters } { Property getters and setters }
function GetID_APUNTEValue: Integer; function GetID_APUNTEValue: Integer;
procedure SetID_APUNTEValue(const aValue: Integer); procedure SetID_APUNTEValue(const aValue: Integer);
@ -273,7 +277,7 @@ type
end; end;
{ TDiarioDataTableRules } { TDiarioDataTableRules }
TDiarioDataTableRules = class(TIntfObjectDADataTableRules, IDiario) TDiarioDataTableRules = class(TDADataTableRules, IDiario)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -360,7 +364,7 @@ type
{ IApuntes } { IApuntes }
IApuntes = interface(IDAStronglyTypedDataTable) IApuntes = interface(IDAStronglyTypedDataTable)
['{68BA9EE2-FAAF-4CFD-B30E-C9AA86DA65BF}'] ['{FA7E84FE-CFF8-43E4-8BCC-658C8AD5ED92}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -434,7 +438,7 @@ type
end; end;
{ TApuntesDataTableRules } { TApuntesDataTableRules }
TApuntesDataTableRules = class(TIntfObjectDADataTableRules, IApuntes) TApuntesDataTableRules = class(TDADataTableRules, IApuntes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -515,7 +519,7 @@ type
{ IAsientos } { IAsientos }
IAsientos = interface(IDAStronglyTypedDataTable) IAsientos = interface(IDAStronglyTypedDataTable)
['{E85CCB4A-1856-4479-9B50-1C9D82F466A4}'] ['{4EDC82EE-6AB5-419D-8A46-4EA93B9FCE62}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -529,6 +533,14 @@ type
procedure SetORDENValue(const aValue: Integer); procedure SetORDENValue(const aValue: Integer);
function GetORDENIsNull: Boolean; function GetORDENIsNull: Boolean;
procedure SetORDENIsNull(const aValue: Boolean); procedure SetORDENIsNull(const aValue: Boolean);
function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean;
procedure SetID_FACTURAIsNull(const aValue: Boolean);
function GetID_RECIBOValue: Integer;
procedure SetID_RECIBOValue(const aValue: Integer);
function GetID_RECIBOIsNull: Boolean;
procedure SetID_RECIBOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -538,10 +550,14 @@ type
property FECHA_ASIENTOIsNull: Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull; property FECHA_ASIENTOIsNull: Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull;
property ORDEN: Integer read GetORDENValue write SetORDENValue; property ORDEN: Integer read GetORDENValue write SetORDENValue;
property ORDENIsNull: Boolean read GetORDENIsNull write SetORDENIsNull; property ORDENIsNull: Boolean read GetORDENIsNull write SetORDENIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_RECIBO: Integer read GetID_RECIBOValue write SetID_RECIBOValue;
property ID_RECIBOIsNull: Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull;
end; end;
{ TAsientosDataTableRules } { TAsientosDataTableRules }
TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos) TAsientosDataTableRules = class(TDADataTableRules, IAsientos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -557,6 +573,14 @@ type
procedure SetORDENValue(const aValue: Integer); virtual; procedure SetORDENValue(const aValue: Integer); virtual;
function GetORDENIsNull: Boolean; virtual; function GetORDENIsNull: Boolean; virtual;
procedure SetORDENIsNull(const aValue: Boolean); virtual; procedure SetORDENIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_RECIBOValue: Integer; virtual;
procedure SetID_RECIBOValue(const aValue: Integer); virtual;
function GetID_RECIBOIsNull: Boolean; virtual;
procedure SetID_RECIBOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -565,6 +589,10 @@ type
property FECHA_ASIENTOIsNull: Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull; property FECHA_ASIENTOIsNull: Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull;
property ORDEN: Integer read GetORDENValue write SetORDENValue; property ORDEN: Integer read GetORDENValue write SetORDENValue;
property ORDENIsNull: Boolean read GetORDENIsNull write SetORDENIsNull; property ORDENIsNull: Boolean read GetORDENIsNull write SetORDENIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_RECIBO: Integer read GetID_RECIBOValue write SetID_RECIBOValue;
property ID_RECIBOIsNull: Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -574,7 +602,7 @@ type
{ ISubCuentas } { ISubCuentas }
ISubCuentas = interface(IDAStronglyTypedDataTable) ISubCuentas = interface(IDAStronglyTypedDataTable)
['{3E241AD4-8F16-4FCF-A2EB-B0587C349B69}'] ['{2DF97A58-3A87-493F-BE0E-3B3A9AD434D1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -648,7 +676,7 @@ type
end; end;
{ TSubCuentasDataTableRules } { TSubCuentasDataTableRules }
TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas) TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -729,7 +757,7 @@ type
{ ICuentas } { ICuentas }
ICuentas = interface(IDAStronglyTypedDataTable) ICuentas = interface(IDAStronglyTypedDataTable)
['{2F1AE932-7409-46F6-A20F-BF0F596BD647}'] ['{224540E1-2427-45A3-8AE8-098EF584CC48}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -797,7 +825,7 @@ type
end; end;
{ TCuentasDataTableRules } { TCuentasDataTableRules }
TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas) TCuentasDataTableRules = class(TDADataTableRules, ICuentas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -872,7 +900,7 @@ type
{ ICuentasEspeciales } { ICuentasEspeciales }
ICuentasEspeciales = interface(IDAStronglyTypedDataTable) ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
['{CD95E7CE-E25A-4EFA-ADBD-34E9DEBE509D}'] ['{6C618900-0005-4D0E-BCBD-D16CC6943D4D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -898,7 +926,7 @@ type
end; end;
{ TCuentasEspecialesDataTableRules } { TCuentasEspecialesDataTableRules }
TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales) TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -931,7 +959,7 @@ type
{ IEpigrafes } { IEpigrafes }
IEpigrafes = interface(IDAStronglyTypedDataTable) IEpigrafes = interface(IDAStronglyTypedDataTable)
['{537496C2-B8D8-4810-9052-7A634FF9D518}'] ['{8D2F3AA1-A5A0-4BD2-AE75-02A77E561AC0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -975,7 +1003,7 @@ type
end; end;
{ TEpigrafesDataTableRules } { TEpigrafesDataTableRules }
TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes) TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1026,7 +1054,7 @@ type
{ IBalances } { IBalances }
IBalances = interface(IDAStronglyTypedDataTable) IBalances = interface(IDAStronglyTypedDataTable)
['{EAA5385C-5E33-4860-AA47-1A750F557669}'] ['{1710F763-139F-4B4C-9AB8-565C7608CDC5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1088,7 +1116,7 @@ type
end; end;
{ TBalancesDataTableRules } { TBalancesDataTableRules }
TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances) TBalancesDataTableRules = class(TDADataTableRules, IBalances)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1740,6 +1768,48 @@ begin
DataTable.Fields[idx_AsientosORDEN].AsVariant := Null; DataTable.Fields[idx_AsientosORDEN].AsVariant := Null;
end; end;
function TAsientosDataTableRules.GetID_FACTURAValue: Integer;
begin
result := DataTable.Fields[idx_AsientosID_FACTURA].AsInteger;
end;
procedure TAsientosDataTableRules.SetID_FACTURAValue(const aValue: Integer);
begin
DataTable.Fields[idx_AsientosID_FACTURA].AsInteger := aValue;
end;
function TAsientosDataTableRules.GetID_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_AsientosID_FACTURA].IsNull;
end;
procedure TAsientosDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AsientosID_FACTURA].AsVariant := Null;
end;
function TAsientosDataTableRules.GetID_RECIBOValue: Integer;
begin
result := DataTable.Fields[idx_AsientosID_RECIBO].AsInteger;
end;
procedure TAsientosDataTableRules.SetID_RECIBOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AsientosID_RECIBO].AsInteger := aValue;
end;
function TAsientosDataTableRules.GetID_RECIBOIsNull: boolean;
begin
result := DataTable.Fields[idx_AsientosID_RECIBO].IsNull;
end;
procedure TAsientosDataTableRules.SetID_RECIBOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AsientosID_RECIBO].AsVariant := Null;
end;
{ TSubCuentasDataTableRules } { TSubCuentasDataTableRules }
constructor TSubCuentasDataTableRules.Create(aDataTable: TDADataTable); constructor TSubCuentasDataTableRules.Create(aDataTable: TDADataTable);

118
Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas
View File

@ -9,19 +9,19 @@ 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_DiarioDelta = '{E378FEF4-3D61-494F-8DA1-C1B5D1AEA218}'; RID_DiarioDelta = '{A2BD28BD-6104-4050-A980-42D308B729CC}';
RID_ApuntesDelta = '{A3928C23-C317-44BA-9D86-2246C6A0C67E}'; RID_ApuntesDelta = '{77CF8AFF-894E-4CCC-B12B-694EB64A63B5}';
RID_AsientosDelta = '{BCC4A7C1-B43B-48DD-882B-1D481E0F7E53}'; RID_AsientosDelta = '{FBC0DED1-4573-4276-A430-60AD20D7CA81}';
RID_SubCuentasDelta = '{C0A6D73D-4D31-409B-B279-F5746A696C17}'; RID_SubCuentasDelta = '{E8522236-BC04-4A7A-8268-C4BB4CF8C186}';
RID_CuentasDelta = '{CC8F052F-E8A4-4895-A2D3-BC9197C44621}'; RID_CuentasDelta = '{02901439-401B-4A39-BC7F-9AA5D0AA3BB1}';
RID_CuentasEspecialesDelta = '{B6130FAB-FA0F-4CD3-9359-0868A0B185AA}'; RID_CuentasEspecialesDelta = '{60CA3AD9-10E2-4A89-B84E-413E469CA851}';
RID_EpigrafesDelta = '{8980017F-915A-44BC-A43E-EB6810173932}'; RID_EpigrafesDelta = '{32161D74-2F7A-4BD5-8B4B-C2D8BB0B8B4B}';
RID_BalancesDelta = '{A9862597-2EFE-45B7-8584-03FC75228C0C}'; RID_BalancesDelta = '{430B2E47-5249-4A6F-9FE2-5307953BEB95}';
type type
{ IDiarioDelta } { IDiarioDelta }
IDiarioDelta = interface(IDiario) IDiarioDelta = interface(IDiario)
['{E378FEF4-3D61-494F-8DA1-C1B5D1AEA218}'] ['{A2BD28BD-6104-4050-A980-42D308B729CC}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_APUNTEValue : Integer; function GetOldID_APUNTEValue : Integer;
function GetOldID_ASIENTOValue : Integer; function GetOldID_ASIENTOValue : Integer;
@ -187,7 +187,7 @@ type
{ IApuntesDelta } { IApuntesDelta }
IApuntesDelta = interface(IApuntes) IApuntesDelta = interface(IApuntes)
['{A3928C23-C317-44BA-9D86-2246C6A0C67E}'] ['{77CF8AFF-894E-4CCC-B12B-694EB64A63B5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ASIENTOValue : Integer; function GetOldID_ASIENTOValue : Integer;
@ -341,16 +341,20 @@ type
{ IAsientosDelta } { IAsientosDelta }
IAsientosDelta = interface(IAsientos) IAsientosDelta = interface(IAsientos)
['{BCC4A7C1-B43B-48DD-882B-1D481E0F7E53}'] ['{FBC0DED1-4573-4276-A430-60AD20D7CA81}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldFECHA_ASIENTOValue : DateTime; function GetOldFECHA_ASIENTOValue : DateTime;
function GetOldORDENValue : Integer; function GetOldORDENValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldID_RECIBOValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
property OldORDEN : Integer read GetOldORDENValue; property OldORDEN : Integer read GetOldORDENValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_RECIBO : Integer read GetOldID_RECIBOValue;
end; end;
{ TAsientosBusinessProcessorRules } { TAsientosBusinessProcessorRules }
@ -376,6 +380,18 @@ type
function GetOldORDENIsNull: Boolean; virtual; function GetOldORDENIsNull: Boolean; virtual;
procedure SetORDENValue(const aValue: Integer); virtual; procedure SetORDENValue(const aValue: Integer); virtual;
procedure SetORDENIsNull(const aValue: Boolean); virtual; procedure SetORDENIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_RECIBOValue: Integer; virtual;
function GetID_RECIBOIsNull: Boolean; virtual;
function GetOldID_RECIBOValue: Integer; virtual;
function GetOldID_RECIBOIsNull: Boolean; virtual;
procedure SetID_RECIBOValue(const aValue: Integer); virtual;
procedure SetID_RECIBOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -390,6 +406,14 @@ type
property ORDENIsNull : Boolean read GetORDENIsNull write SetORDENIsNull; property ORDENIsNull : Boolean read GetORDENIsNull write SetORDENIsNull;
property OldORDEN : Integer read GetOldORDENValue; property OldORDEN : Integer read GetOldORDENValue;
property OldORDENIsNull : Boolean read GetOldORDENIsNull; property OldORDENIsNull : Boolean read GetOldORDENIsNull;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
property ID_RECIBO : Integer read GetID_RECIBOValue write SetID_RECIBOValue;
property ID_RECIBOIsNull : Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull;
property OldID_RECIBO : Integer read GetOldID_RECIBOValue;
property OldID_RECIBOIsNull : Boolean read GetOldID_RECIBOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -399,7 +423,7 @@ type
{ ISubCuentasDelta } { ISubCuentasDelta }
ISubCuentasDelta = interface(ISubCuentas) ISubCuentasDelta = interface(ISubCuentas)
['{C0A6D73D-4D31-409B-B279-F5746A696C17}'] ['{E8522236-BC04-4A7A-8268-C4BB4CF8C186}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
@ -553,7 +577,7 @@ type
{ ICuentasDelta } { ICuentasDelta }
ICuentasDelta = interface(ICuentas) ICuentasDelta = interface(ICuentas)
['{CC8F052F-E8A4-4895-A2D3-BC9197C44621}'] ['{02901439-401B-4A39-BC7F-9AA5D0AA3BB1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_CUENTAValue : String; function GetOldREF_CUENTAValue : String;
@ -695,7 +719,7 @@ type
{ ICuentasEspecialesDelta } { ICuentasEspecialesDelta }
ICuentasEspecialesDelta = interface(ICuentasEspeciales) ICuentasEspecialesDelta = interface(ICuentasEspeciales)
['{B6130FAB-FA0F-4CD3-9359-0868A0B185AA}'] ['{60CA3AD9-10E2-4A89-B84E-413E469CA851}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -753,7 +777,7 @@ type
{ IEpigrafesDelta } { IEpigrafesDelta }
IEpigrafesDelta = interface(IEpigrafes) IEpigrafesDelta = interface(IEpigrafes)
['{8980017F-915A-44BC-A43E-EB6810173932}'] ['{32161D74-2F7A-4BD5-8B4B-C2D8BB0B8B4B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_EPIGRAFEValue : String; function GetOldREF_EPIGRAFEValue : String;
@ -847,7 +871,7 @@ type
{ IBalancesDelta } { IBalancesDelta }
IBalancesDelta = interface(IBalances) IBalancesDelta = interface(IBalances)
['{A9862597-2EFE-45B7-8584-03FC75228C0C}'] ['{430B2E47-5249-4A6F-9FE2-5307953BEB95}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_BALANCEValue : String; function GetOldREF_BALANCEValue : String;
@ -1821,6 +1845,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN] := Null;
end; end;
function TAsientosBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA];
end;
function TAsientosBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA]);
end;
function TAsientosBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_FACTURA];
end;
function TAsientosBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_FACTURA]);
end;
procedure TAsientosBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA] := aValue;
end;
procedure TAsientosBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA] := Null;
end;
function TAsientosBusinessProcessorRules.GetID_RECIBOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO];
end;
function TAsientosBusinessProcessorRules.GetID_RECIBOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO]);
end;
function TAsientosBusinessProcessorRules.GetOldID_RECIBOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_RECIBO];
end;
function TAsientosBusinessProcessorRules.GetOldID_RECIBOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_RECIBO]);
end;
procedure TAsientosBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO] := aValue;
end;
procedure TAsientosBusinessProcessorRules.SetID_RECIBOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO] := Null;
end;
{ TSubCuentasBusinessProcessorRules } { TSubCuentasBusinessProcessorRules }
constructor TSubCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TSubCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

26
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
View File

@ -321,6 +321,14 @@ object srvContabilidad: TsrvContabilidad
item item
Name = 'Cuentas_ID_EMPRESA' Name = 'Cuentas_ID_EMPRESA'
DataType = datInteger DataType = datInteger
end
item
Name = 'Asientos_ID_FACTURA'
DataType = datInteger
end
item
Name = 'Asientos_ID_RECIBO'
DataType = datInteger
end> end>
Left = 150 Left = 150
Top = 24 Top = 24
@ -596,6 +604,14 @@ object srvContabilidad: TsrvContabilidad
item item
DatasetField = 'ORDEN' DatasetField = 'ORDEN'
TableField = 'ORDEN' TableField = 'ORDEN'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'ID_RECIBO'
TableField = 'ID_RECIBO'
end> end>
end> end>
Name = 'Asientos' Name = 'Asientos'
@ -616,6 +632,16 @@ object srvContabilidad: TsrvContabilidad
Name = 'ORDEN' Name = 'ORDEN'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'Asientos_ORDEN' DictionaryEntry = 'Asientos_ORDEN'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'Asientos_ID_FACTURA'
end
item
Name = 'ID_RECIBO'
DataType = datInteger
DictionaryEntry = 'Asientos_ID_RECIBO'
end> end>
end end
item item

6
Source/Modulos/Contabilidad/Views/uViewDiario.dfm
View File

@ -64,6 +64,9 @@ inherited frViewDiario: TfrViewDiario
DataBinding.FieldName = 'HABER' DataBinding.FieldName = 'HABER'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
end end
object cxGridViewID_FACTURA: TcxGridDBColumn
DataBinding.FieldName = 'ID_FACTURA'
end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
@ -84,6 +87,9 @@ inherited frViewDiario: TfrViewDiario
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 554
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.842406053240000000 ReportDocument.CreationDate = 38673.842406053240000000

1
Source/Modulos/Contabilidad/Views/uViewDiario.pas
View File

@ -35,6 +35,7 @@ type
cxGridViewFECHA_ASIENTO: TcxGridDBColumn; cxGridViewFECHA_ASIENTO: TcxGridDBColumn;
cxGridViewORDEN: TcxGridDBColumn; cxGridViewORDEN: TcxGridDBColumn;
cxGridViewID_APUNTE: TcxGridDBColumn; cxGridViewID_APUNTE: TcxGridDBColumn;
cxGridViewID_FACTURA: TcxGridDBColumn;
procedure cxGridViewID_AsientoCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; procedure cxGridViewID_AsientoCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
protected protected

16
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -69,7 +69,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Situaci'#195#179'n' DisplayLabel = 'Situaci'#243'n'
DictionaryEntry = 'FacturasCliente_SITUACION' DictionaryEntry = 'FacturasCliente_SITUACION'
end end
item item
@ -155,14 +155,14 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 150 Size = 150
DisplayLabel = 'Direcci'#195#179'n' DisplayLabel = 'Direcci'#243'n'
DictionaryEntry = 'FacturasCliente_CALLE' DictionaryEntry = 'FacturasCliente_CALLE'
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 150 Size = 150
DisplayLabel = 'Poblaci'#195#179'n' DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'FacturasCliente_POBLACION' DictionaryEntry = 'FacturasCliente_POBLACION'
end end
item item
@ -176,7 +176,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
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 = 'FacturasCliente_CODIGO_POSTAL' DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
end end
item item
@ -204,7 +204,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item item
Name = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = #194#191'Con R.E.?' DisplayLabel = #191'Con R.E.?'
DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA' DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
end end
item item
@ -236,6 +236,12 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION' DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION'
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt
DisplayLabel = 'FacturasCliente_IGNORAR_CONTABILIDAD'
DictionaryEntry = 'FacturasCliente_IGNORAR_CONTABILIDAD'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

55
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schFacturasClienteClient_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 = '{CC46C1A7-C6CE-4ABE-B1A8-4C2BABFB5C93}'; RID_DarReferencia = '{BFD0BE4F-A013-4368-AAB1-D78832815453}';
RID_FacturasCliente = '{51E6C07A-D580-46D7-9032-1838AF4D4B07}'; RID_FacturasCliente = '{F251FC90-F8DB-4542-BB27-1D9D1C38B5C2}';
RID_FacturasCliente_Detalles = '{8A70D0F2-F09E-4166-A792-00012AA7C35A}'; RID_FacturasCliente_Detalles = '{21F1B1B1-A23D-4DE8-A7A9-91B042AA33C4}';
{ Data table names } { Data table names }
nme_DarReferencia = 'DarReferencia'; nme_DarReferencia = 'DarReferencia';
@ -58,6 +58,7 @@ const
fld_FacturasClienteIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_FacturasClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasClienteID_AGENTE = 'ID_AGENTE'; fld_FacturasClienteID_AGENTE = 'ID_AGENTE';
fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION'; fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
fld_FacturasClienteIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
{ FacturasCliente field indexes } { FacturasCliente field indexes }
idx_FacturasClienteID = 0; idx_FacturasClienteID = 0;
@ -93,6 +94,7 @@ const
idx_FacturasClienteIMPORTE_PORTE = 30; idx_FacturasClienteIMPORTE_PORTE = 30;
idx_FacturasClienteID_AGENTE = 31; idx_FacturasClienteID_AGENTE = 31;
idx_FacturasClienteREFERENCIA_COMISION = 32; idx_FacturasClienteREFERENCIA_COMISION = 32;
idx_FacturasClienteIGNORAR_CONTABILIDAD = 33;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -129,7 +131,7 @@ const
type type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{3338E715-B18C-4550-BE4C-C92B071770B4}'] ['{2F985A85-CE21-459E-9476-83CB04A2F9AC}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -143,7 +145,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 }
@ -164,7 +166,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{0ACBE344-A040-4AD4-8037-DA9382B4D9CF}'] ['{153F474D-B1D3-4EC7-A4AE-B83884F61A16}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -297,6 +299,10 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String); procedure SetREFERENCIA_COMISIONValue(const aValue: String);
function GetREFERENCIA_COMISIONIsNull: Boolean; function GetREFERENCIA_COMISIONIsNull: Boolean;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
function GetIGNORAR_CONTABILIDADValue: SmallInt;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
function GetIGNORAR_CONTABILIDADIsNull: Boolean;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -366,10 +372,12 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente) TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -506,6 +514,10 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual; function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -574,6 +586,8 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -583,7 +597,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{E62E97AD-C08F-4BB6-A6EF-21BF966630A0}'] ['{CC81CA29-10BA-4644-B6C0-86EB1BB27BBD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -675,7 +689,7 @@ type
end; end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles) TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1520,6 +1534,27 @@ begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null; DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetIGNORAR_CONTABILIDADValue: SmallInt;
begin
result := DataTable.Fields[idx_FacturasClienteIGNORAR_CONTABILIDAD].AsSmallInt;
end;
procedure TFacturasClienteDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_FacturasClienteIGNORAR_CONTABILIDAD].AsSmallInt := aValue;
end;
function TFacturasClienteDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteIGNORAR_CONTABILIDAD].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteIGNORAR_CONTABILIDAD].AsVariant := Null;
end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

55
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ 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 = '{E8B8EB94-54CB-49B3-879C-1CF0319BCBBD}'; RID_DarReferenciaDelta = '{96BD45A4-7433-4AE5-B411-7B16AB88936D}';
RID_FacturasClienteDelta = '{EC7543D0-B0B5-48F9-9401-DEEE0D0BEFF2}'; RID_FacturasClienteDelta = '{4EBF93DA-5847-45E1-960B-069B5239374F}';
RID_FacturasCliente_DetallesDelta = '{A1C5C789-FF93-491C-82C6-A49EF37F27A3}'; RID_FacturasCliente_DetallesDelta = '{1CB4A035-683D-412C-A365-6CF3A4E86ACD}';
type type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{E8B8EB94-54CB-49B3-879C-1CF0319BCBBD}'] ['{96BD45A4-7433-4AE5-B411-7B16AB88936D}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{EC7543D0-B0B5-48F9-9401-DEEE0D0BEFF2}'] ['{4EBF93DA-5847-45E1-960B-069B5239374F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -85,6 +85,7 @@ type
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
function GetOldREFERENCIA_COMISIONValue : String; function GetOldREFERENCIA_COMISIONValue : String;
function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -120,6 +121,7 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
end; end;
{ TFacturasClienteBusinessProcessorRules } { TFacturasClienteBusinessProcessorRules }
@ -326,6 +328,12 @@ type
function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual; function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
function GetOldIGNORAR_CONTABILIDADValue: SmallInt; virtual;
function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -460,6 +468,10 @@ type
property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull; property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull;
property IGNORAR_CONTABILIDAD : SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -469,7 +481,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{A1C5C789-FF93-491C-82C6-A49EF37F27A3}'] ['{1CB4A035-683D-412C-A365-6CF3A4E86ACD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1747,6 +1759,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIGNORAR_CONTABILIDAD];
end;
function TFacturasClienteBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIGNORAR_CONTABILIDAD]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIGNORAR_CONTABILIDAD];
end;
function TFacturasClienteBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIGNORAR_CONTABILIDAD]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIGNORAR_CONTABILIDAD] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIGNORAR_CONTABILIDAD] := Null;
end;
{ TFacturasCliente_DetallesBusinessProcessorRules } { TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

1
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -256,6 +256,7 @@ begin
IVA := AppFactuGES.EmpresaActiva.IVA; IVA := AppFactuGES.EmpresaActiva.IVA;
RE := 0; RE := 0;
SITUACION := CTE_PENDIENTE; SITUACION := CTE_PENDIENTE;
IGNORAR_CONTABILIDAD := 0;
end; end;
procedure TBizFacturaCliente.IVAOnChange(Sender: TDACustomField); procedure TBizFacturaCliente.IVAOnChange(Sender: TDACustomField);

96
Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
View File

@ -16,7 +16,12 @@ const
type type
TBizFacturasClienteServer = class(TFacturasClienteBusinessProcessorRules) TBizFacturasClienteServer = class(TFacturasClienteBusinessProcessorRules)
protected protected
procedure Insert_Asiento_Factura(aChange: TDADeltaChange); virtual;
procedure Update_Asiento_Factura(aChange: TDADeltaChange); virtual;
procedure Delete_Asiento_Factura(aChange: TDADeltaChange); virtual;
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override; procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
end; end;
implementation implementation
@ -27,6 +32,27 @@ uses
{ TBizFacturasClienteServer } { TBizFacturasClienteServer }
procedure TBizFacturasClienteServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean);
begin
case aChange.ChangeType of
ctInsert: begin
Insert_Asiento_Factura(aChange);
end;
ctUpdate: begin
Update_Asiento_Factura(aChange);
end;
ctDelete: begin
Delete_Asiento_Factura(aChange);
end;
end;
// No hay que quitar los deltas para que los datos del contacto se
// mantengan por si alguna tabla detalle lo necesita
// (por ejemplo, DireccionesContacto)
CanRemoveFromDelta := False;
end;
procedure TBizFacturasClienteServer.BeforeProcessDelta( procedure TBizFacturasClienteServer.BeforeProcessDelta(
Sender: TDABusinessProcessor; const aDelta: IDADelta); Sender: TDABusinessProcessor; const aDelta: IDADelta);
var var
@ -40,13 +66,14 @@ begin
inherited; inherited;
case Sender.CurrentChange.ChangeType of case Sender.CurrentChange.ChangeType of
ctInsert, ctUpdate: begin ctInsert, ctUpdate: begin
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
//Si la referencia no ha sido asignada le asignamos una nosotros //Si la referencia no ha sido asignada le asignamos una nosotros
if (VarIsNull(Sender.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA])) if (VarIsNull(Sender.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA]))
or (VarToStr(Sender.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA]) = '') then or (VarToStr(Sender.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA]) = '') then
begin begin
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
try try
//Siempre va a estar rellena //Siempre va a estar rellena
Empresa := Sender.CurrentChange.NewValueByName[fld_FacturasClienteID_EMPRESA]; Empresa := Sender.CurrentChange.NewValueByName[fld_FacturasClienteID_EMPRESA];
@ -82,6 +109,69 @@ begin
end; end;
end; end;
procedure TBizFacturasClienteServer.Delete_Asiento_Factura(aChange: TDADeltaChange);
var
ASchema : TDASchema;
ACurrentConn : IDAConnection;
ACommand : IDASQLCommand;
begin
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_AsientoFactura');
try
with ACommand do
begin
ParamByName('IdFactura').Value := aChange.OldValueByName[fld_FacturasClienteID];
Execute;
end;
finally
ACommand := NIL;
end;
end;
procedure TBizFacturasClienteServer.Insert_Asiento_Factura(aChange: TDADeltaChange);
var
ASchema : TDASchema;
ACurrentConn : IDAConnection;
ACommand : IDASQLCommand;
begin
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_AsientoFactura');
try
with ACommand do
begin
ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasClienteID];
Execute;
end;
finally
ACommand := NIL;
end;
end;
procedure TBizFacturasClienteServer.Update_Asiento_Factura(aChange: TDADeltaChange);
var
ASchema : TDASchema;
ACurrentConn : IDAConnection;
ACommand : IDASQLCommand;
begin
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_AsientoFactura');
try
with ACommand do
begin
ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasClienteID];
Execute;
end;
finally
ACommand := NIL;
end;
end;
initialization initialization
RegisterBusinessProcessorRules(BIZ_SERVER_FACTURAS_CLIENTE, TBizFacturasClienteServer); RegisterBusinessProcessorRules(BIZ_SERVER_FACTURAS_CLIENTE, TBizFacturasClienteServer);

206
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -190,6 +190,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'REFERENCIA_COMISION' DatasetField = 'REFERENCIA_COMISION'
TableField = 'REFERENCIA_COMISION' TableField = 'REFERENCIA_COMISION'
end
item
DatasetField = 'IGNORAR_CONTABILIDAD'
TableField = 'IGNORAR_CONTABILIDAD'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -372,6 +376,11 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION' DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION'
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt
DictionaryEntry = 'FacturasCliente_IGNORAR_CONTABILIDAD'
end> end>
end end
item item
@ -534,6 +543,42 @@ object srvFacturasCliente: TsrvFacturasCliente
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
Commands = < Commands = <
item
Params = <
item
Name = 'IdFactura'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL = 'execute procedure proc_delete_asiento_factura :IdFactura'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_AsientoFactura'
end
item
Params = <
item
Name = 'IdFactura'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL = 'execute procedure proc_new_asiento_factura :IdFactura'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_AsientoFactura'
end
item item
Params = < Params = <
item item
@ -793,173 +838,115 @@ object srvFacturasCliente: TsrvFacturasCliente
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
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 = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime
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 = '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 = '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 = 'RE' Name = 'RE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_RE' Name = 'IMPORTE_RE'
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 = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString
Size = 255
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 = '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 = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 20
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 = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
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
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -974,15 +961,16 @@ object srvFacturasCliente: TsrvFacturasCliente
'NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' ' + 'NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' ' +
' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USU' + ' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USU' +
'ARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_I' + 'ARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_I' +
'VA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE)'#10' VALUES ('#10' :ID,'#10' ' + 'VA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDA' +
' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :BASE_IMP' + 'D)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FE' +
'ONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :I' + 'CHA_FACTURA,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_D' +
'MPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :O' + 'ESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10 +
'BSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :C' + ' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NI' +
'ALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :F' + 'F_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10 +
'ECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_' + ' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' ' +
'PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_' + ' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :' +
'NETO,'#10' :IMPORTE_PORTE);' 'ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IGNORAR' +
'_CONTABILIDAD);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -992,179 +980,119 @@ object srvFacturasCliente: TsrvFacturasCliente
Params = < Params = <
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
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 = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime
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 = '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 = '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 = 'RE' Name = 'RE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_RE' Name = 'IMPORTE_RE'
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 = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString
Size = 255
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 = '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 = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 20
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 = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
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
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -1184,8 +1112,8 @@ object srvFacturasCliente: TsrvFacturasCliente
' = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAG' + ' = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAG' +
'O = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALE' + 'O = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALE' +
'NCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORT' + 'NCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORT' +
'E_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_' + 'E_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABIL' +
'ID);' 'IDAD = :IGNORAR_CONTABILIDAD'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1537,6 +1465,10 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR' Name = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'FacturasCliente_IGNORAR_CONTABILIDAD'
DataType = datSmallInt
end> end>
Left = 150 Left = 150
Top = 22 Top = 22

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

@ -71,6 +71,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 788 Width = 788
Height = 317 Height = 317
ActivePage = pagContenido
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 788 ExplicitWidth = 788
ExplicitHeight = 317 ExplicitHeight = 317
@ -212,40 +213,40 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 57 ExplicitWidth = 57
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 202 Left = 217
ExplicitLeft = 202 ExplicitLeft = 217
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 219 Left = 234
ExplicitLeft = 219 ExplicitLeft = 234
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 227 Left = 242
ExplicitLeft = 227 ExplicitLeft = 242
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 261 Left = 276
ExplicitLeft = 261 ExplicitLeft = 276
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 295 Left = 310
ExplicitLeft = 295 ExplicitLeft = 310
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 329 Left = 344
ExplicitLeft = 329 ExplicitLeft = 344
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 337 Left = 352
ExplicitLeft = 337 ExplicitLeft = 352
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 371 Left = 386
ExplicitLeft = 371 ExplicitLeft = 386
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 405 Left = 420
ExplicitLeft = 405 ExplicitLeft = 420
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
@ -263,6 +264,33 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
end end
object pagContabilidad: TTabSheet
Caption = 'Contabilidad'
ImageIndex = 2
object cbIgnorarContabilidad: TcxDBCheckBox
Left = 16
Top = 12
Caption = 'Ignorar en contabilidad'
DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
DataBinding.DataSource = dsDataTable
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 300
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 556 Top = 556

24
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -16,7 +16,8 @@ uses
uIEditorFacturaCliente, uFacturasClienteController, uViewDetallesBase, uIEditorFacturaCliente, uFacturasClienteController, uViewDetallesBase,
uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces, uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids; cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids,
cxCheckBox;
type type
@ -24,6 +25,8 @@ type
frViewFacturaCliente1: TfrViewFacturaCliente; frViewFacturaCliente1: TfrViewFacturaCliente;
frViewTotales1: TfrViewTotales; frViewTotales1: TfrViewTotales;
frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente; frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente;
pagContabilidad: TTabSheet;
cbIgnorarContabilidad: TcxDBCheckBox;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure frViewClienteFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject); procedure frViewClienteFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
@ -176,10 +179,17 @@ procedure TfEditorFacturaCliente.frViewTotales1cbRecargoEquivalenciaPropertiesEd
Sender: TObject); Sender: TObject);
begin begin
inherited; inherited;
if frViewTotales1.cbRecargoEquivalencia.Checked then
Factura.RECARGO_EQUIVALENCIA := 1 if assigned(Factura) then
else begin
Factura.RECARGO_EQUIVALENCIA := 0; if not Factura.datatable.Editing then
Factura.datatable.Edit;
if frViewTotales1.cbRecargoEquivalencia.Checked then
Factura.RECARGO_EQUIVALENCIA := 1
else
Factura.RECARGO_EQUIVALENCIA := 0;
end;
end; end;
procedure TfEditorFacturaCliente.frViewTotales1edtDescuentoPropertiesValidate( procedure TfEditorFacturaCliente.frViewTotales1edtDescuentoPropertiesValidate(
@ -196,7 +206,7 @@ procedure TfEditorFacturaCliente.frViewTotales1eIVAPropertiesValidate(
begin begin
inherited; inherited;
Factura.Edit; Factura.Edit;
Factura.ID_TIPO_IVA := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).ID; Factura.ID_TIPO_IVA := FTiposIVA.ID; // ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).ID;
end; end;
procedure TfEditorFacturaCliente.frViewTotales1ePorteEditing(Sender: TObject; procedure TfEditorFacturaCliente.frViewTotales1ePorteEditing(Sender: TObject;
@ -391,7 +401,7 @@ begin
if Assigned(FFactura) then if Assigned(FFactura) then
begin begin
dsDataTable.DataTable := FFactura.DataTable; dsDataTable.DataTable := FFactura.DataTable;
// frViewTotales1.DADataSource.DataTable := FFactura.DataTable; frViewTotales1.DADataSource.DataTable := FFactura.DataTable;
FTiposIVA := FTiposIVAController.BuscarTodos; FTiposIVA := FTiposIVAController.BuscarTodos;
frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable; frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable;

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -56,8 +56,6 @@ uses
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente}, uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente},
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService}, srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService},
@ -99,10 +97,12 @@ uses
schEjerciciosServer_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas', schEjerciciosServer_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas',
schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas', schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas',
srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService}, srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService},
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

8
Source/Servidor/FactuGES_Server.dproj
View File

@ -30,6 +30,14 @@
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>