diff --git a/Resources/Firmas Tecsitel/firma_mantenimiento_carlos.jpg b/Resources/Firmas Tecsitel/firma_mantenimiento_carlos.jpg new file mode 100644 index 00000000..ef9c940b Binary files /dev/null and b/Resources/Firmas Tecsitel/firma_mantenimiento_carlos.jpg differ diff --git a/Resources/Firmas Tecsitel/firma_mantenimiento_carlos.png b/Resources/Firmas Tecsitel/firma_mantenimiento_carlos.png new file mode 100644 index 00000000..9499e0fe Binary files /dev/null and b/Resources/Firmas Tecsitel/firma_mantenimiento_carlos.png differ diff --git a/Resources/Firmas Tecsitel/firma_tecsitel_carlos.jpg b/Resources/Firmas Tecsitel/firma_tecsitel_carlos.jpg new file mode 100644 index 00000000..a68dd57e Binary files /dev/null and b/Resources/Firmas Tecsitel/firma_tecsitel_carlos.jpg differ diff --git a/Resources/Firmas Tecsitel/firma_tecsitel_carlos.png b/Resources/Firmas Tecsitel/firma_tecsitel_carlos.png new file mode 100644 index 00000000..b4202bb0 Binary files /dev/null and b/Resources/Firmas Tecsitel/firma_tecsitel_carlos.png differ diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 3359d9dc..1d5829f9 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -47,8 +47,6 @@ FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components Base.dpk @@ -58,57 +56,57 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index da5ea838..622d924d 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\TrueFalse1930FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.9.3.0FactuGESFactuGES1.9.3.0FactuGES.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1940FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.9.4.0FactuGESFactuGES1.9.4.0FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index adf3c505..eadbcda7 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 1,9,3,0 -PRODUCTVERSION 1,9,3,0 +FILEVERSION 1,9,4,0 +PRODUCTVERSION 1,9,4,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "1.9.3.0\0" + VALUE "FileVersion", "1.9.4.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "1.9.3.0\0" + VALUE "ProductVersion", "1.9.4.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index d5769111..1d70b45c 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Informes/1/InfPedidoProveedor.fr3 b/Source/Informes/1/InfPedidoProveedor.fr3 index e770ed67..3ed5d6dd 100644 --- a/Source/Informes/1/InfPedidoProveedor.fr3 +++ b/Source/Informes/1/InfPedidoProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -41,10 +41,11 @@ - + + diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3 index e95a705c..b4d54403 100644 --- a/Source/Informes/1/InfPresupuestoCliente.fr3 +++ b/Source/Informes/1/InfPresupuestoCliente.fr3 @@ -1,10 +1,10 @@ - + - + @@ -52,7 +52,7 @@ - + @@ -70,7 +70,7 @@ - + diff --git a/Source/Informes/1/PedidoProveedor.rdx b/Source/Informes/1/PedidoProveedor.rdx index 26a68716..8cbe405e 100644 Binary files a/Source/Informes/1/PedidoProveedor.rdx and b/Source/Informes/1/PedidoProveedor.rdx differ diff --git a/Source/Informes/1/Presupuesto.rdx b/Source/Informes/1/Presupuesto.rdx index a2e76a10..af4c2a63 100644 Binary files a/Source/Informes/1/Presupuesto.rdx and b/Source/Informes/1/Presupuesto.rdx differ diff --git a/Source/Informes/2/InfPedidoProveedor.fr3 b/Source/Informes/2/InfPedidoProveedor.fr3 index 08edb864..a7066c0c 100644 --- a/Source/Informes/2/InfPedidoProveedor.fr3 +++ b/Source/Informes/2/InfPedidoProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -52,11 +52,12 @@ - - + + + diff --git a/Source/Informes/2/PedidoProveedor.rdx b/Source/Informes/2/PedidoProveedor.rdx index a90472e1..281df002 100644 Binary files a/Source/Informes/2/PedidoProveedor.rdx and b/Source/Informes/2/PedidoProveedor.rdx differ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res index 8b251f31..1641339f 100644 Binary files a/Source/Modulos/Contactos/Views/Contactos_view.res and b/Source/Modulos/Contactos/Views/Contactos_view.res differ diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm index 228f3899..53c3ceb4 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm +++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm @@ -47,6 +47,8 @@ inherited fEditorProveedor: TfEditorProveedor inherited lblDesbloquear: TcxLabel Left = 705 ExplicitLeft = 705 + AnchorX = 750 + AnchorY = 14 end end inherited TBXDock: TTBXDock @@ -118,6 +120,8 @@ inherited fEditorProveedor: TfEditorProveedor ExplicitWidth = 824 ExplicitHeight = 519 inherited pagGeneral: TTabSheet + ExplicitLeft = 0 + ExplicitTop = 0 ExplicitWidth = 816 ExplicitHeight = 491 inline frViewProveedor1: TfrViewProveedor @@ -161,10 +165,10 @@ inherited fEditorProveedor: TfEditorProveedor ExplicitTop = 162 end inherited Label1: TLabel - Left = 485 + Left = 468 Top = 251 Width = 342 - ExplicitLeft = 485 + ExplicitLeft = 468 ExplicitTop = 251 ExplicitWidth = 342 end @@ -199,13 +203,13 @@ inherited fEditorProveedor: TfEditorProveedor Width = 366 end inherited eCodigoPostal: TcxDBTextEdit - Left = 403 + Left = 386 Top = 294 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 403 + ExplicitLeft = 386 ExplicitTop = 294 end inherited eObservaciones: TcxDBMemo @@ -270,50 +274,72 @@ inherited fEditorProveedor: TfEditorProveedor ExplicitWidth = 366 Width = 366 end + inherited cxDBCheckBox3: TcxDBCheckBox + Left = 368 + Top = 138 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 368 + ExplicitTop = 138 + end inherited eTlfParticular: TcxDBTextEdit - Left = 591 + Left = 574 Top = 57 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 591 + ExplicitLeft = 574 ExplicitTop = 57 ExplicitWidth = 171 Width = 171 end inherited eTlfTrabajo: TcxDBTextEdit - Left = 591 + Left = 574 Top = 30 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 591 + ExplicitLeft = 574 ExplicitTop = 30 ExplicitWidth = 171 Width = 171 end + inherited cxDBCheckBox1: TcxDBCheckBox + Left = 468 + Top = 283 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 468 + ExplicitTop = 283 + ExplicitWidth = 236 + Width = 236 + end inherited eTlfMovil: TcxDBTextEdit - Left = 591 + Left = 574 Top = 84 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 591 + ExplicitLeft = 574 ExplicitTop = 84 ExplicitWidth = 171 Width = 171 end inherited eFax: TcxDBTextEdit - Left = 591 + Left = 574 Top = 111 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 591 + ExplicitLeft = 574 ExplicitTop = 111 ExplicitWidth = 171 Width = 171 @@ -328,74 +354,60 @@ inherited fEditorProveedor: TfEditorProveedor ExplicitWidth = 366 Width = 366 end - inherited cxDBCheckBox3: TcxDBCheckBox - Left = 385 - Top = 138 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 385 - ExplicitTop = 138 + inherited cbFelicitacion: TcxDBCheckBox + Left = 479 + Top = 329 + ExplicitLeft = 479 + ExplicitTop = 329 + ExplicitWidth = 352 + Width = 352 end inherited eNIFCIF: TcxDBTextEdit - Left = 258 + Left = 251 Top = 30 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 258 + ExplicitLeft = 251 ExplicitTop = 30 ExplicitWidth = 229 Width = 229 end inherited eMailTrabajo: TcxDBHyperLinkEdit - Left = 591 + Left = 574 Top = 162 Properties.Prefix = 'mailto:' Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 591 + ExplicitLeft = 574 ExplicitTop = 162 ExplicitWidth = 142 Width = 142 end inherited eMailParticular: TcxDBHyperLinkEdit - Left = 591 + Left = 574 Top = 190 Properties.Prefix = 'mailto:' Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 591 + ExplicitLeft = 574 ExplicitTop = 190 ExplicitWidth = 142 Width = 142 end - inherited cxDBCheckBox1: TcxDBCheckBox - Left = 485 - Top = 283 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 485 - ExplicitTop = 283 - ExplicitWidth = 236 - Width = 236 - end inherited ePaginaWeb: TcxDBHyperLinkEdit - Left = 591 + Left = 574 Top = 217 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 591 + ExplicitLeft = 574 ExplicitTop = 217 ExplicitWidth = 142 Width = 142 @@ -607,6 +619,18 @@ inherited fEditorProveedor: TfEditorProveedor inherited ToolBar1: TToolBar Width = 816 ExplicitWidth = 816 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end end end end diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.pas b/Source/Modulos/Contactos/Views/uEditorProveedor.pas index 3f3ee436..ebdbc306 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.pas +++ b/Source/Modulos/Contactos/Views/uEditorProveedor.pas @@ -66,7 +66,7 @@ implementation { TfEditorProveedor } uses - uDialogUtils, uGruposProveedorController, uBizGruposProveedor, + uDialogUtils, dialogs, uGruposProveedorController, uBizGruposProveedor, uProveedoresController; procedure TfEditorProveedor.actDocumentosAlbaranesExecute(Sender: TObject); diff --git a/Source/Modulos/Contactos/Views/uViewProveedor.dfm b/Source/Modulos/Contactos/Views/uViewProveedor.dfm index 7c2f09c8..f5db58ad 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedor.dfm +++ b/Source/Modulos/Contactos/Views/uViewProveedor.dfm @@ -221,6 +221,30 @@ inherited frViewProveedor: TfrViewProveedor ExplicitWidth = 171 Width = 171 end + object cxDBCheckBox3: TcxDBCheckBox [16] + Left = 343 + Top = 136 + Caption = 'Subcontrata' + DataBinding.DataField = 'SUBCONTRATA' + DataBinding.DataSource = dsContacto + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.ValueChecked = 1 + Properties.ValueUnchecked = 0 + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 6 + Width = 83 + end inherited eTlfMovil: TcxDBTextEdit Left = 551 Style.LookAndFeel.SkinName = '' @@ -253,13 +277,14 @@ inherited frViewProveedor: TfrViewProveedor ExplicitWidth = 330 Width = 330 end - object cxDBCheckBox3: TcxDBCheckBox [19] - Left = 343 - Top = 136 - Caption = 'Subcontrata' - DataBinding.DataField = 'SUBCONTRATA' + object cxDBCheckBox1: TcxDBCheckBox [20] + Left = 444 + Top = 294 + Caption = 'Incluir este proveedor en la tienda web' + DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataSource = dsContacto Properties.ImmediatePost = True + Properties.MultiLine = True Properties.NullStyle = nssUnchecked Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 @@ -274,8 +299,8 @@ inherited frViewProveedor: TfrViewProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 6 - Width = 83 + TabOrder = 21 + Width = 236 end inherited eNIFCIF: TcxDBTextEdit Left = 224 @@ -311,14 +336,13 @@ inherited frViewProveedor: TfrViewProveedor ExplicitWidth = 142 Width = 142 end - object cxDBCheckBox1: TcxDBCheckBox [23] - Left = 444 - Top = 294 - Caption = 'Incluir este proveedor en la tienda web' - DataBinding.DataField = 'TIENDA_WEB' + object cbFelicitacion: TcxDBCheckBox [24] + Left = 456 + Top = 339 + Caption = 'Mandar felicitaci'#243'n navide'#241'a a este proveedor' + DataBinding.DataField = 'FELICITACION' DataBinding.DataSource = dsContacto Properties.ImmediatePost = True - Properties.MultiLine = True Properties.NullStyle = nssUnchecked Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 @@ -333,8 +357,8 @@ inherited frViewProveedor: TfrViewProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 21 - Width = 236 + TabOrder = 22 + Width = 352 end inherited ePaginaWeb: TcxDBHyperLinkEdit Left = 551 @@ -370,30 +394,6 @@ inherited frViewProveedor: TfrViewProveedor ExplicitWidth = 330 Width = 330 end - object cbFelicitacion: TcxDBCheckBox [27] - Left = 456 - Top = 339 - Caption = 'Mandar felicitaci'#243'n navide'#241'a a este proveedor' - DataBinding.DataField = 'FELICITACION' - DataBinding.DataSource = dsContacto - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - Properties.ValueChecked = 1 - Properties.ValueUnchecked = 0 - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 22 - Width = 352 - end inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index e456572d..f4dab920 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -57,8 +57,8 @@ type function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean; - procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1); - procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1); + procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1); + procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1); function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean; function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; @@ -140,8 +140,8 @@ type function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean; - procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1); - procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1); + procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1); + procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1); function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean; function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; @@ -1049,7 +1049,7 @@ begin } end; -procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1); +procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1); var AReportController : IPresupuestosClienteReportController; ID_Presupuestos: TIntegerList; @@ -1075,14 +1075,14 @@ begin else ID_Presupuestos.Add(APresupuesto.ID); - AReportController.Preview(ID_Presupuestos, AVerSello); + AReportController.Preview(ID_Presupuestos, AVerSello, AVerISO); finally AReportController := NIL; FreeAndNil(ID_Presupuestos); end; end; -procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer= 1); +procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer= 1; Const AVerISO: Integer = 1); var AReportController : IPresupuestosClienteReportController; ID_Presupuestos: TIntegerList; @@ -1107,7 +1107,7 @@ begin else ID_Presupuestos.Add(APresupuesto.ID); - AReportController.Print(ID_Presupuestos, AVerSello); + AReportController.Print(ID_Presupuestos, AVerSello, AVerISO); finally AReportController := NIL; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas index babbe54c..c48ea78c 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas @@ -10,10 +10,10 @@ uses type IPresupuestosClienteReportController = interface(IControllerBase) ['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}'] - procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer); - procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer); - function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean; - function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean; + procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1); + procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1); + function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean; + function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean; function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean; end; @@ -25,10 +25,10 @@ type constructor Create; override; destructor Destroy; override; - procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer); - procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer); - function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean; - function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean; + procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1); + procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1); + function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean; + function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean; function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean; end; @@ -61,7 +61,7 @@ begin inherited; end; -function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String; Const AVerSello: Integer): Boolean; +function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String; Const AVerSello: Integer; Const AVerISO: Integer): Boolean; var AStream: Binary; begin @@ -71,7 +71,7 @@ begin ShowHourglassCursor; try - AStream := FDataModule.GetRptPDFPresupuesto(AID, AVerSello); + AStream := FDataModule.GetRptPDFPresupuesto(AID, AVerSello, AVerISO); try AStream.SaveToFile(AFileName); Result := True; @@ -83,7 +83,7 @@ begin end; end; -function TPresupuestosClienteReportController.ExportToWord(const AID: Integer; const AFileName : String; Const AVerSello: Integer) : Boolean; +function TPresupuestosClienteReportController.ExportToWord(const AID: Integer; const AFileName : String; Const AVerSello: Integer; Const AVerISO: Integer) : Boolean; var AStream: Binary; AFile : String; @@ -95,7 +95,7 @@ begin ShowHourglassCursor; try - AStream := FDataModule.GetRptWordPresupuesto(AID, AVerSello); + AStream := FDataModule.GetRptWordPresupuesto(AID, AVerSello, AVerISO); try AStream.SaveToFile(AFile); Result := True; @@ -133,7 +133,7 @@ begin end; end; -procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; Const AVerSello: Integer); +procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1); var AStream: Binary; AEditor : IEditorPresupuestosClientePreview; @@ -142,7 +142,7 @@ begin ShowHourglassCursor; try - AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello); + AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello, AVerISO); try CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); if Assigned(AEditor) then @@ -166,7 +166,7 @@ begin end; end; -procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; Const AVerSello: Integer); +procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1); var AStream: Binary; AEditor : IEditorPresupuestosClientePreview; @@ -175,7 +175,7 @@ begin ShowHourglassCursor; try - AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello); + AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello, AVerISO); try CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); if Assigned(AEditor) then diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas index b617682b..03039be8 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas @@ -41,10 +41,10 @@ type function NewItem : IBizPresupuestoCliente; // Report - function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary; - function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary; + function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary; + function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary; function GetRptWordCertificadoTrabajos(const AID: Integer): Binary; - function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary; + function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary; function GetAnosItems : TStringList; end; @@ -70,26 +70,26 @@ begin RORemoteService.Message := dmConexion.Message; end; -function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary; +function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary; var AParam : TIntegerArray; begin AParam := TIntegerArray.Create; try AParam.Add(AID); - Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, AVerSello) + Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, AVerSello, AVerISO) finally FreeANDNIL(AParam) end; end; -function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary; +function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary; var AParam : TIntegerArray; begin AParam := AListaID.ToIntegerArray; try - Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, AVerSello) + Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, AVerSello, AVerISO) finally FreeANDNIL(AParam) end; @@ -101,9 +101,9 @@ begin Result := (RORemoteService as IsrvPresupuestosCliente).GenerarCertificadoTrabajosEnWord(AID) end; -function TDataModulePresupuestosCliente.GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary; +function TDataModulePresupuestosCliente.GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary; begin - Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID, AVerSello) + Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID, AVerSello, AVerISO) end; function TDataModulePresupuestosCliente.NewItem: IBizPresupuestoCliente; diff --git a/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas b/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas index 0234c20b..f3a5c117 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas @@ -8,10 +8,10 @@ uses type IDataModulePresupuestosClienteReport = interface ['{70CEBB06-376F-4363-B80F-DDA4324E0F85}'] - function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary; - function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary; + function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary; + function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary; function GetRptWordCertificadoTrabajos(const AID: Integer): Binary; - function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary; + function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary; end; implementation diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas index 78b4f10a..b7a2656f 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas @@ -114,7 +114,7 @@ type FIntervalo: Variant; FTopN: Integer; - procedure _GenerarPresupuesto(const AID : Integer; const VerSello: Integer); + procedure _GenerarPresupuesto(const AID : Integer; const VerSello: Integer; const VerISO: Integer); procedure PrepararTablaInforme(ATabla: TDAMemDataTable); procedure PrepararTablaResumenInforme(ATabla: IDADataset); @@ -125,8 +125,8 @@ type procedure IniciarParametrosInforme; procedure RecuperarNombresClientes; public - function GenerarPresupuesto(const ListaID : TIntegerArray; const VerSello: Integer): Binary; - function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerSello: Integer): Binary; + function GenerarPresupuesto(const ListaID : TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; + function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformePresupuestosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary; end; @@ -179,7 +179,7 @@ begin end; end; -function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary; +function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; var i: Integer; begin @@ -187,7 +187,7 @@ begin try //Vamos generando todos y cada uno de los presupuestos recibidos for i := 0 to ListaID.Count - 1 do - _GenerarPresupuesto(ListaID.Items[i], VerSello); + _GenerarPresupuesto(ListaID.Items[i], VerSello, VerISO); frxPDFExport1.Stream := Result; frxReport.Export(frxPDFExport1) @@ -599,7 +599,7 @@ begin end; end; -function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerSello: Integer): Binary; +function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; var i: Integer; begin @@ -607,7 +607,7 @@ begin try //Vamos generando todos y cada uno de los presupuestos recibidos for i := 0 to ListaID.Count - 1 do - _GenerarPresupuesto(ListaID.Items[i], VerSello); + _GenerarPresupuesto(ListaID.Items[i], VerSello, VerISO); frxReport.PreviewPages.SaveToStream(Result); finally @@ -631,7 +631,7 @@ begin frxReport.PreviewPages.SaveToStream(Result); end; -procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer; const VerSello: Integer); +procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer; const VerSello: Integer; const VerISO: Integer); var AInforme: Variant; begin @@ -662,6 +662,7 @@ begin frxReport.LoadFromFile(AInforme, True); frxReport.Variables.Variables['VerSello'] := IntToStr(VerSello); + frxReport.Variables.Variables['VerISO'] := IntToStr(VerISO); frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function',''); frxReport.PrepareReport(False); diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas index 5c2ef20b..955c8f4c 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas @@ -38,6 +38,7 @@ type FNombreFichero : String; ListaCapitulos : array[1..1000] of TCapitulo; FVerSello: Integer; + FVerISO: Integer; procedure InsertarConceptos(Tabla : Table); function Generar : Boolean; function RellenarPortada : boolean; virtual; @@ -48,7 +49,7 @@ type public constructor Create (AOwner : TComponent); override; destructor Destroy; override; - function Exportar(Codigo, Fichero : String; const VerSello: Integer): Boolean; + function Exportar(Codigo, Fichero : String; const VerSello: Integer; const VerISO: Integer): Boolean; end; @@ -71,6 +72,7 @@ begin FImportes := True; FNumCapitulos := 0; FVerSello:= 1; + FVerISO:= 1; end; procedure TRptWordPresupuestoCliente.DataModuleCreate(Sender: TObject); @@ -88,7 +90,7 @@ begin inherited; end; -function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String; const VerSello: Integer): Boolean; +function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String; const VerSello: Integer; const VerISO: Integer): Boolean; begin if EsCadenaVacia(Fichero) then RaiseError('Falta indicar el fichero donde se exportará el listado.'); @@ -96,6 +98,7 @@ begin FNombreFichero := Fichero; FCodigoPresupuesto := Codigo; FVerSello := VerSello; + FVerISO := VerISO; _GenerarPresupuesto(Codigo); Result := True; end; @@ -276,6 +279,12 @@ begin ReplaceBookmark('Firma2', '') else ReplaceBookmark('Firma1', ''); + + if (FVerISO = 0) then + begin + ReplaceBookmark('ISO1', ''); + ReplaceBookmark('ISO2', ''); + end; end; if not EsCadenaVacia(FieldByName('MEMORIA').AsString) then diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas index 052162e5..395fa094 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas @@ -33,9 +33,9 @@ type procedure DARemoteServiceCreate(Sender: TObject); protected { IsrvPresupuestosCliente methods } - function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary; - function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; + function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary; end; @@ -101,31 +101,31 @@ begin end; end; -function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary; +function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; var AReportGenerator : TRptPresupuestosCliente; begin AReportGenerator := TRptPresupuestosCliente.Create(nil); try - Result := AReportGenerator.GenerarPresupuesto(ListaID, VerSello); + Result := AReportGenerator.GenerarPresupuesto(ListaID, VerSello, VerISO); finally FreeAndNIL(AReportGenerator); end; end; -function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary; +function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; var AReportGenerator : TRptPresupuestosCliente; begin AReportGenerator := TRptPresupuestosCliente.Create(nil); try - Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerSello); + Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerSello, VerISO); finally FreeAndNIL(AReportGenerator); end; end; -function TsrvPresupuestosCliente.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary; +function TsrvPresupuestosCliente.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary; var AReportGenerator : TRptWordPresupuestoCliente; AFicheroTMP : TFileName; @@ -135,7 +135,7 @@ begin AReportGenerator := TRptWordPresupuestoCliente.Create(nil); try try - if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP, VerSello) then + if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP, VerSello, VerISO) then begin Result := Binary.Create; Result.LoadFromFile(AFicheroTMP); diff --git a/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm index 6ffab012..66ff4b4d 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm @@ -1,27 +1,27 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresionPresupuestosCliente Caption = 'Opciones para presupuestos de cliente' - ClientHeight = 273 - ClientWidth = 437 + ClientHeight = 298 + ClientWidth = 429 OnCreate = FormCreate - ExplicitWidth = 443 - ExplicitHeight = 305 + ExplicitWidth = 435 + ExplicitHeight = 330 PixelsPerInch = 96 TextHeight = 13 inherited Bevel2: TBevel - Top = 33 - Width = 437 + Top = 41 + Width = 429 ExplicitTop = 33 ExplicitWidth = 418 end inherited Bevel3: TBevel - Top = 229 - Width = 437 + Top = 254 + Width = 429 ExplicitTop = 196 ExplicitWidth = 418 end inherited pnlBotones: TPanel - Top = 231 - Width = 437 + Top = 256 + Width = 429 ExplicitTop = 231 ExplicitWidth = 437 inherited btnAceptar: TButton @@ -35,33 +35,39 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion end end inherited pnlHeader: TPanel - Width = 437 - Height = 33 + Width = 429 + Height = 41 ExplicitWidth = 437 - ExplicitHeight = 33 + ExplicitHeight = 41 inherited lblInstruccion: TLabel - Width = 387 + Width = 379 + Height = 26 Margins.Bottom = 10 - Caption = 'Indique que sello desea para el presupuesto de cliente:' - ExplicitWidth = 310 + Caption = + 'Indique si desea logotipo de ISO y que sello desea para el presu' + + 'puesto de cliente:' + WordWrap = True + ExplicitWidth = 390 + ExplicitHeight = 26 end inherited Label2: TLabel - Top = 31 - Width = 362 + Top = 44 + Width = 354 + Height = 1 Visible = False ExplicitTop = 31 end end inherited pnlCuerpo: TPanel - Top = 35 - Width = 437 - Height = 194 + Top = 43 + Width = 429 + Height = 211 ExplicitTop = 35 ExplicitWidth = 437 ExplicitHeight = 194 object Image1: TImage Left = 25 - Top = 30 + Top = 54 Width = 176 Height = 139 Picture.Data = { @@ -1140,7 +1146,7 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion end object Image2: TImage Left = 232 - Top = 30 + Top = 54 Width = 129 Height = 139 Picture.Data = { @@ -1148,7 +1154,7 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion 000000A708020000009E9929C4000000017352474200AECE1CE9000000046741 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000 - 2E2200002E2201AAE2DD9200008A8B49444154785ECDFDF57F5CC7B2288A5FF8 + 2E2100002E2101075BFCFF00008A8B49444154785ECDFDF57F5CC7B2288A5FF8 4FBE9FEFF7DE77CF3BFBEC9DEC8031C6D88EED248E9D18E398D9922D66666666 B69859039A1133B32C661E0D6804BEAFAA7BD45A5E23D93EFBBE1FBEB31DED81 B57A7517577555F57FFDF0E1C37FFDAFFFF57FFFEFFFFD5F3E7EC197BC6FD847 @@ -2262,6 +2268,16 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion OnClick = Image2DblClick OnDblClick = Image2DblClick end + object cbLogotipoISO: TCheckBox + Left = 25 + Top = 17 + Width = 121 + Height = 17 + Caption = 'Ver certificaci'#243'n ISO' + Checked = True + State = cbChecked + TabOrder = 0 + end end inherited ActionList1: TActionList Top = 16 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas index c08f5e56..b034132f 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas @@ -10,6 +10,7 @@ type TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase) Image1: TImage; Image2: TImage; + cbLogotipoISO: TCheckBox; procedure actAceptarExecute(Sender: TObject); procedure actCancelarExecute(Sender: TObject); procedure Image1DblClick(Sender: TObject); @@ -17,17 +18,18 @@ type procedure Image2DblClick(Sender: TObject); private FVerSello: Integer; + function getVerCertificadoISO: Integer; public - { Public declarations } + property VerCertificadoISO: Integer read getVerCertificadoISO; end; - function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean; + function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer;var AVerISO : Integer): Boolean; implementation {$R *.dfm} -function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean; +function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer;var AVerISO : Integer): Boolean; var AEditor : TfDialogOpcionesImpresionPresupuestosCliente; begin @@ -37,6 +39,7 @@ begin if Result then begin AVerSello := AEditor.FVerSello; + AVerISO := AEditor.VerCertificadoISO; end; finally AEditor.Release; @@ -62,6 +65,13 @@ begin FVerSello := 1; end; +function TfDialogOpcionesImpresionPresupuestosCliente.getVerCertificadoISO: Integer; +begin + REsult := 0; + if cbLogotipoISO.Checked then + Result := 1; +end; + procedure TfDialogOpcionesImpresionPresupuestosCliente.Image1DblClick( Sender: TObject); begin diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas index 9cd50935..bbf4a03a 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas @@ -299,6 +299,7 @@ end; procedure TfEditorPresupuestoCliente.ImprimirInterno; var AVerSello: Integer; + AVerISO: Integer; bPrevisualizar: Boolean; begin inherited; @@ -307,11 +308,11 @@ begin if (AppFactuGES.EmpresaActiva.ID = 1) then //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar, //solo para empresa Tecsitel - bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello); + bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO); if bPrevisualizar and Assigned(FPresupuesto) then if not Modified then - FController.Print(FPresupuesto, False, AVerSello); + FController.Print(FPresupuesto, False, AVerSello, AVerISO); end; procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject); @@ -360,6 +361,7 @@ end; procedure TfEditorPresupuestoCliente.PrevisualizarInterno; var AVerSello: Integer; + AVerISO: Integer; bPrevisualizar: Boolean; begin inherited; @@ -368,11 +370,11 @@ begin if (AppFactuGES.EmpresaActiva.ID = 1) then //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar, //solo para empresa Tecsitel - bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello); + bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO); if bPrevisualizar and Assigned(FPresupuesto) then if not Modified then - FController.Preview(FPresupuesto, False, AVerSello); + FController.Preview(FPresupuesto, False, AVerSello, AVerISO); end; function TfEditorPresupuestoCliente.PuedoEnviar: Boolean; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm index 33c4bb67..a16130de 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm @@ -2,6 +2,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente Caption = 'Lista de presupuestos de cliente' ClientWidth = 805 ExplicitWidth = 813 + ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas index 096f7c21..b136df0a 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas @@ -492,6 +492,7 @@ var APresupuestos: IBizPresupuestoCliente; AllItems: Boolean; AVerSello: Integer; + AVerISO: Integer; bPrevisualizar: Boolean; begin APresupuestos := Nil; @@ -525,10 +526,10 @@ begin if (AppFactuGES.EmpresaActiva.ID = 1) then //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar, //solo para empresa Tecsitel - bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello); + bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO); if bPrevisualizar and Assigned(APresupuestos) then - FController.Print(APresupuestos, AllItems, AVerSello); + FController.Print(APresupuestos, AllItems, AVerSello, AVerISO); end; end; end; @@ -569,6 +570,7 @@ var APresupuestos: IBizPresupuestoCliente; AllItems: Boolean; AVerSello: Integer; + AVerISO: Integer; bPrevisualizar: Boolean; begin APresupuestos := Nil; @@ -602,10 +604,10 @@ begin if (AppFactuGES.EmpresaActiva.ID = 1) then //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar, //solo para empresa Tecsitel - bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello); + bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO); if bPrevisualizar and Assigned(APresupuestos) then - FController.Preview(APresupuestos, AllItems, AVerSello); + FController.Preview(APresupuestos, AllItems, AVerSello, AVerISO); end; end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm index bc2b72a2..f8558264 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm @@ -1,5 +1,7 @@ inherited fEditorPresupuestosClientePreview: TfEditorPresupuestosClientePreview Caption = 'Previsualizar el pedidos proveedor' + ExplicitWidth = 320 + ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas index f475589b..f915fb03 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas @@ -31,6 +31,7 @@ procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(Sender: TObje var I: Integer; AVerSello: Integer; + AVerISO: Integer; bPrevisualizar: Boolean; begin @@ -43,11 +44,11 @@ begin if (AppFactuGES.EmpresaActiva.ID = 1) then //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar, //solo para empresa Tecsitel - bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello); + bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO); if bPrevisualizar then for I := 0 to ListaID.Count - 1 do - if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello) then + if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello, AVerISO) then ShowInfoMessage('El presupuesto se ha exportado correctamente.'); end; diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index 364d2c4e..14ee0e52 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -316,6 +316,8 @@ + + @@ -326,6 +328,8 @@ + + @@ -344,6 +348,8 @@ + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index df03e201..b0da2be1 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -546,10 +546,10 @@ type { IsrvPresupuestosCliente } IsrvPresupuestosCliente = interface(IDataAbstractService) ['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}'] - function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary; - function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; + function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary; function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; end; { CosrvPresupuestosCliente } @@ -562,10 +562,10 @@ type protected function __GetInterfaceName:string; override; - function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary; - function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; + function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary; function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; end; { IsrvPedidosProveedor } @@ -1815,13 +1815,14 @@ begin result := 'srvPresupuestosCliente'; end; -function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary; +function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme'); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('VerSello', TypeInfo(Integer), VerSello, []); + __Message.Write('VerISO', TypeInfo(Integer), VerISO, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); @@ -1833,13 +1834,14 @@ begin end end; -function TsrvPresupuestosCliente_Proxy.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary; +function TsrvPresupuestosCliente_Proxy.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnWord'); __Message.Write('ID', TypeInfo(Integer), ID, []); __Message.Write('VerSello', TypeInfo(Integer), VerSello, []); + __Message.Write('VerISO', TypeInfo(Integer), VerISO, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); @@ -1868,13 +1870,14 @@ begin end end; -function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary; +function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF'); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('VerSello', TypeInfo(Integer), VerSello, []); + __Message.Write('VerISO', TypeInfo(Integer), VerISO, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 294f349f..68acb445 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -962,10 +962,11 @@ begin end; procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary; } +{ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; } var ListaID: FactuGES_Intf.TIntegerArray; VerSello: Integer; + VerISO: Integer; lResult: Binary; __lObjectDisposer: TROObjectDisposer; begin @@ -974,8 +975,9 @@ begin try __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('VerSello', TypeInfo(Integer), VerSello, []); + __Message.Read('VerISO', TypeInfo(Integer), VerISO, []); - lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerSello); + lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerSello, VerISO); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -994,10 +996,11 @@ begin end; procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary; } +{ function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary; } var ID: Integer; VerSello: Integer; + VerISO: Integer; lResult: Binary; __lObjectDisposer: TROObjectDisposer; begin @@ -1005,8 +1008,9 @@ begin try __Message.Read('ID', TypeInfo(Integer), ID, []); __Message.Read('VerSello', TypeInfo(Integer), VerSello, []); + __Message.Read('VerISO', TypeInfo(Integer), VerISO, []); - lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnWord(ID, VerSello); + lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnWord(ID, VerSello, VerISO); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnWordResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -1052,10 +1056,11 @@ begin end; procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary; } +{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; } var ListaID: FactuGES_Intf.TIntegerArray; VerSello: Integer; + VerISO: Integer; lResult: Binary; __lObjectDisposer: TROObjectDisposer; begin @@ -1064,8 +1069,9 @@ begin try __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('VerSello', TypeInfo(Integer), VerSello, []); + __Message.Read('VerISO', TypeInfo(Integer), VerISO, []); - lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerSello); + lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerSello, VerISO); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res index 312d01a8..563ac80e 100644 Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 6f48c169..cd63f60c 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 56619921..2f3b8b84 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -35,7 +35,7 @@ Delphi.Personality - FalseTrueFalse/standaloneTrueFalse1930FalseFalseFalseFalseFalse308212521.9.3.01.9.3.0miércoles, 27 de julio de 2011 13:11 + FalseTrueFalse/standaloneTrueFalse1940FalseFalseFalseFalseFalse308212521.9.4.01.9.4.0martes, 22 de noviembre de 2011 10:27 ExpressPrinting System by Developer Express Inc. FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 36a00a94..82641447 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 1,9,3,0 -PRODUCTVERSION 1,9,3,0 +FILEVERSION 1,9,4,0 +PRODUCTVERSION 1,9,4,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -12,9 +12,9 @@ BEGIN BEGIN BLOCK "0C0A04E4" BEGIN - VALUE "FileVersion", "1.9.3.0\0" - VALUE "ProductVersion", "1.9.3.0\0" - VALUE "CompileDate", "martes, 22 de noviembre de 2011 10:27\0" + VALUE "FileVersion", "1.9.4.0\0" + VALUE "ProductVersion", "1.9.4.0\0" + VALUE "CompileDate", "jueves, 16 de febrero de 2012 17:45\0" END END BLOCK "VarFileInfo"