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

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@93 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Browse Source
This commit is contained in:
David Arranz 2007-11-14 19:41:42 +00:00
parent 39c80bc4df
commit 8967f1fd79
85 changed files with 3786 additions and 2822 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.pas
View File

@ -52,8 +52,7 @@ begin
begin
Clear;
// (ID = :ID)
Expression := NewBinaryExpression(NewField('', fld_EmpresasID),
NewConstant(ID, datInteger), dboEqual);
Expression := NewBinaryExpression(NewField('', fld_EmpresasID), NewConstant(ID, datInteger), dboEqual);
end;
finally
HideHourglassCursor;

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\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -72,57 +65,57 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\adortl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxDataD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxEditorsD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxExportD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxExtEditorsD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxGridD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntl5D10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxLibraryD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxPageControlD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dbrtl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dclIndyCore.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\designide.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dsnap.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dxPSCoreD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dxThemeD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyCore.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyProtocols.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndySystem.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\Jcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JclVcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JSDialog100.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCmpD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvDlgsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvMMD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvNetD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckMD5.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUCDataConnector.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUserControl_RT.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\PNG_D10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\rtl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\TB2k_D10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\tbx_d10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vclactnband.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcldb.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcljpg.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\VclSmp.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vclx.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\xmlrtl.dcp" />
<DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxDataD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExportD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxGridD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxIntl5D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD10.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\dxPSCoreD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11.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\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="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/GUIBase/GUIBase.drc
View File

@ -35,4 +35,4 @@ END
/* C:\Codigo Tecsitel\Source\GUIBase\uDialogBase.dfm */
/* C:\Codigo Tecsitel\Source\GUIBase\uViewGrid.dfm */
/* C:\Codigo Tecsitel\Source\GUIBase\GUIBase.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf17B.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf92.tmp */

2
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.drf */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE6.tmp */

22
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res
View File

Binary file not shown.

