From 912834d4ac59f8fcbd8508b92b4c0343252475d7 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 19 Jan 2010 10:00:04 +0000 Subject: [PATCH] git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@32 f33bb606-9f5c-448d-9c99-757f00063c96 --- Database/scripts/factuges.sql | 3 + Source/GUIBase/GUIBase.identcache | Bin 1701 -> 1701 bytes Source/Informes/1/InfAlbaranCliente.fr3 | 67 ++++--- Source/Informes/1/InfFacturaCliente.fr3 | 102 ++++++---- .../Reports/uRptAlbaranesCliente_Server.dfm | 175 +++++++++--------- Source/Servidor/FactuGES_Server.dproj | 2 + 6 files changed, 187 insertions(+), 162 deletions(-) diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 1f9bdb5..a360ce6 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -1370,6 +1370,7 @@ CREATE VIEW V_ALBARANES_CLIENTE( FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, + FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_ENVIO, FECHA_RECEPCION, @@ -1415,6 +1416,7 @@ SELECT ALBARANES_CLIENTE.FECHA_MODIFICACION, ALBARANES_CLIENTE.USUARIO, ALBARANES_CLIENTE.ID_FORMA_PAGO, + FORMAS_PAGO.DESCRIPCION, ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, ALBARANES_CLIENTE.FECHA_ENVIO, ALBARANES_CLIENTE.FECHA_RECEPCION, @@ -1428,6 +1430,7 @@ FROM LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA) LEFT OUTER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID) LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN) + LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = ALBARANES_CLIENTE.ID_FORMA_PAGO) ; diff --git a/Source/GUIBase/GUIBase.identcache b/Source/GUIBase/GUIBase.identcache index 210f820fd297d009392fd8a8ba3f8b0c5f0a5456..24635f5fc1ef8ba48b4c0af59f87b1c87235702c 100644 GIT binary patch delta 77 zcmZ3=yOei=%j7;rjmafUQj>idRVEuSu}$10K6xIi#>5<%$g$sSB@K%xJWyBIYl=16VsV>-w< gc?wJKBSzI^IV`XOq0OxKPVE_OC diff --git a/Source/Informes/1/InfAlbaranCliente.fr3 b/Source/Informes/1/InfAlbaranCliente.fr3 index adef6f9..cf6b2f8 100644 --- a/Source/Informes/1/InfAlbaranCliente.fr3 +++ b/Source/Informes/1/InfAlbaranCliente.fr3 @@ -1,56 +1,55 @@ - + - + - - + - - - - - - - - - - - - + + + + + + + + + + + + - - + + - + - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3 index 327fb39..51aa1f0 100644 --- a/Source/Informes/1/InfFacturaCliente.fr3 +++ b/Source/Informes/1/InfFacturaCliente.fr3 @@ -1,58 +1,78 @@ - + - + - - - + + + - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + - - + + + - + - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm index 1392824..c26687a 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm @@ -63,21 +63,23 @@ object RptAlbaranesCliente: TRptAlbaranesCliente #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_NETO,'#10' V_ALBARANES_CLIENTE.DESCUENTO,' + - #10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES_CLIENTE.' + - 'DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' V_ALBARA' + - 'NES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE' + - ', CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CLIENTE.PER' + - 'SONA_CONTACTO,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS' + - '.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBLACION, CO' + - 'NTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONE' + - 'S.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTA' + - 'CTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODI' + - 'GO_POSTAL'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONTACTOS ON (' + - 'CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN' + - ' CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_ALBARANE' + - 'S_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'#10#10 + 'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.FORMA_PAGO,'#10' V_ALB' + + 'ARANES_CLIENTE.DATOS_BANCARIOS,'#10' V_ALBARANES_CLIENTE.OBSERVACIO' + + 'NES,'#10' V_ALBARANES_CLIENTE.IMPORTE_NETO,'#10' V_ALBARANES_CLIENTE.D' + + 'ESCUENTO,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES' + + '_CLIENTE.DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' ' + + ' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as RE' + + 'F_CLIENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CL' + + 'IENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, ' + + 'CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBL' + + 'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' + + 'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' + + 'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' + + ') AS CODIGO_POSTAL'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONTA' + + 'CTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT O' + + 'UTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V' + + '_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID = ' + + ':ID'#10#10 StatementType = stSQL ColumnMappings = < item @@ -171,6 +173,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente item DatasetField = 'IMPORTE_DESCUENTO2' TableField = 'IMPORTE_DESCUENTO2' + end + item + DatasetField = 'FORMA_PAGO' + TableField = 'FORMA_PAGO' + end + item + DatasetField = 'DATOS_BANCARIOS' + TableField = 'DATOS_BANCARIOS' end> end> Name = 'Informe_Cabecera' @@ -210,6 +220,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente DataType = datString Size = 255 end + item + Name = 'FORMA_PAGO' + DataType = datString + Size = 255 + end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'OBSERVACIONES' DataType = datMemo @@ -528,63 +548,38 @@ object RptAlbaranesCliente: TRptAlbaranesCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 40190.500735312500000000 + ReportOptions.LastChange = 40196.760630046290000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( - '' - 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' - ' Cadena: String;' + ' Pagina: Variant;' + '' + '' + 'procedure Memo2OnBeforePrint(Sender: TfrxComponent);' 'begin' - '{ DatosEmpresa.Lines.Clear;' - ' if ( <> '#39#39') then' - ' Cadena := '#39'TLF: '#39' + ;' - ' if ( <> '#39#39') then' - - ' Cadena := Cadena + '#39' FAX: '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' - '}' + ' Memo2.Lines.Clear;' + ' if (StrToFloat() < 0) then' + ' Memo2.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39')' + ' else' + ' Memo2.Lines.Add('#39'ALBAR'#193'N DE CLIENTE'#39')' 'end;' '' - 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' + 'procedure Memo5OnBeforePrint(Sender: TfrxComponent);' 'begin' - '{ NombreEmpresa.Lines.Clear;' - ' NombreEmpresa.Lines.Add();' - '}' + ' if (StrToFloat() < 0) then' + ' begin' + ' Memo5.Lines.Clear;' + ' Memo5.Lines.Add('#39'N'#186' orden:'#39');' + ' end;' 'end;' '' - 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);' - 'var' - ' ACadena : String;' + 'procedure Memo9OnBeforePrint(Sender: TfrxComponent);' 'begin' - '{ ACadena := '#39#39';' - ' DireccionEnvio.Lines.Clear;' - ' if ( <> '#39#39') then' - ' ACadena := ;' - '' - ' 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();' - '}' + ' if (StrToFloat() < 0) then' + ' begin' + ' Memo9.Lines.Clear;' + ' Memo9.Lines.Add('#39'Fecha orden:'#39');' + ' end;' 'end;' '' 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' @@ -593,7 +588,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente ' Set('#39'TotalPaginas'#39', ( + 1));' '' ' if Engine.FinalPass then' - ' Set('#39'Pagina'#39', ( + 1)); ' + ' Set('#39'Pagina'#39', ( + 1));' 'end;' '' 'procedure frxReportOnStartReport(Sender: TfrxComponent);' @@ -602,35 +597,31 @@ object RptAlbaranesCliente: TRptAlbaranesCliente ' Set('#39'TotalPaginas'#39', 0);' 'end;' '' - '' - - 'procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxCompone' + - 'nt);' - 'var' - ' ACantidad: String; ' - ' AIndice: Integer;' - ' AText : String; ' + 'procedure Memo26OnBeforePrint(Sender: TfrxComponent);' 'begin' - ' frxDBDetallesCANTIDAD.Memo.Clear; ' - ' ACantidad := FloatToStr(); ' - ' if ACantidad = '#39'0'#39' then' - ' AText := '#39#39 - ' else begin ' - ' AIndice := Pos('#39','#39', ACantidad);' - ' if AIndice > 0 then ' + - ' ' + ' if and ( <> '#39#39') then' - ' AText := '#39'[FormatFloat('#39#39'#,##0.00'#39#39',)] [frxDBDetalles."UNIDAD_MEDIDA"]'#39 - ' else ' - - ' AText := '#39'[FormatFloat('#39#39'#,##0.##'#39#39',)] [frxDBDetalles."UNIDAD_MEDIDA"]'#39';' - ' end; ' - ' frxDBDetallesCANTIDAD.Memo.Add(AText);' + ' Memo26.Visible := True ' + + ' ' + ' else' + ' Memo26.Visible := False ' 'end;' '' + 'procedure Memo27OnBeforePrint(Sender: TfrxComponent);' + 'begin' + '{ ' + + ' if and ( <> '#39#39') then' + + ' Memo27.Visible := True ' + + ' ' + ' else' + ' Memo27.Visible := False' + '} ' + 'end;' '' 'begin' '' @@ -904,6 +895,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente DataType = datString Size = 255 end + item + Name = 'FORMA_PAGO' + DataType = datString + Size = 255 + end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'OBSERVACIONES' DataType = datMemo diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index b964ad7..510c2cd 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -38,6 +38,8 @@ FalseTrueFalse/standaloneTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0viernes, 15 de enero de 2010 17:13 + + ExpressPrinting System by Developer Express Inc. FactuGES_Server.dpr