Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo de recibos de cliente para que coja los datos del cliente de la factura asociada

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@54 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-01-25 11:25:29 +00:00
parent 17142e8244
commit 01bf48dff3
1 changed files with 54 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -45,7 +45,20 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE'
StatementType = stAutoSQL
SQL =
'SELECT '#10' ID, ID_RECIBO_COMPENSADO, REFERENCIA_REC_COMPENSADO,' +
' '#10' REFERENCIA, SITUACION, ID_FACTURA, ID_REMESA, REFERENCIA_R' +
'EMESA, '#10' FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIPCION, OBSER' +
'VACIONES, '#10' IMPORTE, OTROS_GASTOS, IMPORTE_TOTAL, FECHA_FACTU' +
'RA, '#10' FORMA_PAGO_FACTURA, IMPORTE_FACTURA, ID_EMPRESA, DATOS_' +
'BANCARIOS, '#10' ID_CLIENTE, NOMBRE_CLIENTE, NIF_CIF_CLIENTE, CAL' +
'LE_CLIENTE, '#10' POBLACION_CLIENTE, CODIGO_POSTAL_CLIENTE, PROVI' +
'NCIA_CLIENTE, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO,'#10' ' +
'substr(DATOS_BANCARIOS, 1,4) as ENTIDAD,'#10' substr(DATOS_BANCAR' +
'IOS, 6,9) as SUCURSAL,'#10' substr(DATOS_BANCARIOS, 11,13) as DC,' +
#10' substr(DATOS_BANCARIOS, 14,23) as CUENTA'#10#10' FROM'#10' V_RECI' +
'BOS_CLIENTE'#10' WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
@ -166,6 +179,26 @@ object srvRecibosCliente: TsrvRecibosCliente
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ENTIDAD'
TableField = '<unknown>'
SQLOrigin = 'ENTIDAD'
end
item
DatasetField = 'SUCURSAL'
TableField = '<unknown>'
SQLOrigin = 'SUCURSAL'
end
item
DatasetField = 'DC'
TableField = '<unknown>'
SQLOrigin = 'DC'
end
item
DatasetField = 'CUENTA'
TableField = '<unknown>'
SQLOrigin = 'CUENTA'
end>
end>
Name = 'RecibosCliente'
@ -330,6 +363,26 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString
Size = 20
DictionaryEntry = 'RecibosCliente_USUARIO'
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 254
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 254
end
item
Name = 'DC'
DataType = datString
Size = 254
end
item
Name = 'CUENTA'
DataType = datString
Size = 254
end>
end
item