99
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -188,52 +188,48 @@ begin
end;
function TAlbaranesClienteController.BuscarAlbaranesDevolucion: IBizAlbaranCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.DynamicWhere do
begin
// (ID = :ID)
Expression := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL),
NewConstant(0, datCurrency), dboLess);
// (IMPORTE_TOTAL < 0)
Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL), NewConstant(0, datCurrency), dboLess);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
{
with Result.DataTable.Where do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddCondition(fld_AlbaranesClienteIMPORTE_TOTAL, cLess, 0);
CloseBraket;
end;
}
finally
HideHourglassCursor;
end;
end;
function TAlbaranesClienteController.BuscarAlbaranesNormales: IBizAlbaranCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.DynamicWhere do
begin
// (ID = :ID)
Expression := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL),
NewConstant(0, datCurrency), dboGreaterOrEqual);
// (IMPORTE_TOTAL >= 0)
Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL), NewConstant(0, datCurrency), dboGreaterOrEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
{ with Result.DataTable.Where do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddCondition(fld_AlbaranesClienteIMPORTE_TOTAL, cMajorOrEqual, 0);
CloseBraket;
end;
}
finally
HideHourglassCursor;
end;
@ -246,36 +242,48 @@ begin
end;
function TAlbaranesClienteController.BuscarPendientes: IBizAlbaranCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarAlbaranesNormales;
with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText(fld_AlbaranesClienteSITUACION + ' = ''' + SITUACION_ALBARAN_SERVIDO + '''');
CloseBraket;
// (SITUACION = SERVIDO)
Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteSITUACION), NewConstant(SITUACION_ALBARAN_SERVIDO, datString), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
end;
function TAlbaranesClienteController.BuscarSinFacturar: IBizAlbaranCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarAlbaranesNormales;
with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText(fld_AlbaranesClienteID_FACTURA + ' is null');
CloseBraket;
// (ID_FACTURA = NULL)
Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteID_FACTURA), NewNull(), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
@ -824,21 +832,20 @@ begin
Result := ASeleccionados;
end;
procedure TAlbaranesClienteController.FiltrarEmpresa(
AAlbaran: IBizAlbaranCliente);
procedure TAlbaranesClienteController.FiltrarEmpresa(AAlbaran: IBizAlbaranCliente);
begin
if AAlbaran.DataTable.Active then
AAlbaran.DataTable.Active := False;
{
// Filtrar los presupuestos actuales por empresa
with AAlbaran.DataTable.Where do
// Filtrar los albaranes actuales por empresa
{ with AContacto.DataTable.DynamicWhere do
begin
if NotEmpty then
AddOperator(opAND);
AddCondition(fld_AlbaranesClienteID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
Clear;
// (ID = :ID)
Expression := NewBinaryExpression(NewField('', fld_AlbaranesClienteID_EMPRESA),
NewConstant(dmUsuarios.IDEmpresaActual, datInteger), dboEqual);
end;
}
}
end;
procedure TAlbaranesClienteController.SetClienteController(const Value: IClientesController);

2
Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1CD.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE4.tmp */

13
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -30,6 +30,7 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_ID'
Required = True
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_ID'
InPrimaryKey = True
@ -283,14 +284,14 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'AlbaranesCliente'
IndexDefs = <>
Left = 208
Top = 104
Left = 232
Top = 128
end
object ds_AlbaranesCliente: TDADataSource
DataSet = tbl_AlbaranesCliente.Dataset
DataTable = tbl_AlbaranesCliente
Left = 208
Top = 40
Left = 232
Top = 56
end
object tbl_AlbaranesCliente_Detalles: TDAMemDataTable
RemoteUpdatesOptions = []
@ -392,12 +393,12 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
LogicalName = 'AlbaranesCliente_Detalles'
IndexDefs = <>
Left = 384
Top = 104
Top = 128
end
object ds_AlbaranesCliente_Detalles: TDADataSource
DataSet = tbl_AlbaranesCliente_Detalles.Dataset
DataTable = tbl_AlbaranesCliente_Detalles
Left = 384
Top = 40
Top = 56
end
end

23
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
View File

@ -93,20 +93,24 @@ begin
end;
function TDataModuleAlbaranesCliente.GetItem(const ID: Integer): IBizAlbaranCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
//REVISAR
{ with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText(fld_AlbaranesClienteID + ' = ' + IntToStr(ID));
CloseBraket;
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
}
finally
HideHourglassCursor;
end;
@ -119,12 +123,11 @@ begin
ShowHourglassCursor;
try
AAlbaran := CloneDataTable(tbl_AlbaranesCliente);
AsignarClaseNegocio(AAlbaran);
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
AAlbaran.FieldByName(fld_AlbaranesClienteREFERENCIA).ServerAutoRefresh := TRUE;
AsignarClaseNegocio(AAlbaran);
with TBizAlbaranCliente(AAlbaran.BusinessEventsObj) do
begin
Detalles := _GetDetalles;

2
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1CB.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE2.tmp */

12
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ 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_DarReferencia = '{3064CE78-1DEF-447D-92EC-05ACE1C82546}';
RID_AlbaranesCliente = '{47ACC563-2892-497C-A352-219214A5B5D7}';
RID_AlbaranesCliente_Detalles = '{A3936C03-05C3-4AF0-885C-E9490860F5E9}';
RID_DarReferencia = '{A693E269-BAF7-46A1-84E5-DBC746856BE3}';
RID_AlbaranesCliente = '{1D19F302-9D09-4E86-9602-98B88C9FF5E7}';
RID_AlbaranesCliente_Detalles = '{DFBF54C4-E8F9-47BA-9920-89709FB21148}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@ -141,7 +141,7 @@ const
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{877284B1-53EC-46E3-AAE3-B3153676982A}']
['{15B4231D-DD94-42A2-9AC2-4C32AFB4B267}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -176,7 +176,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{B82CD28D-7ECC-4D09-9700-1EA713C7F621}']
['{26F46D95-DBBE-40FD-BB99-EEC4B6EE75CD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -667,7 +667,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{AE3D76A3-4B8A-46D5-9B22-3F69B3BB489C}']
['{C442C7DF-32BE-4A00-8446-3DA2F08508AC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

12
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ 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_DarReferenciaDelta = '{ED087064-A93F-4F83-AB90-08AA4BF5F6D3}';
RID_AlbaranesClienteDelta = '{8C94D643-A1FB-4FC8-84D3-D0BE4B2A9B61}';
RID_AlbaranesCliente_DetallesDelta = '{ABC9FD9E-7737-47A6-83EA-E51FE4139B46}';
RID_DarReferenciaDelta = '{95530CA0-F6C5-439B-ACE3-8DD1B50D65AC}';
RID_AlbaranesClienteDelta = '{9E1A105B-7BE6-4100-BED9-9EB5E4517371}';
RID_AlbaranesCliente_DetallesDelta = '{4FD893A0-294F-4ACF-8656-9DC37A524688}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{ED087064-A93F-4F83-AB90-08AA4BF5F6D3}']
['{95530CA0-F6C5-439B-ACE3-8DD1B50D65AC}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{8C94D643-A1FB-4FC8-84D3-D0BE4B2A9B61}']
['{9E1A105B-7BE6-4100-BED9-9EB5E4517371}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -542,7 +542,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{ABC9FD9E-7737-47A6-83EA-E51FE4139B46}']
['{4FD893A0-294F-4ACF-8656-9DC37A524688}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;

15
Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas
View File

@ -15,12 +15,27 @@ type
end;
TBizDetallesAlbaranCliente = class(TAlbaranesCliente_DetallesDataTableRules, IBizDetallesAlbaranCliente)
protected
procedure BeforeInsert(Sender: TDADataTable); override;
end;
implementation
uses
DB;
{ TBizDetallesAlbaranCliente }
procedure TBizDetallesAlbaranCliente.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
AMasterTable.Post;
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE, TBizDetallesAlbaranCliente);

2
Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1DD.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF4.tmp */

830
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -620,16 +620,179 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_ID'
Value = ''
end
item
Name = 'ID_EMPRESA'
Value = ''
end
item
Name = 'ID_CLIENTE'
Value = ''
end
item
Name = 'FECHA_ALBARAN'
Value = ''
end
item
Name = 'REFERENCIA'
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
Value = ''
end
item
Name = 'ID_ALMACEN'
Value = ''
end
item
Name = 'ID_PEDIDO'
Value = ''
end
item
Name = 'ID_FACTURA'
Value = ''
end
item
Name = 'CALLE'
Value = ''
end
item
Name = 'CODIGO_POSTAL'
Value = ''
end
item
Name = 'POBLACION'
Value = ''
end
item
Name = 'PROVINCIA'
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
Value = ''
end
item
Name = 'TELEFONO'
Value = ''
end
item
Name = 'IMPORTE_NETO'
Value = ''
end
item
Name = 'IMPORTE_PORTE'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
Value = ''
end
item
Name = 'IVA'
Value = ''
end
item
Name = 'IMPORTE_IVA'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'OBSERVACIONES'
Value = ''
end
item
Name = 'INCIDENCIAS'
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
Value = ''
end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
Value = ''
end
item
Name = 'FECHA_PREVISTA_ENVIO'
Value = ''
end
item
Name = 'FECHA_ENVIO'
Value = ''
end
item
Name = 'FECHA_RECEPCION'
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE'
SQL = 'DELETE '#10' FROM'#10' ALBARANES_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'
SQL =
'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
' FECHA_ALBARAN, REFERENCIA,'#10' REFERENCIA_CLIENTE, ID_ALMACEN,' +
' ID_PEDIDO, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACION, PR' +
'OVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, IMPORTE_NETO, IMPORTE' +
'_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA,' +
' IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, I' +
'NCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, '#10' USUARI' +
'O, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_ENVIO, '#10' FECHA' +
'_RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_' +
'ALBARAN, :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID' +
'_PEDIDO, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :POBLACION, :' +
'PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IM' +
'PORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBL' +
'E, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INC' +
'IDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION' +
','#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_E' +
'NVIO, :FECHA_RECEPCION)'#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_AlbaranesCliente'
end
item
Params = <
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE'
SQL = 'DELETE '#10' FROM'#10' ALBARANES_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -639,105 +802,234 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID'
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ALBARAN'
DataType = datInteger
Name = 'ID_EMPRESA'
Value = ''
ParamType = daptInput
end
item
Name = 'POSICION'
DataType = datInteger
Name = 'ID_CLIENTE'
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Name = 'FECHA_ALBARAN'
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Name = 'REFERENCIA'
Value = ''
ParamType = daptInput
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Name = 'REFERENCIA_CLIENTE'
Value = ''
ParamType = daptInput
end
item
Name = 'CANTIDAD'
DataType = datInteger
Name = 'ID_ALMACEN'
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
Name = 'ID_PEDIDO'
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
Name = 'ID_FACTURA'
Value = ''
end
item
Name = 'CALLE'
Value = ''
end
item
Name = 'CODIGO_POSTAL'
Value = ''
end
item
Name = 'POBLACION'
Value = ''
end
item
Name = 'PROVINCIA'
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
Value = ''
end
item
Name = 'TELEFONO'
Value = ''
end
item
Name = 'IMPORTE_NETO'
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
Value = ''
end
item
Name = 'IVA'
Value = ''
end
item
Name = 'IMPORTE_IVA'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'VISIBLE'
DataType = datInteger
Name = 'OBSERVACIONES'
Value = ''
end
item
Name = 'INCIDENCIAS'
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
Value = ''
end
item
Name = 'FECHA_PREVISTA_ENVIO'
Value = ''
end
item
Name = 'FECHA_ENVIO'
Value = ''
end
item
Name = 'FECHA_RECEPCION'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE'
SQL =
'UPDATE ALBARANES_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = :' +
'ID_EMPRESA, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' FECHA_ALBARAN = ' +
':FECHA_ALBARAN,'#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA_CL' +
'IENTE = :REFERENCIA_CLIENTE, '#10' ID_ALMACEN = :ID_ALMACEN,'#10' ' +
'ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' CALLE ' +
'= :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION = :' +
'POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO = ' +
':PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' IMPORTE_NETO ' +
'= :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCU' +
'ENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, ' +
#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMP' +
'ORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENCI' +
'AS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_' +
'ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACIO' +
'N, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,' +
' '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECHA_E' +
'NVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION'#10' W' +
'HERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_AlbaranesCliente'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID'
Value = ''
end
item
Name = 'ID_ALBARAN'
Value = ''
end
item
Name = 'POSICION'
Value = ''
end
item
Name = 'TIPO_DETALLE'
Value = ''
end
item
Name = 'CONCEPTO'
Value = ''
end
item
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_PORTE'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'VISIBLE'
Value = ''
end
item
Name = 'ID_ARTICULO'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'INSERT INTO ALBARANES_CLIENTE_DETALLES ('#10' ID,'#10' ID_ALBARAN,' +
#10' POSICION,'#10' TIPO_DETALLE,'#10' ID_ARTICULO,'#10' CONCEPTO,'#10 +
' CANTIDAD,'#10' IMPORTE_UNIDAD,'#10' DESCUENTO,'#10' IMPORTE_POR' +
'TE,'#10' IMPORTE_TOTAL,'#10' VISIBLE,'#10' FECHA_ALTA,'#10' FECHA_MO' +
'DIFICACION)'#10' VALUES ('#10' :ID,'#10' :ID_ALBARAN,'#10' :POSICION,'#10 +
' :TIPO_DETALLE,'#10' :ID_ARTICULO,'#10' :CONCEPTO,'#10' :CANTIDA' +
'D,'#10' :IMPORTE_UNIDAD,'#10' :DESCUENTO,'#10' :IMPORTE_PORTE,'#10' ' +
':IMPORTE_TOTAL,'#10' :VISIBLE,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFI' +
'CACION);'
'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' +
'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, D' +
'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VISIBLE, ID_ARTICU' +
'LO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :POSICION, :TIPO_DETALLE, :C' +
'ONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_P' +
'ORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :ID_ARTICULO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -747,13 +1039,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
DataType = datAutoInc
Value = '0'
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'DELETE '#10' FROM'#10' ALBARANES_CLIENTE_DETALLES'#10' WHERE'#10' (ID = ' +
@ -781,10 +1073,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'TIPO_DETALLE'
Value = ''
end
item
Name = 'ID_ARTICULO'
Value = ''
end
item
Name = 'CONCEPTO'
Value = ''
@ -814,7 +1102,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Name = 'ID_ARTICULO'
Value = ''
end
item
@ -824,424 +1112,20 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'UPDATE ALBARANES_CLIENTE_DETALLES'#10' SET'#10' ID = :ID,'#10' ID_ALB' +
'ARAN = :ID_ALBARAN,'#10' POSICION = :POSICION,'#10' TIPO_DETALLE =' +
' :TIPO_DETALLE,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' CONCEPTO = :' +
'CONCEPTO,'#10' CANTIDAD = :CANTIDAD,'#10' IMPORTE_UNIDAD = :IMPORT' +
'E_UNIDAD,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPOR' +
'TE_PORTE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' VISIBLE = :VIS' +
'IBLE,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID' +
' = :OLD_ID);'#10
'UPDATE ALBARANES_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_AL' +
'BARAN = :ID_ALBARAN, '#10' POSICION = :POSICION, '#10' TIPO_DETALL' +
'E = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :C' +
'ANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO =' +
' :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' IMPORTE_T' +
'OTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO' +
' = :ID_ARTICULO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_AlbaranesCliente_Detalles'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_ID'
Value = ''
ParamType = daptInput
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ALBARAN'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
ParamType = daptInput
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'BASE_IMPONIBLE'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_NETO'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'IVA'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_IVA'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
ParamType = daptInput
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
Value = ''
ParamType = daptInput
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
Value = ''
ParamType = daptInput
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ENVIO'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_RECEPCION'
DataType = datDateTime
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ALBARANES_CLIENTE'
SQL =
'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
' REFERENCIA, REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN, ID_PEDIDO, ' +
'ID_ALMACEN, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACION, PR' +
'OVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, BASE_IMPONIBLE, IMPOR' +
'TE_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, IVA,' +
' IMPORTE_IVA, IMPORTE_TOTAL, '#10' OBSERVACIONES, INCIDENCIAS, I' +
'NCIDENCIAS_ACTIVAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARI' +
'O, ID_FORMA_PAGO,'#10' FECHA_PREVISTA_ENVIO, FECHA_ENVIO, FECHA_' +
'RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :REFEREN' +
'CIA, :REFERENCIA_CLIENTE,'#10' :FECHA_ALBARAN, :ID_PEDIDO, :ID_A' +
'LMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :POBLACION, :P' +
'ROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFONO, :BASE_IMPONIBLE, :' +
'IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESCUENTO, :IMPORTE_DESCUEN' +
'TO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :I' +
'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :FECHA_ALTA, :FECHA_MODI' +
'FICACION, :USUARIO,'#10' :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, ' +
':FECHA_ENVIO, :FECHA_RECEPCION)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_AlbaranesCliente'
end
item
Params = <
item
Name = 'ID'
Value = ''
end
item
Name = 'ID_EMPRESA'
Value = ''
end
item
Name = 'ID_CLIENTE'
Value = ''
end
item
Name = 'REFERENCIA'
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
Value = ''
end
item
Name = 'FECHA_ALBARAN'
Value = ''
end
item
Name = 'ID_PEDIDO'
Value = ''
end
item
Name = 'ID_ALMACEN'
Value = ''
end
item
Name = 'ID_FACTURA'
Value = ''
end
item
Name = 'CALLE'
Value = ''
end
item
Name = 'CODIGO_POSTAL'
Value = ''
end
item
Name = 'POBLACION'
Value = ''
end
item
Name = 'PROVINCIA'
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
Value = ''
end
item
Name = 'TELEFONO'
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
Value = ''
end
item
Name = 'IMPORTE_NETO'
Value = ''
end
item
Name = 'IMPORTE_PORTE'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
Value = ''
end
item
Name = 'IVA'
Value = ''
end
item
Name = 'IMPORTE_IVA'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'OBSERVACIONES'
Value = ''
end
item
Name = 'INCIDENCIAS'
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
Value = ''
end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
Value = ''
end
item
Name = 'FECHA_PREVISTA_ENVIO'
Value = ''
end
item
Name = 'FECHA_ENVIO'
Value = ''
end
item
Name = 'FECHA_RECEPCION'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ALBARANES_CLIENTE'
SQL =
'UPDATE ALBARANES_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = :' +
'ID_EMPRESA, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' REFERENCIA = :RE' +
'FERENCIA, '#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' FEC' +
'HA_ALBARAN = :FECHA_ALBARAN, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' I' +
'D_ALMACEN = :ID_ALMACEN,'#10' ID_FACTURA = :ID_FACTURA, '#10' CALL' +
'E = :CALLE, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION ' +
'= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO' +
' = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' BASE_IMPON' +
'IBLE = :BASE_IMPONIBLE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' ' +
'IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' ' +
' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10' ' +
'IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' +
' '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDE' +
'NCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FEC' +
'HA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICA' +
'CION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PA' +
'GO,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' FECHA_' +
'ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION'#10' ' +
'WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_AlbaranesCliente'
end>
RelationShips = <
item

6
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -30,10 +30,8 @@ type
Bin2DataStreamer: TDABin2DataStreamer;
schAlbaranesCliente: TDASchema;
DADataDictionary: TDADataDictionary;
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject);
private
protected

2
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc
View File

@ -27,4 +27,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1DB.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF2.tmp */

6
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -6,7 +6,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ClientWidth = 765
OnClose = CustomEditorClose
ExplicitWidth = 773
ExplicitHeight = 619
ExplicitHeight = 612
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -200,10 +200,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0

24
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.dfm
View File

@ -143,8 +143,16 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
Width = 73
ExplicitWidth = 73
end
inherited Bevel3: TBevel
Left = 332
Height = 54
ExplicitLeft = 332
ExplicitHeight = 54
end
inherited Bevel4: TBevel
Left = 448
Width = 285
ExplicitLeft = 448
ExplicitWidth = 285
end
inherited ImporteDto: TcxDBCurrencyEdit
@ -153,12 +161,16 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 519
Style.IsFontAssigned = True
ExplicitLeft = 519
ExplicitWidth = 214
Width = 214
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 449
Style.IsFontAssigned = True
ExplicitLeft = 449
ExplicitWidth = 284
Width = 284
end
@ -166,18 +178,26 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
Style.IsFontAssigned = True
end
inherited edtIVA: TcxDBSpinEdit
Left = 448
Style.IsFontAssigned = True
ExplicitLeft = 448
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 448
Style.IsFontAssigned = True
ExplicitLeft = 448
ExplicitWidth = 285
Width = 285
end
inherited edtRE: TcxDBSpinEdit
Left = 448
Style.IsFontAssigned = True
ExplicitLeft = 448
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 519
Style.IsFontAssigned = True
ExplicitLeft = 519
ExplicitWidth = 214
Width = 214
end
@ -195,6 +215,10 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton
Left = 184
ExplicitLeft = 184
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219
Width = 219

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas
View File

@ -10,7 +10,7 @@ uses
JvStatusBar, uViewIncidencias, uCustomView, uViewBase, uViewDetallesBase,
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uIEditorAlbaranDevCliente;
JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces;
type
TfEditorAlbaranDevCliente = class(TfEditorAlbaranCliente, IEditorAlbaranDevCliente)

9
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
View File

@ -1,6 +1,15 @@
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn
Visible = False
end
inherited cxGridViewPOSICION: TcxGridDBColumn
Visible = False
end
inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False
end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
Visible = False
end

1
Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm
View File

@ -130,6 +130,7 @@ inherited DataModuleAlmacenes: TDataModuleAlmacenes
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Almacenes'
IndexDefs = <>
Left = 192
Top = 80
end

18
Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas
View File

@ -56,18 +56,24 @@ begin
end;
function TDataModuleAlmacenes.GetItem(const ID: Integer): IBizAlmacen;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText('Almacenes.' + fld_AlmacenesID + ' = ' + IntToStr(ID));
CloseBraket;
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_AlmacenesID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;

2
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -145,6 +145,7 @@ inherited DataModuleArticulos: TDataModuleArticulos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Articulos'
IndexDefs = <>
Left = 232
Top = 112
end
@ -252,6 +253,7 @@ inherited DataModuleArticulos: TDataModuleArticulos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ArticulosParaCliente'
IndexDefs = <>
Left = 400
Top = 112
end

17
Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
View File

@ -58,6 +58,8 @@ begin
end;
function TDataModuleArticulos.GetItem(const ID: Integer; AClienteID: Integer = -1): IBizArticulo;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
@ -66,14 +68,17 @@ begin
else
Result := Self.GetItems(AClienteID);
with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText('V_ARTICULOS.' + fld_ArticulosID + ' = ' + IntToStr(ID));
CloseBraket;
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_ArticulosID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;

2
Source/Modulos/Contactos/Controller/Contactos_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A1.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB8.tmp */

1
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -272,6 +272,7 @@ begin
// Filtrar los contactos actuales por empresa
{ with AContacto.DataTable.DynamicWhere do
begin
Clear;
// (ID = :ID)
Expression := NewBinaryExpression(NewField('', fld_ContactosID_EMPRESA),
NewConstant(dmUsuarios.IDEmpresaActual, datInteger), dboEqual);

2
Source/Modulos/Contactos/Data/Contactos_data.drc
View File

@ -17,4 +17,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\Contactos_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf19F.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB6.tmp */

3
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -244,6 +244,7 @@ inherited DataModuleClientes: TDataModuleClientes
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Clientes'
IndexDefs = <>
Left = 296
Top = 168
end
@ -300,6 +301,7 @@ inherited DataModuleClientes: TDataModuleClientes
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ClientesDescuentos'
IndexDefs = <>
Left = 448
Top = 168
end
@ -325,6 +327,7 @@ inherited DataModuleClientes: TDataModuleClientes
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'GruposCliente'
IndexDefs = <>
Left = 552
Top = 168
end

23
Source/Modulos/Contactos/Data/uDataModuleClientes.pas
View File

@ -56,16 +56,24 @@ begin
end;
function TDataModuleClientes.GetItem(const ID: Integer): IBizCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
with Result.DataTable.DynamicWhere do
begin
// (ID = :ID)
Expression := NewBinaryExpression(NewField('', fld_ContactosID),
NewConstant(ID, datInteger), dboEqual);
Condicion := NewBinaryExpression(NewField('', fld_ContactosID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
@ -94,17 +102,22 @@ begin
end;
function TDataModuleClientes.GetItemsTiendaWeb: IBizCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
with Result.DataTable.DynamicWhere do
begin
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_ClientesTIENDA_WEB), NewConstant(1, datInteger), dboEqual);
Clear;
// (TIENDA_WEB = 1)
Expression := NewBinaryExpression(NewField('', fld_ClientesTIENDA_WEB),
NewConstant(1, datInteger), dboEqual);
Expression := Condicion
end;
finally
HideHourglassCursor;
end;

2
Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
View File

@ -214,6 +214,7 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Empleados'
IndexDefs = <>
Left = 296
Top = 168
end
@ -239,6 +240,7 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'GruposEmpleado'
IndexDefs = <>
Left = 448
Top = 168
end

12
Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas
View File

@ -53,16 +53,24 @@ begin
end;
function TDataModuleEmpleados.GetItem(const ID: Integer): IBizEmpleado;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
with Result.DataTable.DynamicWhere do
begin
// (ID = :ID)
Expression := NewBinaryExpression(NewField('', fld_ContactosID),
NewConstant(ID, datInteger), dboEqual);
Condicion := NewBinaryExpression(NewField('', fld_ContactosID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;

2
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -26,6 +26,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'GruposProveedor'
IndexDefs = <>
Left = 448
Top = 168
end
@ -257,6 +258,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Proveedores'
IndexDefs = <>
Left = 296
Top = 168
end

24
Source/Modulos/Contactos/Data/uDataModuleProveedores.pas
View File

@ -50,17 +50,24 @@ begin
end;
function TDataModuleProveedores.GetItem(const ID: Integer): IBizProveedor;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
// (ID = :ID)
with Result.DataTable.DynamicWhere do
begin
Expression := NewBinaryExpression(NewField('', fld_ContactosID),
NewConstant(ID, datInteger), dboEqual);
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_ContactosID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
@ -88,17 +95,22 @@ begin
end;
function TDataModuleProveedores.GetItemsTiendaWeb: IBizProveedor;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
with Result.DataTable.DynamicWhere do
begin
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_ClientesTIENDA_WEB), NewConstant(1, datInteger), dboEqual);
Clear;
// (TIENDA_WEB = 1)
Expression := NewBinaryExpression(NewField('', fld_ProveedoresTIENDA_WEB),
NewConstant(1, datInteger), dboEqual);
Expression := Condicion
end;
finally
HideHourglassCursor;
end;

2
Source/Modulos/Contactos/Model/Contactos_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Model\Contactos_model.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf19D.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB4.tmp */

2
Source/Modulos/Contactos/Plugin/Contactos_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A5.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBC.tmp */

2
Source/Modulos/Contactos/Views/Contactos_view.drc
View File

@ -45,4 +45,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\Contactos_view.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A3.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBA.tmp */

BIN
Source/Modulos/Contactos/Views/Contactos_view.identcache
View File

Binary file not shown.

2
Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D5.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEC.tmp */

2
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -880,7 +880,7 @@ begin
AFactura.DataTable.ApplyUpdates;
//Se generan los recibos automáticamente a partir de la forma de pago
// GenerarRecibos(AFactura);
GenerarRecibos(AFactura);
Result := True;
finally

2
Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D3.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEA.tmp */

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

@ -54,6 +54,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DisplayLabel = 'Tipo'
DictionaryEntry = 'FacturasCliente_TIPO'
end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
@ -64,7 +69,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'SITUACION'
DataType = datString
Size = 255
DisplayLabel = 'Situaci'#243'n'
DisplayLabel = 'Situaci'#195#179'n'
DictionaryEntry = 'FacturasCliente_SITUACION'
end
item
@ -150,14 +155,14 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'CALLE'
DataType = datString
Size = 150
DisplayLabel = 'Direcci'#243'n'
DisplayLabel = 'Direcci'#195#179'n'
DictionaryEntry = 'FacturasCliente_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 150
DisplayLabel = 'Poblaci'#243'n'
DisplayLabel = 'Poblaci'#195#179'n'
DictionaryEntry = 'FacturasCliente_POBLACION'
end
item
@ -171,7 +176,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'd. postal'
DisplayLabel = 'C'#195#179'd. postal'
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
end
item
@ -198,8 +203,8 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
DisplayLabel = #191'Con R.E.?'
DataType = datSmallInt
DisplayLabel = #194#191'Con R.E.?'
DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
end
item
@ -222,28 +227,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
end
item
Name = 'ID_COMISION_LIQUIDADA'
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
end
item
Name = 'REFERENCIA_COMISION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
LogChanges = False
DisplayLabel = 'Fecha de vencimiento'
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
Calculated = True
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@ -252,14 +244,14 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasCliente'
IndexDefs = <>
Left = 224
Left = 240
Top = 112
end
object ds_FacturasCliente: TDADataSource
DataSet = tbl_FacturasCliente.Dataset
DataTable = tbl_FacturasCliente
Left = 216
Top = 64
Left = 240
Top = 48
end
object tbl_FacturasCliente_Detalles: TDAMemDataTable
RemoteUpdatesOptions = []
@ -281,7 +273,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item
Name = 'POSICION'
DataType = datInteger
DisplayLabel = 'Posici'#243'n'
DisplayLabel = 'Posici'#195#179'n'
DictionaryEntry = 'FacturasCliente_Detalles_POSICION'
end
item
@ -321,7 +313,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item
Name = 'VISIBLE'
DataType = datInteger
DisplayLabel = #191'Visible?'
DisplayLabel = #194#191'Visible?'
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
end
item
@ -363,13 +355,13 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasCliente_Detalles'
IndexDefs = <>
Left = 368
Top = 104
Left = 400
Top = 112
end
object ds_FacturasCliente_Detalles: TDADataSource
DataSet = tbl_FacturasCliente_Detalles.Dataset
DataTable = tbl_FacturasCliente_Detalles
Left = 368
Top = 56
Left = 400
Top = 40
end
end

18
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
View File

@ -78,18 +78,24 @@ begin
end;
function TDataModuleFacturasCliente.GetItem(const ID: Integer): IBizFacturaCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText(fld_FacturasClienteID + ' = ' + IntToStr(ID));
CloseBraket;
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;

2
Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D1.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE8.tmp */

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

@ -9,9 +9,9 @@ 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_DarReferencia = '{EE290313-AC22-43B7-815F-58253B4EF915}';
RID_FacturasCliente = '{39FCB7C7-33D8-41D0-B361-7006793E354E}';
RID_FacturasCliente_Detalles = '{2277CCFA-8265-4007-B54E-AFBB5EEB7366}';
RID_DarReferencia = '{CC46C1A7-C6CE-4ABE-B1A8-4C2BABFB5C93}';
RID_FacturasCliente = '{51E6C07A-D580-46D7-9032-1838AF4D4B07}';
RID_FacturasCliente_Detalles = '{8A70D0F2-F09E-4166-A792-00012AA7C35A}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@ -29,6 +29,7 @@ const
fld_FacturasClienteID_EMPRESA = 'ID_EMPRESA';
fld_FacturasClienteREFERENCIA = 'REFERENCIA';
fld_FacturasClienteTIPO = 'TIPO';
fld_FacturasClienteID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
fld_FacturasClienteFECHA_FACTURA = 'FECHA_FACTURA';
fld_FacturasClienteSITUACION = 'SITUACION';
fld_FacturasClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE';
@ -55,46 +56,43 @@ const
fld_FacturasClienteID_TIPO_IVA = 'ID_TIPO_IVA';
fld_FacturasClienteIMPORTE_NETO = 'IMPORTE_NETO';
fld_FacturasClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasClienteID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
fld_FacturasClienteID_AGENTE = 'ID_AGENTE';
fld_FacturasClienteFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
idx_FacturasClienteID_EMPRESA = 1;
idx_FacturasClienteREFERENCIA = 2;
idx_FacturasClienteTIPO = 3;
idx_FacturasClienteFECHA_FACTURA = 4;
idx_FacturasClienteSITUACION = 5;
idx_FacturasClienteBASE_IMPONIBLE = 6;
idx_FacturasClienteDESCUENTO = 7;
idx_FacturasClienteIMPORTE_DESCUENTO = 8;
idx_FacturasClienteIVA = 9;
idx_FacturasClienteIMPORTE_IVA = 10;
idx_FacturasClienteRE = 11;
idx_FacturasClienteIMPORTE_RE = 12;
idx_FacturasClienteIMPORTE_TOTAL = 13;
idx_FacturasClienteOBSERVACIONES = 14;
idx_FacturasClienteID_CLIENTE = 15;
idx_FacturasClienteNIF_CIF = 16;
idx_FacturasClienteNOMBRE = 17;
idx_FacturasClienteCALLE = 18;
idx_FacturasClientePOBLACION = 19;
idx_FacturasClientePROVINCIA = 20;
idx_FacturasClienteCODIGO_POSTAL = 21;
idx_FacturasClienteFECHA_ALTA = 22;
idx_FacturasClienteFECHA_MODIFICACION = 23;
idx_FacturasClienteUSUARIO = 24;
idx_FacturasClienteID_FORMA_PAGO = 25;
idx_FacturasClienteRECARGO_EQUIVALENCIA = 26;
idx_FacturasClienteID_TIPO_IVA = 27;
idx_FacturasClienteIMPORTE_NETO = 28;
idx_FacturasClienteIMPORTE_PORTE = 29;
idx_FacturasClienteID_COMISION_LIQUIDADA = 30;
idx_FacturasClienteREFERENCIA_COMISION = 31;
idx_FacturasClienteID_AGENTE = 32;
idx_FacturasClienteFECHA_VENCIMIENTO = 33;
idx_FacturasClienteID_COMISION_LIQUIDADA = 4;
idx_FacturasClienteFECHA_FACTURA = 5;
idx_FacturasClienteSITUACION = 6;
idx_FacturasClienteBASE_IMPONIBLE = 7;
idx_FacturasClienteDESCUENTO = 8;
idx_FacturasClienteIMPORTE_DESCUENTO = 9;
idx_FacturasClienteIVA = 10;
idx_FacturasClienteIMPORTE_IVA = 11;
idx_FacturasClienteRE = 12;
idx_FacturasClienteIMPORTE_RE = 13;
idx_FacturasClienteIMPORTE_TOTAL = 14;
idx_FacturasClienteOBSERVACIONES = 15;
idx_FacturasClienteID_CLIENTE = 16;
idx_FacturasClienteNIF_CIF = 17;
idx_FacturasClienteNOMBRE = 18;
idx_FacturasClienteCALLE = 19;
idx_FacturasClientePOBLACION = 20;
idx_FacturasClientePROVINCIA = 21;
idx_FacturasClienteCODIGO_POSTAL = 22;
idx_FacturasClienteFECHA_ALTA = 23;
idx_FacturasClienteFECHA_MODIFICACION = 24;
idx_FacturasClienteUSUARIO = 25;
idx_FacturasClienteID_FORMA_PAGO = 26;
idx_FacturasClienteRECARGO_EQUIVALENCIA = 27;
idx_FacturasClienteID_TIPO_IVA = 28;
idx_FacturasClienteIMPORTE_NETO = 29;
idx_FacturasClienteIMPORTE_PORTE = 30;
idx_FacturasClienteID_AGENTE = 31;
idx_FacturasClienteREFERENCIA_COMISION = 32;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@ -131,7 +129,7 @@ const
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{FC6FD5A4-62B4-4B90-A7B7-04717D03C5BE}']
['{3338E715-B18C-4550-BE4C-C92B071770B4}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -166,7 +164,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{C611FEEA-3F5D-4990-87EC-5E077E74DDAB}']
['{0ACBE344-A040-4AD4-8037-DA9382B4D9CF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -184,6 +182,10 @@ type
procedure SetTIPOValue(const aValue: String);
function GetTIPOIsNull: Boolean;
procedure SetTIPOIsNull(const aValue: Boolean);
function GetID_COMISION_LIQUIDADAValue: Integer;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
function GetID_COMISION_LIQUIDADAIsNull: Boolean;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
function GetFECHA_FACTURAValue: DateTime;
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
function GetFECHA_FACTURAIsNull: Boolean;
@ -271,8 +273,8 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetID_FORMA_PAGOIsNull: Boolean;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
function GetRECARGO_EQUIVALENCIAValue: Integer;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
function GetRECARGO_EQUIVALENCIAValue: SmallInt;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
function GetID_TIPO_IVAValue: Integer;
@ -287,22 +289,14 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency);
function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
function GetID_COMISION_LIQUIDADAValue: Integer;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
function GetID_COMISION_LIQUIDADAIsNull: Boolean;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
function GetREFERENCIA_COMISIONValue: String;
procedure SetREFERENCIA_COMISIONValue(const aValue: String);
function GetREFERENCIA_COMISIONIsNull: Boolean;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
function GetID_AGENTEValue: Integer;
procedure SetID_AGENTEValue(const aValue: Integer);
function GetID_AGENTEIsNull: Boolean;
procedure SetID_AGENTEIsNull(const aValue: Boolean);
function GetFECHA_VENCIMIENTOValue: DateTime;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
function GetFECHA_VENCIMIENTOIsNull: Boolean;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
function GetREFERENCIA_COMISIONValue: String;
procedure SetREFERENCIA_COMISIONValue(const aValue: String);
function GetREFERENCIA_COMISIONIsNull: Boolean;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
{ Properties }
@ -314,6 +308,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@ -358,7 +354,7 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -366,14 +362,10 @@ type
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
end;
{ TFacturasClienteDataTableRules }
@ -399,6 +391,10 @@ type
procedure SetTIPOValue(const aValue: String); virtual;
function GetTIPOIsNull: Boolean; virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
function GetFECHA_FACTURAValue: DateTime; virtual;
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual;
@ -486,8 +482,8 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
function GetID_TIPO_IVAValue: Integer; virtual;
@ -502,22 +498,14 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_COMISIONValue: String; virtual;
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
function GetID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_COMISIONValue: String; virtual;
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -528,6 +516,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@ -572,7 +562,7 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -580,14 +570,10 @@ type
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -597,7 +583,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{BD1BDC59-CA88-4C8D-B189-A917927D3F22}']
['{E62E97AD-C08F-4BB6-A6EF-21BF966630A0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -929,6 +915,27 @@ begin
DataTable.Fields[idx_FacturasClienteTIPO].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
begin
result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger;
end;
procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger := aValue;
end;
function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetFECHA_FACTURAValue: DateTime;
begin
result := DataTable.Fields[idx_FacturasClienteFECHA_FACTURA].AsDateTime;
@ -1387,14 +1394,14 @@ begin
DataTable.Fields[idx_FacturasClienteID_FORMA_PAGO].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetRECARGO_EQUIVALENCIAValue: Integer;
function TFacturasClienteDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsInteger;
result := DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsSmallInt;
end;
procedure TFacturasClienteDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
procedure TFacturasClienteDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsInteger := aValue;
DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsSmallInt := aValue;
end;
function TFacturasClienteDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
@ -1471,48 +1478,6 @@ begin
DataTable.Fields[idx_FacturasClienteIMPORTE_PORTE].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
begin
result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger;
end;
procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger := aValue;
end;
function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString;
end;
procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetID_AGENTEValue: Integer;
begin
result := DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger;
@ -1534,25 +1499,25 @@ begin
DataTable.Fields[idx_FacturasClienteID_AGENTE].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].AsDateTime;
result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString;
end;
procedure TFacturasClienteDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].AsDateTime := aValue;
DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean;
function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].IsNull;
result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].AsVariant := Null;
DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null;
end;

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

@ -9,14 +9,14 @@ 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_DarReferenciaDelta = '{3F90C22F-1A27-477C-8666-97294D63941A}';
RID_FacturasClienteDelta = '{5DED3958-196C-45DF-93EB-942421D0DB76}';
RID_FacturasCliente_DetallesDelta = '{D421677A-3717-40DD-9787-33F108D28E17}';
RID_DarReferenciaDelta = '{E8B8EB94-54CB-49B3-879C-1CF0319BCBBD}';
RID_FacturasClienteDelta = '{EC7543D0-B0B5-48F9-9401-DEEE0D0BEFF2}';
RID_FacturasCliente_DetallesDelta = '{A1C5C789-FF93-491C-82C6-A49EF37F27A3}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{3F90C22F-1A27-477C-8666-97294D63941A}']
['{E8B8EB94-54CB-49B3-879C-1CF0319BCBBD}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -50,12 +50,13 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{5DED3958-196C-45DF-93EB-942421D0DB76}']
['{EC7543D0-B0B5-48F9-9401-DEEE0D0BEFF2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldTIPOValue : String;
function GetOldID_COMISION_LIQUIDADAValue : Integer;
function GetOldFECHA_FACTURAValue : DateTime;
function GetOldSITUACIONValue : String;
function GetOldBASE_IMPONIBLEValue : Currency;
@ -78,20 +79,19 @@ type
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldRECARGO_EQUIVALENCIAValue : Integer;
function GetOldRECARGO_EQUIVALENCIAValue : SmallInt;
function GetOldID_TIPO_IVAValue : Integer;
function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldID_COMISION_LIQUIDADAValue : Integer;
function GetOldREFERENCIA_COMISIONValue : String;
function GetOldID_AGENTEValue : Integer;
function GetOldFECHA_VENCIMIENTOValue : DateTime;
function GetOldREFERENCIA_COMISIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldTIPO : String read GetOldTIPOValue;
property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
@ -114,14 +114,12 @@ type
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@ -155,6 +153,12 @@ type
function GetOldTIPOIsNull: Boolean; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual;
function GetOldID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
function GetFECHA_FACTURAValue: DateTime; virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual;
function GetOldFECHA_FACTURAValue: DateTime; virtual;
@ -286,11 +290,11 @@ type
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual;
function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
function GetID_TIPO_IVAValue: Integer; virtual;
function GetID_TIPO_IVAIsNull: Boolean; virtual;
@ -310,30 +314,18 @@ type
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual;
function GetOldID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_COMISIONValue: String; virtual;
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
function GetOldREFERENCIA_COMISIONValue: String; virtual;
function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
function GetID_AGENTEValue: Integer; virtual;
function GetID_AGENTEIsNull: Boolean; virtual;
function GetOldID_AGENTEValue: Integer; virtual;
function GetOldID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_COMISIONValue: String; virtual;
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
function GetOldREFERENCIA_COMISIONValue: String; virtual;
function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -352,6 +344,10 @@ type
property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
property OldTIPO : String read GetOldTIPOValue;
property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull : Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
property OldID_COMISION_LIQUIDADAIsNull : Boolean read GetOldID_COMISION_LIQUIDADAIsNull;
property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
@ -440,9 +436,9 @@ type
property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -456,22 +452,14 @@ type
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull : Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
property OldID_COMISION_LIQUIDADAIsNull : Boolean read GetOldID_COMISION_LIQUIDADAIsNull;
property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull;
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull;
property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -481,7 +469,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{D421677A-3717-40DD-9787-33F108D28E17}']
['{A1C5C789-FF93-491C-82C6-A49EF37F27A3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -863,6 +851,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA];
end;
function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA];
end;
function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_FACTURA];
@ -1542,7 +1561,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_FORMA_PAGO] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer;
function TFacturasClienteBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA];
end;
@ -1552,7 +1571,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer;
function TFacturasClienteBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA];
end;
@ -1562,7 +1581,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
procedure TFacturasClienteBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA] := aValue;
end;
@ -1666,68 +1685,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_PORTE] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA];
end;
function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA];
end;
function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION];
end;
function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION];
end;
function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE];
@ -1759,35 +1716,35 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO];
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION];
end;
function TFacturasClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean;
function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]);
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_VENCIMIENTO];
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION];
end;
function TFacturasClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean;
function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]);
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO] := aValue;
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO] := Null;
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null;
end;

12
Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas
View File

@ -14,17 +14,14 @@ type
end;
TBizDetallesFacturaCliente = class(TFacturasCliente_DetallesDataTableRules, IBizDetallesFacturaCliente)
private
ContIdAux: Integer;
protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
end;
implementation
uses
DB, SysUtils, Dialogs;
DB;
{ TBizDetallesFacturaCliente }
@ -40,13 +37,6 @@ begin
end;
end;
procedure TBizDetallesFacturaCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
// ID := ContIdAux; // -1, -2, -3...
// Dec(ContIdAux);
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_FACTURA_CLIENTE, TBizDetallesFacturaCliente);

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

@ -73,7 +73,7 @@ type
procedure OnNewRecord(Sender: TDADataTable); override;
function GetSITUACIONValue: String; override;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
// procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); override;
procedure SetID_TIPO_IVAValue(const aValue: Integer); override;
@ -327,13 +327,13 @@ begin
inherited;
end;
procedure TBizFacturaCliente.SetID_FORMA_PAGOValue(const aValue: Integer);
{procedure TBizFacturaCliente.SetID_FORMA_PAGOValue(const aValue: Integer);
begin
if (aValue = 0) then
SetFieldNull(DataTable, fld_FacturasClienteID_FORMA_PAGO)
else
inherited;
end;
end;}
procedure TBizFacturaCliente.SetID_TIPO_IVAValue(const aValue: Integer);
begin

2
Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E1.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF8.tmp */

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

@ -75,6 +75,10 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
@ -180,16 +184,12 @@ object srvFacturasCliente: TsrvFacturasCliente
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'REFERENCIA_COMISION'
TableField = 'REFERENCIA_COMISION'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end>
end>
Name = 'FacturasCliente'
@ -219,6 +219,11 @@ object srvFacturasCliente: TsrvFacturasCliente
Size = 1
DictionaryEntry = 'FacturasCliente_TIPO'
end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
@ -339,7 +344,7 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
DataType = datSmallInt
DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
end
item
@ -358,26 +363,15 @@ object srvFacturasCliente: TsrvFacturasCliente
DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
end
item
Name = 'ID_COMISION_LIQUIDADA'
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
end
item
Name = 'REFERENCIA_COMISION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
Calculated = True
end>
end
item
@ -1492,7 +1486,7 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Name = 'FacturasCliente_RECARGO_EQUIVALENCIA'
DataType = datInteger
DataType = datSmallInt
DisplayLabel = #191'Con R.E.?'
end
item

2
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc
View File

@ -22,4 +22,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1DF.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF6.tmp */

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

@ -142,7 +142,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 192
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitLeft = 192
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
end
end
end

28
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 451
Height = 304
Width = 754
Height = 333
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,16 +9,18 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 451
Height = 304
Width = 754
Height = 333
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
451
304)
754
333)
object eReferencia: TcxDBTextEdit
Left = 124
Top = 30
@ -79,7 +81,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 301
end
inline frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 310
Left = 393
Top = 30
Width = 314
Height = 215
@ -91,7 +93,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False
TabOrder = 5
ReadOnly = False
ExplicitLeft = 310
ExplicitLeft = 393
ExplicitTop = 30
ExplicitWidth = 314
ExplicitHeight = 215
@ -126,13 +128,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 192
Left = 247
DataBinding.DataSource = DADataSource
ExplicitLeft = 192
ExplicitLeft = 247
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
Left = 137
ExplicitLeft = 137
end
end
end
@ -168,7 +170,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 78
end
object bFormasPago: TButton
Left = 150
Left = 233
Top = 84
Width = 132
Height = 23

12
Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
View File

@ -69,16 +69,24 @@ begin
end;
function TFormasPagoController.Buscar(ID: Integer): IBizFormaPago;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.DynamicWhere do
begin
// (ID = :ID)
Expression := NewBinaryExpression(NewField('', fld_FormasPagoID),
NewConstant(ID, datInteger), dboEqual);
Condicion := NewBinaryExpression(NewField('', fld_FormasPagoID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;

2
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C9.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE0.tmp */

BIN
Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu
View File

Binary file not shown.

2
Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C7.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDE.tmp */

24
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -89,18 +89,24 @@ begin
end;
function TDataModulePresupuestosCliente.GetItem(const ID: Integer): IBizPresupuestoCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText(fld_PresupuestosClienteID + ' = ' + IntToStr(ID));
CloseBraket;
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_PresupuestosClienteID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
@ -108,21 +114,21 @@ end;
function TDataModulePresupuestosCliente.GetItems: IBizPresupuestoCliente;
var
APresupuesto : TDAMemDataTable;
APresupuesto: TDAMemDataTable;
begin
ShowHourglassCursor;
try
APresupuesto := CloneDataTable(tbl_PresupuestosCliente);
AsignarClaseNegocio(APresupuesto);
// EL CAMPO REFERENCIA TIENEN QUE SER AUTOREFRESH!!!!!
APresupuesto.FieldByName(fld_PresupuestosClienteREFERENCIA).ServerAutoRefresh := TRUE;
AsignarClaseNegocio(APresupuesto);
with TBizPresupuestoCliente(APresupuesto.BusinessEventsObj) do
Detalles := _GetDetalles;
Result := (APresupuesto as IBizPresupuestoCliente);
finally
HideHourglassCursor;
end;

2
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C5.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDC.tmp */

2
Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D9.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF0.tmp */

2
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc
View File

@ -23,4 +23,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorElegirArticulosPresupuestoCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D7.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEE.tmp */

89
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -244,6 +244,8 @@ begin
end;
function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
var
Condicion: TDAWhereExpression;
begin
if not Assigned(Recibo) then
raise Exception.Create ('IBizReciboCliente no asignado (BuscarRecibosACompensar)');
@ -251,37 +253,51 @@ begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin
if NotEmpty then
AddOperator(opAND);
//No podrá compensarse un recibo a si mismo
OpenBraket;
AddText(fld_RecibosClienteID + ' <> ' + IntToStr(Recibo.ID));
CloseBraket;
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID), NewConstant(Recibo.ID, datInteger), dboNotEqual);
AddOperator(opAND);
//Solo podrá compensar recibos del mismo cliente
OpenBraket;
AddText(fld_RecibosClienteID_CLIENTE + ' = ' + IntToStr(Recibo.ID_CLIENTE));
CloseBraket;
AddOperator(opAND);
//Omitimos los recibos compensados
OpenBraket;
AddText(fld_RecibosClienteID_RECIBO_COMPENSADO + ' IS NULL ');
CloseBraket;
AddOperator(opAND);
//No podrá compensarse recibos que estan cobrados
OpenBraket;
AddText(fld_RecibosClienteSITUACION + ' <> ''' + CTE_COBRADO + '''');
CloseBraket;
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
with Result.DataTable.DynamicWhere do
begin
//Solo podrá compensar recibos del mismo cliente
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_CLIENTE), NewConstant(Recibo.ID_CLIENTE, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
with Result.DataTable.DynamicWhere do
begin
//Omitimos los recibos compensados
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_RECIBO_COMPENSADO), NewNull, dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
with Result.DataTable.DynamicWhere do
begin
//No podrá compensarse recibos que estan cobrados
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteSITUACION), NewConstant(CTE_COBRADO, datString), dboNotEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
@ -302,18 +318,24 @@ begin
end;
function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText(fld_RecibosClienteID_FACTURA + ' = ' + IntToStr(ID_FACTURA));
CloseBraket;
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_FACTURA), NewConstant(ID_FACTURA, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
@ -514,6 +536,7 @@ begin
if Assigned(AEditor) then
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
RecibosCliente := ARecibosCliente;
MultiSelect := True;
ShowEmbedded;

4
Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc
View File

@ -12,6 +12,6 @@ STRINGTABLE
BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.DFM */
/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1BD.tmp */
/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.drf */

137
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
View File

@ -28,7 +28,10 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Fields = <
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
Required = True
ServerAutoRefresh = True
DictionaryEntry = 'PagosCliente_ID'
InPrimaryKey = True
end
@ -115,22 +118,27 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PagosCliente'
Left = 272
Top = 80
IndexDefs = <>
Left = 352
Top = 88
end
object ds_PagosCliente: TDADataSource
DataSet = tbl_PagosCliente.Dataset
DataTable = tbl_PagosCliente
Left = 272
Top = 24
Left = 352
Top = 32
end
object tbl_RecibosCliente: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
Required = True
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_ID'
InPrimaryKey = True
end
item
Name = 'ID_RECIBO_COMPENSADO'
@ -298,125 +306,14 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'RecibosCliente'
IndexDefs = <>
Left = 168
Top = 80
Top = 88
end
object ds_RecibosCliente: TDADataSource
DataSet = tbl_RecibosCliente.Dataset
DataTable = tbl_RecibosCliente
Left = 168
Top = 24
end
object tbl_RecibosCompensadosCli: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
DictionaryEntry = 'RecibosCliente_SITUACION'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
DisplayLabel = 'RecibosCliente_FECHA_EMISION'
DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
end
item
Name = 'IMPORTE'
DataType = datCurrency
Alignment = taRightJustify
DictionaryEntry = 'RecibosCliente_IMPORTE'
end
item
Name = 'OTROS_GASTOS'
DataType = datCurrency
DisplayLabel = 'RecibosCliente_OTROS_GASTOS'
Alignment = taRightJustify
DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Alignment = taRightJustify
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
Alignment = taRightJustify
DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
end>
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_RecibosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'RecibosCompensadosCli'
Left = 392
Top = 80
end
object ds_RecibosCompensadosCli: TDADataSource
DataSet = tbl_RecibosCompensadosCli.Dataset
DataTable = tbl_RecibosCompensadosCli
Left = 392
Top = 24
Top = 32
end
end

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

@ -44,8 +44,6 @@ type
ds_PagosCliente: TDADataSource;
tbl_RecibosCliente: TDAMemDataTable;
ds_RecibosCliente: TDADataSource;
tbl_RecibosCompensadosCli: TDAMemDataTable;
ds_RecibosCompensadosCli: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
protected
function _GetPagos: IBizPagosCliente;
@ -71,7 +69,7 @@ uses
function TDataModuleRecibosCliente.GetReport(const ID: String): Binary;
begin
Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
// Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
end;
procedure TDataModuleRecibosCliente.DAClientDataModuleCreate(Sender: TObject);
@ -102,19 +100,19 @@ function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensado
var
ARecibosCompensados : TDAMemDataTable;
begin
ShowHourglassCursor;
{ ShowHourglassCursor;
try
ARecibosCompensados := CloneDataTable(tbl_RecibosCompensadosCli);
with ARecibosCompensados do
begin
BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSCLI;
DetailOptions := DetailOptions -
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
end;
Result := (ARecibosCompensados as IBizRecibosCompensadosCli);
finally
HideHourglassCursor;
end;
}
end;
function TDataModuleRecibosCliente.GetItems: IBizRecibosCliente;
@ -144,18 +142,24 @@ begin
end;
function TDataModuleRecibosCliente.GetItem(const ID: Integer): IBizRecibosCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText(fld_RecibosClienteID + ' = ' + IntToStr(ID));
CloseBraket;
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;

545
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schRecibosClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, 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_RecibosCliente = '{49C7956A-0A84-4CAC-A577-709985BCFE40}';
RID_PagosCliente = '{556A81CB-B10F-4575-B1E8-1CDC29E07ECA}';
RID_RecibosCompensadosCli = '{F7389B45-CBEA-4957-9676-8031F6C9B121}';
RID_RecibosCliente = '{5410D8EC-FA59-43E6-96AB-C7C2E1292FBB}';
RID_PagosCliente = '{A9A33A29-1E9F-40C7-9F00-73776CAA6D93}';
RID_RecibosCompensadosCli = '{55474263-530A-458F-ADE8-497B260FA9A3}';
{ Data table names }
nme_RecibosCliente = 'RecibosCliente';
@ -111,43 +111,69 @@ const
{ RecibosCompensadosCli fields }
fld_RecibosCompensadosCliID = 'ID';
fld_RecibosCompensadosCliID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO';
fld_RecibosCompensadosCliREFERENCIA = 'REFERENCIA';
fld_RecibosCompensadosCliSITUACION = 'SITUACION';
fld_RecibosCompensadosCliID_FACTURA = 'ID_FACTURA';
fld_RecibosCompensadosCliID_REMESA = 'ID_REMESA';
fld_RecibosCompensadosCliREFERENCIA_REMESA = 'REFERENCIA_REMESA';
fld_RecibosCompensadosCliFECHA_EMISION = 'FECHA_EMISION';
fld_RecibosCompensadosCliFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
fld_RecibosCompensadosCliDESCRIPCION = 'DESCRIPCION';
fld_RecibosCompensadosCliOBSERVACIONES = 'OBSERVACIONES';
fld_RecibosCompensadosCliIMPORTE = 'IMPORTE';
fld_RecibosCompensadosCliOTROS_GASTOS = 'OTROS_GASTOS';
fld_RecibosCompensadosCliIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_RecibosCompensadosCliFECHA_FACTURA = 'FECHA_FACTURA';
fld_RecibosCompensadosCliFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA';
fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA';
fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE';
fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_RecibosCompensadosCliNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA';
fld_RecibosCompensadosCliENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE';
fld_RecibosCompensadosCliSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE';
fld_RecibosCompensadosCliDC_CLIENTE = 'DC_CLIENTE';
fld_RecibosCompensadosCliCUENTA_CLIENTE = 'CUENTA_CLIENTE';
fld_RecibosCompensadosCliFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosCompensadosCliFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosCompensadosCliUSUARIO = 'USUARIO';
{ RecibosCompensadosCli field indexes }
idx_RecibosCompensadosCliID = 0;
idx_RecibosCompensadosCliID_RECIBO_COMPENSADO = 1;
idx_RecibosCompensadosCliREFERENCIA = 2;
idx_RecibosCompensadosCliSITUACION = 3;
idx_RecibosCompensadosCliID_FACTURA = 4;
idx_RecibosCompensadosCliFECHA_EMISION = 5;
idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 6;
idx_RecibosCompensadosCliIMPORTE = 7;
idx_RecibosCompensadosCliOTROS_GASTOS = 8;
idx_RecibosCompensadosCliIMPORTE_TOTAL = 9;
idx_RecibosCompensadosCliFECHA_FACTURA = 10;
idx_RecibosCompensadosCliIMPORTE_FACTURA = 11;
idx_RecibosCompensadosCliID_CLIENTE = 12;
idx_RecibosCompensadosCliNOMBRE_CLIENTE = 13;
idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 14;
idx_RecibosCompensadosCliID_EMPRESA = 15;
idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO = 2;
idx_RecibosCompensadosCliREFERENCIA = 3;
idx_RecibosCompensadosCliSITUACION = 4;
idx_RecibosCompensadosCliID_FACTURA = 5;
idx_RecibosCompensadosCliID_REMESA = 6;
idx_RecibosCompensadosCliREFERENCIA_REMESA = 7;
idx_RecibosCompensadosCliFECHA_EMISION = 8;
idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 9;
idx_RecibosCompensadosCliDESCRIPCION = 10;
idx_RecibosCompensadosCliOBSERVACIONES = 11;
idx_RecibosCompensadosCliIMPORTE = 12;
idx_RecibosCompensadosCliOTROS_GASTOS = 13;
idx_RecibosCompensadosCliIMPORTE_TOTAL = 14;
idx_RecibosCompensadosCliFECHA_FACTURA = 15;
idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 16;
idx_RecibosCompensadosCliIMPORTE_FACTURA = 17;
idx_RecibosCompensadosCliID_EMPRESA = 18;
idx_RecibosCompensadosCliID_CLIENTE = 19;
idx_RecibosCompensadosCliNOMBRE_CLIENTE = 20;
idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 21;
idx_RecibosCompensadosCliENTIDAD_CLIENTE = 22;
idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 23;
idx_RecibosCompensadosCliDC_CLIENTE = 24;
idx_RecibosCompensadosCliCUENTA_CLIENTE = 25;
idx_RecibosCompensadosCliFECHA_ALTA = 26;
idx_RecibosCompensadosCliFECHA_MODIFICACION = 27;
idx_RecibosCompensadosCliUSUARIO = 28;
type
{ IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{14D43E5A-D46A-4F89-8E59-6BA1C0EBB6B1}']
['{11D2AB69-38A8-41B8-8139-2C32F3732B9C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -329,7 +355,7 @@ type
end;
{ TRecibosClienteDataTableRules }
TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
private
protected
{ Property getters and setters }
@ -518,7 +544,7 @@ type
{ IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable)
['{92A8371B-B686-4664-8F0F-621B498C99F2}']
['{A77D5C00-617A-4A1C-B34F-B24E6AC72E0D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -598,7 +624,7 @@ type
end;
{ TPagosClienteDataTableRules }
TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
private
protected
{ Property getters and setters }
@ -685,7 +711,7 @@ type
{ IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{EB912FB7-AC41-4E3F-B888-E26228ED7B80}']
['{3E3D9FC0-4E90-4A4D-AE58-8B53087B5A5F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -695,6 +721,10 @@ type
procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
function GetID_RECIBO_COMPENSADOIsNull: Boolean;
procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
function GetREFERENCIA_REC_COMPENSADOValue: String;
procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
@ -707,6 +737,14 @@ type
procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean;
procedure SetID_FACTURAIsNull(const aValue: Boolean);
function GetID_REMESAValue: Integer;
procedure SetID_REMESAValue(const aValue: Integer);
function GetID_REMESAIsNull: Boolean;
procedure SetID_REMESAIsNull(const aValue: Boolean);
function GetREFERENCIA_REMESAValue: String;
procedure SetREFERENCIA_REMESAValue(const aValue: String);
function GetREFERENCIA_REMESAIsNull: Boolean;
procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
function GetFECHA_EMISIONValue: DateTime;
procedure SetFECHA_EMISIONValue(const aValue: DateTime);
function GetFECHA_EMISIONIsNull: Boolean;
@ -715,6 +753,14 @@ type
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
function GetFECHA_VENCIMIENTOIsNull: Boolean;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetOBSERVACIONESValue: String;
procedure SetOBSERVACIONESValue(const aValue: String);
function GetOBSERVACIONESIsNull: Boolean;
procedure SetOBSERVACIONESIsNull(const aValue: Boolean);
function GetIMPORTEValue: Currency;
procedure SetIMPORTEValue(const aValue: Currency);
function GetIMPORTEIsNull: Boolean;
@ -731,10 +777,18 @@ type
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
function GetFECHA_FACTURAIsNull: Boolean;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
function GetFORMA_PAGO_FACTURAValue: String;
procedure SetFORMA_PAGO_FACTURAValue(const aValue: String);
function GetFORMA_PAGO_FACTURAIsNull: Boolean;
procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
function GetIMPORTE_FACTURAValue: Currency;
procedure SetIMPORTE_FACTURAValue(const aValue: Currency);
function GetIMPORTE_FACTURAIsNull: Boolean;
procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean;
@ -747,10 +801,34 @@ type
procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
function GetNIF_CIF_CLIENTEIsNull: Boolean;
procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetENTIDAD_CLIENTEValue: String;
procedure SetENTIDAD_CLIENTEValue(const aValue: String);
function GetENTIDAD_CLIENTEIsNull: Boolean;
procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
function GetSUCURSAL_CLIENTEValue: String;
procedure SetSUCURSAL_CLIENTEValue(const aValue: String);
function GetSUCURSAL_CLIENTEIsNull: Boolean;
procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
function GetDC_CLIENTEValue: String;
procedure SetDC_CLIENTEValue(const aValue: String);
function GetDC_CLIENTEIsNull: Boolean;
procedure SetDC_CLIENTEIsNull(const aValue: Boolean);
function GetCUENTA_CLIENTEValue: String;
procedure SetCUENTA_CLIENTEValue(const aValue: String);
function GetCUENTA_CLIENTEIsNull: Boolean;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONIsNull: Boolean;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetUSUARIOIsNull: Boolean;
procedure SetUSUARIOIsNull(const aValue: Boolean);
{ Properties }
@ -758,16 +836,26 @@ type
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
@ -776,20 +864,36 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
end;
{ TRecibosCompensadosCliDataTableRules }
TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
private
protected
{ Property getters and setters }
@ -801,6 +905,10 @@ type
procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
@ -813,6 +921,14 @@ type
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_REMESAValue: Integer; virtual;
procedure SetID_REMESAValue(const aValue: Integer); virtual;
function GetID_REMESAIsNull: Boolean; virtual;
procedure SetID_REMESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_REMESAValue: String; virtual;
procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
function GetREFERENCIA_REMESAIsNull: Boolean; virtual;
procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual;
function GetFECHA_EMISIONValue: DateTime; virtual;
procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
function GetFECHA_EMISIONIsNull: Boolean; virtual;
@ -821,6 +937,14 @@ type
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetOBSERVACIONESValue: String; virtual;
procedure SetOBSERVACIONESValue(const aValue: String); virtual;
function GetOBSERVACIONESIsNull: Boolean; virtual;
procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
function GetIMPORTEValue: Currency; virtual;
procedure SetIMPORTEValue(const aValue: Currency); virtual;
function GetIMPORTEIsNull: Boolean; virtual;
@ -837,10 +961,18 @@ type
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetFORMA_PAGO_FACTURAValue: String; virtual;
procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_FACTURAValue: Currency; virtual;
procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
@ -853,26 +985,60 @@ type
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_CLIENTEValue: String; virtual;
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual;
procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetDC_CLIENTEValue: String; virtual;
procedure SetDC_CLIENTEValue(const aValue: String); virtual;
function GetDC_CLIENTEIsNull: Boolean; virtual;
procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CLIENTEValue: String; virtual;
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
@ -881,16 +1047,32 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1840,6 +2022,27 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliID_RECIBO_COMPENSADO].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REC_COMPENSADOIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA].AsString;
@ -1903,6 +2106,48 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetID_REMESAValue: Integer;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].AsInteger;
end;
procedure TRecibosCompensadosCliDataTableRules.SetID_REMESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].AsInteger := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetID_REMESAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetID_REMESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REMESAValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REMESAValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REMESAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetFECHA_EMISIONValue: DateTime;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_EMISION].AsDateTime;
@ -1945,6 +2190,48 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliFECHA_VENCIMIENTO].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetOBSERVACIONESValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetOBSERVACIONESValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetOBSERVACIONESIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetIMPORTEValue: Currency;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE].AsCurrency;
@ -2029,6 +2316,27 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetFORMA_PAGO_FACTURAValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetIMPORTE_FACTURAValue: Currency;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency;
@ -2050,6 +2358,27 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger;
end;
procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger;
@ -2113,25 +2442,151 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer;
function TRecibosCompensadosCliDataTableRules.GetENTIDAD_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger;
result := DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
procedure TRecibosCompensadosCliDataTableRules.SetENTIDAD_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger := aValue;
DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAIsNull: boolean;
function TRecibosCompensadosCliDataTableRules.GetENTIDAD_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].IsNull;
result := DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
procedure TRecibosCompensadosCliDataTableRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsVariant := Null;
DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetSUCURSAL_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetSUCURSAL_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetDC_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetDC_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetDC_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetDC_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetCUENTA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetCUENTA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].AsDateTime;
end;
procedure TRecibosCompensadosCliDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].AsDateTime := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetFECHA_ALTAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].AsDateTime;
end;
procedure TRecibosCompensadosCliDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].AsDateTime := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetUSUARIOIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsVariant := Null;
end;

619
Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ 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_RecibosClienteDelta = '{112687A9-E4E3-453E-AD24-F6AF1575EDCC}';
RID_PagosClienteDelta = '{41C4B6B1-E072-45C7-9E22-BB8773C91269}';
RID_RecibosCompensadosCliDelta = '{A4012B7D-03C6-4AE3-84CF-E185F4BA123E}';
RID_RecibosClienteDelta = '{E1FDCE22-19B3-498A-BEBA-6CFB34FC22C2}';
RID_PagosClienteDelta = '{B09875FA-0962-46A9-9A3A-40F618B4230D}';
RID_RecibosCompensadosCliDelta = '{43471651-957E-47B2-B810-E0227C1BB163}';
type
{ IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente)
['{112687A9-E4E3-453E-AD24-F6AF1575EDCC}']
['{E1FDCE22-19B3-498A-BEBA-6CFB34FC22C2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -386,7 +386,7 @@ type
{ IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente)
['{41C4B6B1-E072-45C7-9E22-BB8773C91269}']
['{B09875FA-0962-46A9-9A3A-40F618B4230D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@ -552,42 +552,68 @@ type
{ IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{A4012B7D-03C6-4AE3-84CF-E185F4BA123E}']
['{43471651-957E-47B2-B810-E0227C1BB163}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
function GetOldREFERENCIA_REC_COMPENSADOValue : String;
function GetOldREFERENCIAValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_FACTURAValue : Integer;
function GetOldID_REMESAValue : Integer;
function GetOldREFERENCIA_REMESAValue : String;
function GetOldFECHA_EMISIONValue : DateTime;
function GetOldFECHA_VENCIMIENTOValue : DateTime;
function GetOldDESCRIPCIONValue : String;
function GetOldOBSERVACIONESValue : String;
function GetOldIMPORTEValue : Currency;
function GetOldOTROS_GASTOSValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldFECHA_FACTURAValue : DateTime;
function GetOldFORMA_PAGO_FACTURAValue : String;
function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer;
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldNIF_CIF_CLIENTEValue : String;
function GetOldID_EMPRESAValue : Integer;
function GetOldENTIDAD_CLIENTEValue : String;
function GetOldSUCURSAL_CLIENTEValue : String;
function GetOldDC_CLIENTEValue : String;
function GetOldCUENTA_CLIENTEValue : String;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_REMESA : Integer read GetOldID_REMESAValue;
property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
property OldIMPORTE : Currency read GetOldIMPORTEValue;
property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
end;
{ TRecibosCompensadosCliBusinessProcessorRules }
@ -607,6 +633,12 @@ type
function GetOldID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual;
function GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
@ -625,6 +657,18 @@ type
function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_REMESAValue: Integer; virtual;
function GetID_REMESAIsNull: Boolean; virtual;
function GetOldID_REMESAValue: Integer; virtual;
function GetOldID_REMESAIsNull: Boolean; virtual;
procedure SetID_REMESAValue(const aValue: Integer); virtual;
procedure SetID_REMESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_REMESAValue: String; virtual;
function GetREFERENCIA_REMESAIsNull: Boolean; virtual;
function GetOldREFERENCIA_REMESAValue: String; virtual;
function GetOldREFERENCIA_REMESAIsNull: Boolean; virtual;
procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual;
function GetFECHA_EMISIONValue: DateTime; virtual;
function GetFECHA_EMISIONIsNull: Boolean; virtual;
function GetOldFECHA_EMISIONValue: DateTime; virtual;
@ -637,6 +681,18 @@ type
function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetOBSERVACIONESValue: String; virtual;
function GetOBSERVACIONESIsNull: Boolean; virtual;
function GetOldOBSERVACIONESValue: String; virtual;
function GetOldOBSERVACIONESIsNull: Boolean; virtual;
procedure SetOBSERVACIONESValue(const aValue: String); virtual;
procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
function GetIMPORTEValue: Currency; virtual;
function GetIMPORTEIsNull: Boolean; virtual;
function GetOldIMPORTEValue: Currency; virtual;
@ -661,12 +717,24 @@ type
function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetFORMA_PAGO_FACTURAValue: String; virtual;
function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_FACTURAValue: Currency; virtual;
function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
function GetOldIMPORTE_FACTURAValue: Currency; virtual;
function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual;
procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
function GetOldID_CLIENTEValue: Integer; virtual;
@ -685,12 +753,48 @@ type
function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual;
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
function GetOldENTIDAD_CLIENTEValue: String; virtual;
function GetOldENTIDAD_CLIENTEIsNull: Boolean; virtual;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_CLIENTEValue: String; virtual;
function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual;
function GetOldSUCURSAL_CLIENTEValue: String; virtual;
function GetOldSUCURSAL_CLIENTEIsNull: Boolean; virtual;
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetDC_CLIENTEValue: String; virtual;
function GetDC_CLIENTEIsNull: Boolean; virtual;
function GetOldDC_CLIENTEValue: String; virtual;
function GetOldDC_CLIENTEIsNull: Boolean; virtual;
procedure SetDC_CLIENTEValue(const aValue: String); virtual;
procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CLIENTEValue: String; virtual;
function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
function GetOldCUENTA_CLIENTEValue: String; virtual;
function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAIsNull: Boolean; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
function GetUSUARIOIsNull: Boolean; virtual;
function GetOldUSUARIOValue: String; virtual;
function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -701,6 +805,10 @@ type
property ID_RECIBO_COMPENSADOIsNull : Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
property OldID_RECIBO_COMPENSADOIsNull : Boolean read GetOldID_RECIBO_COMPENSADOIsNull;
property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
property REFERENCIA_REC_COMPENSADOIsNull : Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
property OldREFERENCIA_REC_COMPENSADOIsNull : Boolean read GetOldREFERENCIA_REC_COMPENSADOIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
@ -713,6 +821,14 @@ type
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_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue;
property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
property OldID_REMESA : Integer read GetOldID_REMESAValue;
property OldID_REMESAIsNull : Boolean read GetOldID_REMESAIsNull;
property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
property REFERENCIA_REMESAIsNull : Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
property OldREFERENCIA_REMESAIsNull : Boolean read GetOldREFERENCIA_REMESAIsNull;
property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
property FECHA_EMISIONIsNull : Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
@ -721,6 +837,14 @@ type
property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue;
property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
property OldIMPORTE : Currency read GetOldIMPORTEValue;
@ -737,10 +861,18 @@ type
property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull;
property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
@ -753,10 +885,34 @@ type
property NIF_CIF_CLIENTEIsNull : Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
property OldENTIDAD_CLIENTEIsNull : Boolean read GetOldENTIDAD_CLIENTEIsNull;
property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
property SUCURSAL_CLIENTEIsNull : Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
property OldSUCURSAL_CLIENTEIsNull : Boolean read GetOldSUCURSAL_CLIENTEIsNull;
property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
property DC_CLIENTEIsNull : Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
property OldDC_CLIENTEIsNull : Boolean read GetOldDC_CLIENTEIsNull;
property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
property CUENTA_CLIENTEIsNull : Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
property OldCUENTA_CLIENTEIsNull : Boolean read GetOldCUENTA_CLIENTEIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -2137,6 +2293,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA];
@ -2230,6 +2417,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_REMESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_REMESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_REMESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_REMESA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION];
@ -2292,6 +2541,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDESCRIPCION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDESCRIPCION]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOBSERVACIONESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOBSERVACIONES];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOBSERVACIONES]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE];
@ -2416,6 +2727,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
@ -2447,6 +2789,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE];
@ -2540,35 +2913,221 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer;
function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA];
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA];
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := aValue;
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := Null;
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_ALTA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_ALTA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliUSUARIO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliUSUARIO]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO] := Null;
end;

23
Source/Modulos/Recibos de cliente/Model/uBizPagosCliente.pas
View File

@ -40,32 +40,25 @@ type
end;
TBizPagosCliente = class(TPagosClienteDataTableRules, IBizPagosCliente)
private
ContIdAux: Integer;
protected
procedure OnNewRecord(Sender: TDADataTable); override;
public
constructor Create(aDataTable: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
end;
implementation
uses
SysUtils, uDataTableUtils;
DB;
{ TBizPagosCliente }
constructor TBizPagosCliente.Create(aDataTable: TDADataTable);
begin
inherited Create(aDataTable);
ContIdAux := -1;
end;
procedure TBizPagosCliente.OnNewRecord(Sender: TDADataTable);
procedure TBizPagosCliente.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
ID := ContIdAux; // -1, -2, -3...
Dec(ContIdAux);
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
AMasterTable.Post;
end;
initialization

1
Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
View File

@ -212,7 +212,6 @@ end;
procedure TBizRecibosCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
ID := GetRecNo; // -1, -2, -3...
IniciarValoresIBizRecibosClienteNuevo;
end;

2
Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C3.tmp */
/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.drf */

204
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -1,7 +1,6 @@
object srvRecibosCliente: TsrvRecibosCliente
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schRecibosCliente
@ -307,6 +306,7 @@ object srvRecibosCliente: TsrvRecibosCliente
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'PAGOS_CLIENTE'
StatementType = stAutoSQL
ColumnMappings = <
@ -365,6 +365,7 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
ServerAutoRefresh = True
DictionaryEntry = 'PagosCliente_ID'
InPrimaryKey = True
end
@ -432,27 +433,25 @@ object srvRecibosCliente: TsrvRecibosCliente
end>
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE'
SQL =
'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA,'#10' ' +
' SITUACION,'#10' ID_FACTURA,'#10' FECHA_EMISION,'#10' FEC' +
'HA_VENCIMIENTO,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPO' +
'RTE_TOTAL,'#10' FECHA_FACTURA,'#10' IMPORTE_FACTURA,'#10' ' +
'ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NIF_CIF_CLIENTE,'#10' ' +
' ID_EMPRESA'#10#10'FROM V_RECIBOS_CLIENTE'#10'WHERE ID_RECIBO_COMPENSADO ' +
'= :ID'
StatementType = stSQL
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'REFERENCIA_REC_COMPENSADO'
TableField = 'REFERENCIA_REC_COMPENSADO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
@ -465,22 +464,62 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'ID_REMESA'
TableField = 'ID_REMESA'
end
item
DatasetField = 'REFERENCIA_REMESA'
TableField = 'REFERENCIA_REMESA'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'IMPORTE'
TableField = 'IMPORTE'
end
item
DatasetField = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'FORMA_PAGO_FACTURA'
TableField = 'FORMA_PAGO_FACTURA'
end
item
DatasetField = 'IMPORTE_FACTURA'
TableField = 'IMPORTE_FACTURA'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
@ -490,32 +529,32 @@ object srvRecibosCliente: TsrvRecibosCliente
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
DatasetField = 'ENTIDAD_CLIENTE'
TableField = 'ENTIDAD_CLIENTE'
end
item
DatasetField = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS'
DatasetField = 'SUCURSAL_CLIENTE'
TableField = 'SUCURSAL_CLIENTE'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
DatasetField = 'DC_CLIENTE'
TableField = 'DC_CLIENTE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
DatasetField = 'CUENTA_CLIENTE'
TableField = 'CUENTA_CLIENTE'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = 'ID_RECIBO_COMPENSADO'
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'ID'
TableField = 'ID'
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end>
end>
Name = 'RecibosCompensadosCli'
@ -523,84 +562,133 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
end
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
DictionaryEntry = 'RecibosCliente_SITUACION'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
end
item
Name = 'ID_REMESA'
DataType = datInteger
end
item
Name = 'REFERENCIA_REMESA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_IMPORTE'
end
item
Name = 'OTROS_GASTOS'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
Name = 'ENTIDAD_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'DC_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end>
end>
JoinDataTables = <>
@ -969,15 +1057,11 @@ object srvRecibosCliente: TsrvRecibosCliente
Params = <
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -995,9 +1079,7 @@ object srvRecibosCliente: TsrvRecibosCliente
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -1015,15 +1097,11 @@ object srvRecibosCliente: TsrvRecibosCliente
Params = <
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -1038,6 +1116,14 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'Update_RecibosCompensadosCli'
end>
RelationShips = <
item
Name = 'FK_RecibosCompensados'
MasterDatasetName = 'RecibosCliente'
MasterFields = 'ID'
DetailDatasetName = 'RecibosCompensadosCli'
DetailFields = 'ID_RECIBO_COMPENSADO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_PagosCliente'
MasterDatasetName = 'RecibosCliente'
@ -1099,7 +1185,7 @@ object srvRecibosCliente: TsrvRecibosCliente
DeleteCommandName = 'Delete_RecibosCliente'
UpdateCommandName = 'Update_RecibosCliente'
ReferencedDataset = 'RecibosCliente'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 24
@ -1336,7 +1422,7 @@ object srvRecibosCliente: TsrvRecibosCliente
DeleteCommandName = 'Delete_RecibosCompensadosCli'
UpdateCommandName = 'Update_RecibosCompensadosCli'
ReferencedDataset = 'RecibosCompensadosCli'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 152

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

@ -33,10 +33,9 @@ type
Bin2DataStreamer: TDABin2DataStreamer;
schRecibosCliente: TDASchema;
DADataDictionary: TDADataDictionary;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject);
private
protected
{ IsrvRecibosProveedor methods }
@ -69,7 +68,7 @@ begin
{ Aquí se asegura que el usuario sólo accede a Recibos
de las empresas a las que tiene permiso para acceder
filtrando DataSet por ID_EMPRESA. }
// FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA);
FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA);
end;
end;

14
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm
View File

@ -78,26 +78,36 @@ inherited frViewRecibosCliCompensados: TfrViewRecibosCliCompensados
Width = 549
ExplicitWidth = 549
inherited ToolButton1: TToolButton
Top = 0
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
Top = 0
ExplicitWidth = 74
end
inherited ToolButton5: TToolButton
Top = 0
end
inherited ToolButton2: TToolButton
Top = 0
ExplicitWidth = 67
end
inherited ToolButton6: TToolButton
Top = 0
end
inherited ToolButton7: TToolButton
Top = 0
ExplicitWidth = 117
end
object ToolButton3: TToolButton
Left = 336
Top = 2
Top = 0
Action = actExpandir
AutoSize = True
end
object ToolButton8: TToolButton
Left = 434
Top = 2
Top = 0
Action = actContraer
AutoSize = True
end

2
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas
View File

@ -10,7 +10,7 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosCliente,
uBizRecibosCliente, uRecibosClienteController, Grids, DBGrids, cxSpinEdit,
dxLayoutControl;
dxLayoutControl, uDAInterfaces;
type
IViewRecibosCompensados = interface

2
Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf18B.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA2.tmp */

1
Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dfm
View File

@ -68,6 +68,7 @@ inherited DataModuleTiposIVA: TDataModuleTiposIVA
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'TiposIVA'
IndexDefs = <>
Left = 296
Top = 24
end

12
Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas
View File

@ -86,16 +86,22 @@ begin
end;
function TDataModuleTiposIVA.GetItem(const ID: Integer): IBizTipoIVA;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
// (ID = :ID)
with Result.DataTable.DynamicWhere do
begin
Expression := NewBinaryExpression(NewField('', fld_TiposIVAID),
NewConstant(ID, datInteger), dboEqual);
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_TiposIVAID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally

2
Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf189.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA0.tmp */

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

12
Source/Servidor/FactuGES_Server.dpr
View File

@ -60,15 +60,15 @@ uses
srvRecibosCliente_Impl in '..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDataAbstractService},
srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDataAbstractService},
uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas',
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente},
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_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',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente},
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

302
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,155 +1,155 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<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">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<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">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

2632
Source/Servidor/FactuGES_Server.drc
View File

File diff suppressed because it is too large Load Diff

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "3.0.0.0\0"
VALUE "ProductVersion", "3.0.0.0\0"
VALUE "CompileDate", "martes, 13 de noviembre de 2007 20:09\0"
VALUE "CompileDate", "miércoles, 14 de noviembre de 2007 19:07\0"
END
END
BLOCK "VarFileInfo"