Arreglo de informes de recibos de cliente y facturas de cliente
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@216 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
c09389e457
commit
04f4a459f5
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -311,22 +311,21 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
'TE,'#10' V_RECIBOS_CLIENTE.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IM' +
|
||||
'PORTE_TOTAL,'#10' V_RECIBOS_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_' +
|
||||
'CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTUR' +
|
||||
'A,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.N' +
|
||||
'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIB' +
|
||||
'OS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTA' +
|
||||
'L_CLIENTE,'#10' V_RECIBOS_CLIENTE.POBLACION_CLIENTE,'#10' V_RECIBO' +
|
||||
'S_CLIENTE.ENTIDAD_CLIENTE,'#10' V_RECIBOS_CLIENTE.SUCURSAL_CLIENT' +
|
||||
'E,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,'#10' V_RECIBOS_CLIENTE.CUENT' +
|
||||
'A_CLIENTE,'#10' V_RECIBOS_CLIENTE.ID_TIENDA,'#10' V_RECIBOS_CLIENT' +
|
||||
'E.TIENDA,'#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZO' +
|
||||
'N_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACIO' +
|
||||
'N as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPR' +
|
||||
'ESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRES' +
|
||||
'AS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,' +
|
||||
#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.' +
|
||||
'LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS ON' +
|
||||
' (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_' +
|
||||
'CLIENTE.ID = :ID'#10
|
||||
'A,'#10' V_RECIBOS_CLIENTE.NOMBRE,'#10' V_RECIBOS_CLIENTE.NIF_CIF,'#10 +
|
||||
' V_RECIBOS_CLIENTE.CALLE,'#10' V_RECIBOS_CLIENTE.PROVINCIA,'#10' ' +
|
||||
' V_RECIBOS_CLIENTE.CODIGO_POSTAL,'#10' V_RECIBOS_CLIENTE.POBLACI' +
|
||||
'ON,'#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENTE,'#10' V_RECIBOS_CLIENTE' +
|
||||
'.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,'#10' V_RECIB' +
|
||||
'OS_CLIENTE.CUENTA_CLIENTE,'#10' V_RECIBOS_CLIENTE.ID_TIENDA,'#10' ' +
|
||||
'V_RECIBOS_CLIENTE.TIENDA,'#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
|
||||
@ -419,36 +418,6 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
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 = 'PROVINCIA_CLIENTE'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'PROVINCIA_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CODIGO_POSTAL_CLIENTE'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'CODIGO_POSTAL_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POBLACION_CLIENTE'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'POBLACION_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ENTIDAD_CLIENTE'
|
||||
TableField = '<unknown>'
|
||||
@ -543,6 +512,36 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
DatasetField = 'LOGOTIPO'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'LOGOTIPO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'NOMBRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NIF_CIF'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'NIF_CIF'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CALLE'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'CALLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PROVINCIA'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'PROVINCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CODIGO_POSTAL'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'CODIGO_POSTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POBLACION'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'POBLACION'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -631,32 +630,32 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_CLIENTE'
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF_CLIENTE'
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'CALLE_CLIENTE'
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA_CLIENTE'
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL_CLIENTE'
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION_CLIENTE'
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
@ -781,7 +780,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.Description.Strings = (
|
||||
'Demonstrates how to create simple list report.')
|
||||
ReportOptions.LastChange = 39504.692557326390000000
|
||||
ReportOptions.LastChange = 39563.534544155100000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
@ -839,13 +838,46 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
'begin'
|
||||
' if (<frxDBCabecera."ID_FACTURA"> < 1) then'
|
||||
' begin'
|
||||
' Memo40.Lines.Clear; '
|
||||
|
||||
'// Memo40.Lines.Add('#39'Calle: '#39'); ' +
|
||||
' '
|
||||
' Memo40.visible := False;'
|
||||
' Memo25.visible := False; '
|
||||
' eFormaPagoFactura.visible := False;'
|
||||
' Memo26.visible := False; '
|
||||
' end'
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo35OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (<frxDBCabecera."ID_FACTURA"> < 1) then'
|
||||
' begin'
|
||||
' Memo35.visible := False;'
|
||||
' Memo44.visible := False; '
|
||||
' eFechaFactura.visible := False;'
|
||||
' Memo47.visible := False; '
|
||||
' end'
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo42OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (<frxDBCabecera."ID_FACTURA"> < 1) then'
|
||||
' begin'
|
||||
|
||||
' Memo42.visible := False; ' +
|
||||
' '
|
||||
' Memo45.visible := False;'
|
||||
' Memo38.visible := False;'
|
||||
' Memo39.visible := False;'
|
||||
' Memo43.visible := False;'
|
||||
''
|
||||
|
||||
' Memo27.visible := False; ' +
|
||||
' '
|
||||
' Memo28.visible := False;'
|
||||
' Memo48.visible := False;'
|
||||
' Memo49.visible := False;'
|
||||
' Memo52.visible := False; '
|
||||
' end;'
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
''
|
||||
'end.')
|
||||
|
||||
Loading…
Reference in New Issue
Block a user