diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 7c07b56..608a922 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 96996f1..1097d87 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -54,58 +54,58 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
DataModuleImpresiones
TDataModule diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 23f3566..9035a13 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4250FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.2.5.0FactuGESFactuGES4.2.5.0FactuGES.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4260FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.2.6.0FactuGESFactuGES4.2.6.0FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 7a6af45..1f40a1e 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 4,2,5,0 -PRODUCTVERSION 4,2,5,0 +FILEVERSION 4,2,6,0 +PRODUCTVERSION 4,2,6,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "4.2.5.0\0" + VALUE "FileVersion", "4.2.6.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "4.2.5.0\0" + VALUE "ProductVersion", "4.2.6.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 37bfc4a..5f65f70 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Informes/1/InfAlbaranProveedor.fr3 b/Source/Informes/1/InfAlbaranProveedor.fr3 index 69cf3c6..3a075ba 100644 --- a/Source/Informes/1/InfAlbaranProveedor.fr3 +++ b/Source/Informes/1/InfAlbaranProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -41,4 +41,27 @@ + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Informes/2/InfAlbaranProveedor.fr3 b/Source/Informes/2/InfAlbaranProveedor.fr3 index 9b69f09..3a075ba 100644 --- a/Source/Informes/2/InfAlbaranProveedor.fr3 +++ b/Source/Informes/2/InfAlbaranProveedor.fr3 @@ -1,10 +1,10 @@ - + - + @@ -41,4 +41,27 @@ + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Informes/4/InfAlbaranProveedor.fr3 b/Source/Informes/4/InfAlbaranProveedor.fr3 index 69cf3c6..3a075ba 100644 --- a/Source/Informes/4/InfAlbaranProveedor.fr3 +++ b/Source/Informes/4/InfAlbaranProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -41,4 +41,27 @@ + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Informes/5/InfAlbaranProveedor.fr3 b/Source/Informes/5/InfAlbaranProveedor.fr3 index 9b69f09..3a075ba 100644 --- a/Source/Informes/5/InfAlbaranProveedor.fr3 +++ b/Source/Informes/5/InfAlbaranProveedor.fr3 @@ -1,10 +1,10 @@ - + - + @@ -41,4 +41,27 @@ + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm index 32cebf5..1440f41 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm @@ -129,6 +129,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente BestFitMaxWidth = 45 Width = 39 end + object cxGridViewREF_CLIENTE: TcxGridDBColumn + Caption = 'Ref. Cliente' + DataBinding.FieldName = 'REFERENCIA_CLIENTE' + end object cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn DataBinding.FieldName = 'FECHA_PREVISTA_ENVIO' BestFitMaxWidth = 45 diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas index 28a12bf..daeb488 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas @@ -67,6 +67,7 @@ type actAgentes: TAction; TBXSeparatorItem3: TTBXSeparatorItem; TBXItem4: TTBXItem; + cxGridViewREF_CLIENTE: TcxGridDBColumn; procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; diff --git a/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm b/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm index 817b0c8..cca8820 100644 --- a/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm +++ b/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm @@ -212,12 +212,13 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor '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 + 'WEB AS PAGINA_WEB_EMPRESA,'#10' V_ALBARANES_PROVEEDOR.OBSERVACIONES' + + ','#10' V_ALBARANES_PROVEEDOR.INCIDENCIAS'#10'FROM'#10' V_ALBARANES_PROVE' + + 'EDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_AL' + + 'BARANES_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (' + + 'ALMACENES.ID = V_ALBARANES_PROVEEDOR.ID_ALMACEN)'#10' LEFT OUTER JO' + + 'IN EMPRESAS ON (EMPRESAS.ID = V_ALBARANES_PROVEEDOR.ID_EMPRESA)'#10 + + 'WHERE V_ALBARANES_PROVEEDOR.ID = :ID'#10#10 StatementType = stSQL ColumnMappings = < item @@ -319,6 +320,14 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor item DatasetField = 'PAGINA_WEB_EMPRESA' TableField = 'PAGINA_WEB_EMPRESA' + end + item + DatasetField = 'OBSERVACIONES1' + TableField = 'OBSERVACIONES1' + end + item + DatasetField = 'INCIDENCIAS' + TableField = 'INCIDENCIAS' end> end> Name = 'Informe_Cabecera' @@ -441,6 +450,14 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor Name = 'PAGINA_WEB_EMPRESA' DataType = datString Size = 255 + end + item + Name = 'OBSERVACIONES1' + DataType = datMemo + end + item + Name = 'INCIDENCIAS' + DataType = datMemo end> end item @@ -589,7 +606,7 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 39829.854499780090000000 + ReportOptions.LastChange = 41283.504346134260000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( '' @@ -597,7 +614,7 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor 'var' ' Cadena: String;' 'begin' - '{ DatosEmpresa.Lines.Clear;' + ' DatosEmpresa.Lines.Clear;' ' if ( <> '#39#39') then' ' Cadena := '#39'TLF: '#39' + ;' ' if ( <> '#39#39') then' @@ -605,62 +622,143 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor ' Cadena := Cadena + '#39' FAX: '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' - '}' + ' Memo19.Lines.Clear;' + + ' Memo19.Lines.Add(Cadena); ' + + ' ' 'end;' '' 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' 'begin' - '{ NombreEmpresa.Lines.Clear;' + ' NombreEmpresa.Lines.Clear;' ' NombreEmpresa.Lines.Add();' - '}' + ' Memo15.Lines.Clear;' + ' Memo15.Lines.Add();' 'end;' '' - 'procedure Memo35OnBeforePrint(Sender: TfrxComponent);' + 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);' + 'var' + ' ACadena : String;' 'begin' + ' ACadena := '#39#39';' + ' DireccionEnvio.Lines.Clear;' + '' + ' if ( <> '#39#39') then' + ' ACadena := ;' + ' if ( <> '#39#39') then' - '{ if not then ' + - ' ' - ' Memo35.Lines.Clear;} ' - 'end;' + ' ACadena := ACadena + '#39' (tlf: '#39' + ' + + ' + '#39' )'#39';' '' - 'procedure Memo36OnBeforePrint(Sender: TfrxComponent);' - 'begin' + ' DireccionEnvio.Lines.Add(ACadena);' + ' ACadena := '#39#39';' + ' DireccionEnvio.Lines.Add(ACadena);' + '' + ' 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();' + '' + ' Memo24.Lines.Clear;' + '// Memo24.Lines.Add(DireccionEnvio.Lines);' - '{ if not then ' + - ' ' - ' Memo36.Lines.Clear;} ' + 'Memo24.Memo.Text := DireccionEnvio.Memo.Text; ' + + ' ' 'end;' '' - 'procedure Memo6OnBeforePrint(Sender: TfrxComponent);' + 'procedure Memo2OnBeforePrint(Sender: TfrxComponent);' 'begin' - - '{ if not then ' + - ' ' - ' Memo6.Lines.Clear;} ' + ' Memo2.Lines.Clear;' + ' Memo9.Lines.Clear; ' + ' if (StrToFloat() < 0) then' + ' begin ' + ' Memo2.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39'); ' + ' Memo9.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39'); ' + ' end ' + ' else' + ' begin ' + ' Memo2.Lines.Add('#39'ALBAR'#193'N DE PROVEEDOR'#39'); ' + ' Memo9.Lines.Add('#39'ALBAR'#193'N DE PROVEEDOR'#39'); ' + ' end ' 'end;' '' - 'procedure PageHeader2OnBeforePrint(Sender: TfrxComponent);' + 'procedure Memo5OnBeforePrint(Sender: TfrxComponent);' 'begin' - ' if not Engine.FinalPass then' + ' if (StrToFloat() < 0) then' + ' begin' + ' Memo5.Lines.Clear;' + ' Memo5.Lines.Add('#39'N'#186' orden:'#39');' + ' end;' + 'end;' + '' + 'procedure Memo1OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if (StrToFloat() < 0) then' + ' begin' + ' Memo1.Lines.Clear;' + ' Memo1.Lines.Add('#39'Fecha orden:'#39');' + ' end;' + '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)); ' + ' Set('#39'Pagina'#39', ( + 1));' 'end;' '' 'procedure frxReportOnStartReport(Sender: TfrxComponent);' 'begin' ' Set('#39'Pagina'#39', 0);' - ' Set('#39'TotalPaginas'#39', 0); ' + ' Set('#39'TotalPaginas'#39', 0);' 'end;' '' - 'procedure Memo21OnBeforePrint(Sender: TfrxComponent);' + '' + 'procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);' 'begin' - ' if ( = '#39'D'#39') then' + ' if then' ' begin ' - ' Memo21.Lines.Clear;' - ' Memo21.Lines.Add('#39'ORDEN DE DEVOLUCION'#39');' - ' end; ' + ' 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;' + '' + 'procedure Page2OnBeforePrint(Sender: TfrxComponent);' + 'begin' + + ' if ( <> '#39#39') or ( <> '#39#39') then' + ' Page2.Visible := true' + ' else' + ' Page2.Visible := false; ' 'end;' '' 'begin' @@ -847,6 +945,11 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor Name = 'ID_PROVEEDOR' DataType = datInteger end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + end item Name = 'FECHA_ALBARAN' DataType = datDateTime @@ -857,22 +960,16 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor Size = 255 end item - Name = 'REFERENCIA_PROVEEDOR' + Name = 'ID_PEDIDO' + DataType = datInteger + end + item + Name = 'REF_PED_PROVEEDOR' DataType = datString Size = 255 end item - Name = 'NIF_CIF' - DataType = datString - Size = 15 - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - end - item - Name = 'PERSONA_CONTACTO' + Name = 'NOMBRE_ALMACEN' DataType = datString Size = 255 end @@ -881,6 +978,11 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor DataType = datString Size = 255 end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + end item Name = 'POBLACION' DataType = datString @@ -892,9 +994,70 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor Size = 255 end item - Name = 'CODIGO_POSTAL' + Name = 'PERSONA_CONTACTO' DataType = datString - Size = 10 + 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 + item + Name = 'OBSERVACIONES1' + DataType = datMemo + end + item + Name = 'INCIDENCIAS' + DataType = datMemo end> Params = < item diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index f07adb0..9d31530 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index c04c115..8b42e46 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -35,7 +35,7 @@ Delphi.Personality - FalseTrueFalse/standaloneTrueFalse4250FalseFalseFalseFalseFalse308212524.2.5.04.2.5.0viernes, 31 de agosto de 2012 19:05 + FalseTrueFalse/standaloneTrueFalse4260FalseFalseFalseFalseFalse308212524.2.6.04.2.6.0lunes, 15 de octubre de 2012 18:34 ExpressPrinting System by Developer Express Inc. FactuGES_Server.dprFalse diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index dd75013..5b88a8b 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 4,2,5,0 -PRODUCTVERSION 4,2,5,0 +FILEVERSION 4,2,6,0 +PRODUCTVERSION 4,2,6,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -12,9 +12,9 @@ BEGIN BEGIN BLOCK "0C0A04E4" BEGIN - VALUE "FileVersion", "4.2.5.0\0" - VALUE "ProductVersion", "4.2.5.0\0" - VALUE "CompileDate", "lunes, 15 de octubre de 2012 18:34\0" + VALUE "FileVersion", "4.2.6.0\0" + VALUE "ProductVersion", "4.2.6.0\0" + VALUE "CompileDate", "miércoles, 09 de enero de 2013 13:17\0" END END BLOCK "VarFileInfo"