Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se arregla el enviar presupuesto por mail desde edición para que pueda escribir algo antes de enviarlo, y las facturas de cliente que no imprima en la pagina anterior

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@224 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2014-04-14 14:56:29 +00:00
parent 03c0ebea57
commit 7eb3f6f203
4 changed files with 76 additions and 85 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/Informes/6/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

20
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -49,16 +49,16 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PreCli_FacPro_relation.dcp" />
<DCCReference Include="..\..\Lib\PreCli_PedCli_relation.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\..\Lib\TiposDocumento_controller.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PreCli_FacPro_relation.dcp" />
<DCCReference Include="..\PreCli_PedCli_relation.dcp" />
<DCCReference Include="..\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\TiposDocumento_controller.dcp" />
<DCCReference Include="uDialogListaPresupuestosEnvioEMail.pas">
<Form>fDialogListaPresupuestosEnvioEMail</Form>
</DCCReference>

131
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -205,9 +205,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitHeight = 234
inherited ToolBar1: TToolBar
Width = 750
Height = 51
Height = 46
ExplicitWidth = 750
ExplicitHeight = 51
ExplicitHeight = 46
inherited ToolButton3: TToolButton
Wrap = False
end
@ -223,88 +223,83 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitLeft = 334
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 399
Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 544
Top = 0
ExplicitLeft = 544
ExplicitTop = 0
Top = 22
ExplicitTop = 22
end
inherited ToolButton13: TToolButton [7]
Left = 689
Top = 0
ExplicitLeft = 689
ExplicitTop = 0
ExplicitHeight = 22
end
inherited ToolButton6: TToolButton [8]
Left = 697
Top = 0
ExplicitLeft = 697
ExplicitTop = 0
end
inherited FontSize: TEdit [9]
Left = 763
Top = 0
inherited FontSize: TEdit
Top = 22
Width = 216
ExplicitLeft = 763
ExplicitTop = 0
ExplicitTop = 22
ExplicitWidth = 216
end
inherited UpDown1: TUpDown [10]
Left = 979
Top = 0
ExplicitLeft = 979
ExplicitTop = 0
inherited UpDown1: TUpDown
Left = 361
Top = 22
ExplicitLeft = 361
ExplicitTop = 22
end
inherited ToolButton13: TToolButton
Left = 378
Top = 22
ExplicitLeft = 378
ExplicitTop = 22
end
inherited ToolButton6: TToolButton
Left = 386
Top = 22
ExplicitLeft = 386
ExplicitTop = 22
end
inherited ToolButton7: TToolButton
Left = 996
Top = 0
ExplicitLeft = 996
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 1063
Top = 0
ExplicitLeft = 1063
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 1204
Top = 0
Wrap = False
ExplicitLeft = 1204
ExplicitTop = 0
ExplicitHeight = 22
end
inherited ToolButton10: TToolButton
Left = 1212
Top = 0
ExplicitLeft = 1212
ExplicitTop = 0
Left = 452
Top = 22
ExplicitLeft = 452
ExplicitTop = 22
end
inherited ToolButton8: TToolButton
Left = 1337
Top = 0
ExplicitLeft = 1337
ExplicitTop = 0
Left = 519
Top = 22
ExplicitLeft = 519
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 = 157
Height = 135
ExplicitTop = 77
ExplicitWidth = 750
ExplicitHeight = 157
end
inherited TBXDock1: TTBXDock
Top = 51
Top = 73
Width = 750
ExplicitTop = 51
ExplicitWidth = 750
@ -553,18 +548,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited Bevel4: TBevel
Left = 497
Top = 122
Width = 147
ExplicitLeft = 497
ExplicitTop = 122
ExplicitWidth = 147
end
inherited Bevel1: TBevel
Left = 497
Top = 238
Width = 147
ExplicitLeft = 497
ExplicitTop = 238
ExplicitWidth = 147
end
inherited Bevel2: TBevel
Left = 130

4
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -138,13 +138,13 @@ begin
'¿Desea guardarlos ahora?') = IDYES) then
begin
GuardarInterno;
FController.EnviarPresupuestoPorEMail(Presupuesto);
FController.EnviarPresupuestoPorEMail(Presupuesto, False);
end
else
ShowInfoMessage('Recuerde guardar los cambios si quiere enviar por email.');
end
else
FController.EnviarPresupuestoPorEMail(Presupuesto);
FController.EnviarPresupuestoPorEMail(Presupuesto, False);
end;
end;