object RptAlbaranesCliente: TRptAlbaranesCliente OldCreateOrder = True OnCreate = DataModuleCreate OnDestroy = DataModuleDestroy Height = 471 Width = 535 object DADSCabecera: TDADataSource DataSet = tbl_Cabecera.Dataset DataTable = tbl_Cabecera Left = 264 Top = 72 end object DADSDetalles: TDADataSource DataSet = tbl_Detalles.Dataset DataTable = tbl_Detalles Left = 344 Top = 72 end object frxRichObject1: TfrxRichObject Left = 280 Top = 360 end object frxBarCodeObject1: TfrxBarCodeObject Left = 344 Top = 360 end object frxOLEObject1: TfrxOLEObject Left = 280 Top = 408 end object frxCrossObject1: TfrxCrossObject Left = 344 Top = 408 end object frxCheckBoxObject1: TfrxCheckBoxObject Left = 280 Top = 256 end object frxGradientObject1: TfrxGradientObject Left = 344 Top = 256 end object frxChartObject1: TfrxChartObject Left = 280 Top = 304 end object schReport: TDASchema ConnectionManager = dmServer.ConnectionManager Datasets = < item Params = < item Name = 'ID' DataType = datInteger Value = '11' ParamType = daptInput end> Statements = < item Connection = 'IBX' SQL = 'SELECT'#10' V_ALBARANES_CLIENTE.ID,'#10' V_ALBARANES_CLIENTE.ID_EMPRES' + 'A,'#10' V_ALBARANES_CLIENTE.ID_CLIENTE,'#10' V_ALBARANES_CLIENTE.NOMBR' + 'E,'#10' V_CLIENTES.NOMBRE_COMERCIAL,'#10' V_ALBARANES_CLIENTE.FECHA_AL' + 'BARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.R' + 'EFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARANE' + 'S_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.CODIGO_POSTAL,'#10' V_A' + 'LBARANES_CLIENTE.POBLACION,'#10' V_ALBARANES_CLIENTE.PROVINCIA,'#10' V' + '_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_ALBARANES_CLIENTE.TELEF' + 'ONO,'#10' V_ALBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.OBSERVAC' + 'IONES,'#10' V_ALBARANES_CLIENTE.INCIDENCIAS,'#10' V_ALBARANES_CLIENTE.' + 'IMPORTE_TOTAL,'#10' V_ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMP' + 'RESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EM' + 'PRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRES' + 'AS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_PO' + 'STAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMPRE' + 'SAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TEL' + 'EFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL' + '_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' ' + 'EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARANES_C' + 'LIENTE'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARA' + 'NES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.' + 'ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIENTE.I' + 'D = :ID'#10 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 = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'FECHA_ALBARAN' TableField = 'FECHA_ALBARAN' end item DatasetField = 'ID_PEDIDO' TableField = 'ID_PEDIDO' end item DatasetField = 'REF_PEDIDO' TableField = 'REF_PEDIDO' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE' end item DatasetField = 'NOMBRE_COMERCIAL' TableField = 'NOMBRE_COMERCIAL' end item DatasetField = 'TELEFONO' TableField = 'TELEFONO' end item DatasetField = 'INCIDENCIAS' TableField = 'INCIDENCIAS' end item DatasetField = 'FECHA_PREVISTA_ENVIO' TableField = 'FECHA_PREVISTA_ENVIO' end item DatasetField = 'NIF_CIF_EMPRESA' TableField = 'NIF_CIF_EMPRESA' end item DatasetField = 'NOMBRE_EMPRESA' TableField = 'NOMBRE_EMPRESA' end item DatasetField = 'RAZON_SOCIAL_EMPRESA' TableField = 'RAZON_SOCIAL_EMPRESA' end item DatasetField = 'CALLE_EMPRESA' TableField = 'CALLE_EMPRESA' end item DatasetField = 'CODIGO_POSTAL_EMPRESA' TableField = 'CODIGO_POSTAL_EMPRESA' end item DatasetField = 'POBLACION_EMPRESA' TableField = 'POBLACION_EMPRESA' end item DatasetField = 'PROVINCIA_EMPRESA' TableField = 'PROVINCIA_EMPRESA' end item DatasetField = 'TELEFONO_1_EMPRESA' TableField = 'TELEFONO_1_EMPRESA' end item DatasetField = 'FAX_EMPRESA' TableField = 'FAX_EMPRESA' end item DatasetField = 'MOVIL_1_EMPRESA' TableField = 'MOVIL_1_EMPRESA' end item DatasetField = 'EMAIL_1_EMPRESA' TableField = 'EMAIL_1_EMPRESA' end item DatasetField = 'PAGINA_WEB_EMPRESA' TableField = 'PAGINA_WEB_EMPRESA' end> end> Name = 'Informe_Cabecera' Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'NOMBRE_COMERCIAL' DataType = datString Size = 255 end item Name = 'FECHA_ALBARAN' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'ID_PEDIDO' DataType = datInteger end item Name = 'REF_PEDIDO' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 end item Name = 'POBLACION' DataType = datString Size = 255 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 = 'CALLE' DataType = datString Size = 255 end item Name = 'OBSERVACIONES' DataType = datMemo end item Name = 'INCIDENCIAS' DataType = datMemo end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'FECHA_PREVISTA_ENVIO' DataType = datDateTime end item Name = 'NIF_CIF_EMPRESA' DataType = datString Size = 15 end item Name = 'NOMBRE_EMPRESA' DataType = datString Size = 255 end item Name = 'RAZON_SOCIAL_EMPRESA' DataType = datString Size = 255 end item Name = 'CALLE_EMPRESA' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_EMPRESA' DataType = datString Size = 10 end item Name = 'POBLACION_EMPRESA' DataType = datString Size = 255 end item Name = 'PROVINCIA_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 item Name = 'MOVIL_1_EMPRESA' DataType = datString Size = 25 end item Name = 'EMAIL_1_EMPRESA' DataType = datString Size = 255 end item Name = 'PAGINA_WEB_EMPRESA' DataType = datString Size = 255 end> end item Params = < item Name = 'ID_ALBARAN' DataType = datInteger Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'ALBARANES_CLIENTE_DETALLES' SQL = 'SELECT DET.ID, DET.ID_ALBARAN,'#10' DET.POSICION, DET.TIPO_DET' + 'ALLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as ' + 'CONCEPTO, DET.CANTIDAD,'#10' DET.IMPORTE_UNIDAD - (DET.IMPORTE' + '_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, ' + 'DET.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCI' + 'A_PROVEEDOR'#10'FROM ALBARANES_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ' + 'ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10#10'WHERE DET.ID_ALBA' + 'RAN = :ID_ALBARAN AND {Where}'#10'ORDER BY DET.ID_ALBARAN, DET.POSIC' + 'ION;'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_ALBARAN' TableField = 'ID_ALBARAN' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'REFERENCIA' TableField = '' SQLOrigin = 'REFERENCIA' end item DatasetField = 'REFERENCIA_PROVEEDOR' TableField = '' SQLOrigin = 'REFERENCIA_PROVEEDOR' end> end> Name = 'Informe_Detalles' Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_ALBARAN' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'CONCEPTO' DataType = datString Size = 32765 end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' DataType = datFloat end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> end> JoinDataTables = <> UnionDataTables = <> Commands = <> RelationShips = <> UpdateRules = <> Version = 0 Left = 48 Top = 16 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.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.LastChange = 40408.561164004630000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( '' 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' 'begin' '// NombreEmpresa.Lines.Clear;' '// NombreEmpresa.Lines.Add();' 'end;' '' 'procedure TelefonosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena: String;' 'begin' '{ TelefonosEmpresa.Lines.Clear;' '' ' if ( <> '#39#39') then' ' Cadena := '#39'tlf: '#39' + ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' / fax: '#39' + ;' ' TelefonosEmpresa.Lines.Add(Cadena);' '} ' 'end;' '' 'procedure DireccionEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena: String;' 'begin' '{ ' ' DireccionEmpresa.Lines.Clear;' '' ' if ( <> '#39#39') then' ' DireccionEmpresa.Lines.Add()' + ';' '' ' if ( <> '#39#39') then' ' Cadena := ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39', '#39' + ;' ' DireccionEmpresa.Lines.Add(Cadena);' '' ' if ( <> '#39#39') then' ' DireccionEmpresa.Lines.Add();' '} ' 'end;' '' '' 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);' 'begin' ' Memo11.Visible := ( <> 0);' 'end;' '' 'begin' '' 'end.') ShowProgress = False StoreInDFM = False OnGetValue = frxReportGetValue Left = 145 Top = 16 end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADSCabecera BCDToCurrency = False Left = 264 Top = 16 end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADSDetalles BCDToCurrency = False Left = 344 Top = 16 end object IBDatabase1: TIBDatabase DatabaseName = 'C:\Codigo\Database\FACTUGES.FDB' Params.Strings = ( 'user_name=sysdba' 'password=masterkey' 'lc_ctype=ISO8859_1') LoginPrompt = False DefaultTransaction = IBTransaction1 Left = 40 Top = 256 end object IBTransaction1: TIBTransaction Left = 40 Top = 312 end object DataSource1: TDataSource DataSet = cabecera Left = 176 Top = 256 end object DataSource3: TDataSource DataSet = detalles Left = 176 Top = 320 end object detalles: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' + '.ID_ALBARAN,' ' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARANES_CLIENTE_DE' + 'TALLES.TIPO_DETALLE,' ' F_RTFTOTEXT(ALBARANES_CLIENTE_DETALLES.CONCEPTO) as CONCE' + 'PTO, ALBARANES_CLIENTE_DETALLES.CANTIDAD,' ' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIE' + 'NTE_DETALLES.IMPORTE_TOTAL,' ' ARTICULOS.REFERENCIA' 'FROM ALBARANES_CLIENTE_DETALLES' ' LEFT JOIN ARTICULOS ON (ALBARANES_CLIENTE_DETALLES.ID_ARTIC' + 'ULO = ARTICULOS.ID)' 'WHERE' ' ID_ALBARAN = 11 AND (VISIBLE <> 0) ' 'ORDER BY ID_ALBARAN, POSICION') Left = 112 Top = 320 object detallesID: TIntegerField FieldName = 'ID' Origin = '"ALBARANES_CLIENTE_DETALLES"."ID"' ProviderFlags = [pfInUpdate, pfInWhere, pfInKey] Required = True end object detallesID_ALBARAN: TIntegerField FieldName = 'ID_ALBARAN' Origin = '"ALBARANES_CLIENTE_DETALLES"."ID_ALBARAN"' Required = True end object detallesPOSICION: TIntegerField FieldName = 'POSICION' Origin = '"ALBARANES_CLIENTE_DETALLES"."POSICION"' end object detallesTIPO_DETALLE: TIBStringField FieldName = 'TIPO_DETALLE' Origin = '"ALBARANES_CLIENTE_DETALLES"."TIPO_DETALLE"' Size = 10 end object detallesCONCEPTO: TIBStringField FieldName = 'CONCEPTO' Origin = '"ALBARANES_CLIENTE_DETALLES"."CONCEPTO"' Size = 254 end object detallesCANTIDAD: TIntegerField FieldName = 'CANTIDAD' Origin = '"ALBARANES_CLIENTE_DETALLES"."CANTIDAD"' end object detallesIMPORTE_UNIDAD: TIBBCDField FieldName = 'IMPORTE_UNIDAD' Origin = '"ALBARANES_CLIENTE_DETALLES"."IMPORTE_UNIDAD"' Precision = 18 Size = 2 end object detallesIMPORTE_TOTAL: TIBBCDField FieldName = 'IMPORTE_TOTAL' Origin = '"ALBARANES_CLIENTE_DETALLES"."IMPORTE_TOTAL"' Precision = 18 Size = 2 end object detallesREFERENCIA: TIBStringField FieldName = 'REFERENCIA' Origin = '"ARTICULOS"."REFERENCIA"' Size = 255 end end object cabecera: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT' ' V_ALBARANES_CLIENTE.ID, V_ALBARANES_CLIENTE.ID_EMPRESA,' ' V_ALBARANES_CLIENTE.ID_CLIENTE,' ' V_ALBARANES_CLIENTE.FECHA_ALBARAN,' ' V_ALBARANES_CLIENTE.REFERENCIA,' ' V_ALBARANES_CLIENTE.REFERENCIA_CLIENTE,' ' V_ALBARANES_CLIENTE.ID_PEDIDO,' ' V_ALBARANES_CLIENTE.REF_PEDIDO,' ' V_ALBARANES_CLIENTE.OBSERVACIONES,' ' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,' ' V_CLIENTES.NIF_CIF, V_CLIENTES.NOMBRE,' ' V_CLIENTES.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.POBL' + 'ACION,' ' V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL' 'FROM' ' V_ALBARANES_CLIENTE' ' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARANES_CLI' + 'ENTE.ID_CLIENTE)' 'WHERE V_ALBARANES_CLIENTE.ID = 11') Left = 112 Top = 256 object cabeceraID: TIntegerField FieldName = 'ID' Origin = '"V_ALBARANES_CLIENTE"."ID"' end object cabeceraID_EMPRESA: TIntegerField FieldName = 'ID_EMPRESA' Origin = '"V_ALBARANES_CLIENTE"."ID_EMPRESA"' end object cabeceraID_CLIENTE: TIntegerField FieldName = 'ID_CLIENTE' Origin = '"V_ALBARANES_CLIENTE"."ID_CLIENTE"' end object cabeceraFECHA_ALBARAN: TDateField FieldName = 'FECHA_ALBARAN' Origin = '"V_ALBARANES_CLIENTE"."FECHA_ALBARAN"' end object cabeceraREFERENCIA: TIBStringField FieldName = 'REFERENCIA' Origin = '"V_ALBARANES_CLIENTE"."REFERENCIA"' Size = 255 end object cabeceraREFERENCIA_CLIENTE: TIBStringField FieldName = 'REFERENCIA_CLIENTE' Origin = '"V_ALBARANES_CLIENTE"."REFERENCIA_CLIENTE"' Size = 255 end object cabeceraID_PEDIDO: TIntegerField FieldName = 'ID_PEDIDO' Origin = '"V_ALBARANES_CLIENTE"."ID_PEDIDO"' end object cabeceraREF_PEDIDO: TIBStringField FieldName = 'REF_PEDIDO' Origin = '"V_ALBARANES_CLIENTE"."REF_PEDIDO"' Size = 255 end object cabeceraOBSERVACIONES: TMemoField FieldName = 'OBSERVACIONES' Origin = '"V_ALBARANES_CLIENTE"."OBSERVACIONES"' ProviderFlags = [pfInUpdate] BlobType = ftMemo Size = 8 end object cabeceraIMPORTE_TOTAL: TIBBCDField FieldName = 'IMPORTE_TOTAL' Origin = '"V_ALBARANES_CLIENTE"."IMPORTE_TOTAL"' Precision = 18 Size = 2 end object cabeceraNIF_CIF: TIBStringField FieldName = 'NIF_CIF' Origin = '"V_CLIENTES"."NIF_CIF"' Size = 15 end object cabeceraNOMBRE: TIBStringField FieldName = 'NOMBRE' Origin = '"V_CLIENTES"."NOMBRE"' Size = 255 end object cabeceraPERSONA_CONTACTO: TIBStringField FieldName = 'PERSONA_CONTACTO' Origin = '"V_CLIENTES"."PERSONA_CONTACTO"' Size = 255 end object cabeceraCALLE: TIBStringField FieldName = 'CALLE' Origin = '"V_CLIENTES"."CALLE"' Size = 255 end object cabeceraPOBLACION: TIBStringField FieldName = 'POBLACION' Origin = '"V_CLIENTES"."POBLACION"' Size = 255 end object cabeceraPROVINCIA: TIBStringField FieldName = 'PROVINCIA' Origin = '"V_CLIENTES"."PROVINCIA"' Size = 255 end object cabeceraCODIGO_POSTAL: TIBStringField FieldName = 'CODIGO_POSTAL' Origin = '"V_CLIENTES"."CODIGO_POSTAL"' Size = 10 end end object tbl_Cabecera: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'NOMBRE_COMERCIAL' DataType = datString Size = 255 end item Name = 'FECHA_ALBARAN' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'ID_PEDIDO' DataType = datInteger end item Name = 'REF_PEDIDO' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 end item Name = 'POBLACION' DataType = datString Size = 255 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 = 'CALLE' DataType = datString Size = 255 end item Name = 'OBSERVACIONES' DataType = datMemo end item Name = 'INCIDENCIAS' DataType = datMemo end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'FECHA_PREVISTA_ENVIO' DataType = datDateTime end item Name = 'NIF_CIF_EMPRESA' DataType = datString Size = 15 end item Name = 'NOMBRE_EMPRESA' DataType = datString Size = 255 end item Name = 'RAZON_SOCIAL_EMPRESA' DataType = datString Size = 255 end item Name = 'CALLE_EMPRESA' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_EMPRESA' DataType = datString Size = 10 end item Name = 'POBLACION_EMPRESA' DataType = datString Size = 255 end item Name = 'PROVINCIA_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 item Name = 'MOVIL_1_EMPRESA' DataType = datString Size = 25 end item Name = 'EMAIL_1_EMPRESA' DataType = datString Size = 255 end item Name = 'PAGINA_WEB_EMPRESA' DataType = datString Size = 255 end> Params = < item Name = 'ID' DataType = datInteger Value = '11' ParamType = daptInput end> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 264 Top = 128 end object tbl_Detalles: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_ALBARAN' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'CONCEPTO' DataType = datString Size = 32765 end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' DataType = datFloat end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> Params = < item Name = 'ID_ALBARAN' DataType = datInteger Value = '' end> MasterParamsMappings.Strings = ( 'ID_ALBARAN=ID') LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 DetailFields = 'ID_ALBARAN' LogicalName = 'Informe_Detalles' IndexDefs = <> Left = 344 Top = 128 end object frxPDFExport1: TfrxPDFExport ShowDialog = False UseFileCache = True ShowProgress = False OverwritePrompt = False PrintOptimized = True Outline = False Background = False HTMLTags = True Author = 'FactuGES' Subject = 'FactuGES' Creator = 'FactuGES' ProtectionFlags = [ePrint, eModify, eCopy, eAnnot] HideToolbar = False HideMenubar = False HideWindowUI = False FitWindow = False CenterWindow = False PrintScaling = False Left = 344 Top = 304 end object DABin2DataStreamer1: TDABin2DataStreamer Left = 48 Top = 88 end end