This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
Noviseda_FactuGES2/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
2010-01-15 18:07:30 +00:00

1547 lines
48 KiB
Plaintext

object RptRecibosCliente: TRptRecibosCliente
OldCreateOrder = True
OnCreate = DataModuleCreate
Height = 405
Width = 892
object DADataCabecera: TDADataSource
DataSet = tbl_Cabecera.Dataset
DataTable = tbl_Cabecera
Left = 264
Top = 72
end
object tbl_Cabecera: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
end
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
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
item
Name = 'ID_REMESA'
DataType = datInteger
end
item
Name = 'REFERENCIA_REMESA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE'
DataType = datCurrency
end
item
Name = 'OTROS_GASTOS'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'CALLE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
end
item
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
end
item
Name = 'LOGOTIPO'
DataType = datBlob
end>
Params = <
item
Name = 'ID'
DataType = datInteger
Value = '8'
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'Informe_Cabecera'
IndexDefs = <>
Left = 264
Top = 128
end
object frxRichObject1: TfrxRichObject
Left = 48
Top = 296
end
object frxBarCodeObject1: TfrxBarCodeObject
Left = 144
Top = 296
end
object frxOLEObject1: TfrxOLEObject
Left = 48
Top = 344
end
object frxCrossObject1: TfrxCrossObject
Left = 144
Top = 344
end
object frxCheckBoxObject1: TfrxCheckBoxObject
Left = 256
Top = 296
end
object frxGradientObject1: TfrxGradientObject
Left = 360
Top = 296
end
object frxChartObject1: TfrxChartObject
Left = 256
Top = 344
end
object schReport: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_recibos_cliente'
Name = 'IBX'
SQL =
'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
#10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
'(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, SITUACION, NIF_CIF_' +
'CLIENTE, fecha_vencimiento, FECHA_EMISION,'#10'IMPORTE_TOTAL,'#10'case'#10'w' +
'hen strlen(DATOS_BANCARIOS) = 0 then '#39'Sin cuenta bancaria'#39#10'else ' +
'DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS'#10#10'from V_recibos_cliente'#10'w' +
'here {where}'#10'order by ANO, MES, FECHA_VENCIMIENTO, DATOS_BANCARI' +
'OS, NOMBRE_CLIENTE'#10#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'MES'
TableField = 'MES'
end
item
DatasetField = 'TITULO'
TableField = 'TITULO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = 'ANO'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end>
end>
Name = 'InformeListadoRecibosPendientes'
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
end
item
Name = 'MES'
DataType = datSmallInt
end
item
Name = 'TITULO'
DataType = datString
Size = 19
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end>
end
item
Params = <
item
Name = 'ID_RECIBO'
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
SQL =
'SELECT'#10' V_RECIBOS_CLIENTE.REFERENCIA, V_RECIBOS_CLIENTE.DESCR' +
'IPCION, V_RECIBOS_CLIENTE.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLIENTE'#10'W' +
'HERE V_RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO = :ID_RECIBO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'Informe_Compensados'
Fields = <
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
end>
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = '8'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE'
SQL =
'SELECT'#10' V_RECIBOS_CLIENTE.ID,'#10#10' V_RECIBOS_CLIENTE.ID_RECIB' +
'O_COMPENSADO,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REC_COMPENSADO,'#10' ' +
' V_RECIBOS_CLIENTE.ID_EMPRESA,'#10' V_RECIBOS_CLIENTE.REFERENCI' +
'A,'#10' V_RECIBOS_CLIENTE.SITUACION,'#10' V_RECIBOS_CLIENTE.ID_FAC' +
'TURA,'#10#10' V_RECIBOS_CLIENTE.DATOS_BANCARIOS,'#10' substr(V_RECIB' +
'OS_CLIENTE.DATOS_BANCARIOS, 1,4) as ENTIDAD,'#10' substr(V_RECIBO' +
'S_CLIENTE.DATOS_BANCARIOS, 6,9) as SUCURSAL,'#10' substr(V_RECIBO' +
'S_CLIENTE.DATOS_BANCARIOS, 11,13) as DC,'#10' substr(V_RECIBOS_CL' +
'IENTE.DATOS_BANCARIOS, 14,23) as CUENTA,'#10#10' V_RECIBOS_CLIENTE.' +
'ID_REMESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REMESA,'#10' V_RECIBO' +
'S_CLIENTE.FECHA_EMISION,'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO' +
','#10' V_RECIBOS_CLIENTE.DESCRIPCION,'#10' V_RECIBOS_CLIENTE.OBSER' +
'VACIONES,'#10' V_RECIBOS_CLIENTE.IMPORTE,'#10' V_RECIBOS_CLIENTE.O' +
'TROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10' V_RECIBOS_' +
'CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTURA,' +
#10' V_RECIBOS_CLIENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.NO' +
'MBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_RECIB' +
'OS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTAL_CL' +
'IENTE,'#10' V_RECIBOS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_CL' +
'IENTE.POBLACION_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPRES' +
'A, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, E' +
'MPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA a' +
's PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMP' +
'RESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, E' +
'MPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERC' +
'ANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTER ' +
'JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WH' +
'ERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = '<unknown>'
SQLOrigin = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'REFERENCIA_REC_COMPENSADO'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_REC_COMPENSADO'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'SITUACION'
TableField = '<unknown>'
SQLOrigin = 'SITUACION'
end
item
DatasetField = 'ID_FACTURA'
TableField = '<unknown>'
SQLOrigin = 'ID_FACTURA'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = '<unknown>'
SQLOrigin = 'DATOS_BANCARIOS'
end
item
DatasetField = 'ID_REMESA'
TableField = '<unknown>'
SQLOrigin = 'ID_REMESA'
end
item
DatasetField = 'REFERENCIA_REMESA'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_REMESA'
end
item
DatasetField = 'FECHA_EMISION'
TableField = '<unknown>'
SQLOrigin = 'FECHA_EMISION'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = '<unknown>'
SQLOrigin = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'OBSERVACIONES'
TableField = '<unknown>'
SQLOrigin = 'OBSERVACIONES'
end
item
DatasetField = 'IMPORTE'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE'
end
item
DatasetField = 'OTROS_GASTOS'
TableField = '<unknown>'
SQLOrigin = 'OTROS_GASTOS'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = '<unknown>'
SQLOrigin = 'FECHA_FACTURA'
end
item
DatasetField = 'FORMA_PAGO_FACTURA'
TableField = '<unknown>'
SQLOrigin = 'FORMA_PAGO_FACTURA'
end
item
DatasetField = 'IMPORTE_FACTURA'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_FACTURA'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'CALLE_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'CALLE_CLIENTE'
end
item
DatasetField = 'CODIGO_POSTAL_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'CODIGO_POSTAL_CLIENTE'
end
item
DatasetField = 'PROVINCIA_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'PROVINCIA_CLIENTE'
end
item
DatasetField = 'POBLACION_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'POBLACION_CLIENTE'
end
item
DatasetField = 'NIF_CIF_EMPRESA'
TableField = '<unknown>'
SQLOrigin = 'NIF_CIF_EMPRESA'
end
item
DatasetField = 'RAZON_SOCIAL'
TableField = '<unknown>'
SQLOrigin = 'RAZON_SOCIAL'
end
item
DatasetField = 'CALLE_EMPRESA'
TableField = '<unknown>'
SQLOrigin = 'CALLE_EMPRESA'
end
item
DatasetField = 'POBLACION_EMPRESA'
TableField = '<unknown>'
SQLOrigin = 'POBLACION_EMPRESA'
end
item
DatasetField = 'PROVINCIA_EMPRESA'
TableField = '<unknown>'
SQLOrigin = 'PROVINCIA_EMPRESA'
end
item
DatasetField = 'CODIGO_POSTAL_EMPRESA'
TableField = '<unknown>'
SQLOrigin = 'CODIGO_POSTAL_EMPRESA'
end
item
DatasetField = 'TELEFONO_1'
TableField = '<unknown>'
SQLOrigin = 'TELEFONO_1'
end
item
DatasetField = 'FAX'
TableField = '<unknown>'
SQLOrigin = 'FAX'
end
item
DatasetField = 'MOVIL_1'
TableField = '<unknown>'
SQLOrigin = 'MOVIL_1'
end
item
DatasetField = 'EMAIL_1'
TableField = '<unknown>'
SQLOrigin = 'EMAIL_1'
end
item
DatasetField = 'PAGINA_WEB'
TableField = '<unknown>'
SQLOrigin = 'PAGINA_WEB'
end
item
DatasetField = 'REGISTRO_MERCANTIL'
TableField = '<unknown>'
SQLOrigin = 'REGISTRO_MERCANTIL'
end
item
DatasetField = 'LOGOTIPO'
TableField = '<unknown>'
SQLOrigin = 'LOGOTIPO'
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 = 'Informe_Cabecera'
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
end
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
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
item
Name = 'ID_REMESA'
DataType = datInteger
end
item
Name = 'REFERENCIA_REMESA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE'
DataType = datCurrency
end
item
Name = 'OTROS_GASTOS'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'CALLE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
end
item
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
end
item
Name = 'LOGOTIPO'
DataType = datBlob
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_recibos_cliente'
SQL =
'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
#10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
'(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'LO,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 then '#39'Sin cuenta banca' +
'ria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS,'#10'sum(IMPORTE_TO' +
'TAL) as Importe_total'#10#10'from V_recibos_cliente'#10'group by 1,2,3,4,5' +
#10'order by 1,2,3,4,5'#10#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ANO'
TableField = 'ANO'
end
item
DatasetField = 'MES'
TableField = 'MES'
end
item
DatasetField = 'TITULO'
TableField = 'TITULO'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end>
end>
Name = 'InformeListadoRecibosPendientesResumen'
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
end
item
Name = 'MES'
DataType = datSmallInt
end
item
Name = 'TITULO'
DataType = datString
Size = 19
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_recibos_cliente'
SQL =
'select ID_EMPRESA,'#10'extract (year from fecha_emision) as ANO,'#10'ext' +
'ract (month from fecha_emision) as MES,'#10'case'#10'when extract (month' +
' from fecha_emision) = 1 then '#39'ENERO - '#39' || extract (year from f' +
'echa_emision)'#10'when extract (month from fecha_emision) = 2 then '#39 +
'FEBRERO - '#39' || extract (year from fecha_emision)'#10'when extract (m' +
'onth from fecha_emision) = 3 then '#39'MARZO - '#39' || extract (year fr' +
'om fecha_emision)'#10'when extract (month from fecha_emision) = 4 th' +
'en '#39'ABRIL - '#39' || extract (year from fecha_emision)'#10'when extract ' +
'(month from fecha_emision) = 5 then '#39'MAYO - '#39' || extract (year f' +
'rom fecha_emision)'#10'when extract (month from fecha_emision) = 6 t' +
'hen '#39'JUNIO - '#39' || extract (year from fecha_emision)'#10'when extract' +
' (month from fecha_emision) = 7 then '#39'JULIO - '#39' || extract (year' +
' from fecha_emision)'#10'when extract (month from fecha_emision) = 8' +
' then '#39'AGOSTO - '#39' || extract (year from fecha_emision)'#10'when extr' +
'act (month from fecha_emision) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
'ct (year from fecha_emision)'#10'when extract (month from fecha_emis' +
'ion) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_emision)' +
#10'when extract (month from fecha_emision) = 11 then '#39'NOVIEMBRE - ' +
#39' || extract (year from fecha_emision)'#10'when extract (month from ' +
'fecha_emision) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'cha_emision)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIE' +
'NTE, SITUACION, NIF_CIF_CLIENTE, fecha_emision, FECHA_VENCIMIENT' +
'O,'#10'IMPORTE_TOTAL'#10#10'from V_recibos_cliente'#10'where {where}'#10'order by ' +
'ANO, MES, fecha_emision, NOMBRE_CLIENTE'#10#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ANO'
TableField = 'ANO'
end
item
DatasetField = 'MES'
TableField = 'MES'
end
item
DatasetField = 'TITULO'
TableField = 'TITULO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end>
end>
Name = 'InformeListadoRecibos'
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
end
item
Name = 'MES'
DataType = datSmallInt
end
item
Name = 'TITULO'
DataType = datString
Size = 19
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_recibos_cliente'
SQL =
'select ID_EMPRESA,'#10'extract (year from fecha_emision) as ANO,'#10'ext' +
'ract (month from fecha_emision) as MES,'#10'case'#10'when extract (month' +
' from fecha_emision) = 1 then '#39'ENERO - '#39' || extract (year from f' +
'echa_emision)'#10'when extract (month from fecha_emision) = 2 then '#39 +
'FEBRERO - '#39' || extract (year from fecha_emision)'#10'when extract (m' +
'onth from fecha_emision) = 3 then '#39'MARZO - '#39' || extract (year fr' +
'om fecha_emision)'#10'when extract (month from fecha_emision) = 4 th' +
'en '#39'ABRIL - '#39' || extract (year from fecha_emision)'#10'when extract ' +
'(month from fecha_emision) = 5 then '#39'MAYO - '#39' || extract (year f' +
'rom fecha_emision)'#10'when extract (month from fecha_emision) = 6 t' +
'hen '#39'JUNIO - '#39' || extract (year from fecha_emision)'#10'when extract' +
' (month from fecha_emision) = 7 then '#39'JULIO - '#39' || extract (year' +
' from fecha_emision)'#10'when extract (month from fecha_emision) = 8' +
' then '#39'AGOSTO - '#39' || extract (year from fecha_emision)'#10'when extr' +
'act (month from fecha_emision) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
'ct (year from fecha_emision)'#10'when extract (month from fecha_emis' +
'ion) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_emision)' +
#10'when extract (month from fecha_emision) = 11 then '#39'NOVIEMBRE - ' +
#39' || extract (year from fecha_emision)'#10'when extract (month from ' +
'fecha_emision) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'cha_emision)'#10'end as TITULO,'#10'sum(IMPORTE_TOTAL) as importe_total'#10 +
#10'from V_recibos_cliente'#10'group by 1,2,3,4'#10'order by 1,2,3,4'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ANO'
TableField = 'ANO'
end
item
DatasetField = 'MES'
TableField = 'MES'
end
item
DatasetField = 'TITULO'
TableField = 'TITULO'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end>
end>
Name = 'InformeListadoRecibosResumen'
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
end
item
Name = 'MES'
DataType = datSmallInt
end
item
Name = 'TITULO'
DataType = datString
Size = 19
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <>
RelationShips = <>
UpdateRules = <>
Version = 0
Left = 48
Top = 16
end
object DataDictionary: TDADataDictionary
Fields = <>
Left = 46
Top = 158
end
object frxReport: TfrxReport
Version = '4.7.71'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.')
ReportOptions.LastChange = 40193.741058298610000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'begin'
''
'end.')
ShowProgress = False
StoreInDFM = False
Left = 169
Top = 16
end
object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera'
CloseDataSource = False
DataSource = DADataCabecera
BCDToCurrency = False
Left = 264
Top = 16
end
object DADataCompensados: TDADataSource
DataSet = tbl_Compensados.Dataset
DataTable = tbl_Compensados
Left = 360
Top = 72
end
object frxDBCompensados: TfrxDBDataset
UserName = 'frxDBCompensados'
CloseDataSource = False
DataSource = DADataCompensados
BCDToCurrency = False
Left = 360
Top = 16
end
object tbl_Compensados: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
end>
Params = <
item
Name = 'ID_RECIBO'
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'Informe_Compensados'
IndexDefs = <>
Left = 360
Top = 128
end
object tbl_InformeListadoRecibos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'MES'
DataType = datSmallInt
end
item
Name = 'TITULO'
DataType = datString
Size = 19
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end>
Params = <>
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'InformeListadoRecibos'
IndexDefs = <>
Left = 496
Top = 128
end
object DADSInformeListadoRecibos: TDADataSource
DataSet = tbl_InformeListadoRecibos.Dataset
DataTable = tbl_InformeListadoRecibos
Left = 496
Top = 72
end
object frxDBInformeListadoRecibos: TfrxDBDataset
UserName = 'frxDBInformeListadoRecibos'
CloseDataSource = False
DataSource = DADSInformeListadoRecibos
BCDToCurrency = False
Left = 496
Top = 16
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
end
object frxDBInformeListadoRecibosResumen: TfrxDBDataset
UserName = 'frxDBInformeListadoRecibosResumen'
CloseDataSource = False
DataSource = DADSInformeListadoRecibosResumen
BCDToCurrency = False
Left = 504
Top = 192
end
object DADSInformeListadoRecibosResumen: TDADataSource
DataSet = tbl_InformeListadoRecibosResumen.Dataset
DataTable = tbl_InformeListadoRecibosResumen
Left = 504
Top = 248
end
object tbl_InformeListadoRecibosResumen: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <>
Params = <>
MasterMappingMode = mmDataRequest
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
IndexDefs = <>
Left = 504
Top = 304
end
object frxDBInformeListadoRecibosPendientes: TfrxDBDataset
UserName = 'frxDBInformeListadoRecibosPendientes'
CloseDataSource = False
DataSource = DADSInformeListadoRecibosPendientes
BCDToCurrency = False
Left = 704
Top = 16
end
object DADSInformeListadoRecibosPendientes: TDADataSource
DataSet = tbl_InformeListadoRecibosPendientes.Dataset
DataTable = tbl_InformeListadoRecibosPendientes
Left = 704
Top = 72
end
object tbl_InformeListadoRecibosPendientes: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
end
item
Name = 'MES'
DataType = datSmallInt
end
item
Name = 'TITULO'
DataType = datString
Size = 19
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end>
Params = <>
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'InformeListadoRecibosPendientes'
IndexDefs = <>
Left = 704
Top = 128
end
object frxDBInformeListadoRecibosPendResumen: TfrxDBDataset
UserName = 'frxDBInformeListadoRecibosPendResumen'
CloseDataSource = False
DataSource = DADSInformeListadoRecibosPendResumen
BCDToCurrency = False
Left = 704
Top = 192
end
object DADSInformeListadoRecibosPendResumen: TDADataSource
DataSet = tbl_InformeListadoRecibosPendResumen.Dataset
DataTable = tbl_InformeListadoRecibosPendResumen
Left = 704
Top = 248
end
object tbl_InformeListadoRecibosPendResumen: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <>
Params = <>
MasterMappingMode = mmDataRequest
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
IndexDefs = <>
Left = 704
Top = 304
end
end