Limpieza de ficheros
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@510 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
afe918af56
commit
570716bc1c
@ -1,624 +0,0 @@
|
|||||||
object RptPresupuestosCliente: TRptPresupuestosCliente
|
|
||||||
OldCreateOrder = True
|
|
||||||
OnCreate = DataModuleCreate
|
|
||||||
Height = 405
|
|
||||||
Width = 447
|
|
||||||
object DADataCabecera: TDADataSource
|
|
||||||
DataSet = tbl_Cabecera.Dataset
|
|
||||||
DataTable = tbl_Cabecera
|
|
||||||
Left = 264
|
|
||||||
Top = 72
|
|
||||||
end
|
|
||||||
object DADataDetalles: TDADataSource
|
|
||||||
DataSet = tbl_Detalles.Dataset
|
|
||||||
DataTable = tbl_Detalles
|
|
||||||
Left = 344
|
|
||||||
Top = 72
|
|
||||||
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 schReport: TDASchema
|
|
||||||
ConnectionManager = dmServer.ConnectionManager
|
|
||||||
DataDictionary = DataDictionary
|
|
||||||
Datasets = <
|
|
||||||
item
|
|
||||||
Params = <
|
|
||||||
item
|
|
||||||
Name = 'ID'
|
|
||||||
DataType = datInteger
|
|
||||||
Value = '15'
|
|
||||||
ParamType = daptInput
|
|
||||||
end>
|
|
||||||
Statements = <
|
|
||||||
item
|
|
||||||
Connection = 'IBX'
|
|
||||||
TargetTable = 'PEDIDOS_CLIENTE'
|
|
||||||
SQL =
|
|
||||||
'SELECT'#10' V_PEDIDOS_CLIENTE.ID,'#10' V_PEDIDOS_CLIENTE.ID_EMPRESA,'#10' ' +
|
|
||||||
' V_PEDIDOS_CLIENTE.ID_CLIENTE,'#10' V_PEDIDOS_CLIENTE.NOMBRE,'#10' V_C' +
|
|
||||||
'LIENTES.NOMBRE_COMERCIAL,'#10' V_PEDIDOS_CLIENTE.REFERENCIA,'#10' V_PE' +
|
|
||||||
'DIDOS_CLIENTE.REFERENCIA_CLIENTE,'#10' V_PEDIDOS_CLIENTE.SITUACION,' +
|
|
||||||
#10' V_PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10' V_PEDIDOS_CLIENTE.CALLE,'#10' ' +
|
|
||||||
'V_PEDIDOS_CLIENTE.CODIGO_POSTAL,'#10' V_PEDIDOS_CLIENTE.POBLACION,'#10 +
|
|
||||||
' V_PEDIDOS_CLIENTE.PROVINCIA,'#10' V_PEDIDOS_CLIENTE.PERSONA_CONTA' +
|
|
||||||
'CTO,'#10' V_PEDIDOS_CLIENTE.TELEFONO,'#10' V_PEDIDOS_CLIENTE.OBSERVACI' +
|
|
||||||
'ONES,'#10' V_PEDIDOS_CLIENTE.INCIDENCIAS,'#10' V_PEDIDOS_CLIENTE.INCID' +
|
|
||||||
'ENCIAS_ACTIVAS,'#10' V_PEDIDOS_CLIENTE.FECHA_ALTA,'#10' V_PEDIDOS_CLIE' +
|
|
||||||
'NTE.FECHA_MODIFICACION,'#10' V_PEDIDOS_CLIENTE.USUARIO,'#10' V_PEDIDOS' +
|
|
||||||
'_CLIENTE.IMPORTE_NETO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_PORTE,'#10' V_PE' +
|
|
||||||
'DIDOS_CLIENTE.DESCUENTO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10 +
|
|
||||||
' V_PEDIDOS_CLIENTE.BASE_IMPONIBLE,'#10' V_PEDIDOS_CLIENTE.IVA,'#10' V' +
|
|
||||||
'_PEDIDOS_CLIENTE.IMPORTE_IVA,'#10' V_PEDIDOS_CLIENTE.IMPORTE_TOTAL,' +
|
|
||||||
#10' V_PEDIDOS_CLIENTE.ID_FORMA_PAGO,'#10' EMPRESAS.NOMBRE AS NOMBRE_' +
|
|
||||||
'EMPRESA,'#10' EMPRESAS.TELEFONO_1 as TELEFONO_1_EMPRESA,'#10' EMPRESAS' +
|
|
||||||
'.FAX as FAX_EMPRESA'#10'FROM'#10' V_PEDIDOS_CLIENTE'#10' LEFT OUTER JOIN E' +
|
|
||||||
'MPRESAS ON (V_PEDIDOS_CLIENTE.ID_EMPRESA = EMPRESAS.ID)'#10' LEFT O' +
|
|
||||||
'UTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_PEDIDOS_CLIENTE.ID_CL' +
|
|
||||||
'IENTE)'#10'WHERE'#10' V_PEDIDOS_CLIENTE.ID = :ID'
|
|
||||||
StatementType = stSQL
|
|
||||||
ColumnMappings = <
|
|
||||||
item
|
|
||||||
DatasetField = 'OBSERVACIONES'
|
|
||||||
TableField = 'OBSERVACIONES'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'NOMBRE'
|
|
||||||
TableField = 'NOMBRE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'CALLE'
|
|
||||||
TableField = 'CALLE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'POBLACION'
|
|
||||||
TableField = 'POBLACION'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'REFERENCIA'
|
|
||||||
TableField = 'REFERENCIA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'ID'
|
|
||||||
TableField = 'ID'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'ID_EMPRESA'
|
|
||||||
TableField = 'ID_EMPRESA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'IMPORTE_TOTAL'
|
|
||||||
TableField = 'IMPORTE_TOTAL'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'CODIGO_POSTAL'
|
|
||||||
TableField = 'CODIGO_POSTAL'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FECHA_PEDIDO'
|
|
||||||
TableField = 'FECHA_PEDIDO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'PROVINCIA'
|
|
||||||
TableField = 'PROVINCIA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'PERSONA_CONTACTO'
|
|
||||||
TableField = 'PERSONA_CONTACTO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'TELEFONO'
|
|
||||||
TableField = 'TELEFONO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'ID_CLIENTE'
|
|
||||||
TableField = 'ID_CLIENTE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'SITUACION'
|
|
||||||
TableField = 'SITUACION'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'INCIDENCIAS'
|
|
||||||
TableField = 'INCIDENCIAS'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'INCIDENCIAS_ACTIVAS'
|
|
||||||
TableField = 'INCIDENCIAS_ACTIVAS'
|
|
||||||
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 = 'IMPORTE_NETO'
|
|
||||||
TableField = 'IMPORTE_NETO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'IMPORTE_PORTE'
|
|
||||||
TableField = 'IMPORTE_PORTE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'DESCUENTO'
|
|
||||||
TableField = 'DESCUENTO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'IMPORTE_DESCUENTO'
|
|
||||||
TableField = 'IMPORTE_DESCUENTO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'BASE_IMPONIBLE'
|
|
||||||
TableField = 'BASE_IMPONIBLE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'IVA'
|
|
||||||
TableField = 'IVA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'IMPORTE_IVA'
|
|
||||||
TableField = 'IMPORTE_IVA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'ID_FORMA_PAGO'
|
|
||||||
TableField = 'ID_FORMA_PAGO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'NOMBRE_EMPRESA'
|
|
||||||
TableField = 'NOMBRE_EMPRESA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'TELEFONO_1_EMPRESA'
|
|
||||||
TableField = 'TELEFONO_1_EMPRESA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FAX_EMPRESA'
|
|
||||||
TableField = 'FAX_EMPRESA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'NOMBRE_COMERCIAL'
|
|
||||||
TableField = 'NOMBRE_COMERCIAL'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'REFERENCIA_CLIENTE'
|
|
||||||
TableField = 'REFERENCIA_CLIENTE'
|
|
||||||
end>
|
|
||||||
end>
|
|
||||||
Name = 'Informe_Cabecera'
|
|
||||||
Fields = <
|
|
||||||
item
|
|
||||||
Name = 'ID'
|
|
||||||
DataType = datInteger
|
|
||||||
InPrimaryKey = True
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_EMPRESA'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_CLIENTE'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'REFERENCIA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'NOMBRE_COMERCIAL'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FECHA_PEDIDO'
|
|
||||||
DataType = datDateTime
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'REFERENCIA_CLIENTE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'SITUACION'
|
|
||||||
DataType = datString
|
|
||||||
Size = 9
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_TOTAL'
|
|
||||||
DataType = datFloat
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'OBSERVACIONES'
|
|
||||||
DataType = datMemo
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'NOMBRE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CALLE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CODIGO_POSTAL'
|
|
||||||
DataType = datString
|
|
||||||
Size = 10
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'PROVINCIA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'PERSONA_CONTACTO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'TELEFONO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 25
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'INCIDENCIAS'
|
|
||||||
DataType = datMemo
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'INCIDENCIAS_ACTIVAS'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FECHA_ALTA'
|
|
||||||
DataType = datDateTime
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FECHA_MODIFICACION'
|
|
||||||
DataType = datDateTime
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'USUARIO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 20
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_NETO'
|
|
||||||
DataType = datFloat
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_PORTE'
|
|
||||||
DataType = datFloat
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'DESCUENTO'
|
|
||||||
DataType = datFloat
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_DESCUENTO'
|
|
||||||
DataType = datFloat
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'BASE_IMPONIBLE'
|
|
||||||
DataType = datFloat
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IVA'
|
|
||||||
DataType = datFloat
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_IVA'
|
|
||||||
DataType = datFloat
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'POBLACION'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_FORMA_PAGO'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'NOMBRE_EMPRESA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'TELEFONO_1_EMPRESA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 25
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FAX_EMPRESA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 25
|
|
||||||
end>
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Params = <
|
|
||||||
item
|
|
||||||
Name = 'ID_PEDIDO'
|
|
||||||
Value = ''
|
|
||||||
ParamType = daptInput
|
|
||||||
end>
|
|
||||||
Statements = <
|
|
||||||
item
|
|
||||||
Connection = 'IBX'
|
|
||||||
TargetTable = 'PEDIDOS_CLIENTE_DETALLES'
|
|
||||||
SQL =
|
|
||||||
'SELECT PEDIDOS_CLIENTE_DETALLES.ID, PEDIDOS_CLIENTE_DETALLES.ID_' +
|
|
||||||
'PEDIDO,'#10' PEDIDOS_CLIENTE_DETALLES.POSICION, PEDIDOS_CLIENT' +
|
|
||||||
'E_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_CLIENTE_DETALLES.CONCEPT' +
|
|
||||||
'O, PEDIDOS_CLIENTE_DETALLES.CANTIDAD,'#10' PEDIDOS_CLIENTE_DET' +
|
|
||||||
'ALLES.IMPORTE_UNIDAD, PEDIDOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ' +
|
|
||||||
' ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, ARTICULOS.REFERENC' +
|
|
||||||
'IA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PEDIDOS_CLIENTE_DETALLES'#10'L' +
|
|
||||||
'EFT JOIN ARTICULOS ON (PEDIDOS_CLIENTE_DETALLES.ID_ARTICULO = AR' +
|
|
||||||
'TICULOS.ID)'#10'WHERE ID_PEDIDO = :ID_PEDIDO'#10'ORDER BY POSICION'
|
|
||||||
StatementType = stSQL
|
|
||||||
ColumnMappings = <
|
|
||||||
item
|
|
||||||
DatasetField = 'CANTIDAD'
|
|
||||||
TableField = 'CANTIDAD'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'POSICION'
|
|
||||||
TableField = 'POSICION'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'ID'
|
|
||||||
TableField = 'ID'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'TIPO_DETALLE'
|
|
||||||
TableField = 'TIPO_DETALLE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'CONCEPTO'
|
|
||||||
TableField = 'CONCEPTO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'IMPORTE_UNIDAD'
|
|
||||||
TableField = 'IMPORTE_UNIDAD'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'IMPORTE_TOTAL'
|
|
||||||
TableField = 'IMPORTE_TOTAL'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'ID_PEDIDO'
|
|
||||||
TableField = 'ID_PEDIDO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'REFERENCIA'
|
|
||||||
TableField = 'REFERENCIA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FAMILIA'
|
|
||||||
TableField = 'FAMILIA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'REFERENCIA_PROVEEDOR'
|
|
||||||
TableField = 'REFERENCIA_PROVEEDOR'
|
|
||||||
end>
|
|
||||||
end>
|
|
||||||
Name = 'Informe_Detalles'
|
|
||||||
Fields = <
|
|
||||||
item
|
|
||||||
Name = 'ID'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_PEDIDO'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'POSICION'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'TIPO_DETALLE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 10
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'REFERENCIA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CONCEPTO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 2000
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CANTIDAD'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_UNIDAD'
|
|
||||||
DataType = datFloat
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_TOTAL'
|
|
||||||
DataType = datFloat
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FAMILIA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'REFERENCIA_PROVEEDOR'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end>
|
|
||||||
end>
|
|
||||||
JoinDataTables = <>
|
|
||||||
UnionDataTables = <>
|
|
||||||
Commands = <>
|
|
||||||
RelationShips = <>
|
|
||||||
UpdateRules = <>
|
|
||||||
Version = 0
|
|
||||||
Left = 48
|
|
||||||
Top = 16
|
|
||||||
end
|
|
||||||
object DataDictionary: TDADataDictionary
|
|
||||||
Fields = <>
|
|
||||||
Left = 46
|
|
||||||
Top = 142
|
|
||||||
end
|
|
||||||
object frxReport: TfrxReport
|
|
||||||
Version = '3.23.7'
|
|
||||||
DotMatrixReport = False
|
|
||||||
EngineOptions.DoublePass = True
|
|
||||||
IniFile = '\Software\Fast Reports'
|
|
||||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
|
||||||
PreviewOptions.Zoom = 1.000000000000000000
|
|
||||||
PrintOptions.Printer = 'Por defecto'
|
|
||||||
ReportOptions.CreateDate = 39065.872423495400000000
|
|
||||||
ReportOptions.LastChange = 39255.590290254630000000
|
|
||||||
ScriptLanguage = 'PascalScript'
|
|
||||||
ScriptText.Strings = (
|
|
||||||
''
|
|
||||||
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'var'
|
|
||||||
' Cadena: String;'
|
|
||||||
'begin'
|
|
||||||
' DatosEmpresa.Lines.Clear;'
|
|
||||||
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
|
|
||||||
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
|
|
||||||
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
|
|
||||||
|
|
||||||
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
|
|
||||||
'">;'
|
|
||||||
' DatosEmpresa.Lines.Add(Cadena);'
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'begin'
|
|
||||||
' NombreEmpresa.Lines.Clear;'
|
|
||||||
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'var'
|
|
||||||
' ACadena : String;'
|
|
||||||
'begin'
|
|
||||||
' ACadena := '#39#39';'
|
|
||||||
' DireccionEnvio.Lines.Clear;'
|
|
||||||
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
|
|
||||||
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
|
|
||||||
''
|
|
||||||
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
|
|
||||||
|
|
||||||
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
|
|
||||||
'O">;'
|
|
||||||
''
|
|
||||||
' DireccionEnvio.Lines.Add(ACadena);'
|
|
||||||
' ACadena := '#39#39';'
|
|
||||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
|
|
||||||
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
|
|
||||||
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
|
|
||||||
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
|
|
||||||
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
|
|
||||||
''
|
|
||||||
' if (ACadena <> '#39#39') then'
|
|
||||||
' DireccionEnvio.Lines.Add(ACadena);'
|
|
||||||
''
|
|
||||||
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
|
|
||||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
|
|
||||||
''
|
|
||||||
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
|
|
||||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'begin'
|
|
||||||
''
|
|
||||||
'end.')
|
|
||||||
ShowProgress = False
|
|
||||||
StoreInDFM = False
|
|
||||||
Left = 169
|
|
||||||
Top = 16
|
|
||||||
Datasets = <
|
|
||||||
item
|
|
||||||
DataSet = frxDBCabecera
|
|
||||||
DataSetName = 'frxDBCabecera'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DataSet = frxDBDetalles
|
|
||||||
DataSetName = 'frxDBDetalles'
|
|
||||||
end>
|
|
||||||
Variables = <>
|
|
||||||
Style = <>
|
|
||||||
end
|
|
||||||
object frxDBCabecera: TfrxDBDataset
|
|
||||||
UserName = 'frxDBCabecera'
|
|
||||||
CloseDataSource = False
|
|
||||||
DataSource = DADataCabecera
|
|
||||||
Left = 264
|
|
||||||
Top = 16
|
|
||||||
end
|
|
||||||
object frxDBDetalles: TfrxDBDataset
|
|
||||||
UserName = 'frxDBDetalles'
|
|
||||||
CloseDataSource = False
|
|
||||||
DataSource = DADataDetalles
|
|
||||||
Left = 344
|
|
||||||
Top = 16
|
|
||||||
end
|
|
||||||
object Bin2DataStreamer: TDABin2DataStreamer
|
|
||||||
Left = 48
|
|
||||||
Top = 80
|
|
||||||
end
|
|
||||||
object tbl_Cabecera: TDAMemDataTable
|
|
||||||
RemoteUpdatesOptions = []
|
|
||||||
Fields = <>
|
|
||||||
Params = <>
|
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
IndexDefs = <>
|
|
||||||
Left = 264
|
|
||||||
Top = 128
|
|
||||||
end
|
|
||||||
object tbl_Detalles: TDAMemDataTable
|
|
||||||
RemoteUpdatesOptions = []
|
|
||||||
Fields = <>
|
|
||||||
Params = <>
|
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
IndexDefs = <>
|
|
||||||
Left = 344
|
|
||||||
Top = 128
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,118 +0,0 @@
|
|||||||
unit uRptPedidosCliente_Server;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
||||||
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
|
|
||||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
|
||||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
|
||||||
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer;
|
|
||||||
|
|
||||||
type
|
|
||||||
TRptPresupuestosCliente = class(TDataModule)
|
|
||||||
DADataCabecera: TDADataSource;
|
|
||||||
DADataDetalles: TDADataSource;
|
|
||||||
frxRichObject1: TfrxRichObject;
|
|
||||||
frxBarCodeObject1: TfrxBarCodeObject;
|
|
||||||
frxOLEObject1: TfrxOLEObject;
|
|
||||||
frxCrossObject1: TfrxCrossObject;
|
|
||||||
frxCheckBoxObject1: TfrxCheckBoxObject;
|
|
||||||
frxGradientObject1: TfrxGradientObject;
|
|
||||||
frxChartObject1: TfrxChartObject;
|
|
||||||
frxDBCabecera: TfrxDBDataset;
|
|
||||||
frxDBDetalles: TfrxDBDataset;
|
|
||||||
schReport: TDASchema;
|
|
||||||
DataDictionary: TDADataDictionary;
|
|
||||||
frxReport: TfrxReport;
|
|
||||||
Bin2DataStreamer: TDABin2DataStreamer;
|
|
||||||
tbl_Cabecera: TDAMemDataTable;
|
|
||||||
tbl_Detalles: TDAMemDataTable;
|
|
||||||
procedure DataModuleCreate(Sender: TObject);
|
|
||||||
private
|
|
||||||
FConnection: IDAConnection;
|
|
||||||
procedure GenerarPedido(const AID : Integer); overload;
|
|
||||||
public
|
|
||||||
function GenerarPedido(const AID : String): Binary; overload;
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
{$R *.dfm}
|
|
||||||
|
|
||||||
uses
|
|
||||||
uDataModuleServer, schPedidosClienteClient_Intf;
|
|
||||||
|
|
||||||
const
|
|
||||||
rptInforme = 'InfPedidoCliente.fr3';
|
|
||||||
|
|
||||||
{ Dataset names for schReport }
|
|
||||||
ds_InformeCabecera = 'Informe_Cabecera';
|
|
||||||
ds_InformeDetalles = 'Informe_Detalles';
|
|
||||||
|
|
||||||
|
|
||||||
{ TRptPedidosProveedor }
|
|
||||||
|
|
||||||
|
|
||||||
procedure TRptPresupuestosCliente.DataModuleCreate(Sender: TObject);
|
|
||||||
begin
|
|
||||||
schReport.ConnectionManager := dmServer.ConnectionManager;
|
|
||||||
FConnection := dmServer.DarNuevaConexion;
|
|
||||||
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TRptPresupuestosCliente.GenerarPedido(const AID: String): Binary;
|
|
||||||
var
|
|
||||||
ID_Pedidos: TStringList;
|
|
||||||
i: Integer;
|
|
||||||
|
|
||||||
begin
|
|
||||||
Result := Binary.Create;
|
|
||||||
FConnection.BeginTransaction;
|
|
||||||
|
|
||||||
try
|
|
||||||
ID_Pedidos := TStringList.Create;
|
|
||||||
ID_Pedidos.CommaText := AID;
|
|
||||||
|
|
||||||
//Vamos generando todos y cada uno de los albaranes recibidos
|
|
||||||
for i := 0 to ID_Pedidos.Count - 1 do
|
|
||||||
GenerarPedido(StrToInt(ID_Pedidos.Strings[i]));
|
|
||||||
|
|
||||||
frxReport.PreviewPages.SaveToStream(Result);
|
|
||||||
|
|
||||||
finally
|
|
||||||
FConnection.RollbackTransaction;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TRptPresupuestosCliente.GenerarPedido(const AID: Integer);
|
|
||||||
var
|
|
||||||
AStream: TMemoryStream;
|
|
||||||
dsMaster: IDADataset;
|
|
||||||
dsDetail: IDADataset;
|
|
||||||
begin
|
|
||||||
AStream := TMemoryStream.Create;
|
|
||||||
|
|
||||||
try
|
|
||||||
dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [AID]);
|
|
||||||
dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_PEDIDO'], [AID], False);
|
|
||||||
|
|
||||||
AStream.Clear;
|
|
||||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
|
||||||
|
|
||||||
AStream.Clear;
|
|
||||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
|
||||||
frxReport.PrepareReport(False);
|
|
||||||
|
|
||||||
finally
|
|
||||||
AStream.Free;
|
|
||||||
dsMaster := Nil;
|
|
||||||
dsDetail := Nil;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
Loading…
Reference in New Issue
Block a user