diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3 index e2124ff0..1b339b44 100644 --- a/Source/Informes/1/InfPresupuestoCliente.fr3 +++ b/Source/Informes/1/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + diff --git a/Source/Informes/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3 index 802e5e0b..458a8379 100644 --- a/Source/Informes/2/InfPresupuestoCliente.fr3 +++ b/Source/Informes/2/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -67,7 +67,7 @@ - + @@ -85,7 +85,7 @@ - + diff --git a/Source/Informes/3/InfPresupuestoCliente.fr3 b/Source/Informes/3/InfPresupuestoCliente.fr3 index 4299b554..1ef25a62 100644 --- a/Source/Informes/3/InfPresupuestoCliente.fr3 +++ b/Source/Informes/3/InfPresupuestoCliente.fr3 @@ -1,9 +1,9 @@ - + - + - + @@ -13,7 +13,7 @@ - + @@ -27,8 +27,33 @@ - - + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -45,48 +70,48 @@ - + - + - + - + - + - + - + - + - + - + diff --git a/Source/Informes/3/Presupuesto.rdx b/Source/Informes/3/Presupuesto.rdx index cb61e2e9..bdba47ca 100644 Binary files a/Source/Informes/3/Presupuesto.rdx and b/Source/Informes/3/Presupuesto.rdx differ diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas index 0141b52e..826ab264 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas @@ -65,8 +65,6 @@ begin FDocumento := NIL; FImportes := True; FNumCapitulos := 0; - - FPlantilla := DarRutaInformes + rptInforme; end; procedure TRptWordCertificadoTrabajo.DataModuleCreate(Sender: TObject); @@ -195,6 +193,7 @@ begin tbl_Cabecera.Active := True; tbl_Capitulos.Active := True; + FPlantilla := DarRutaInformes + tbl_Cabecera.FieldByName('ID_EMPRESA').AsString + '\' + rptInforme; FCodigoPresupuesto := AID; if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas index f0d39b60..5fbb10a3 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas @@ -444,24 +444,19 @@ begin with FDocumento, tbl_Cabecera do begin + ReplaceBookmark('CodigoPresupuestoPortada', FieldByName('REFERENCIA').AsString); + ReplaceBookmark('FechaPresupuestoPortada', FieldByName('FECHA_PRESUPUESTO').AsString); + ReplaceBookmark('NombreClientePortada', FieldByName('NOMBRE').AsString); -//Solicitan que Azacan tenga nuevamente portada -// if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then -// begin - ReplaceBookmark('CodigoPresupuestoPortada', FieldByName('REFERENCIA').AsString); - ReplaceBookmark('FechaPresupuestoPortada', FieldByName('FECHA_PRESUPUESTO').AsString); - ReplaceBookmark('NombreClientePortada', FieldByName('NOMBRE').AsString); + if FDocumento.BookmarkExists('DireccionClientePortada') then + ReplaceBookmark('DireccionClientePortada', FieldByName('CALLE').AsString); + if FDocumento.BookmarkExists('PoblacionClientePortada') then + ReplaceBookmark('PoblacionClientePortada', + FieldByName('CODIGO_POSTAL').AsString + ' ' + + FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString); - if FDocumento.BookmarkExists('DireccionClientePortada') then - ReplaceBookmark('DireccionClientePortada', FieldByName('CALLE').AsString); - if FDocumento.BookmarkExists('PoblacionClientePortada') then - ReplaceBookmark('PoblacionClientePortada', - FieldByName('CODIGO_POSTAL').AsString + ' ' + - FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString); - - if not EsCadenaVacia(FieldByName('PERSONA_CONTACTO').AsString) then - ReplaceBookmark('PersonaContactoClientePortada', 'A la atencin de: ' + FieldByName('PERSONA_CONTACTO').AsString); -// end; + if not EsCadenaVacia(FieldByName('PERSONA_CONTACTO').AsString) then + ReplaceBookmark('PersonaContactoClientePortada', 'A la atencin de: ' + FieldByName('PERSONA_CONTACTO').AsString); Texto := FieldByName('PORTADA').AsString; NombreFichero := DarFicheroTemporal; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 6aff4e70..0b96c698 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -214,90 +214,94 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited ToolButton4: TToolButton Left = 278 Top = 0 + Wrap = True ExplicitLeft = 278 ExplicitTop = 0 end inherited ToolButton14: TToolButton - Left = 334 - Top = 0 - Wrap = True - ExplicitLeft = 334 - ExplicitTop = 0 - end - inherited ToolButton9: TToolButton Left = 0 + Wrap = False ExplicitLeft = 0 end inherited FontName: TJvFontComboBox - Left = 145 - ExplicitLeft = 544 - ExplicitTop = 0 - end - inherited UpDown1: TUpDown - Left = 689 - Top = 0 - ExplicitLeft = 689 - ExplicitTop = 0 - end - inherited ToolButton13: TToolButton - Top = 0 - ExplicitTop = 0 - end - inherited ToolButton6: TToolButton - Top = 27 - ExplicitTop = 27 + Left = 65 + Top = 22 + ExplicitTop = 22 end inherited FontSize: TEdit - Top = 27 + Top = 22 Width = 200 - ExplicitTop = 27 + ExplicitTop = 22 ExplicitWidth = 200 end + inherited UpDown1: TUpDown + Left = 345 + Top = 22 + ExplicitLeft = 345 + ExplicitTop = 22 + end + inherited ToolButton13: TToolButton + Left = 362 + Top = 22 + ExplicitLeft = 362 + ExplicitTop = 22 + end + inherited ToolButton6: TToolButton + Left = 370 + Top = 22 + ExplicitLeft = 370 + ExplicitTop = 22 + end inherited ToolButton7: TToolButton - Left = 266 - Top = 27 - ExplicitLeft = 266 - ExplicitTop = 27 - end - inherited ToolButton11: TToolButton - Left = 333 - Top = 27 - ExplicitLeft = 333 - ExplicitTop = 27 - end - inherited ToolButton12: TToolButton - Left = 474 - Top = 27 - Wrap = False - ExplicitLeft = 474 - ExplicitTop = 27 - ExplicitHeight = 22 - end - inherited ToolButton10: TToolButton - Left = 482 - Top = 27 - ExplicitLeft = 482 - ExplicitTop = 27 + Left = 436 + Top = 22 + ExplicitLeft = 436 + ExplicitTop = 22 end inherited ToolButton8: TToolButton - Left = 607 - Top = 27 - ExplicitLeft = 607 - ExplicitTop = 27 + Left = 503 + Top = 22 + ExplicitLeft = 503 + ExplicitTop = 22 + end + inherited ToolButton12: TToolButton + Left = 0 + Top = 22 + Wrap = True + ExplicitLeft = 0 + ExplicitTop = 22 + ExplicitHeight = 27 + end + inherited ToolButton9: TToolButton + Left = 0 + Top = 49 + ExplicitLeft = 0 + ExplicitTop = 49 + end + inherited ToolButton10: TToolButton + Left = 145 + Top = 49 + ExplicitLeft = 145 + ExplicitTop = 49 + end + inherited ToolButton11: TToolButton + Left = 270 + Top = 49 + ExplicitLeft = 270 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Top = 77 + Top = 99 Width = 750 - Height = 261 + Height = 239 ExplicitTop = 77 ExplicitWidth = 750 ExplicitHeight = 239 end inherited TBXDock1: TTBXDock - Top = 51 + Top = 73 Width = 750 - ExplicitTop = 73 ExplicitWidth = 750 inherited TBXToolbar1: TTBXToolbar ExplicitWidth = 750 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas index d0d7e751..f1623cfd 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas @@ -228,9 +228,6 @@ begin raise Exception.Create('No hay ningn presupuesto asignado'); pgPaginas.ActivePage := pagGeneral; - //Para AZACAN NO HAY PORTADA EN PRESUPUESTOS - if (AppFactuGES.EmpresaActiva.ID = 3) then - pagPortada.TabVisible := false; Presupuesto.DataTable.Active := True; end; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm index 4c2cf356..bfb611fd 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm @@ -1,29 +1,63 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente inherited ToolBar1: TToolBar - Height = 100 - ExplicitHeight = 100 - inherited ToolButton14: TToolButton + Height = 73 + ExplicitHeight = 73 + inherited ToolButton3: TToolButton Wrap = False end - inherited ToolButton9: TToolButton [5] - Left = 121 + inherited ToolButton4: TToolButton + Left = 278 + Top = 0 + ExplicitLeft = 278 + ExplicitTop = 0 + end + inherited ToolButton14: TToolButton + Left = 334 + Top = 0 + ExplicitLeft = 334 + ExplicitTop = 0 + end + inherited FontName: TJvFontComboBox Top = 22 - ExplicitLeft = 121 ExplicitTop = 22 end - inherited FontName: TJvFontComboBox [6] - Left = 266 + inherited FontSize: TEdit Top = 22 - ExplicitLeft = 266 + Width = 58 ExplicitTop = 22 + ExplicitWidth = 58 end inherited UpDown1: TUpDown - Left = 411 + Left = 203 Top = 22 - ExplicitLeft = 411 + ExplicitLeft = 203 ExplicitTop = 22 end inherited ToolButton13: TToolButton + Left = 220 + Top = 22 + ExplicitLeft = 220 + ExplicitTop = 22 + end + inherited ToolButton6: TToolButton + Left = 228 + Top = 22 + ExplicitLeft = 228 + ExplicitTop = 22 + end + inherited ToolButton7: TToolButton + Left = 294 + Top = 22 + ExplicitLeft = 294 + ExplicitTop = 22 + end + inherited ToolButton8: TToolButton + Left = 361 + Top = 22 + ExplicitLeft = 361 + ExplicitTop = 22 + end + inherited ToolButton12: TToolButton Left = 0 Top = 22 Wrap = True @@ -31,57 +65,35 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente ExplicitTop = 22 ExplicitHeight = 27 end - inherited ToolButton6: TToolButton + inherited ToolButton9: TToolButton Left = 0 Top = 49 ExplicitLeft = 0 ExplicitTop = 49 end - inherited FontSize: TEdit [10] - Left = 66 - Top = 49 - Width = 58 - ExplicitLeft = 66 - ExplicitTop = 49 - ExplicitWidth = 58 - end - inherited ToolButton7: TToolButton [11] - Left = 124 - Top = 49 - ExplicitLeft = 124 - ExplicitTop = 49 - end - inherited ToolButton11: TToolButton [12] - Left = 191 - Top = 49 - ExplicitLeft = 191 - ExplicitTop = 49 - end - inherited ToolButton12: TToolButton [13] - Left = 0 - Top = 49 - Wrap = True - ExplicitLeft = 0 - ExplicitTop = 49 - ExplicitHeight = 27 - end inherited ToolButton10: TToolButton - Left = 0 - Top = 76 - ExplicitLeft = 0 - ExplicitTop = 76 + Left = 145 + Top = 49 + ExplicitLeft = 145 + ExplicitTop = 49 end - inherited ToolButton8: TToolButton [15] - Left = 125 - Top = 76 - ExplicitLeft = 125 - ExplicitTop = 76 + inherited ToolButton11: TToolButton + Left = 270 + Top = 49 + ExplicitLeft = 270 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Top = 126 - Height = 178 + Top = 99 + Height = 205 + ExplicitTop = 99 + ExplicitHeight = 205 inherited cxGridView: TcxGridDBTableView + inherited cxGridViewTIPO: TcxGridDBColumn + Visible = False + VisibleForCustomization = False + end inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn DataBinding.FieldName = '' end @@ -94,7 +106,8 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente end end inherited TBXDock1: TTBXDock - Top = 100 + Top = 73 + ExplicitTop = 73 inherited TBXToolbar1: TTBXToolbar object TBXSeparatorItem9: TTBXSeparatorItem end