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@83 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Browse Source
This commit is contained in:
David Arranz 2007-11-12 19:37:16 +00:00
parent 52c0178f30
commit 999756ff86
8 changed files with 96 additions and 2864 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,4 +14,4 @@ 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:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD3.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf164.tmp */

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

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

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

@ -94,6 +94,7 @@ type
procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosCli); procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosCli);
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
function GetSITUACIONValue: String; override;
procedure SetID_REMESAValue(const aValue: Integer); override; procedure SetID_REMESAValue(const aValue: Integer); override;
public public
@ -132,6 +133,11 @@ begin
Result := FRecibosCompensados; Result := FRecibosCompensados;
end; end;
function TBizRecibosCliente.GetSITUACIONValue: String;
begin
result := Trim(DataTable.Fields[idx_RecibosClienteSITUACION].AsString);
end;
procedure TBizRecibosCliente.SetID_REMESAValue(const aValue: Integer); procedure TBizRecibosCliente.SetID_REMESAValue(const aValue: Integer);
begin begin
if (aValue = 0) then if (aValue = 0) then

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\uPluginRecibosCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */ /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf5B.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf16A.tmp */

42
Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj
View File

@ -48,24 +48,6 @@
<Target Name="ApplicationBase:Make"> <Target Name="ApplicationBase:Make">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" /> <MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
<Target Name="FactuGES:Clean">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_model"> <Target Name="RecibosCliente_model">
<MSBuild Projects="Model\RecibosCliente_model.dproj" Targets="" /> <MSBuild Projects="Model\RecibosCliente_model.dproj" Targets="" />
</Target> </Target>
@ -111,14 +93,32 @@
<Target Name="RecibosCliente_plugin:Make"> <Target Name="RecibosCliente_plugin:Make">
<MSBuild Projects="Plugin\RecibosCliente_plugin.dproj" Targets="Make" /> <MSBuild Projects="Plugin\RecibosCliente_plugin.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
<Target Name="FactuGES:Clean">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;FactuGES;FactuGES_Server;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -26,6 +26,14 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'ID' DatasetField = 'ID'
TableField = 'ID' TableField = 'ID'
end end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'REFERENCIA_REC_COMPENSADO'
TableField = 'REFERENCIA_REC_COMPENSADO'
end
item item
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = 'REFERENCIA'
@ -38,6 +46,18 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'ID_FACTURA' DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA' TableField = 'ID_FACTURA'
end 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 item
DatasetField = 'FECHA_VENCIMIENTO' DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO'
@ -54,6 +74,14 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'IMPORTE' DatasetField = 'IMPORTE'
TableField = 'IMPORTE' TableField = 'IMPORTE'
end end
item
DatasetField = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item item
DatasetField = 'FECHA_FACTURA' DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA'
@ -66,6 +94,14 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'IMPORTE_FACTURA' DatasetField = 'IMPORTE_FACTURA'
TableField = 'IMPORTE_FACTURA' TableField = 'IMPORTE_FACTURA'
end end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item item
DatasetField = 'NOMBRE_CLIENTE' DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE' TableField = 'NOMBRE_CLIENTE'
@ -90,10 +126,6 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'CUENTA_CLIENTE' DatasetField = 'CUENTA_CLIENTE'
TableField = 'CUENTA_CLIENTE' TableField = 'CUENTA_CLIENTE'
end end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item item
DatasetField = 'FECHA_ALTA' DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA' TableField = 'FECHA_ALTA'
@ -105,46 +137,17 @@ object srvRecibosCliente: TsrvRecibosCliente
item item
DatasetField = 'USUARIO' DatasetField = 'USUARIO'
TableField = 'USUARIO' TableField = 'USUARIO'
end
item
DatasetField = 'ID_REMESA'
TableField = 'ID_REMESA'
end
item
DatasetField = 'REFERENCIA_REMESA'
TableField = 'REFERENCIA_REMESA'
end
item
DatasetField = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'REFERENCIA_REC_COMPENSADO'
TableField = 'REFERENCIA_REC_COMPENSADO'
end> end>
end> end>
Name = 'RecibosCliente' Name = 'RecibosCliente'
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_ID' DictionaryEntry = 'RecibosCliente_ID'
InPrimaryKey = True
end end
item item
Name = 'ID_RECIBO_COMPENSADO' Name = 'ID_RECIBO_COMPENSADO'
@ -299,308 +302,6 @@ object srvRecibosCliente: TsrvRecibosCliente
DictionaryEntry = 'RecibosCliente_USUARIO' DictionaryEntry = 'RecibosCliente_USUARIO'
end> end>
end end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE'
SQL =
'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA_REC_CO' +
'MPENSADO,'#10' REFERENCIA,'#10' SITUACION,'#10' ID_FACTURA' +
','#10' ID_REMESA,'#10' REFERENCIA_REMESA,'#10' FECHA_EMISI' +
'ON,'#10' FECHA_VENCIMIENTO,'#10' DESCRIPCION,'#10' OBSERVA' +
'CIONES,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPORTE_TOTA' +
'L,'#10' FECHA_FACTURA,'#10' FORMA_PAGO_FACTURA,'#10' IMPOR' +
'TE_FACTURA,'#10' ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NIF' +
'_CIF_CLIENTE,'#10' ENTIDAD_CLIENTE,'#10' SUCURSAL_CLIENTE,'#10' ' +
' DC_CLIENTE,'#10' CUENTA_CLIENTE,'#10' ID_EMPRESA,'#10' ' +
' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM V' +
'_RECIBOS_CLIENTE'#10'WHERE'#10' ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
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 = '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 = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'ENTIDAD_CLIENTE'
TableField = 'ENTIDAD_CLIENTE'
end
item
DatasetField = 'SUCURSAL_CLIENTE'
TableField = 'SUCURSAL_CLIENTE'
end
item
DatasetField = 'DC_CLIENTE'
TableField = 'DC_CLIENTE'
end
item
DatasetField = 'CUENTA_CLIENTE'
TableField = 'CUENTA_CLIENTE'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_REMESA'
TableField = 'ID_REMESA'
end
item
DatasetField = 'REFERENCIA_REMESA'
TableField = 'REFERENCIA_REMESA'
end
item
DatasetField = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'REFERENCIA_REC_COMPENSADO'
TableField = 'REFERENCIA_REC_COMPENSADO'
end>
end>
Name = 'RecibosCliente_Refresh'
Fields = <
item
Name = 'ID'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_Refresh_ID'
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_Refresh_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
DictionaryEntry = 'RecibosCliente_Refresh_SITUACION'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_Refresh_ID_FACTURA'
end
item
Name = 'ID_REMESA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_Refresh_ID_REMESA'
end
item
Name = 'REFERENCIA_REMESA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_Refresh_REFERENCIA_REMESA'
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_Refresh_FECHA_VENCIMIENTO'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_Refresh_DESCRIPCION'
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_Refresh_OBSERVACIONES'
end
item
Name = 'IMPORTE'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE'
end
item
Name = 'OTROS_GASTOS'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_Refresh_OTROS_GASTOS'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE_TOTAL'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_Refresh_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_Refresh_FORMA_PAGO_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE_FACTURA'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_Refresh_ID_CLIENTE'
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_Refresh_NOMBRE_CLIENTE'
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_Refresh_NIF_CIF_CLIENTE'
end
item
Name = 'ENTIDAD_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_Refresh_ENTIDAD_CLIENTE'
end
item
Name = 'SUCURSAL_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_Refresh_SUCURSAL_CLIENTE'
end
item
Name = 'DC_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_Refresh_DC_CLIENTE'
end
item
Name = 'CUENTA_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_Refresh_CUENTA_CLIENTE'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_Refresh_ID_EMPRESA'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_Refresh_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_Refresh_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'RecibosCliente_Refresh_USUARIO'
end>
end
item item
Params = <> Params = <>
Statements = < Statements = <
@ -662,7 +363,8 @@ object srvRecibosCliente: TsrvRecibosCliente
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
DictionaryEntry = 'PagosCliente_ID' DictionaryEntry = 'PagosCliente_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -908,7 +610,8 @@ object srvRecibosCliente: TsrvRecibosCliente
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -1081,7 +784,8 @@ object srvRecibosCliente: TsrvRecibosCliente
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -1404,8 +1108,11 @@ object srvRecibosCliente: TsrvRecibosCliente
Fields = < Fields = <
item item
Name = 'RecibosCliente_ID' Name = 'RecibosCliente_ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
Required = True
DisplayLabel = 'ID' DisplayLabel = 'ID'
ServerAutoRefresh = True
end end
item item
Name = 'RecibosCliente_REFERENCIA' Name = 'RecibosCliente_REFERENCIA'
@ -1521,129 +1228,13 @@ object srvRecibosCliente: TsrvRecibosCliente
Size = 20 Size = 20
DisplayLabel = 'USUARIO' DisplayLabel = 'USUARIO'
end end
item
Name = 'RecibosCliente_Refresh_ID'
DataType = datInteger
DisplayLabel = 'ID'
end
item
Name = 'RecibosCliente_Refresh_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA'
end
item
Name = 'RecibosCliente_Refresh_SITUACION'
DataType = datString
Size = 9
DisplayLabel = 'SITUACION'
end
item
Name = 'RecibosCliente_Refresh_ID_FACTURA'
DataType = datInteger
DisplayLabel = 'ID_FACTURA'
end
item
Name = 'RecibosCliente_Refresh_FECHA_VENCIMIENTO'
DataType = datDateTime
DisplayLabel = 'FECHA_VENCIMIENTO'
end
item
Name = 'RecibosCliente_Refresh_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'DESCRIPCION'
end
item
Name = 'RecibosCliente_Refresh_OBSERVACIONES'
DataType = datString
Size = 255
DisplayLabel = 'OBSERVACIONES'
end
item
Name = 'RecibosCliente_Refresh_IMPORTE'
DataType = datCurrency
DisplayLabel = 'IMPORTE'
Alignment = taRightJustify
end
item
Name = 'RecibosCliente_Refresh_FECHA_FACTURA'
DataType = datDateTime
DisplayLabel = 'FECHA_FACTURA'
end
item
Name = 'RecibosCliente_Refresh_FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DisplayLabel = 'FORMA_PAGO_FACTURA'
end
item
Name = 'RecibosCliente_Refresh_IMPORTE_FACTURA'
DataType = datCurrency
DisplayLabel = 'IMPORTE_FACTURA'
Alignment = taRightJustify
end
item
Name = 'RecibosCliente_Refresh_NOMBRE_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'NOMBRE_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_NIF_CIF_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'NIF_CIF_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_ENTIDAD_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'ENTIDAD_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_SUCURSAL_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'SUCURSAL_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_DC_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'DC_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_CUENTA_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'CUENTA_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'ID_EMPRESA'
end
item
Name = 'RecibosCliente_Refresh_FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'FECHA_ALTA'
end
item
Name = 'RecibosCliente_Refresh_FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'FECHA_MODIFICACION'
end
item
Name = 'RecibosCliente_Refresh_USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'USUARIO'
end
item item
Name = 'PagosCliente_ID' Name = 'PagosCliente_ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
Required = True
DisplayLabel = 'ID' DisplayLabel = 'ID'
ServerAutoRefresh = True
end end
item item
Name = 'PagosCliente_ID_RECIBO' Name = 'PagosCliente_ID_RECIBO'
@ -1696,10 +1287,6 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString DataType = datString
Size = 20 Size = 20
end end
item
Name = 'RecibosCliente_Refresh_ID_REMESA'
DataType = datInteger
end
item item
Name = 'RecibosCliente_ID_REMESA' Name = 'RecibosCliente_ID_REMESA'
DataType = datInteger DataType = datInteger
@ -1709,21 +1296,11 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'RecibosCliente_Refresh_REFERENCIA_REMESA'
DataType = datString
Size = 255
end
item item
Name = 'RecibosCliente_OTROS_GASTOS' Name = 'RecibosCliente_OTROS_GASTOS'
DataType = datCurrency DataType = datCurrency
Alignment = taRightJustify Alignment = taRightJustify
end end
item
Name = 'RecibosCliente_Refresh_OTROS_GASTOS'
DataType = datCurrency
Alignment = taRightJustify
end
item item
Name = 'RecibosCliente_IMPORTE_TOTAL' Name = 'RecibosCliente_IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
@ -1735,17 +1312,6 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datInteger DataType = datInteger
DisplayLabel = 'ID_CLIENTE' DisplayLabel = 'ID_CLIENTE'
end end
item
Name = 'RecibosCliente_Refresh_IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'IMPORTE_TOTAL'
Alignment = taRightJustify
end
item
Name = 'RecibosCliente_Refresh_ID_CLIENTE'
DataType = datInteger
DisplayLabel = 'ID_CLIENTE'
end
item item
Name = 'RecibosCliente_FECHA_EMISION' Name = 'RecibosCliente_FECHA_EMISION'
DataType = datDateTime DataType = datDateTime

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

@ -69,7 +69,7 @@ begin
{ Aquí se asegura que el usuario sólo accede a Recibos { Aquí se asegura que el usuario sólo accede a Recibos
de las empresas a las que tiene permiso para acceder de las empresas a las que tiene permiso para acceder
filtrando DataSet por ID_EMPRESA. } filtrando DataSet por ID_EMPRESA. }
FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA); // FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA);
end; end;
end; end;