From c297dd33ad7206c5ee438d6d56c8571881187bbb Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 19 Aug 2010 19:11:09 +0000 Subject: [PATCH] repaso final de todos lo datos git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@30 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 --- .../Reports/uRptAlbaranesCliente_Server.dfm | 643 +++++++++------- .../Views/uEditorAlbaranCliente.dfm | 72 +- .../Views/uEditorAlbaranesCliente.dfm | 4 +- .../Views/uEditorAlbaranesClienteReport.dfm | 2 - .../Views/uEditorAlbaranesDevCliente.dfm | 6 +- .../Reports/uRptAlbaranesProveedor_Server.dfm | 290 +++++--- .../Views/uEditorAlbaranProveedor.dfm | 2 +- .../Contactos/Plugin/uPluginContactos.dfm | 2 + .../Reports/uRptFacturasCliente_Server.dfm | 703 +++++++++++------- .../Views/uEditorFacturaCliente.dfm | 54 +- .../Views/uEditorFacturasCliente.dfm | 3 + .../Reports/uRptFacturasProveedor_Server.dfm | 643 +++++++++++++--- .../Views/uEditorFacturaProveedor.dfm | 96 +-- .../Views/uEditorFacturasProveedor.dfm | 13 +- .../Reports/uRptPedidosProveedor_Server.dfm | 454 +++++++---- ...ialogOpcionesImpresionPedidosProveedor.dfm | 29 +- .../Views/uEditorPedidoProveedor.dfm | 113 ++- .../Views/uEditorPedidosProveedor.dfm | 3 + .../Reports/uRptPedidosCliente_Server.dfm | 453 +++++++---- ...uDialogOpcionesImpresionPedidosCliente.dfm | 17 +- .../Views/uEditorPedidoCliente.dfm | 24 +- .../Views/uEditorPedidosClienteReport.dfm | 16 + 22 files changed, 2385 insertions(+), 1257 deletions(-) create mode 100644 Source/Modulos/Pedidos de cliente/Views/uEditorPedidosClienteReport.dfm diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm index 75bdc12..f50608e 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm @@ -3,7 +3,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente OnCreate = DataModuleCreate OnDestroy = DataModuleDestroy Height = 471 - Width = 448 + Width = 535 object DADSCabecera: TDADataSource DataSet = tbl_Cabecera.Dataset DataTable = tbl_Cabecera @@ -59,22 +59,29 @@ object RptAlbaranesCliente: TRptAlbaranesCliente item Connection = 'IBX' SQL = - 'SELECT'#10' V_ALBARANES_CLIENTE.ID, V_ALBARANES_CLIENTE.ID_EMPRESA,' + - #10' V_ALBARANES_CLIENTE.ID_CLIENTE,'#10' V_ALBARANES_CLIENTE.FECHA_A' + - 'LBARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.' + - 'REFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARAN' + - 'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.OBSERVACIONES,'#10' V_' + - 'ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.NIF_CIF, CONTACTOS.' + - 'NOMBRE,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTA' + - 'CTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CO' + - 'NTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION' + - ','#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCI' + - 'A) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL,' + - ' CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL'#10'FROM'#10' V_ALBARANES_CL' + - 'IENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIE' + - 'NTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONT' + - 'ACTOS_DIRECCIONES.ID = V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V' + - '_ALBARANES_CLIENTE.ID = :ID'#10#10 + '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 @@ -142,8 +149,68 @@ object RptAlbaranesCliente: TRptAlbaranesCliente TableField = 'REFERENCIA_CLIENTE' end item - DatasetField = 'NIF_CIF' - TableField = 'NIF_CIF' + 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' @@ -160,6 +227,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente 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 @@ -184,32 +261,9 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Size = 255 end item - Name = 'OBSERVACIONES' - DataType = datMemo - end - item - Name = 'IMPORTE_TOTAL' - DataType = datCurrency - end - item - Name = 'NIF_CIF' + Name = 'CODIGO_POSTAL' DataType = datString - Size = 15 - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - end - item - Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 - end - item - Name = 'CALLE' - DataType = datString - Size = 255 + Size = 10 end item Name = 'POBLACION' @@ -222,9 +276,95 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Size = 255 end item - Name = 'CODIGO_POSTAL' + 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 @@ -232,25 +372,22 @@ object RptAlbaranesCliente: TRptAlbaranesCliente item Name = 'ID_ALBARAN' DataType = datInteger - Value = '11' - ParamType = daptInput + Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'ALBARANES_CLIENTE_DETALLES' SQL = - 'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' + - '.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' + - 'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' + - 'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' + - 'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.UNIDAD_MEDIDA,'#10' ' + - ' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE' + - '_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA'#10'FROM ALBARA' + - 'NES_CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON (ALBARANES_CLIE' + - 'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE'#10' ID_ALBARAN =' + - ' :ID_ALBARAN AND (VISIBLE <> 0) AND {Where}'#10'ORDER BY ID_ALBARAN,' + - ' POSICION'#10 + '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 @@ -277,10 +414,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end - item - DatasetField = 'UNIDAD_MEDIDA' - TableField = 'UNIDAD_MEDIDA' - end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' @@ -293,6 +426,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente DatasetField = 'REFERENCIA' TableField = '' SQLOrigin = 'REFERENCIA' + end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = '' + SQLOrigin = 'REFERENCIA_PROVEEDOR' end> end> Name = 'Informe_Detalles' @@ -314,145 +452,30 @@ object RptAlbaranesCliente: TRptAlbaranesCliente DataType = datString Size = 25 end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end item Name = 'CONCEPTO' DataType = datString - Size = 254 + Size = 32765 end item Name = 'CANTIDAD' + DataType = datCurrency + end + item + Name = 'IMPORTE_UNIDAD' DataType = datFloat end - item - Name = 'UNIDAD_MEDIDA' - DataType = datString - Size = 255 - end - item - Name = 'IMPORTE_UNIDAD' - DataType = datCurrency - end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - end> - end - item - Params = < - item - Name = 'ID_ALBARAN' - DataType = datInteger - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'ALBARANES_CLIENTE_DETALLES' - SQL = - 'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' + - '.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' + - 'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' + - 'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' + - 'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, AL' + - 'BARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFEREN' + - 'CIA, ARTICULOS.FAMILIA'#10#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JO' + - 'IN ARTICULOS ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICU' + - 'LOS.ID)'#10'WHERE (ID_ALBARAN = :ID_ALBARAN)'#10'AND (ARTICULOS.INVENTAR' + - 'IABLE = 1)'#10'ORDER BY POSICION'#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 = 'FAMILIA' - TableField = '' - SQLOrigin = 'FAMILIA' - end> - end> - Name = 'Informe_Detalles_Etiquetas' - 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 = 'CONCEPTO' - DataType = datString - Size = 254 - end - item - Name = 'CANTIDAD' - DataType = datInteger - end - item - Name = 'IMPORTE_UNIDAD' - DataType = datCurrency - end - item - Name = 'IMPORTE_TOTAL' - DataType = datCurrency - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - end - item - Name = 'FAMILIA' + Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> @@ -476,87 +499,71 @@ object RptAlbaranesCliente: TRptAlbaranesCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 39460.761954919000000000 + ReportOptions.LastChange = 40408.561164004630000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( '' - 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' + 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' + 'begin' + '// NombreEmpresa.Lines.Clear;' + '// NombreEmpresa.Lines.Add();' + 'end;' + '' + 'procedure TelefonosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena: String;' 'begin' - '{ DatosEmpresa.Lines.Clear;' + '{ TelefonosEmpresa.Lines.Clear;' + '' ' if ( <> '#39#39') then' - ' Cadena := '#39'TLF: '#39' + ;' + ' Cadena := '#39'tlf: '#39' + ;' ' if ( <> '#39#39') then' - ' Cadena := Cadena + '#39' FAX: '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' - '}' + ' Cadena := Cadena + '#39' / fax: '#39' + ;' + ' TelefonosEmpresa.Lines.Add(Cadena);' + '} ' 'end;' '' - 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' - 'begin' - '{ NombreEmpresa.Lines.Clear;' - ' NombreEmpresa.Lines.Add();' - '}' - 'end;' - '' - 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);' + 'procedure DireccionEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' - ' ACadena : String;' + ' Cadena: String;' 'begin' - '{ ACadena := '#39#39';' - ' DireccionEnvio.Lines.Clear;' - ' if ( <> '#39#39') then' - ' ACadena := ;' + '{ ' + ' DireccionEmpresa.Lines.Clear;' '' - ' if ( <> '#39#39') then' + ' if ( <> '#39#39') then' - ' ACadena := ACadena + '#39' '#39' + ;' + ' DireccionEmpresa.Lines.Add()' + + ';' '' - ' DireccionEnvio.Lines.Add(ACadena);' - ' ACadena := '#39#39';' - ' DireccionEnvio.Lines.Add();' - ' if ( <> '#39#39') then' - ' ACadena := + '#39' '#39';' - ' if ( <> '#39#39') then' - ' ACadena := ACadena + ;' + ' if ( <> '#39#39') then' + ' Cadena := ;' + ' if ( <> '#39#39') then' + + ' Cadena := Cadena + '#39', '#39' + ;' + ' DireccionEmpresa.Lines.Add(Cadena);' '' - ' if (ACadena <> '#39#39') then' - ' DireccionEnvio.Lines.Add(ACadena);' - '' - ' if ( <> '#39#39') then' - ' DireccionEnvio.Lines.Add();' - '' - ' if ( <> '#39#39') then' - ' DireccionEnvio.Lines.Add();' - '}' + ' if ( <> '#39#39') then' + + ' DireccionEmpresa.Lines.Add();' + '} ' 'end;' '' - 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' + '' + 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);' 'begin' - '{ if not Engine.FinalPass then' - ' Set('#39'TotalPaginas'#39', ( + 1));' - '' - ' if Engine.FinalPass then' - ' Set('#39'Pagina'#39', ( + 1));} ' + ' Memo11.Visible := ( <> 0);' 'end;' '' - 'procedure frxReportOnStartReport(Sender: TfrxComponent);' - 'begin' - ' Set('#39'Pagina'#39', 0);' - ' Set('#39'TotalPaginas'#39', 0);' - 'end;' - '' - '' 'begin' '' 'end.') ShowProgress = False StoreInDFM = False - OnStartReport = 'frxReportOnStartReport' + OnGetValue = frxReportGetValue Left = 145 Top = 16 end @@ -800,6 +807,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente 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 @@ -824,32 +841,9 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Size = 255 end item - Name = 'OBSERVACIONES' - DataType = datMemo - end - item - Name = 'IMPORTE_TOTAL' - DataType = datCurrency - end - item - Name = 'NIF_CIF' + Name = 'CODIGO_POSTAL' DataType = datString - Size = 15 - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - end - item - Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 - end - item - Name = 'CALLE' - DataType = datString - Size = 255 + Size = 10 end item Name = 'POBLACION' @@ -862,9 +856,95 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Size = 255 end item - Name = 'CODIGO_POSTAL' + 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 @@ -904,29 +984,29 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Size = 25 end item - Name = 'CONCEPTO' - DataType = datString - Size = 254 - end - item - Name = 'CANTIDAD' - DataType = datFloat - end - item - Name = 'UNIDAD_MEDIDA' + Name = 'REFERENCIA' DataType = datString Size = 255 end item - Name = 'IMPORTE_UNIDAD' + 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' + Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> @@ -934,8 +1014,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente item Name = 'ID_ALBARAN' DataType = datInteger - Value = '11' - ParamType = daptInput + Value = '' end> MasterParamsMappings.Strings = ( 'ID_ALBARAN=ID') diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm index 0fe622d..2c04d40 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm @@ -168,17 +168,16 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente TabOrder = 1 OnChanging = pgPaginasChanging ExplicitWidth = 759 - ExplicitHeight = 439 + ExplicitHeight = 406 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 ExplicitWidth = 751 - ExplicitHeight = 411 + ExplicitHeight = 378 end object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 - ExplicitHeight = 411 inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente Left = 0 Top = 0 @@ -186,6 +185,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Height = 378 Align = alClient BiDiMode = bdLeftToRight + Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 @@ -196,31 +196,30 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 751 - ExplicitHeight = 411 + ExplicitHeight = 378 inherited ToolBar1: TToolBar Width = 751 - Height = 51 + Height = 46 ExplicitWidth = 751 - ExplicitHeight = 51 + ExplicitHeight = 46 inherited ToolButton3: TToolButton Wrap = False end inherited ToolButton4: TToolButton Left = 278 Top = 0 + Wrap = True ExplicitLeft = 278 ExplicitTop = 0 end inherited ToolButton14: TToolButton - Left = 334 - Top = 0 + Left = 0 Wrap = False - ExplicitLeft = 334 - ExplicitTop = 0 + ExplicitLeft = 0 end inherited FontName: TJvFontComboBox - Left = 399 - Top = 0 + Left = 65 + Top = 22 ExplicitLeft = 399 ExplicitTop = 0 end @@ -232,7 +231,13 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ExplicitTop = 0 ExplicitWidth = 122 end - inherited ToolButton13: TToolButton [7] + inherited UpDown1: TUpDown + Left = 666 + Top = 0 + ExplicitLeft = 666 + ExplicitTop = 0 + end + inherited ToolButton13: TToolButton Left = 0 Top = 0 Wrap = True @@ -240,52 +245,46 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ExplicitTop = 0 ExplicitHeight = 27 end - inherited UpDown1: TUpDown [8] + inherited ToolButton6: TToolButton Left = 0 Top = 27 ExplicitLeft = 0 ExplicitTop = 27 end - inherited ToolButton6: TToolButton - Left = 17 - Top = 27 - ExplicitLeft = 17 - ExplicitTop = 27 - end inherited ToolButton7: TToolButton - Left = 83 + Left = 66 Top = 27 - ExplicitLeft = 83 + ExplicitLeft = 66 ExplicitTop = 27 end inherited ToolButton8: TToolButton - Left = 150 + Left = 133 Top = 27 - ExplicitLeft = 150 + ExplicitLeft = 133 ExplicitTop = 27 end inherited ToolButton12: TToolButton - Left = 233 + Left = 216 Top = 27 - ExplicitLeft = 233 + ExplicitLeft = 216 ExplicitTop = 27 end inherited ToolButton9: TToolButton - Left = 241 + Left = 224 Top = 27 - ExplicitLeft = 241 + ExplicitLeft = 224 ExplicitTop = 27 end inherited ToolButton10: TToolButton - Left = 386 + Left = 369 Top = 27 - ExplicitLeft = 386 + ExplicitLeft = 369 ExplicitTop = 27 end inherited ToolButton11: TToolButton - Left = 511 + Left = 494 Top = 27 - ExplicitLeft = 511 + ExplicitLeft = 494 ExplicitTop = 27 end end @@ -303,7 +302,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ExplicitTop = 51 ExplicitWidth = 751 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 702 + ExplicitWidth = 566 end end inherited cxGridPopupMenu: TcxGridPopupMenu @@ -320,7 +319,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitHeight = 411 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 @@ -336,7 +334,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 751 - ExplicitHeight = 411 + ExplicitHeight = 378 inherited pnlSup: TPanel Width = 751 ExplicitWidth = 751 @@ -351,7 +349,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ExplicitHeight = 383 inherited eIncidencias: TcxDBMemo ExplicitWidth = 734 - ExplicitHeight = 356 + ExplicitHeight = 323 Height = 323 Width = 734 end @@ -391,7 +389,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Height = 78 LookAndFeel = dxLayoutOfficeLookAndFeel1 ExplicitWidth = 765 - ExplicitHeight = 45 + ExplicitHeight = 78 inherited Bevel3: TBevel Left = 428 Top = 11 diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm index 984c6d3..5ada00a 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm @@ -153,7 +153,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente Left = 427 Visible = True ExplicitLeft = 427 - ExplicitWidth = 117 + ExplicitWidth = 156 object TBXItem42: TTBXItem Action = actEnviar DisplayMode = nbdmImageAndText @@ -234,9 +234,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente object actGenerarEtiquetas: TAction Category = 'Acciones' Caption = 'Generar etiquetas' - Enabled = False ImageIndex = 23 - Visible = False OnExecute = actGenerarEtiquetasExecute OnUpdate = actGenerarEtiquetasUpdate end diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.dfm index 3926992..a5d30fb 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.dfm @@ -1,7 +1,5 @@ inherited fEditorAlbaranesClientePreview: TfEditorAlbaranesClientePreview Caption = 'Previsualizar el albar'#225'n de cliente' - ExplicitWidth = 320 - ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited TBXDock: TTBXDock diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm index 2514315..0c7f117 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm @@ -1,6 +1,6 @@ inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente Caption = 'Lista de '#243'rdenes de devoluci'#243'n a cliente' - ExplicitWidth = 320 + ExplicitHeight = 538 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -49,6 +49,10 @@ inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente inherited actGenerarFactura: TAction Caption = 'Generar abono...' end + inherited actGenerarEtiquetas: TAction + Enabled = False + Visible = False + end end inherited SmallImages: TPngImageList PngImages = < diff --git a/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm b/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm index 07c2015..817b0c8 100644 --- a/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm +++ b/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm @@ -172,26 +172,52 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor item Connection = 'IBX' SQL = - 'SELECT'#10' ALBARANES_PROVEEDOR.ID,'#10' ALBARANES_PROVEEDOR.ID_EMPRES' + - 'A,'#10' ALBARANES_PROVEEDOR.TIPO,'#10' ALBARANES_PROVEEDOR.REFERENCIA,' + - #10' ALBARANES_PROVEEDOR.FECHA_ALBARAN,'#10' ALBARANES_PROVEEDOR.OBSE' + - 'RVACIONES,'#10' CONTACTOS.NOMBRE,'#10' COALESCE(CONTACTOS_DIRECCIONES.' + - 'FAX, CONTACTOS.FAX) AS FAX,'#10' ALBARANES_PROVEEDOR.PERSONA_CONTAC' + - 'TO_PROV AS PERSONA_CONTACTO,'#10' PROVEEDORES_DATOS.CODIGO_ASIGNADO' + - ' AS CODIGO_CLIENTE,'#10' ALBARANES_PROVEEDOR.ID_ALMACEN,'#10' COALESCE' + - '(ALMACENES.CALLE, ALBARANES_PROVEEDOR.CALLE) AS CALLE,'#10' COALESC' + - 'E(ALMACENES.POBLACION, ALBARANES_PROVEEDOR.POBLACION) AS POBLACI' + - 'ON,'#10' COALESCE(ALMACENES.PROVINCIA, ALBARANES_PROVEEDOR.PROVINCI' + - 'A) AS PROVINCIA,'#10' COALESCE(ALMACENES.CODIGO_POSTAL, ALBARANES_P' + - 'ROVEEDOR.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' ALBARANES_PROVEEDOR.' + - 'PERSONA_CONTACTO AS ENTREGAR_A,'#10' ALBARANES_PROVEEDOR.IMPORTE_TO' + - 'TAL'#10'FROM'#10' ALBARANES_PROVEEDOR'#10' INNER JOIN CONTACTOS ON (CONTAC' + - 'TOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN PRO' + - 'VEEDORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = ALBARANES_PR' + - 'OVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON' + - ' (CONTACTOS_DIRECCIONES.ID = ALBARANES_PROVEEDOR.ID_DIRECCION)'#10' ' + - ' LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDO' + - 'R.ID_ALMACEN)'#10'WHERE ALBARANES_PROVEEDOR.ID = :ID'#10#10 + 'SELECT'#10' V_ALBARANES_PROVEEDOR.ID,'#10' V_ALBARANES_PROVEEDOR.ID_EM' + + 'PRESA,'#10' V_ALBARANES_PROVEEDOR.ID_PROVEEDOR,'#10' V_ALBARANES_PROVE' + + 'EDOR.NOMBRE,'#10' V_ALBARANES_PROVEEDOR.FECHA_ALBARAN,'#10' V_ALBARANE' + + 'S_PROVEEDOR.REFERENCIA,'#10' V_ALBARANES_PROVEEDOR.ID_PEDIDO,'#10' V_A' + + 'LBARANES_PROVEEDOR.REF_PED_PROVEEDOR,'#10#10' CASE WHEN (ALMACENES.ID' + + ' > 0)'#10' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE is ' + + 'null'#10' THEN ALMACENES.NOMBRE'#10' END' + + #10' END AS NOMBRE_ALMACEN,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' ' + + ' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE is null'#10' ' + + ' THEN ALMACENES.CALLE'#10' ELSE V_ALBARANES' + + '_PROVEEDOR.CALLE'#10' END'#10' ELSE V_ALBARAN' + + 'ES_PROVEEDOR.CALLE'#10' END as CALLE,'#10#10' CASE WHEN (ALMACENES.ID > ' + + '0)'#10' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE is nul' + + 'l'#10' THEN ALMACENES.CODIGO_POSTAL'#10' ' + + ' ELSE V_ALBARANES_PROVEEDOR.CODIGO_POSTAL'#10' END'#10' ' + + ' ELSE V_ALBARANES_PROVEEDOR.CODIGO_POSTAL'#10' END as COD' + + 'IGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN CAS' + + 'E WHEN V_ALBARANES_PROVEEDOR.CALLE is null'#10' THEN' + + ' ALMACENES.POBLACION'#10' ELSE V_ALBARANES_PROVEEDOR' + + '.POBLACION'#10' END'#10' ELSE V_ALBARANES_PRO' + + 'VEEDOR.POBLACION'#10' END as POBLACION,'#10#10' CASE WHEN (ALMACENES.ID ' + + '> 0)'#10' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE is n' + + 'ull'#10' THEN ALMACENES.PROVINCIA'#10' E' + + 'LSE V_ALBARANES_PROVEEDOR.PROVINCIA'#10' END'#10' ' + + ' ELSE V_ALBARANES_PROVEEDOR.PROVINCIA'#10' END as PROVINCIA,'#10#10' ' + + ' CASE WHEN (ALMACENES.ID > 0)'#10' THEN CASE WHEN V_ALBAR' + + 'ANES_PROVEEDOR.CALLE is null'#10' THEN ALMACENES.PER' + + 'SONA_CONTACTO'#10' ELSE V_ALBARANES_PROVEEDOR.PERSON' + + 'A_CONTACTO'#10' END'#10' ELSE V_ALBARANES_PRO' + + 'VEEDOR.PERSONA_CONTACTO'#10' END as PERSONA_CONTACTO,'#10#10' CASE WHEN ' + + '(ALMACENES.ID > 0)'#10' THEN CASE WHEN V_ALBARANES_PROVEE' + + 'DOR.CALLE is null'#10' THEN ALMACENES.TELEFONO'#10' ' + + ' ELSE V_ALBARANES_PROVEEDOR.TELEFONO'#10' ' + + ' END'#10' ELSE V_ALBARANES_PROVEEDOR.TELEFONO'#10' END as TE' + + 'LEFONO,'#10#10' V_ALBARANES_PROVEEDOR.OBSERVACIONES,'#10' V_ALBARANES_PR' + + 'OVEEDOR.IMPORTE_TOTAL,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' ' + + 'EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RA' + + 'ZON_SOCIAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,' + + #10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EM' + + 'PRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_' + + 'WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARANES_PROVEEDOR'#10' LEFT ' + + 'OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_ALBARANES_PROV' + + 'EEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID' + + ' = V_ALBARANES_PROVEEDOR.ID_ALMACEN)'#10' LEFT OUTER JOIN EMPRESAS ' + + 'ON (EMPRESAS.ID = V_ALBARANES_PROVEEDOR.ID_EMPRESA)'#10'WHERE V_ALBA' + + 'RANES_PROVEEDOR.ID = :ID'#10#10 StatementType = stSQL ColumnMappings = < item @@ -218,22 +244,10 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor DatasetField = 'NOMBRE' TableField = 'NOMBRE' end - item - DatasetField = 'FAX' - TableField = 'FAX' - end item DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' end - item - DatasetField = 'CODIGO_CLIENTE' - TableField = 'CODIGO_CLIENTE' - end - item - DatasetField = 'ID_ALMACEN' - TableField = 'ID_ALMACEN' - end item DatasetField = 'CALLE' TableField = 'CALLE' @@ -250,17 +264,61 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end - item - DatasetField = 'ENTREGAR_A' - TableField = 'ENTREGAR_A' - end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item - DatasetField = 'TIPO' - TableField = 'TIPO' + DatasetField = 'ID_PROVEEDOR' + TableField = 'ID_PROVEEDOR' + end + item + DatasetField = 'ID_PEDIDO' + TableField = 'ID_PEDIDO' + end + item + DatasetField = 'REF_PED_PROVEEDOR' + TableField = 'REF_PED_PROVEEDOR' + end + item + DatasetField = 'NOMBRE_ALMACEN' + TableField = 'NOMBRE_ALMACEN' + end + item + DatasetField = 'TELEFONO' + TableField = 'TELEFONO' + 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 = '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' @@ -275,12 +333,11 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor DataType = datInteger end item - Name = 'TIPO' - DataType = datString - Size = 1 + Name = 'ID_PROVEEDOR' + DataType = datInteger end item - Name = 'REFERENCIA' + Name = 'NOMBRE' DataType = datString Size = 255 end @@ -289,38 +346,34 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor DataType = datDateTime end item - Name = 'OBSERVACIONES' - DataType = datMemo - end - item - Name = 'NOMBRE' + Name = 'REFERENCIA' DataType = datString Size = 255 end item - Name = 'FAX' - DataType = datString - Size = 25 - end - item - Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 - end - item - Name = 'CODIGO_CLIENTE' - DataType = datString - Size = 255 - end - item - Name = 'ID_ALMACEN' + Name = 'ID_PEDIDO' DataType = datInteger end + item + Name = 'REF_PED_PROVEEDOR' + DataType = datString + Size = 255 + end + item + Name = 'NOMBRE_ALMACEN' + DataType = datString + Size = 255 + end item Name = 'CALLE' DataType = datString Size = 255 end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + end item Name = 'POBLACION' DataType = datString @@ -332,18 +385,62 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor Size = 255 end item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - end - item - Name = 'ENTREGAR_A' + Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + end item Name = 'IMPORTE_TOTAL' DataType = datCurrency + 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 = '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 @@ -358,20 +455,18 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor Connection = 'IBX' TargetTable = 'ALBARANES_PROVEEDOR_DETALLES' SQL = - 'SELECT DET.ID, DET.ID_ALBARAN,'#10' DET.POSICION, DET.TIPO_DET' + - 'ALLE,'#10' ARTICULOS.REFERENCIA, DET.CONCEPTO, DET.CANTIDAD,'#10' ' + - ' DET.UNIDAD_MEDIDA, DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDA' + - 'D * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, DET.IM' + - 'PORTE_TOTAL,'#10' ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REF' + - 'ERENCIA_PROVEEDOR,'#10' ARTICULOS.REFERENCIA_FABR as REFERENCI' + - 'A_FABRICANTE'#10'FROM ALBARANES_PROVEEDOR_DETALLES DET'#10'LEFT OUTER JO' + - 'IN ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN ALBAR' + - 'ANES_PROVEEDOR ON (ALBARANES_PROVEEDOR.ID = DET.ID_ALBARAN)'#10'LEFT' + - ' JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEEDORES.ID_ARTICU' + - 'LO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_PROVEEDOR = ALB' + - 'ARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE DET.ID_ALBARAN = :ID_ALBAR' + - 'AN AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_ALBARAN, DET.' + - 'POSICION;'#10#10 + 'SELECT ALBARANES_PROVEEDOR_DETALLES.ID, ALBARANES_PROVEEDOR_DETA' + + 'LLES.ID_ALBARAN,'#10' ALBARANES_PROVEEDOR_DETALLES.POSICION, A' + + 'LBARANES_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' ALBARANES_PROVE' + + 'EDOR_DETALLES.CONCEPTO, ALBARANES_PROVEEDOR_DETALLES.CANTIDAD,'#10' ' + + ' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_UNIDAD - (ALBARANES_P' + + 'ROVEEDOR_DETALLES.IMPORTE_UNIDAD * (COALESCE(ALBARANES_PROVEEDOR' + + '_DETALLES.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, ALBARANES_PROV' + + 'EEDOR_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA, ARTIC' + + 'ULOS.FAMILIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10 + + #10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON (ALBAR' + + 'ANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE ID_ALB' + + 'ARAN = :ID_ALBARAN'#10'ORDER BY POSICION'#10 StatementType = stSQL ColumnMappings = < item @@ -403,10 +498,6 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end - item - DatasetField = 'UNIDAD_MEDIDA' - TableField = 'UNIDAD_MEDIDA' - end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' @@ -421,9 +512,9 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor SQLOrigin = 'REFERENCIA_PROVEEDOR' end item - DatasetField = 'REFERENCIA_FABRICANTE' + DatasetField = 'FAMILIA' TableField = '' - SQLOrigin = 'REFERENCIA_FABRICANTE' + SQLOrigin = 'FAMILIA' end> end> Name = 'Informe_Detalles' @@ -446,11 +537,6 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor DataType = datString Size = 25 end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - end item Name = 'CONCEPTO' DataType = datString @@ -458,12 +544,7 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor end item Name = 'CANTIDAD' - DataType = datFloat - end - item - Name = 'UNIDAD_MEDIDA' - DataType = datString - Size = 255 + DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' @@ -474,12 +555,17 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor DataType = datCurrency end item - Name = 'REFERENCIA_PROVEEDOR' + Name = 'REFERENCIA' DataType = datString Size = 255 end item - Name = 'REFERENCIA_FABRICANTE' + Name = 'FAMILIA' + DataType = datString + Size = 255 + end + item + Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm index b805017..afbbecc 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm @@ -290,7 +290,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor ExplicitTop = 51 ExplicitWidth = 751 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 751 + ExplicitWidth = 566 end end inherited cxGridPopupMenu: TcxGridPopupMenu diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm index 280270a..48a556c 100644 --- a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm +++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm @@ -249,7 +249,9 @@ object PluginContactos: TPluginContactos end object actGruposEmpleado: TAction Caption = 'Categorias de empleado' + Enabled = False ImageIndex = 4 + Visible = False OnExecute = actGruposEmpleadoExecute end object actAgentes: TAction diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 3173b91..ace274d 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -19,24 +19,31 @@ object RptFacturasCliente: TRptFacturasCliente item Connection = 'IBX' SQL = - 'select'#10' v_facturas_cliente.id, v_facturas_cliente.id_empresa,'#10 + - ' v_facturas_cliente.referencia, v_facturas_cliente.tipo,'#10' v_' + - 'facturas_cliente.fecha_factura, v_facturas_cliente.fecha_VENCIMI' + - 'ENTO,'#10' v_facturas_cliente.base_imponible,'#10' v_facturas_client' + - 'e.situacion, v_facturas_cliente.descuento,'#10' v_facturas_cliente' + - '.importe_descuento, v_facturas_cliente.iva,'#10' v_facturas_client' + - 'e.importe_iva, v_facturas_cliente.re,'#10' v_facturas_cliente.impo' + - 'rte_re, v_facturas_cliente.importe_total,'#10' v_facturas_cliente.' + - 'observaciones, v_facturas_cliente.nif_cif,'#10' v_facturas_cliente' + - '.id_cliente, v_facturas_cliente.nombre,'#10' v_facturas_cliente.ca' + - 'lle, v_facturas_cliente.provincia,'#10' v_facturas_cliente.poblaci' + - 'on, v_facturas_cliente.codigo_postal,'#10' v_facturas_cliente.reca' + - 'rgo_equivalencia, v_facturas_cliente.importe_neto,'#10' v_facturas' + - '_cliente.importe_porte, formas_pago.descripcion as FORMA_PAGO,'#10' ' + - ' v_facturas_cliente.DATOS_BANCARIOS, v_facturas_cliente.RETENCI' + - 'ON, v_facturas_cliente.IMPORTE_RETENCION'#10'from v_facturas_cliente' + - #10' left outer join formas_pago on (formas_pago.id = v_facturas_' + - 'cliente.id_forma_pago)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10 + 'SELECT'#10' FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.REFERENCIA, FAC' + + 'TURAS_CLIENTE.FECHA_FACTURA,'#10' CASE WHEN (FACTURAS_CLIENTE.IMP' + + 'ORTE_TOTAL < 0) THEN '#39'A'#39' ELSE '#39'F'#39' END AS TIPO,'#10'/*'#10' v_facturas' + + '_cliente.situacion,'#10'*/'#10' FACTURAS_CLIENTE.BASE_IMPONIBLE, FACT' + + 'URAS_CLIENTE.DESCUENTO, FACTURAS_CLIENTE.IMPORTE_DESCUENTO,'#10' ' + + 'FACTURAS_CLIENTE.IVA, FACTURAS_CLIENTE.IMPORTE_IVA,'#10' FACTURAS' + + '_CLIENTE.RE, FACTURAS_CLIENTE.IMPORTE_RE,'#10' FACTURAS_CLIENTE.I' + + 'MPORTE_TOTAL,'#10' FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' + + 'SCRIPCION AS FORMA_PAGO, FACTURAS_CLIENTE.ID_CLIENTE,'#10' FACTUR' + + 'AS_CLIENTE.NIF_CIF, FACTURAS_CLIENTE.NOMBRE, FACTURAS_CLIENTE.CA' + + 'LLE,'#10' FACTURAS_CLIENTE.PROVINCIA, FACTURAS_CLIENTE.CODIGO_POS' + + 'TAL, FACTURAS_CLIENTE.POBLACION,'#10#10' CONTACTOS_DATOS_BANCO.TITU' + + 'LAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANC' + + 'O.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BA' + + 'NCO.CUENTA,'#10#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA' + + ', EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EM' + + 'PRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as' + + ' PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPR' + + 'ESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EM' + + 'PRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCA' + + 'NTIL, EMPRESAS.LOGOTIPO'#10#10'FROM FACTURAS_CLIENTE'#10#10'LEFT JOIN EMPRES' + + 'AS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_' + + 'PAGO.ID = FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DA' + + 'TOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = FACTURAS_CLIEN' + + 'TE.ID_CLIENTE)'#10#10'WHERE FACTURAS_CLIENTE.ID = :ID'#10#10 StatementType = stSQL ColumnMappings = < item @@ -63,10 +70,6 @@ object RptFacturasCliente: TRptFacturasCliente DatasetField = 'BASE_IMPONIBLE' TableField = 'BASE_IMPONIBLE' end - item - DatasetField = 'SITUACION' - TableField = 'SITUACION' - end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' @@ -127,37 +130,81 @@ object RptFacturasCliente: TRptFacturasCliente DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end - item - DatasetField = 'RECARGO_EQUIVALENCIA' - TableField = 'RECARGO_EQUIVALENCIA' - end - item - DatasetField = 'IMPORTE_NETO' - TableField = 'IMPORTE_NETO' - end - item - DatasetField = 'IMPORTE_PORTE' - TableField = 'IMPORTE_PORTE' - end item DatasetField = 'FORMA_PAGO' TableField = 'FORMA_PAGO' end item - DatasetField = 'DATOS_BANCARIOS' - TableField = 'DATOS_BANCARIOS' + DatasetField = 'TITULAR' + TableField = 'TITULAR' end item - DatasetField = 'FECHA_VENCIMIENTO' - TableField = 'FECHA_VENCIMIENTO' + DatasetField = 'ENTIDAD' + TableField = 'ENTIDAD' end item - DatasetField = 'RETENCION' - TableField = 'RETENCION' + DatasetField = 'SUCURSAL' + TableField = 'SUCURSAL' end item - DatasetField = 'IMPORTE_RETENCION' - TableField = 'IMPORTE_RETENCION' + DatasetField = 'DC' + TableField = 'DC' + end + item + DatasetField = 'CUENTA' + TableField = 'CUENTA' + end + item + DatasetField = 'NIF_CIF_EMPRESA' + TableField = 'NIF_CIF_EMPRESA' + end + item + DatasetField = 'RAZON_SOCIAL' + TableField = 'RAZON_SOCIAL' + end + item + DatasetField = 'CALLE_EMPRESA' + TableField = 'CALLE_EMPRESA' + end + item + DatasetField = 'POBLACION_EMPRESA' + TableField = 'POBLACION_EMPRESA' + end + item + DatasetField = 'PROVINCIA_EMPRESA' + TableField = 'PROVINCIA_EMPRESA' + end + item + DatasetField = 'CODIGO_POSTAL_EMPRESA' + TableField = 'CODIGO_POSTAL_EMPRESA' + end + item + DatasetField = 'TELEFONO_1' + TableField = 'TELEFONO_1' + end + item + DatasetField = 'FAX' + TableField = 'FAX' + end + item + DatasetField = 'MOVIL_1' + TableField = 'MOVIL_1' + end + item + DatasetField = 'EMAIL_1' + TableField = 'EMAIL_1' + end + item + DatasetField = 'PAGINA_WEB' + TableField = 'PAGINA_WEB' + end + item + DatasetField = 'REGISTRO_MERCANTIL' + TableField = 'REGISTRO_MERCANTIL' + end + item + DatasetField = 'LOGOTIPO' + TableField = 'LOGOTIPO' end> end> Name = 'InformeFacturasCliente' @@ -168,41 +215,27 @@ object RptFacturasCliente: TRptFacturasCliente DictionaryEntry = 'FacturasCliente_ID' InPrimaryKey = True end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'FacturasCliente_ID_EMPRESA' - end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_REFERENCIA' end - item - Name = 'TIPO' - DataType = datString - Size = 1 - end item Name = 'FECHA_FACTURA' DataType = datDateTime DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' end item - Name = 'FECHA_VENCIMIENTO' - DataType = datDateTime + Name = 'TIPO' + DataType = datString + Size = 1 end item Name = 'BASE_IMPONIBLE' DataType = datCurrency DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' end - item - Name = 'SITUACION' - DataType = datString - Size = 19 - end item Name = 'DESCUENTO' DataType = datFloat @@ -242,16 +275,21 @@ object RptFacturasCliente: TRptFacturasCliente DictionaryEntry = 'FacturasCliente_OBSERVACIONES' end item - Name = 'NIF_CIF' + Name = 'FORMA_PAGO' DataType = datString - Size = 15 - DictionaryEntry = 'FacturasCliente_NIF_CIF' + Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_CLIENTE' end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + DictionaryEntry = 'FacturasCliente_NIF_CIF' + end item Name = 'NOMBRE' DataType = datString @@ -270,12 +308,6 @@ object RptFacturasCliente: TRptFacturasCliente Size = 255 DictionaryEntry = 'FacturasCliente_PROVINCIA' end - item - Name = 'POBLACION' - DataType = datString - Size = 255 - DictionaryEntry = 'FacturasCliente_POBLACION' - end item Name = 'CODIGO_POSTAL' DataType = datString @@ -283,34 +315,104 @@ object RptFacturasCliente: TRptFacturasCliente DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' end item - Name = 'RECARGO_EQUIVALENCIA' - DataType = datSmallInt + Name = 'POBLACION' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasCliente_POBLACION' end item - Name = 'IMPORTE_NETO' - DataType = datCurrency - end - item - Name = 'IMPORTE_PORTE' - DataType = datCurrency - end - item - Name = 'FORMA_PAGO' + Name = 'TITULAR' DataType = datString Size = 255 end item - Name = 'DATOS_BANCARIOS' + Name = 'ENTIDAD' + DataType = datString + Size = 15 + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + end + item + Name = 'DC' + DataType = datString + Size = 15 + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_ID_EMPRESA' + end + item + Name = 'NIF_CIF_EMPRESA' + DataType = datString + Size = 15 + end + item + Name = 'RAZON_SOCIAL' DataType = datString Size = 255 end item - Name = 'RETENCION' - DataType = datFloat + Name = 'CALLE_EMPRESA' + DataType = datString + Size = 255 end item - Name = 'IMPORTE_RETENCION' - DataType = datCurrency + 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> ReadOnly = True end @@ -331,8 +433,8 @@ object RptFacturasCliente: TRptFacturasCliente 'DAD_MEDIDA, DET.IMPORTE_UNIDAD,'#10' DET.DESCUENTO, DET.IMPORTE_T' + 'OTAL, DET.VISIBLE'#10'FROM FACTURAS_CLIENTE_DETALLES AS DET'#10'LEFT OUT' + 'ER JOIN ARTICULOS ON (ARTICULOS.ID = DET.ID_ARTICULO)'#10'WHERE DET.' + - 'ID_FACTURA = :ID_FACTURA AND DET.VISIBLE = 1 AND {Where}'#10'ORDER B' + - 'Y DET.ID_FACTURA, DET.POSICION;'#10 + 'ID_FACTURA = :ID_FACTURA AND {Where}'#10'ORDER BY DET.ID_FACTURA, DE' + + 'T.POSICION;'#10#10#10 StatementType = stSQL ColumnMappings = < item @@ -416,7 +518,7 @@ object RptFacturasCliente: TRptFacturasCliente end item Name = 'CANTIDAD' - DataType = datFloat + DataType = datCurrency end item Name = 'UNIDAD_MEDIDA' @@ -1441,7 +1543,7 @@ object RptFacturasCliente: TRptFacturasCliente end item Name = 'CANTIDAD' - DataType = datFloat + DataType = datCurrency end item Name = 'UNIDAD_MEDIDA' @@ -1492,41 +1594,27 @@ object RptFacturasCliente: TRptFacturasCliente DictionaryEntry = 'FacturasCliente_ID' InPrimaryKey = True end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'FacturasCliente_ID_EMPRESA' - end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_REFERENCIA' end - item - Name = 'TIPO' - DataType = datString - Size = 1 - end item Name = 'FECHA_FACTURA' DataType = datDateTime DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' end item - Name = 'FECHA_VENCIMIENTO' - DataType = datDateTime + Name = 'TIPO' + DataType = datString + Size = 1 end item Name = 'BASE_IMPONIBLE' DataType = datCurrency DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' end - item - Name = 'SITUACION' - DataType = datString - Size = 19 - end item Name = 'DESCUENTO' DataType = datFloat @@ -1566,16 +1654,21 @@ object RptFacturasCliente: TRptFacturasCliente DictionaryEntry = 'FacturasCliente_OBSERVACIONES' end item - Name = 'NIF_CIF' + Name = 'FORMA_PAGO' DataType = datString - Size = 15 - DictionaryEntry = 'FacturasCliente_NIF_CIF' + Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_CLIENTE' end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + DictionaryEntry = 'FacturasCliente_NIF_CIF' + end item Name = 'NOMBRE' DataType = datString @@ -1594,12 +1687,6 @@ object RptFacturasCliente: TRptFacturasCliente Size = 255 DictionaryEntry = 'FacturasCliente_PROVINCIA' end - item - Name = 'POBLACION' - DataType = datString - Size = 255 - DictionaryEntry = 'FacturasCliente_POBLACION' - end item Name = 'CODIGO_POSTAL' DataType = datString @@ -1607,34 +1694,104 @@ object RptFacturasCliente: TRptFacturasCliente DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' end item - Name = 'RECARGO_EQUIVALENCIA' - DataType = datSmallInt + Name = 'POBLACION' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasCliente_POBLACION' end item - Name = 'IMPORTE_NETO' - DataType = datCurrency - end - item - Name = 'IMPORTE_PORTE' - DataType = datCurrency - end - item - Name = 'FORMA_PAGO' + Name = 'TITULAR' DataType = datString Size = 255 end item - Name = 'DATOS_BANCARIOS' + Name = 'ENTIDAD' + DataType = datString + Size = 15 + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + end + item + Name = 'DC' + DataType = datString + Size = 15 + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_ID_EMPRESA' + end + item + Name = 'NIF_CIF_EMPRESA' + DataType = datString + Size = 15 + end + item + Name = 'RAZON_SOCIAL' DataType = datString Size = 255 end item - Name = 'RETENCION' - DataType = datFloat + Name = 'CALLE_EMPRESA' + DataType = datString + Size = 255 end item - Name = 'IMPORTE_RETENCION' - DataType = datCurrency + 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 @@ -1687,180 +1844,185 @@ object RptFacturasCliente: TRptFacturasCliente 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 = 'Por defecto' + PrintOptions.Printer = 'Default' PrintOptions.PrintOnSheet = 0 - ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 39920.656640081000000000 + ReportOptions.CreateDate = 37871.995398692100000000 + ReportOptions.LastChange = 40408.653188761570000000 + ReportOptions.VersionBuild = '1' + ReportOptions.VersionMajor = '12' + ReportOptions.VersionMinor = '13' + ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' ScriptText.Strings = ( + 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' DatosCliente.Lines.Clear;' + ' DatosCliente.Lines.Add();' + '' + ' if ( <> '#39#39')' + ' or ( <> '#39#39') then' + + ' DatosCliente.Lines.Add( + '#39' ' + + ' '#39' + );' + '' + ' if ( <> '#39#39') then' + ' DatosCliente.Lines.Add();' + 'end;' + '' + 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' BandaDetalles.StartNewPage := False;' + ' BandaDetalles.Visible := True;' + ' MemPrecio.Style := '#39'Concepto normal'#39';' + ' MemCantidad.Style := '#39'Concepto normal'#39';' + ' MemImpTotal.Style := '#39'Concepto normal'#39';' + ' RichConcepto.Visible := True;' + '' + ' case of' + ' '#39'Salto'#39': begin' + ' BandaDetalles.StartNewPage := True;' + ' RichConcepto.Visible := False;' + ' end;' + ' '#39'Titulo'#39': begin' + ' MemPrecio.Style := '#39'Concepto titulo'#39';' + ' MemCantidad.Style := '#39'Concepto titulo'#39';' + ' MemImpTotal.Style := '#39'Concepto titulo'#39';' + ' end;' + ' '#39'Concepto'#39': begin' + ' MemPrecio.Style := '#39'Concepto normal'#39';' + ' MemCantidad.Style := '#39'Concepto normal'#39';' + ' MemImpTotal.Style := '#39'Concepto normal'#39';' + ' end;' + ' '#39'Subtotal'#39': begin' + ' MemPrecio.Style := '#39'Concepto subtotal'#39';' + ' MemCantidad.Style := '#39'Concepto subtotal'#39';' + ' MemImpTotal.Style := '#39'Concepto subtotal'#39';' + ' end;' + ' '#39'Descuento'#39': begin' + ' BandaDetalles.Visible := False;' + ' RichConcepto.Color := clNone;' + ' end;' + ' end;' + '' + ' RichConcepto.Color := MemImpTotal.Color;' + ' RichConcepto.Frame := MemImpTotal.Frame;' + 'end;' + '' + 'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);' + 'begin' + + ' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' + + '.Height - 1;' + 'end;' '' 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena: String;' 'begin' - '{ DatosEmpresa.Lines.Clear;' - ' if ( <> '#39#39') then' - ' Cadena := '#39'TLF: '#39' + ;' - ' if ( <> '#39#39') then' - - ' Cadena := Cadena + '#39' FAX: '#39' + ;' + ' { ' + ' DatosEmpresa.Lines.Clear;' + ' DatosEmpresa.Lines.Add();' + ' DatosEmpresa.Lines.Add();' + '' + ' Cadena := '#39#39';' + ' if ( <> '#39#39') then' + ' Cadena := '#39'TLF: '#39' + ;' + ' if ( <> '#39#39') then' + ' Cadena := Cadena + '#39' FAX: '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' - '}' - 'end;' '' - 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' - 'begin' - '{ NombreEmpresa.Lines.Clear;' - ' NombreEmpresa.Lines.Add();' - '}' - 'end;' - '' - 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);' - 'var' - ' ACadena : String;' - 'begin' - '{ ACadena := '#39#39';' - ' DireccionEnvio.Lines.Clear;' - ' if ( <> '#39#39') then' - ' ACadena := ;' - '' - ' if ( <> '#39#39') then' + ' Cadena := '#39#39';' + ' if ( <> '#39#39') then' + ' Cadena := ;' + ' if ( <> '#39#39') then' - ' ACadena := ACadena + '#39' '#39' + ;' - '' - ' DireccionEnvio.Lines.Add(ACadena);' - ' ACadena := '#39#39';' - ' DireccionEnvio.Lines.Add();' - ' if ( <> '#39#39') then' - ' ACadena := + '#39' '#39';' - ' if ( <> '#39#39') then' - ' ACadena := ACadena + ;' - '' - ' if (ACadena <> '#39#39') then' - ' DireccionEnvio.Lines.Add(ACadena);' - '' - ' if ( <> '#39#39') then' - ' DireccionEnvio.Lines.Add();' - '' - ' if ( <> '#39#39') then' - ' DireccionEnvio.Lines.Add();' - '}' + ' Cadena := Cadena + '#39' '#39' + ;' + ' if ( <> '#39#39') then' + + ' Cadena := Cadena + '#39' - '#39' + ;' + ' DatosEmpresa.Lines.Add(Cadena);' + ' } ' 'end;' '' - 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' + 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' Memo15.Lines.Clear;' + ' if (StrToFloat() < 0) then' + ' Memo15.Lines.Add('#39'ABONO'#39')' + ' else' + ' Memo15.Lines.Add('#39'FACTURA'#39')' + 'end;' + '' + 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if (StrToFloat() = 0) then' + ' begin' + ' Memo21.Lines.Clear;' + ' Memo29.Lines.Clear;' + ' end;' + '' + 'end;' + '' + 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);' + 'var' + ' Cadena : String;' + 'begin' + ' if ( <> '#39#39') then' + ' begin' + ' Cadena := Memo11.Lines.Text;' + ' Memo11.Lines.Clear;' + ' Memo11.Lines.Add();' + ' Memo11.Lines.Add(Cadena);' + ' end' + 'end;' + '' + 'procedure Band2OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if not Engine.FinalPass then' ' Set('#39'TotalPaginas'#39', ( + 1));' '' ' if Engine.FinalPass then' - ' Set('#39'Pagina'#39', ( + 1)); ' + ' Set('#39'Pagina'#39', ( + 1));' 'end;' '' 'procedure frxReportOnStartReport(Sender: TfrxComponent);' 'begin' ' Set('#39'Pagina'#39', 0);' ' Set('#39'TotalPaginas'#39', 0);' - ' Set('#39'Capitulo'#39', 0);' - ' Set('#39'NumCapitulos'#39', 0); ' 'end;' '' - 'procedure Memo4OnBeforePrint(Sender: TfrxComponent);' + 'procedure Picture1OnBeforePrint(Sender: TfrxComponent);' 'begin' - ' if (Length() = 0) then' - ' Memo4.Visible := False; ' - 'end;' - '' - 'procedure Memo22OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if ( = 0) then' + ' if then' ' begin ' - ' Subtotal.Text := '#39'Base imponible:'#39';' - ' BaseImponible.Text := '#39'Importe total:'#39'; ' - ' BaseImponible.Font.Style := fsBold;' - '' + ' Picture1.Visible := True; ' + ' Picture2.Visible := True; ' + ' Picture3.Visible := True; ' + ' Picture4.Visible := True; ' + ' Picture5.Visible := True; ' + ' Picture6.Visible := True; ' + ' Memo12.Visible := True;' - ' ImpBaseImponible.Text := FormatFloat('#39'#,##0.00 '#8364#39', );' - ' ImpBaseImponible.Font.Style := fsBold; ' - ' ' - ' Descuento.Text := '#39'[]% IVA:'#39';' - ' ImpDescuento.Text := '#39'[frxDBCabecera."IMPORTE_IVA"]'#39';' - ' Memo11.Color := $00CCFFCC;' - '' - ' if ( > 0) then' - ' begin ' - ' BaseImponible.Text := '#39'Total certificaci'#243'n:'#39';' - - ' IVA.Text := FormatFloat('#39'#,##0.00 %'#39',) + '#39' Retenci'#243'n:'#39'; ' - - ' ImpIVA.Text := FormatFloat('#39'-#,##0.00 '#8364#39',);' - - ' ImporteTotal.Text := '#39'TOTAL FACTURA'#39'; ' + - ' ' + - ' ' - - ' ImpImporteTotal.Text := FormatFloat('#39'#,##0.00 '#8364#39', ( - ' + - ')); ' - ' end ' - ' else' - ' begin' - ' IVA.Visible := False;' - ' ImpIVA.Visible := False;' - ' ImporteTotal.Visible := False;' - ' ImpImporteTotal.Visible := False;' - ' Memo16.Visible := False; ' - ' Memo17.Visible := False;' - ' end;' + ' Memo14.Visible := True; ' + + ' ' ' end' ' else' ' begin ' - ' if ( > 0) then' - ' begin' - ' ImporteTotal.Text := '#39'Total certificaci'#243'n:'#39'; ' - ' Retencion.Visible := True;' - ' ImpRetencion.Visible := True;' - ' LinRetencion.Visible := True; ' - ' TotalFacturaRet.Visible := True;' - ' ImpTotalFacturaRet.Visible := True;' - ' LinImporteTotalFacturaRet.Visible := True; ' - ' end' - ' end ' - 'end;' - '' - 'procedure Memo39OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' Memo39.Clear; ' - ' if ( = '#39'F'#39') then' + ' Picture1.Visible := False;' + ' Picture2.Visible := False;' + ' Picture3.Visible := False;' + ' Picture4.Visible := False;' + ' Picture5.Visible := False;' + ' Picture6.Visible := False;' + ' Memo12.Visible := False;' - ' Memo39.Text := '#39'FACTURA'#39' ' + - ' ' - ' else' - ' Memo39.Text := '#39'ABONO'#39'; ' - 'end;' - '' - 'procedure Picture4OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if ( = 1) then' - ' Picture4.Visible := True' - ' else' - ' Picture4.Visible := False; ' - 'end;' - '' - 'procedure eCopiaOnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if ( = 1) then' - ' begin ' - ' eCopia.Visible := True; ' - ' Picture4.Visible := False; ' - ' end ' - ' else' - ' eCopia.Visible := False; ' + ' Memo14.Visible := False; ' + + ' ' + ' end' 'end;' '' 'begin' @@ -1868,6 +2030,7 @@ object RptFacturasCliente: TRptFacturasCliente 'end.') ShowProgress = False StoreInDFM = False + OnGetValue = frxReportGetValue OnStartReport = 'frxReportOnStartReport' Left = 145 Top = 16 diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index 07b4478..5c40e2a 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -91,12 +91,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Height = 318 OnChanging = pgPaginasChanging ExplicitWidth = 817 - ExplicitHeight = 332 + ExplicitHeight = 318 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 ExplicitWidth = 809 - ExplicitHeight = 304 + ExplicitHeight = 290 inline frViewFacturaCliente1: TfrViewFacturaCliente Left = 0 Top = 0 @@ -112,10 +112,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 809 + ExplicitHeight = 290 inherited dxLayoutControl1: TdxLayoutControl Width = 809 Height = 290 ExplicitWidth = 809 + ExplicitHeight = 290 DesignSize = ( 809 290) @@ -240,7 +242,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 - ExplicitHeight = 304 inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente Left = 0 Top = 0 @@ -258,11 +259,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 809 + ExplicitHeight = 290 inherited ToolBar1: TToolBar Width = 809 - Height = 73 + Height = 46 ExplicitWidth = 809 - ExplicitHeight = 73 + ExplicitHeight = 46 inherited ToolButton3: TToolButton Wrap = False end @@ -288,7 +290,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitTop = 22 ExplicitWidth = 296 end - inherited ToolButton13: TToolButton [7] + inherited UpDown1: TUpDown + Left = 441 + Top = 22 + ExplicitLeft = 441 + ExplicitTop = 22 + end + inherited ToolButton13: TToolButton Left = 0 Top = 22 Wrap = True @@ -296,52 +304,46 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitTop = 22 ExplicitHeight = 27 end - inherited UpDown1: TUpDown [8] + inherited ToolButton6: TToolButton Left = 0 Top = 49 ExplicitLeft = 0 ExplicitTop = 49 end - inherited ToolButton6: TToolButton - Left = 17 - Top = 49 - ExplicitLeft = 17 - ExplicitTop = 49 - end inherited ToolButton7: TToolButton - Left = 83 + Left = 66 Top = 49 - ExplicitLeft = 83 + ExplicitLeft = 66 ExplicitTop = 49 end inherited ToolButton8: TToolButton - Left = 150 + Left = 133 Top = 49 - ExplicitLeft = 150 + ExplicitLeft = 133 ExplicitTop = 49 end inherited ToolButton12: TToolButton - Left = 233 + Left = 216 Top = 49 - ExplicitLeft = 233 + ExplicitLeft = 216 ExplicitTop = 49 end inherited ToolButton9: TToolButton - Left = 241 + Left = 224 Top = 49 - ExplicitLeft = 241 + ExplicitLeft = 224 ExplicitTop = 49 end inherited ToolButton10: TToolButton - Left = 386 + Left = 369 Top = 49 - ExplicitLeft = 386 + ExplicitLeft = 369 ExplicitTop = 49 end inherited ToolButton11: TToolButton - Left = 511 + Left = 494 Top = 49 - ExplicitLeft = 511 + ExplicitLeft = 494 ExplicitTop = 49 end end @@ -406,7 +408,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Height = 192 LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1 ExplicitWidth = 823 - ExplicitHeight = 178 + ExplicitHeight = 192 inherited Bevel3: TBevel Left = 411 Top = 30 diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm index a34214d..8b04c74 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm @@ -144,6 +144,9 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente Kind = skSum Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL end> + inherited cxGridViewNUM_COPIAS: TcxGridDBColumn + IsCaptionAssigned = True + end inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn Visible = True end diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm index cc41b21..1ec80e0 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm @@ -7,6 +7,45 @@ object RptFacturasProveedor: TRptFacturasProveedor object schReport: TDASchema ConnectionManager = dmServer.ConnectionManager Datasets = < + item + Params = < + item + Name = 'ID_FACTURA' + Value = '' + end> + Statements = < + item + ConnectionType = 'Interbase' + Default = True + TargetTable = 'V_RECIBOS_PROVEEDOR' + Name = 'IBX' + SQL = + 'SELECT'#10' V_RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, V_RECIBOS_PROV' + + 'EEDOR.IMPORTE_TOTAL'#10'FROM V_RECIBOS_PROVEEDOR'#10'WHERE V_RECIBOS_PRO' + + 'VEEDOR.ID_FACTURA = :ID_FACTURA'#10'ORDER BY V_RECIBOS_PROVEEDOR.FEC' + + 'HA_VENCIMIENTO'#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'FECHA_VENCIMIENTO' + TableField = 'FECHA_VENCIMIENTO' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end> + end> + Name = 'InformeFacturasProveedor_Vencimientos' + Fields = < + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end> + end item Params = < item @@ -19,24 +58,27 @@ object RptFacturasProveedor: TRptFacturasProveedor item Connection = 'IBX' SQL = - 'select'#10' V_FACTURAS_PROVEEDOR.id, V_FACTURAS_PROVEEDOR.id_empre' + - 'sa,'#10' V_FACTURAS_PROVEEDOR.referencia, V_FACTURAS_PROVEEDOR.tip' + - 'o,'#10' V_FACTURAS_PROVEEDOR.fecha_factura, V_FACTURAS_PROVEEDOR.b' + - 'ase_imponible,'#10' V_FACTURAS_PROVEEDOR.situacion, V_FACTURAS_PRO' + - 'VEEDOR.descuento,'#10' V_FACTURAS_PROVEEDOR.importe_descuento, V_F' + - 'ACTURAS_PROVEEDOR.iva,'#10' V_FACTURAS_PROVEEDOR.importe_iva, V_FA' + - 'CTURAS_PROVEEDOR.re,'#10' V_FACTURAS_PROVEEDOR.importe_re, V_FACTU' + - 'RAS_PROVEEDOR.importe_total,'#10' V_FACTURAS_PROVEEDOR.observacion' + - 'es, V_FACTURAS_PROVEEDOR.nif_cif,'#10' V_FACTURAS_PROVEEDOR.id_pro' + - 'veedor, V_FACTURAS_PROVEEDOR.nombre,'#10' V_FACTURAS_PROVEEDOR.cal' + - 'le, V_FACTURAS_PROVEEDOR.provincia,'#10' V_FACTURAS_PROVEEDOR.pobl' + - 'acion, V_FACTURAS_PROVEEDOR.codigo_postal,'#10' V_FACTURAS_PROVEED' + - 'OR.recargo_equivalencia, V_FACTURAS_PROVEEDOR.importe_neto,'#10' V' + - '_FACTURAS_PROVEEDOR.importe_porte, formas_pago.descripcion as FO' + - 'RMA_PAGO,'#10' V_FACTURAS_PROVEEDOR.DATOS_BANCARIOS'#10'from V_FACTURA' + - 'S_PROVEEDOR'#10' left outer join formas_pago on (formas_pago.id = ' + - 'V_FACTURAS_PROVEEDOR.id_forma_pago)'#10'WHERE V_FACTURAS_PROVEEDOR.I' + - 'D = :ID'#10 + 'SELECT'#10' V_FACTURAS_PROVEEDOR.ID, V_FACTURAS_PROVEEDOR.REFEREN' + + 'CIA, V_FACTURAS_PROVEEDOR.FECHA_FACTURA,'#10' V_FACTURAS_PROVEEDO' + + 'R.BASE_IMPONIBLE, V_FACTURAS_PROVEEDOR.DESCUENTO, V_FACTURAS_PRO' + + 'VEEDOR.IMPORTE_DESCUENTO,'#10' V_FACTURAS_PROVEEDOR.IVA, V_FACTUR' + + 'AS_PROVEEDOR.IMPORTE_IVA,'#10' V_FACTURAS_PROVEEDOR.RE, V_FACTURA' + + 'S_PROVEEDOR.IMPORTE_RE,'#10' V_FACTURAS_PROVEEDOR.IMPORTE_TOTAL, ' + + 'V_FACTURAS_PROVEEDOR.IMPORTE_PORTE,'#10' V_FACTURAS_PROVEEDOR.OBS' + + 'ERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_PR' + + 'OVEEDOR.ID_PROVEEDOR,'#10' V_FACTURAS_PROVEEDOR.NIF_CIF, V_FACTUR' + + 'AS_PROVEEDOR.NOMBRE, V_FACTURAS_PROVEEDOR.CALLE,'#10' V_FACTURAS_' + + 'PROVEEDOR.PROVINCIA, V_FACTURAS_PROVEEDOR.CODIGO_POSTAL, V_FACTU' + + 'RAS_PROVEEDOR.POBLACION,'#10#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NI' + + 'F_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALL' + + 'E_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS' + + '.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIG' + + 'O_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESA' + + 'S.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.R' + + 'EGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM V_FACTURAS_PROVEEDOR'#10 + + 'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_' + + 'PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_PROVEEDOR.ID_FORMA_PAGO)'#10'WH' + + 'ERE V_FACTURAS_PROVEEDOR.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -51,10 +93,6 @@ object RptFacturasProveedor: TRptFacturasProveedor DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end item DatasetField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA' @@ -63,10 +101,6 @@ object RptFacturasProveedor: TRptFacturasProveedor DatasetField = 'BASE_IMPONIBLE' TableField = 'BASE_IMPONIBLE' end - item - DatasetField = 'SITUACION' - TableField = 'SITUACION' - end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' @@ -127,14 +161,6 @@ object RptFacturasProveedor: TRptFacturasProveedor DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end - item - DatasetField = 'RECARGO_EQUIVALENCIA' - TableField = 'RECARGO_EQUIVALENCIA' - end - item - DatasetField = 'IMPORTE_NETO' - TableField = 'IMPORTE_NETO' - end item DatasetField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE' @@ -144,8 +170,56 @@ object RptFacturasProveedor: TRptFacturasProveedor TableField = 'FORMA_PAGO' end item - DatasetField = 'DATOS_BANCARIOS' - TableField = 'DATOS_BANCARIOS' + DatasetField = 'NIF_CIF_EMPRESA' + TableField = 'NIF_CIF_EMPRESA' + end + item + DatasetField = 'RAZON_SOCIAL' + TableField = 'RAZON_SOCIAL' + end + item + DatasetField = 'CALLE_EMPRESA' + TableField = 'CALLE_EMPRESA' + end + item + DatasetField = 'POBLACION_EMPRESA' + TableField = 'POBLACION_EMPRESA' + end + item + DatasetField = 'PROVINCIA_EMPRESA' + TableField = 'PROVINCIA_EMPRESA' + end + item + DatasetField = 'CODIGO_POSTAL_EMPRESA' + TableField = 'CODIGO_POSTAL_EMPRESA' + end + item + DatasetField = 'TELEFONO_1' + TableField = 'TELEFONO_1' + end + item + DatasetField = 'FAX' + TableField = 'FAX' + end + item + DatasetField = 'MOVIL_1' + TableField = 'MOVIL_1' + end + item + DatasetField = 'EMAIL_1' + TableField = 'EMAIL_1' + end + item + DatasetField = 'PAGINA_WEB' + TableField = 'PAGINA_WEB' + end + item + DatasetField = 'REGISTRO_MERCANTIL' + TableField = 'REGISTRO_MERCANTIL' + end + item + DatasetField = 'LOGOTIPO' + TableField = 'LOGOTIPO' end> end> Name = 'InformeFacturasProveedor' @@ -156,22 +230,12 @@ object RptFacturasProveedor: TRptFacturasProveedor DictionaryEntry = 'FacturasCliente_ID' InPrimaryKey = True end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'FacturasCliente_ID_EMPRESA' - end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_REFERENCIA' end - item - Name = 'TIPO' - DataType = datString - Size = 1 - end item Name = 'FECHA_FACTURA' DataType = datDateTime @@ -182,11 +246,6 @@ object RptFacturasProveedor: TRptFacturasProveedor DataType = datCurrency DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' end - item - Name = 'SITUACION' - DataType = datString - Size = 19 - end item Name = 'DESCUENTO' DataType = datFloat @@ -220,21 +279,30 @@ object RptFacturasProveedor: TRptFacturasProveedor DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + end item Name = 'OBSERVACIONES' DataType = datMemo DictionaryEntry = 'FacturasCliente_OBSERVACIONES' end + item + Name = 'FORMA_PAGO' + DataType = datString + Size = 255 + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + end item Name = 'NIF_CIF' DataType = datString Size = 15 DictionaryEntry = 'FacturasCliente_NIF_CIF' end - item - Name = 'ID_PROVEEDOR' - DataType = datInteger - end item Name = 'NOMBRE' DataType = datString @@ -253,12 +321,6 @@ object RptFacturasProveedor: TRptFacturasProveedor Size = 255 DictionaryEntry = 'FacturasCliente_PROVINCIA' end - item - Name = 'POBLACION' - DataType = datString - Size = 255 - DictionaryEntry = 'FacturasCliente_POBLACION' - end item Name = 'CODIGO_POSTAL' DataType = datString @@ -266,26 +328,79 @@ object RptFacturasProveedor: TRptFacturasProveedor DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' end item - Name = 'RECARGO_EQUIVALENCIA' - DataType = datSmallInt + Name = 'POBLACION' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasCliente_POBLACION' end item - Name = 'IMPORTE_NETO' - DataType = datCurrency + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_ID_EMPRESA' end item - Name = 'IMPORTE_PORTE' - DataType = datCurrency + Name = 'NIF_CIF_EMPRESA' + DataType = datString + Size = 15 end item - Name = 'FORMA_PAGO' + Name = 'RAZON_SOCIAL' DataType = datString Size = 255 end item - Name = 'DATOS_BANCARIOS' + 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> ReadOnly = True end @@ -301,13 +416,10 @@ object RptFacturasProveedor: TRptFacturasProveedor item Connection = 'IBX' SQL = - 'SELECT'#10' DET.ID, DET.ID_FACTURA, DET.POSICION, DET.TIPO_DETALL' + - 'E, ARTICULOS.REFERENCIA,'#10' DET.CONCEPTO, DET.CANTIDAD, DET.UNI' + - 'DAD_MEDIDA, DET.IMPORTE_UNIDAD,'#10' DET.DESCUENTO, DET.IMPORTE_T' + - 'OTAL, DET.VISIBLE'#10'FROM FACTURAS_PROVEEDOR_DETALLES AS DET'#10'LEFT O' + - 'UTER JOIN ARTICULOS ON (ARTICULOS.ID = DET.ID_ARTICULO)'#10'WHERE DE' + - 'T.ID_FACTURA = :ID_FACTURA AND DET.VISIBLE = 1 AND {Where}'#10'ORDER' + - ' BY DET.ID_FACTURA, DET.POSICION;'#10 + 'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, CONCEPTO, CAN' + + 'TIDAD,'#10' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FRO' + + 'M FACTURAS_PROVEEDOR_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORD' + + 'ER BY POSICION;'#10 StatementType = stSQL ColumnMappings = < item @@ -326,10 +438,6 @@ object RptFacturasProveedor: TRptFacturasProveedor DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' @@ -338,10 +446,6 @@ object RptFacturasProveedor: TRptFacturasProveedor DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end - item - DatasetField = 'UNIDAD_MEDIDA' - TableField = 'UNIDAD_MEDIDA' - end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' @@ -379,11 +483,6 @@ object RptFacturasProveedor: TRptFacturasProveedor DataType = datString Size = 25 end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - end item Name = 'CONCEPTO' DataType = datString @@ -391,12 +490,7 @@ object RptFacturasProveedor: TRptFacturasProveedor end item Name = 'CANTIDAD' - DataType = datFloat - end - item - Name = 'UNIDAD_MEDIDA' - DataType = datString - Size = 255 + DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' @@ -1160,7 +1254,7 @@ object RptFacturasProveedor: TRptFacturasProveedor Top = 392 end object frxReport: TfrxReport - Version = '4.3' + Version = '4.7.71' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' @@ -1236,13 +1330,21 @@ object RptFacturasProveedor: TRptFacturasProveedor ShowDialog = False UseFileCache = True ShowProgress = False + OverwritePrompt = False PrintOptimized = True Outline = False + Background = False + HTMLTags = True Author = 'FactuGES' Subject = 'FactuGES' - Background = False Creator = 'FactuGES' - HTMLTags = True + ProtectionFlags = [ePrint, eModify, eCopy, eAnnot] + HideToolbar = False + HideMenubar = False + HideWindowUI = False + FitWindow = False + CenterWindow = False + PrintScaling = False Left = 424 Top = 288 end @@ -1316,8 +1418,6 @@ object RptFacturasProveedor: TRptFacturasProveedor RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'InformeListadoFacturas' IndexDefs = <> Left = 576 @@ -1333,6 +1433,7 @@ object RptFacturasProveedor: TRptFacturasProveedor UserName = 'frxDBInformeListadoFacturas' CloseDataSource = False DataSource = DADSInformeListadoFacturas + BCDToCurrency = False Left = 576 Top = 16 end @@ -1411,8 +1512,6 @@ object RptFacturasProveedor: TRptFacturasProveedor RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'InformeListadoFacturasPendientes' IndexDefs = <> Left = 768 @@ -1428,6 +1527,7 @@ object RptFacturasProveedor: TRptFacturasProveedor UserName = 'frxDBInformeListadoFacturasPendientes' CloseDataSource = False DataSource = DADSInformeListadoFacturasPendientes + BCDToCurrency = False Left = 768 Top = 16 end @@ -1441,6 +1541,7 @@ object RptFacturasProveedor: TRptFacturasProveedor UserName = 'frxDBInformeListadoFacturasPendResumen' CloseDataSource = False DataSource = DADSInformeListadoFacturasPendResumen + BCDToCurrency = False Left = 768 Top = 208 end @@ -1448,6 +1549,7 @@ object RptFacturasProveedor: TRptFacturasProveedor UserName = 'frxDBInformeListadoFacturasResumen' CloseDataSource = False DataSource = DADSInformeListadoFacturasResumen + BCDToCurrency = False Left = 576 Top = 216 end @@ -1465,8 +1567,6 @@ object RptFacturasProveedor: TRptFacturasProveedor LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 576 Top = 328 @@ -1479,8 +1579,6 @@ object RptFacturasProveedor: TRptFacturasProveedor LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 768 Top = 328 @@ -1493,4 +1591,337 @@ object RptFacturasProveedor: TRptFacturasProveedor Left = 64 Top = 200 end + object tbl_Cabecera: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_ID' + InPrimaryKey = True + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasCliente_REFERENCIA' + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' + end + item + Name = 'DESCUENTO' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_DESCUENTO' + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO' + end + item + Name = 'IVA' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_IVA' + end + item + Name = 'IMPORTE_IVA' + DataType = datCurrency + DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' + end + item + Name = 'RE' + DataType = datFloat + end + item + Name = 'IMPORTE_RE' + DataType = datCurrency + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + DictionaryEntry = 'FacturasCliente_OBSERVACIONES' + end + item + Name = 'FORMA_PAGO' + DataType = datString + Size = 255 + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + DictionaryEntry = 'FacturasCliente_NIF_CIF' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasCliente_NOMBRE' + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasCliente_CALLE' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasCliente_PROVINCIA' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasCliente_POBLACION' + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_ID_EMPRESA' + 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 = '1' + ParamType = daptInput + end> + LogChanges = False + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteFetchEnabled = False + LocalSchema = schReport + LocalDataStreamer = Bin2DataStreamer + LogicalName = 'InformeFacturasProveedor' + IndexDefs = <> + Left = 264 + Top = 128 + end + object tbl_Detalles: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + InPrimaryKey = True + end + item + Name = 'ID_FACTURA' + DataType = datInteger + end + item + Name = 'POSICION' + DataType = datInteger + end + item + Name = 'TIPO_DETALLE' + DataType = datString + Size = 25 + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + end + item + Name = 'CANTIDAD' + DataType = datCurrency + end + item + Name = 'IMPORTE_UNIDAD' + DataType = datCurrency + end + item + Name = 'DESCUENTO' + DataType = datFloat + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end + item + Name = 'VISIBLE' + DataType = datSmallInt + end> + Params = < + item + Name = 'ID_FACTURA' + DataType = datInteger + Value = '2' + ParamType = daptInput + end> + MasterParamsMappings.Strings = ( + 'ID_FACTURA=ID') + LogChanges = False + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteFetchEnabled = False + LocalSchema = schReport + LocalDataStreamer = Bin2DataStreamer + LogicalName = 'InformeFacturasProveedor_Detalles' + IndexDefs = <> + Left = 344 + Top = 128 + end + object DADSDetalles: TDADataSource + DataSet = tbl_Detalles.Dataset + DataTable = tbl_Detalles + Left = 344 + Top = 72 + end + object DADSCabecera: TDADataSource + DataSet = tbl_Cabecera.Dataset + DataTable = tbl_Cabecera + Left = 264 + Top = 72 + 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 frxDBVencimientos: TfrxDBDataset + UserName = 'frxDBVencimientos' + CloseDataSource = False + DataSource = DADSVencimientos + BCDToCurrency = False + Left = 424 + Top = 16 + end + object DADSVencimientos: TDADataSource + DataSet = tbl_Vencimientos.Dataset + DataTable = tbl_Vencimientos + Left = 424 + Top = 72 + end + object tbl_Vencimientos: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end> + Params = < + item + Name = 'ID_FACTURA' + Value = '' + end> + MasterParamsMappings.Strings = ( + 'ID_FACTURA=ID') + LogChanges = False + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteFetchEnabled = False + LocalSchema = schReport + LocalDataStreamer = Bin2DataStreamer + LogicalName = 'InformeFacturasProveedor_Vencimientos' + IndexDefs = <> + Left = 424 + Top = 128 + end end diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm index 0a25baf..0684c81 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm @@ -48,7 +48,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Width = 819 ExplicitWidth = 819 inherited tbxMain: TTBXToolbar - ExplicitWidth = 330 + ExplicitWidth = 488 inherited TBXItem2: TTBXItem Visible = False end @@ -264,9 +264,9 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor ExplicitHeight = 334 inherited ToolBar1: TToolBar Width = 805 - Height = 51 + Height = 78 ExplicitWidth = 805 - ExplicitHeight = 51 + ExplicitHeight = 78 inherited ToolButton3: TToolButton Wrap = False end @@ -288,15 +288,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor ExplicitLeft = 399 ExplicitTop = 0 end - inherited FontSize: TEdit - Left = 544 - Top = 0 - Width = 200 - ExplicitLeft = 544 - ExplicitTop = 0 - ExplicitWidth = 200 - end - inherited ToolButton13: TToolButton [7] + inherited ToolButton13: TToolButton [6] Left = 0 Top = 0 Wrap = True @@ -304,71 +296,72 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor ExplicitTop = 0 ExplicitHeight = 27 end - inherited UpDown1: TUpDown [8] + inherited ToolButton6: TToolButton [7] Left = 0 Top = 27 ExplicitLeft = 0 ExplicitTop = 27 end - inherited ToolButton6: TToolButton [9] - Left = 17 + inherited ToolButton7: TToolButton [8] + Left = 66 Top = 27 - ExplicitLeft = 17 + ExplicitLeft = 66 ExplicitTop = 27 end - inherited ToolButton7: TToolButton [10] - Left = 83 + inherited FontSize: TEdit [9] + Left = 133 Top = 27 - ExplicitLeft = 83 + Width = 248 + ExplicitLeft = 133 + ExplicitTop = 27 + ExplicitWidth = 248 + end + inherited UpDown1: TUpDown [10] + Left = 381 + Top = 27 + ExplicitLeft = 381 ExplicitTop = 27 end inherited ToolButton8: TToolButton [11] - Left = 150 + Left = 398 Top = 27 - ExplicitLeft = 150 + ExplicitLeft = 398 ExplicitTop = 27 end inherited ToolButton12: TToolButton [12] - Left = 233 Top = 27 - ExplicitLeft = 233 ExplicitTop = 27 - ExplicitHeight = 22 end inherited ToolButton9: TToolButton [13] - Left = 241 - Top = 27 - ExplicitLeft = 241 - ExplicitTop = 27 + Top = 54 + ExplicitTop = 54 end inherited ToolButton10: TToolButton [14] - Left = 386 - Top = 27 - ExplicitLeft = 386 - ExplicitTop = 27 + Top = 54 + ExplicitTop = 54 end inherited ToolButton11: TToolButton [15] - Left = 511 - Top = 27 - ExplicitLeft = 511 - ExplicitTop = 27 + Left = 270 + Top = 54 + ExplicitLeft = 270 + ExplicitTop = 54 end end inherited cxGrid: TcxGrid - Top = 77 + Top = 104 Width = 805 - Height = 257 - ExplicitTop = 77 + Height = 230 + ExplicitTop = 104 ExplicitWidth = 805 - ExplicitHeight = 257 + ExplicitHeight = 230 end inherited TBXDock1: TTBXDock - Top = 51 + Top = 78 Width = 805 - ExplicitTop = 51 + ExplicitTop = 78 ExplicitWidth = 805 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 805 + ExplicitWidth = 523 end end inherited cxGridPopupMenu: TcxGridPopupMenu @@ -670,14 +663,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1 inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup + inherited dxLayoutControl1Item8: TdxLayoutItem + Visible = False + end inherited dxLayoutControl1Group7: TdxLayoutGroup - inherited dxLayoutControl1Item9: TdxLayoutItem + inherited dxLayoutControl1Group10: TdxLayoutGroup Visible = False end end - inherited dxLayoutControl1Item16: TdxLayoutItem - Visible = False - end inherited dxLayoutControl1Item19: TdxLayoutItem Visible = False end @@ -689,7 +682,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Offsets.Top = 3 end inherited dxLayoutControl1Group8: TdxLayoutGroup - Visible = False inherited dxLayoutControl1Item7: TdxLayoutItem Visible = True end @@ -706,14 +698,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor inherited EditorActionList: TActionList [5] Left = 8 Top = 144 - inherited actPrevisualizar: TAction - Enabled = False - Visible = False - end - inherited actImprimir: TAction - Enabled = False - Visible = False - end end inherited SmallImages: TPngImageList [6] end diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm index 43d0428..a20080a 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm @@ -38,7 +38,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor Width = 849 ExplicitWidth = 849 inherited tbxMain: TTBXToolbar - ExplicitWidth = 775 + ExplicitWidth = 632 object TBXSubmenuItem2: TTBXSubmenuItem [0] Caption = 'Nuevo' DisplayMode = nbdmImageAndText @@ -146,6 +146,9 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor Kind = skSum Column = frViewFacturasProveedor1.cxGridViewBASE_IMPONIBLE end> + inherited cxGridViewNUM_COPIAS: TcxGridDBColumn + IsCaptionAssigned = True + end end end inherited frViewFiltroBase1: TfrViewFiltroBase @@ -173,22 +176,22 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor Width = 282 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 386 + Left = 301 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 386 + ExplicitLeft = 301 ExplicitWidth = 453 Width = 453 end inherited eLista: TcxComboBox - Left = 876 + Left = 682 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 876 + ExplicitLeft = 682 ExplicitWidth = 215 Width = 215 end diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm index d2f3e04..eb7b3a3 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm @@ -162,26 +162,49 @@ object RptPedidosProveedor: TRptPedidosProveedor item Connection = 'IBX' SQL = - 'SELECT'#10' PEDIDOS_PROVEEDOR.ID,'#10' PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' + - ' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' + - #10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.OBSERVAC' + - 'IONES,'#10' CONTACTOS.NOMBRE,'#10' COALESCE(CONTACTOS_DIRECCIONES.FAX,' + - ' CONTACTOS.FAX) AS FAX,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO_PRO' + - 'V AS PERSONA_CONTACTO,'#10' PROVEEDORES_DATOS.CODIGO_ASIGNADO AS CO' + - 'DIGO_CLIENTE,'#10' PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' COALESCE(ALMACEN' + - 'ES.CALLE, PEDIDOS_PROVEEDOR.CALLE) AS CALLE,'#10' COALESCE(ALMACENE' + - 'S.POBLACION, PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION,'#10' COALES' + - 'CE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PROVINCIA) AS PROVINCI' + - 'A,'#10' COALESCE(ALMACENES.CODIGO_POSTAL, PEDIDOS_PROVEEDOR.CODIGO_' + - 'POSTAL) AS CODIGO_POSTAL,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO A' + - 'S ENTREGAR_A,'#10' PEDIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10' PEDIDOS_P' + - 'ROVEEDOR'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVE' + - 'EDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN PROVEEDORES_DATOS ON (PROVE' + - 'EDORES_DATOS.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LE' + - 'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' + - ' = PEDIDOS_PROVEEDOR.ID_DIRECCION)'#10' LEFT OUTER JOIN ALMACENES O' + - 'N (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PR' + - 'OVEEDOR.ID = :ID'#10#10#10#10 + 'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' + + 'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' + + '_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' + + 'MBRE,'#10' V_PROVEEDORES.FAX,'#10' CASE WHEN (ALMACENES.ID > 0)'#10' ' + + ' THEN CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' ' + + ' THEN ALMACENES.NOMBRE'#10' END'#10' END AS NOMB' + + 'RE_ALMACEN,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN CAS' + + 'E WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' THEN A' + + 'LMACENES.CALLE'#10' ELSE V_PEDIDOS_PROVEEDOR.CALLE'#10' ' + + ' END'#10' ELSE V_PEDIDOS_PROVEEDOR.CALLE'#10' ' + + ' END as CALLE,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ' + + 'CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' THE' + + 'N ALMACENES.POBLACION'#10' ELSE V_PEDIDOS_PROVEEDOR.' + + 'POBLACION'#10' END'#10' ELSE V_PEDIDOS_PROVEE' + + 'DOR.POBLACION'#10' END as POBLACION,'#10#10' CASE WHEN (ALMACENES.ID > 0' + + ')'#10' THEN CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' ' + + ' THEN ALMACENES.PROVINCIA'#10' ELSE V' + + '_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END'#10' EL' + + 'SE V_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END as PROVINCIA,'#10#10' CASE WHE' + + 'N (ALMACENES.ID > 0)'#10' THEN CASE WHEN V_PEDIDOS_PROVEE' + + 'DOR.CALLE is null'#10' THEN ALMACENES.CODIGO_POSTAL'#10 + + ' ELSE V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL'#10' ' + + ' END'#10' ELSE V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL'#10 + + ' END as CODIGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' ' + + ' THEN CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' ' + + ' THEN ALMACENES.PERSONA_CONTACTO'#10' ELSE V_PE' + + 'DIDOS_PROVEEDOR.PERSONA_CONTACTO'#10' END'#10' ' + + ' ELSE V_PEDIDOS_PROVEEDOR.PERSONA_CONTACTO'#10' END as PERSONA_CON' + + 'TACTO,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN CASE WHE' + + 'N V_PEDIDOS_PROVEEDOR.CALLE is null'#10' THEN ALMACE' + + 'NES.TELEFONO'#10' ELSE V_PEDIDOS_PROVEEDOR.TELEFONO'#10 + + ' END'#10' ELSE V_PEDIDOS_PROVEEDOR.TELEFO' + + 'NO'#10' END as TELEFONO,'#10#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' ' + + 'EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RA' + + 'ZON_SOCIAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,' + + #10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EM' + + 'PRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_' + + 'WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTE' + + 'R JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_PEDIDOS_PROVEEDOR.' + + 'ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = V_P' + + 'EDIDOS_PROVEEDOR.ID_ALMACEN)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPR' + + 'ESAS.ID = V_PEDIDOS_PROVEEDOR.ID_EMPRESA)'#10'WHERE V_PEDIDOS_PROVEE' + + 'DOR.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -216,18 +239,6 @@ object RptPedidosProveedor: TRptPedidosProveedor DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' end - item - DatasetField = 'FECHA_ENTREGA' - TableField = 'FECHA_ENTREGA' - end - item - DatasetField = 'ID_ALMACEN' - TableField = 'ID_ALMACEN' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end item DatasetField = 'CALLE' TableField = 'CALLE' @@ -245,12 +256,44 @@ object RptPedidosProveedor: TRptPedidosProveedor TableField = 'CODIGO_POSTAL' end item - DatasetField = 'CODIGO_CLIENTE' - TableField = 'CODIGO_CLIENTE' + DatasetField = 'NOMBRE_ALMACEN' + TableField = 'NOMBRE_ALMACEN' end item - DatasetField = 'ENTREGAR_A' - TableField = 'ENTREGAR_A' + DatasetField = 'TELEFONO' + TableField = 'TELEFONO' + 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 = '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' @@ -272,10 +315,6 @@ object RptPedidosProveedor: TRptPedidosProveedor Name = 'FECHA_PEDIDO' DataType = datDateTime end - item - Name = 'FECHA_ENTREGA' - DataType = datDateTime - end item Name = 'OBSERVACIONES' DataType = datMemo @@ -291,19 +330,10 @@ object RptPedidosProveedor: TRptPedidosProveedor Size = 25 end item - Name = 'PERSONA_CONTACTO' + Name = 'NOMBRE_ALMACEN' DataType = datString Size = 255 end - item - Name = 'CODIGO_CLIENTE' - DataType = datString - Size = 255 - end - item - Name = 'ID_ALMACEN' - DataType = datInteger - end item Name = 'CALLE' DataType = datString @@ -325,13 +355,54 @@ object RptPedidosProveedor: TRptPedidosProveedor Size = 10 end item - Name = 'ENTREGAR_A' + Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 end item - Name = 'IMPORTE_TOTAL' - DataType = datCurrency + Name = 'TELEFONO' + DataType = datString + Size = 25 + 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 = '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> ReadOnly = True end @@ -347,20 +418,18 @@ object RptPedidosProveedor: TRptPedidosProveedor item Connection = 'IBX' SQL = - 'SELECT DET.ID, DET.ID_PEDIDO,'#10' DET.POSICION, DET.TIPO_DETA' + - 'LLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as C' + - 'ONCEPTO, DET.CANTIDAD,'#10' DET.UNIDAD_MEDIDA, DET.IMPORTE_UNI' + - 'DAD - (DET.IMPORTE_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) a' + - 's IMPORTE_UNIDAD, DET.IMPORTE_TOTAL,'#10' ARTICULOS_PROVEEDORE' + - 'S.REFERENCIA_PROV as REFERENCIA_PROVEEDOR,'#10' ARTICULOS.REFE' + - 'RENCIA_FABR as REFERENCIA_FABRICANTE'#10'FROM PEDIDOS_PROVEEDOR_DETA' + - 'LLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTICUL' + - 'OS.ID)'#10'LEFT JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = DE' + - 'T.ID_PEDIDO)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROV' + - 'EEDORES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.I' + - 'D_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10#10'WHERE DET.ID_PED' + - 'IDO = :ID_PEDIDO AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID' + - '_PEDIDO, DET.POSICION;'#10#10#10#10#10#10#10 + 'SELECT PEDIDOS_PROVEEDOR_DETALLES.ID, PEDIDOS_PROVEEDOR_DETALLES' + + '.ID_PEDIDO,'#10' PEDIDOS_PROVEEDOR_DETALLES.POSICION, PEDIDOS_' + + 'PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_PROVEEDOR_DETALL' + + 'ES.CONCEPTO, PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD,'#10' PEDIDOS' + + '_PROVEEDOR_DETALLES.IMPORTE_UNIDAD - (PEDIDOS_PROVEEDOR_DETALLES' + + '.IMPORTE_UNIDAD * (COALESCE(PEDIDOS_PROVEEDOR_DETALLES.DESCUENTO' + + ',0) / 100)) as IMPORTE_UNIDAD,'#10' PEDIDOS_PROVEEDOR_DETALLES' + + '.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, ' + + 'ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PEDIDOS_' + + 'PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON (PEDIDOS_PROVEEDOR_DET' + + 'ALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE ID_PEDIDO = :ID_PEDIDO'#10'O' + + 'RDER BY POSICION'#10#10#10#10#10#10 StatementType = stSQL ColumnMappings = < item @@ -387,10 +456,6 @@ object RptPedidosProveedor: TRptPedidosProveedor DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end - item - DatasetField = 'UNIDAD_MEDIDA' - TableField = 'UNIDAD_MEDIDA' - end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' @@ -403,13 +468,13 @@ object RptPedidosProveedor: TRptPedidosProveedor DatasetField = 'REFERENCIA_PROVEEDOR' TableField = 'REFERENCIA_PROVEEDOR' end - item - DatasetField = 'REFERENCIA_FABRICANTE' - TableField = 'REFERENCIA_FABRICANTE' - end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' + end + item + DatasetField = 'FAMILIA' + TableField = 'FAMILIA' end> end> Name = 'Informe_Detalles' @@ -431,24 +496,14 @@ object RptPedidosProveedor: TRptPedidosProveedor DataType = datString Size = 25 end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - end item Name = 'CONCEPTO' DataType = datString - Size = 32765 + Size = 2000 end item Name = 'CANTIDAD' - DataType = datFloat - end - item - Name = 'UNIDAD_MEDIDA' - DataType = datString - Size = 255 + DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' @@ -459,12 +514,17 @@ object RptPedidosProveedor: TRptPedidosProveedor DataType = datCurrency end item - Name = 'REFERENCIA_PROVEEDOR' + Name = 'REFERENCIA' DataType = datString Size = 255 end item - Name = 'REFERENCIA_FABRICANTE' + Name = 'FAMILIA' + DataType = datString + Size = 255 + end + item + Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> @@ -564,7 +624,7 @@ object RptPedidosProveedor: TRptPedidosProveedor Top = 158 end object frxReport: TfrxReport - Version = '4.3' + Version = '4.7.71' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' @@ -572,23 +632,106 @@ object RptPedidosProveedor: TRptPedidosProveedor PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 - ReportOptions.CreateDate = 37800.807714351900000000 - ReportOptions.LastChange = 39840.822843958330000000 + ReportOptions.CreateDate = 39065.872423495400000000 + ReportOptions.LastChange = 40409.715831631950000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( - 'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);' + '' + 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' + 'var' + ' Cadena: String;' 'begin' - ' if Engine.FinalPass then' - ' begin' - ' if ( = ) then' - ' begin ' - ' mContinua.Visible := False;' - ' end ' - ' else' - ' begin ' - ' mContinua.Visible := True;' - ' end ' - ' end; ' + ' DatosEmpresa.Lines.Clear;' + ' if ( <> '#39#39') then' + ' Cadena := '#39'TLF: '#39' + ;' + ' if ( <> '#39#39') then' + + ' Cadena := Cadena + '#39' FAX: '#39' + ;' + ' DatosEmpresa.Lines.Add(Cadena);' + 'end;' + '' + 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' NombreEmpresa.Lines.Clear;' + ' NombreEmpresa.Lines.Add();' + 'end;' + '' + 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);' + 'var' + ' ACadena : String;' + 'begin' + ' ACadena := '#39#39';' + ' DireccionEnvio.Lines.Clear;' + '' + ' if ( <> '#39#39') then' + + ' DireccionEnvio.Lines.Add(' + + ');' + '' + ' if ( <> '#39#39') then' + + ' DireccionEnvio.Lines.Add(' + + ');' + '' + ' DireccionEnvio.Lines.Add();' + '' + ' if ( <> '#39#39') then' + ' ACadena := + '#39' '#39';' + ' if ( <> '#39#39') then' + ' ACadena := ACadena + ;' + '' + ' if (ACadena <> '#39#39') then' + ' DireccionEnvio.Lines.Add(ACadena);' + '' + ' if ( <> '#39#39') then' + ' DireccionEnvio.Lines.Add();' + '' + ' if ( <> '#39#39') then' + ' DireccionEnvio.Lines.Add();' + 'end;' + '' + 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if not Engine.FinalPass then' + ' Set('#39'TotalPaginas'#39', ( + 1));' + '' + ' if Engine.FinalPass then' + ' Set('#39'Pagina'#39', ( + 1));' + 'end;' + '' + 'procedure frxReportOnStartReport(Sender: TfrxComponent);' + 'begin' + ' Set('#39'Pagina'#39', 0);' + ' Set('#39'TotalPaginas'#39', 0);' + 'end;' + '' + 'procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if then' + ' begin ' + ' eImporteUnidad.Visible := True; ' + ' lImporteUnidad.Visible := True; ' + ' eImporteTotal.Visible := True; ' + ' lImporteTotal.Visible := True; ' + ' ImporteUnidad.Visible := True; ' + ' ImporteTotal.Visible := True; ' + ' end' + ' else' + ' begin ' + ' eImporteUnidad.Visible := False; ' + ' lImporteUnidad.Visible := False; ' + ' eImporteTotal.Visible := False; ' + ' lImporteTotal.Visible := False; ' + ' ImporteUnidad.Visible := False; ' + ' ImporteTotal.Visible := False;' + + ' eConcepto.Width := eConcepto.Width + ImporteTotal.Width + I' + + 'mporteUnidad.Width + 10;' + + ' Concepto.Width := Concepto.Width + ImporteTotal.Width + Imp' + + 'orteUnidad.Width; ' + ' end' 'end;' '' 'begin' @@ -605,6 +748,7 @@ object RptPedidosProveedor: TRptPedidosProveedor UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADSCabecera + BCDToCurrency = False Left = 360 Top = 24 end @@ -612,6 +756,7 @@ object RptPedidosProveedor: TRptPedidosProveedor UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADSDetalles + BCDToCurrency = False Left = 440 Top = 24 end @@ -875,11 +1020,6 @@ object RptPedidosProveedor: TRptPedidosProveedor DataType = datString Size = 25 end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - end item Name = 'CONCEPTO' DataType = datString @@ -887,12 +1027,7 @@ object RptPedidosProveedor: TRptPedidosProveedor end item Name = 'CANTIDAD' - DataType = datFloat - end - item - Name = 'UNIDAD_MEDIDA' - DataType = datString - Size = 255 + DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' @@ -903,12 +1038,17 @@ object RptPedidosProveedor: TRptPedidosProveedor DataType = datCurrency end item - Name = 'REFERENCIA_PROVEEDOR' + Name = 'REFERENCIA' DataType = datString Size = 255 end item - Name = 'REFERENCIA_FABRICANTE' + Name = 'FAMILIA' + DataType = datString + Size = 255 + end + item + Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> @@ -926,8 +1066,6 @@ object RptPedidosProveedor: TRptPedidosProveedor LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 DetailFields = 'ID_PEDIDO' - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Detalles' IndexDefs = <> Left = 440 @@ -953,10 +1091,6 @@ object RptPedidosProveedor: TRptPedidosProveedor Name = 'FECHA_PEDIDO' DataType = datDateTime end - item - Name = 'FECHA_ENTREGA' - DataType = datDateTime - end item Name = 'OBSERVACIONES' DataType = datMemo @@ -972,12 +1106,7 @@ object RptPedidosProveedor: TRptPedidosProveedor Size = 25 end item - Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 - end - item - Name = 'CODIGO_CLIENTE' + Name = 'NOMBRE_ALMACEN' DataType = datString Size = 255 end @@ -1002,7 +1131,52 @@ object RptPedidosProveedor: TRptPedidosProveedor Size = 10 end item - Name = 'ENTREGAR_A' + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + 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 = '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> @@ -1017,8 +1191,6 @@ object RptPedidosProveedor: TRptPedidosProveedor RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 360 @@ -1028,13 +1200,21 @@ object RptPedidosProveedor: TRptPedidosProveedor ShowDialog = False UseFileCache = True ShowProgress = False + OverwritePrompt = False PrintOptimized = True Outline = False + Background = False + HTMLTags = True Author = 'FactuGES' Subject = 'FactuGES' - Background = False Creator = 'FactuGES' - HTMLTags = True + ProtectionFlags = [ePrint, eModify, eCopy, eAnnot] + HideToolbar = False + HideMenubar = False + HideWindowUI = False + FitWindow = False + CenterWindow = False + PrintScaling = False Left = 440 Top = 296 end @@ -1042,6 +1222,7 @@ object RptPedidosProveedor: TRptPedidosProveedor UserName = 'frxDBInformeListadoPedidos' CloseDataSource = False DataSource = DADSInformeListadoPedidos + BCDToCurrency = False Left = 600 Top = 24 end @@ -1108,8 +1289,6 @@ object RptPedidosProveedor: TRptPedidosProveedor RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'InformeListadoPedidos' IndexDefs = <> Left = 600 @@ -1119,6 +1298,7 @@ object RptPedidosProveedor: TRptPedidosProveedor UserName = 'frxDBInformeListadoPedidosResumen' CloseDataSource = False DataSource = DADSInformeListadoPedidosResumen + BCDToCurrency = False Left = 600 Top = 208 end @@ -1136,8 +1316,6 @@ object RptPedidosProveedor: TRptPedidosProveedor LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 600 Top = 320 diff --git a/Source/Modulos/Pedidos a proveedor/Views/uDialogOpcionesImpresionPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uDialogOpcionesImpresionPedidosProveedor.dfm index 0a122bc..8036af4 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uDialogOpcionesImpresionPedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uDialogOpcionesImpresionPedidosProveedor.dfm @@ -1,24 +1,26 @@ inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPedidosProveedor Caption = 'Opciones para pedido a proveedor' - ClientHeight = 239 + ClientHeight = 185 ClientWidth = 393 ExplicitWidth = 399 - ExplicitHeight = 271 + ExplicitHeight = 217 PixelsPerInch = 96 TextHeight = 13 inherited Bevel2: TBevel Width = 393 + ExplicitWidth = 393 end inherited Bevel3: TBevel - Top = 195 + Top = 141 Width = 393 + ExplicitTop = 195 + ExplicitWidth = 393 end inherited pnlBotones: TPanel - Top = 197 + Top = 143 Width = 393 - ExplicitLeft = -8 - ExplicitTop = 320 - ExplicitWidth = 637 + ExplicitTop = 197 + ExplicitWidth = 393 inherited btnAceptar: TButton Left = 229 ExplicitLeft = 229 @@ -30,7 +32,7 @@ inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPed end inherited pnlHeader: TPanel Width = 393 - ExplicitWidth = 488 + ExplicitWidth = 393 inherited lblInstruccion: TLabel Width = 343 Margins.Bottom = 10 @@ -42,16 +44,14 @@ inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPed Width = 318 Height = 25 Visible = False - ExplicitTop = 60 + ExplicitTop = 31 end end inherited pnlCuerpo: TPanel Width = 393 - Height = 129 - ExplicitLeft = -8 - ExplicitTop = 70 - ExplicitWidth = 637 - ExplicitHeight = 222 + Height = 75 + ExplicitWidth = 393 + ExplicitHeight = 129 object cbVerPrecios: TCheckBox AlignWithMargins = True Left = 50 @@ -73,6 +73,7 @@ inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPed Checked = True State = cbChecked TabOrder = 1 + Visible = False end end inherited ActionList1: TActionList diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm index cb1c77f..385baeb 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm @@ -80,16 +80,16 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor end inherited pgPaginas: TPageControl Width = 873 - Height = 531 + Height = 534 TabOrder = 1 OnChanging = pgPaginasChanging ExplicitWidth = 873 - ExplicitHeight = 531 + ExplicitHeight = 534 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 ExplicitWidth = 865 - ExplicitHeight = 503 + ExplicitHeight = 506 end object pagContenido: TTabSheet Caption = 'Contenido' @@ -98,7 +98,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor Left = 0 Top = 0 Width = 865 - Height = 503 + Height = 506 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -111,7 +111,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor TabOrder = 0 ReadOnly = False ExplicitWidth = 865 - ExplicitHeight = 503 + ExplicitHeight = 506 inherited ToolBar1: TToolBar Width = 865 Height = 46 @@ -123,101 +123,97 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor inherited ToolButton4: TToolButton Left = 278 Top = 0 - Wrap = True ExplicitLeft = 278 ExplicitTop = 0 end inherited ToolButton14: TToolButton - Left = 0 - Wrap = False - ExplicitLeft = 0 + Left = 334 + Top = 0 + ExplicitLeft = 334 + ExplicitTop = 0 end inherited FontName: TJvFontComboBox - Left = 65 Top = 22 - ExplicitLeft = 399 - ExplicitTop = 0 + ExplicitTop = 22 end inherited FontSize: TEdit - Left = 544 - Top = 0 - Width = 294 - ExplicitLeft = 544 - ExplicitTop = 0 - ExplicitWidth = 294 + Top = 22 + Width = 310 + ExplicitTop = 22 + ExplicitWidth = 310 end inherited UpDown1: TUpDown - Left = 838 - Top = 0 - ExplicitLeft = 838 - ExplicitTop = 0 + Left = 455 + Top = 22 + ExplicitLeft = 455 + ExplicitTop = 22 end inherited ToolButton13: TToolButton Left = 0 - Top = 0 + Top = 22 Wrap = True ExplicitLeft = 0 - ExplicitTop = 0 + ExplicitTop = 22 ExplicitHeight = 27 end inherited ToolButton6: TToolButton Left = 0 - Top = 27 + Top = 49 ExplicitLeft = 0 - ExplicitTop = 27 + ExplicitTop = 49 end inherited ToolButton7: TToolButton Left = 66 - Top = 27 + Top = 49 ExplicitLeft = 66 - ExplicitTop = 27 + ExplicitTop = 49 end inherited ToolButton8: TToolButton Left = 133 - Top = 27 + Top = 49 ExplicitLeft = 133 - ExplicitTop = 27 + ExplicitTop = 49 end inherited ToolButton12: TToolButton Left = 216 - Top = 27 + Top = 49 ExplicitLeft = 216 - ExplicitTop = 27 + ExplicitTop = 49 end inherited ToolButton9: TToolButton Left = 224 - Top = 27 + Top = 49 ExplicitLeft = 224 - ExplicitTop = 27 + ExplicitTop = 49 end inherited ToolButton10: TToolButton Left = 369 - Top = 27 + Top = 49 ExplicitLeft = 369 - ExplicitTop = 27 + ExplicitTop = 49 end inherited ToolButton11: TToolButton Left = 494 - Top = 27 + Top = 49 ExplicitLeft = 494 - ExplicitTop = 27 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Top = 77 + Top = 99 Width = 865 - Height = 426 - ExplicitTop = 77 + Height = 407 + ExplicitTop = 104 ExplicitWidth = 865 - ExplicitHeight = 429 + ExplicitHeight = 399 end inherited TBXDock1: TTBXDock - Top = 51 + Top = 73 Width = 865 - ExplicitTop = 51 + ExplicitTop = 78 ExplicitWidth = 865 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 865 + ExplicitWidth = 566 end end inherited cxGridPopupMenu: TcxGridPopupMenu @@ -238,7 +234,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor Left = 0 Top = 0 Width = 865 - Height = 503 + Height = 506 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -249,7 +245,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor TabOrder = 0 ReadOnly = False ExplicitWidth = 865 - ExplicitHeight = 503 + ExplicitHeight = 506 inherited pnlSup: TPanel Width = 865 ExplicitWidth = 865 @@ -259,13 +255,13 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor end inherited GroupBox1: TGroupBox Width = 865 - Height = 475 + Height = 478 ExplicitWidth = 865 - ExplicitHeight = 478 + ExplicitHeight = 475 inherited eIncidencias: TcxDBMemo ExplicitWidth = 848 - ExplicitHeight = 448 - Height = 448 + ExplicitHeight = 451 + Height = 451 Width = 848 end end @@ -284,9 +280,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor end inline frViewTotales1: TfrViewTotales [4] Left = 0 - Top = 613 + Top = 616 Width = 879 - Height = 46 + Height = 43 Align = alBottom Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -296,15 +292,15 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor ParentFont = False TabOrder = 4 ReadOnly = False - ExplicitTop = 613 + ExplicitTop = 616 ExplicitWidth = 879 - ExplicitHeight = 46 + ExplicitHeight = 43 inherited dxLayoutControl1: TdxLayoutControl Width = 879 - Height = 46 + Height = 43 LookAndFeel = dxLayoutOfficeLookAndFeel1 ExplicitWidth = 879 - ExplicitHeight = 46 + ExplicitHeight = 43 inherited Bevel3: TBevel Left = 458 Top = 11 @@ -545,9 +541,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor end inherited dxLayoutControl1Group7: TdxLayoutGroup Visible = False - inherited dxLayoutControl1Item9: TdxLayoutItem - Visible = False - end end inherited dxLayoutControl1Group6: TdxLayoutGroup Visible = False diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm index 27e11a2..7c7f41e 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm @@ -127,6 +127,9 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor Kind = skSum Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL end> + inherited cxGridViewNUM_COPIAS: TcxGridDBColumn + IsCaptionAssigned = True + end end end inherited frViewFiltroBase1: TfrViewFiltroBase diff --git a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm index 1e0bef8..4e5bb08 100644 --- a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm +++ b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm @@ -162,26 +162,27 @@ object RptPedidosCliente: TRptPedidosCliente item Connection = 'IBX' SQL = - 'SELECT'#10' PEDIDOS_PROVEEDOR.ID,'#10' PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' + - ' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' + - #10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.OBSERVAC' + - 'IONES,'#10' CONTACTOS.NOMBRE,'#10' COALESCE(CONTACTOS_DIRECCIONES.FAX,' + - ' CONTACTOS.FAX) AS FAX,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO_PRO' + - 'V AS PERSONA_CONTACTO,'#10' PROVEEDORES_DATOS.CODIGO_ASIGNADO AS CO' + - 'DIGO_CLIENTE,'#10' PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' COALESCE(ALMACEN' + - 'ES.CALLE, PEDIDOS_PROVEEDOR.CALLE) AS CALLE,'#10' COALESCE(ALMACENE' + - 'S.POBLACION, PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION,'#10' COALES' + - 'CE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PROVINCIA) AS PROVINCI' + - 'A,'#10' COALESCE(ALMACENES.CODIGO_POSTAL, PEDIDOS_PROVEEDOR.CODIGO_' + - 'POSTAL) AS CODIGO_POSTAL,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO A' + - 'S ENTREGAR_A,'#10' PEDIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10' PEDIDOS_P' + - 'ROVEEDOR'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVE' + - 'EDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN PROVEEDORES_DATOS ON (PROVE' + - 'EDORES_DATOS.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LE' + - 'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' + - ' = PEDIDOS_PROVEEDOR.ID_DIRECCION)'#10' LEFT OUTER JOIN ALMACENES O' + - 'N (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PR' + - 'OVEEDOR.ID = :ID'#10#10#10#10 + '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'#10#10#10#10 StatementType = stSQL ColumnMappings = < item @@ -208,22 +209,10 @@ object RptPedidosCliente: TRptPedidosCliente DatasetField = 'NOMBRE' TableField = 'NOMBRE' end - item - DatasetField = 'FAX' - TableField = 'FAX' - end item DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' end - item - DatasetField = 'FECHA_ENTREGA' - TableField = 'FECHA_ENTREGA' - end - item - DatasetField = 'ID_ALMACEN' - TableField = 'ID_ALMACEN' - end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' @@ -245,12 +234,88 @@ object RptPedidosCliente: TRptPedidosCliente TableField = 'CODIGO_POSTAL' end item - DatasetField = 'CODIGO_CLIENTE' - TableField = 'CODIGO_CLIENTE' + DatasetField = 'ID_CLIENTE' + TableField = 'ID_CLIENTE' end item - DatasetField = 'ENTREGAR_A' - TableField = 'ENTREGAR_A' + DatasetField = 'NOMBRE_COMERCIAL' + TableField = 'NOMBRE_COMERCIAL' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end + item + DatasetField = 'TELEFONO' + TableField = 'TELEFONO' + 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> end> Name = 'Informe_Cabecera' @@ -264,21 +329,8 @@ object RptPedidosCliente: TRptPedidosCliente DataType = datInteger end item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - end - item - Name = 'FECHA_PEDIDO' - DataType = datDateTime - end - item - Name = 'FECHA_ENTREGA' - DataType = datDateTime - end - item - Name = 'OBSERVACIONES' - DataType = datMemo + Name = 'ID_CLIENTE' + DataType = datInteger end item Name = 'NOMBRE' @@ -286,29 +338,39 @@ object RptPedidosCliente: TRptPedidosCliente Size = 255 end item - Name = 'FAX' - DataType = datString - Size = 25 - end - item - Name = 'PERSONA_CONTACTO' + Name = 'NOMBRE_COMERCIAL' DataType = datString Size = 255 end item - Name = 'CODIGO_CLIENTE' + Name = 'REFERENCIA' DataType = datString Size = 255 end item - Name = 'ID_ALMACEN' - DataType = datInteger + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + end + item + Name = 'SITUACION' + DataType = datString + Size = 10 + end + item + Name = 'FECHA_PEDIDO' + DataType = datDateTime end item Name = 'CALLE' DataType = datString Size = 255 end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + end item Name = 'POBLACION' DataType = datString @@ -320,18 +382,90 @@ object RptPedidosCliente: TRptPedidosCliente Size = 255 end item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - end - item - Name = 'ENTREGAR_A' + Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + end + item + Name = 'INCIDENCIAS' + DataType = datMemo + end + item + Name = 'INCIDENCIAS_ACTIVAS' + DataType = datSmallInt + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + end + item + Name = 'DESCUENTO' + DataType = datFloat + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + end + item + Name = 'IVA' + DataType = datFloat + end + item + Name = 'IMPORTE_IVA' + DataType = datCurrency + end item Name = 'IMPORTE_TOTAL' DataType = datCurrency + 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> ReadOnly = True end @@ -349,18 +483,14 @@ object RptPedidosCliente: TRptPedidosCliente SQL = 'SELECT DET.ID, DET.ID_PEDIDO,'#10' DET.POSICION, DET.TIPO_DETA' + 'LLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as C' + - 'ONCEPTO, DET.CANTIDAD,'#10' DET.UNIDAD_MEDIDA, DET.IMPORTE_UNI' + - 'DAD - (DET.IMPORTE_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) a' + - 's IMPORTE_UNIDAD, DET.IMPORTE_TOTAL,'#10' ARTICULOS_PROVEEDORE' + - 'S.REFERENCIA_PROV as REFERENCIA_PROVEEDOR,'#10' ARTICULOS.REFE' + - 'RENCIA_FABR as REFERENCIA_FABRICANTE'#10'FROM PEDIDOS_PROVEEDOR_DETA' + - 'LLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTICUL' + - 'OS.ID)'#10'LEFT JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = DE' + - 'T.ID_PEDIDO)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROV' + - 'EEDORES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.I' + - 'D_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10#10'WHERE DET.ID_PED' + - 'IDO = :ID_PEDIDO AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID' + - '_PEDIDO, DET.POSICION;'#10#10#10#10#10#10#10 + 'ONCEPTO, DET.CANTIDAD,'#10' DET.IMPORTE_UNIDAD - (DET.IMPORTE_' + + 'UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, D' + + 'ET.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCIA' + + '_PROVEEDOR'#10'FROM PEDIDOS_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ART' + + 'ICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN PEDIDOS_CLI' + + 'ENTE ON (PEDIDOS_CLIENTE.ID = DET.ID_PEDIDO)'#10#10'WHERE DET.ID_PEDID' + + 'O = :ID_PEDIDO AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_P' + + 'EDIDO, DET.POSICION;'#10#10#10#10#10 StatementType = stSQL ColumnMappings = < item @@ -387,10 +517,6 @@ object RptPedidosCliente: TRptPedidosCliente DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end - item - DatasetField = 'UNIDAD_MEDIDA' - TableField = 'UNIDAD_MEDIDA' - end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' @@ -403,10 +529,6 @@ object RptPedidosCliente: TRptPedidosCliente DatasetField = 'REFERENCIA_PROVEEDOR' TableField = 'REFERENCIA_PROVEEDOR' end - item - DatasetField = 'REFERENCIA_FABRICANTE' - TableField = 'REFERENCIA_FABRICANTE' - end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' @@ -443,12 +565,7 @@ object RptPedidosCliente: TRptPedidosCliente end item Name = 'CANTIDAD' - DataType = datFloat - end - item - Name = 'UNIDAD_MEDIDA' - DataType = datString - Size = 255 + DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' @@ -462,11 +579,6 @@ object RptPedidosCliente: TRptPedidosCliente Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 - end - item - Name = 'REFERENCIA_FABRICANTE' - DataType = datString - Size = 255 end> ReadOnly = True end @@ -885,16 +997,11 @@ object RptPedidosCliente: TRptPedidosCliente item Name = 'CONCEPTO' DataType = datString - Size = 2000 + Size = 32765 end item Name = 'CANTIDAD' - DataType = datFloat - end - item - Name = 'UNIDAD_MEDIDA' - DataType = datString - Size = 255 + DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' @@ -908,11 +1015,6 @@ object RptPedidosCliente: TRptPedidosCliente Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 - end - item - Name = 'REFERENCIA_FABRICANTE' - DataType = datString - Size = 255 end> Params = < item @@ -945,21 +1047,8 @@ object RptPedidosCliente: TRptPedidosCliente DataType = datInteger end item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - end - item - Name = 'FECHA_PEDIDO' - DataType = datDateTime - end - item - Name = 'FECHA_ENTREGA' - DataType = datDateTime - end - item - Name = 'OBSERVACIONES' - DataType = datMemo + Name = 'ID_CLIENTE' + DataType = datInteger end item Name = 'NOMBRE' @@ -967,25 +1056,39 @@ object RptPedidosCliente: TRptPedidosCliente Size = 255 end item - Name = 'FAX' - DataType = datString - Size = 25 - end - item - Name = 'PERSONA_CONTACTO' + Name = 'NOMBRE_COMERCIAL' DataType = datString Size = 255 end item - Name = 'CODIGO_CLIENTE' + Name = 'REFERENCIA' DataType = datString Size = 255 end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + end + item + Name = 'SITUACION' + DataType = datString + Size = 10 + end + item + Name = 'FECHA_PEDIDO' + DataType = datDateTime + end item Name = 'CALLE' DataType = datString Size = 255 end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + end item Name = 'POBLACION' DataType = datString @@ -997,14 +1100,90 @@ object RptPedidosCliente: TRptPedidosCliente Size = 255 end item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - end - item - Name = 'ENTREGAR_A' + Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 + end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + end + item + Name = 'INCIDENCIAS' + DataType = datMemo + end + item + Name = 'INCIDENCIAS_ACTIVAS' + DataType = datSmallInt + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + end + item + Name = 'DESCUENTO' + DataType = datFloat + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + end + item + Name = 'IVA' + DataType = datFloat + end + item + Name = 'IMPORTE_IVA' + DataType = datCurrency + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + 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> Params = < item diff --git a/Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesImpresionPedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesImpresionPedidosCliente.dfm index 0f3ddca..d1c48bf 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesImpresionPedidosCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesImpresionPedidosCliente.dfm @@ -1,9 +1,9 @@ inherited fDialogOpcionesImpresionPedidosCliente: TfDialogOpcionesImpresionPedidosCliente - Caption = 'Opciones para pedido a proveedor' - ClientHeight = 239 + Caption = 'Opciones para pedido de cliente' + ClientHeight = 197 ClientWidth = 393 ExplicitWidth = 399 - ExplicitHeight = 271 + ExplicitHeight = 229 PixelsPerInch = 96 TextHeight = 13 inherited Bevel2: TBevel @@ -11,13 +11,13 @@ inherited fDialogOpcionesImpresionPedidosCliente: TfDialogOpcionesImpresionPedid ExplicitWidth = 393 end inherited Bevel3: TBevel - Top = 195 + Top = 153 Width = 393 ExplicitTop = 195 ExplicitWidth = 393 end inherited pnlBotones: TPanel - Top = 197 + Top = 155 Width = 393 ExplicitTop = 197 ExplicitWidth = 393 @@ -36,8 +36,8 @@ inherited fDialogOpcionesImpresionPedidosCliente: TfDialogOpcionesImpresionPedid inherited lblInstruccion: TLabel Width = 343 Margins.Bottom = 10 - Caption = 'Indique las siguiente opciones para el pedido a proveedor:' - ExplicitWidth = 328 + Caption = 'Indique las siguiente opciones para el pedido de cliente:' + ExplicitWidth = 314 end inherited Label2: TLabel Top = 31 @@ -49,7 +49,7 @@ inherited fDialogOpcionesImpresionPedidosCliente: TfDialogOpcionesImpresionPedid end inherited pnlCuerpo: TPanel Width = 393 - Height = 129 + Height = 87 ExplicitWidth = 393 ExplicitHeight = 129 object cbVerPrecios: TCheckBox @@ -73,6 +73,7 @@ inherited fDialogOpcionesImpresionPedidosCliente: TfDialogOpcionesImpresionPedid Checked = True State = cbChecked TabOrder = 1 + Visible = False end end inherited ActionList1: TActionList diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm index 3fa5f44..d004433 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm @@ -309,13 +309,14 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente ExplicitLeft = 278 ExplicitTop = 0 end - inherited ToolButton14: TToolButton [4] + inherited ToolButton14: TToolButton Left = 334 Top = 0 + Wrap = False ExplicitLeft = 334 ExplicitTop = 0 end - inherited FontName: TJvFontComboBox [5] + inherited FontName: TJvFontComboBox Left = 399 Top = 0 ExplicitLeft = 399 @@ -324,12 +325,18 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente inherited FontSize: TEdit Left = 544 Top = 0 + Width = 90 ExplicitLeft = 544 ExplicitTop = 0 + ExplicitWidth = 90 end inherited ToolButton13: TToolButton [7] + Left = 0 Top = 0 + Wrap = True + ExplicitLeft = 0 ExplicitTop = 0 + ExplicitHeight = 27 end inherited UpDown1: TUpDown [8] Left = 0 @@ -337,38 +344,37 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente ExplicitLeft = 0 ExplicitTop = 27 end - inherited ToolButton6: TToolButton [9] + inherited ToolButton6: TToolButton Left = 17 Top = 27 ExplicitLeft = 17 ExplicitTop = 27 end - inherited ToolButton7: TToolButton [10] + inherited ToolButton7: TToolButton Left = 83 Top = 27 ExplicitLeft = 83 ExplicitTop = 27 end - inherited ToolButton8: TToolButton [11] + inherited ToolButton8: TToolButton Left = 150 Top = 27 ExplicitLeft = 150 ExplicitTop = 27 end - inherited ToolButton12: TToolButton [12] + inherited ToolButton12: TToolButton Left = 233 Top = 27 ExplicitLeft = 233 ExplicitTop = 27 - ExplicitHeight = 22 end - inherited ToolButton9: TToolButton [13] + inherited ToolButton9: TToolButton Left = 241 Top = 27 ExplicitLeft = 241 ExplicitTop = 27 end - inherited ToolButton10: TToolButton [14] + inherited ToolButton10: TToolButton Left = 386 Top = 27 ExplicitLeft = 386 diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosClienteReport.dfm b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosClienteReport.dfm new file mode 100644 index 0000000..351cee3 --- /dev/null +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosClienteReport.dfm @@ -0,0 +1,16 @@ +inherited fEditorPedidosClientePreview: TfEditorPedidosClientePreview + Caption = 'Previsualizar el pedido de cliente' + ExplicitWidth = 320 + ExplicitHeight = 240 + PixelsPerInch = 96 + TextHeight = 13 + inherited TBXDock: TTBXDock + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 540 + object TBXItem58: TTBXItem [1] + Action = actExportarRTF + Images = SmallImages + end + end + end +end