Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Presupuestos: repaso general.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@737 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-11-06 11:19:46 +00:00
parent cb847a3503
commit 276fd2eca9
4 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,7 +14,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Caption = 'Nuevo presupuesto de cliente' Caption = 'Nuevo presupuesto de cliente'
ExplicitWidth = 764 ExplicitWidth = 764
inherited Image1: TImage inherited Image1: TImage
Left = 737 Left = 631
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -124,6 +124,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
960000000049454E44AE426082} 960000000049454E44AE426082}
ExplicitLeft = 735 ExplicitLeft = 735
end end
inherited lblDesbloquear: TcxLabel
Left = 666
ExplicitLeft = 666
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 764 Width = 764

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

@ -18,7 +18,8 @@ uses
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesPresupuestoCliente, uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesPresupuestoCliente,
uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor, cxPC, uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor, cxPC,
uViewDetallesArticulosParaVenta, uViewDocumentos, uViewDetallesArticulosParaVenta, uViewDocumentos,
uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto; uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto,
cxLabel;
type type
TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente) TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)

2
Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas
View File

@ -247,7 +247,7 @@ var
ADireccion : IBizDireccionesContacto; ADireccion : IBizDireccionesContacto;
begin begin
inherited; inherited;
ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, 'dssdsdds'); ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, ' ');
if Assigned(ADireccion) then if Assigned(ADireccion) then
begin begin

2
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -178,10 +178,10 @@ end;
procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject); procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject);
begin begin
inherited;
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := NIL; FFormasPagoController := NIL;
FViewClientePresupuesto := NIL; FViewClientePresupuesto := NIL;
inherited;
end; end;
procedure TfrViewPresupuestoCliente.frViewClientePresupuestoButton1Click(Sender: TObject); procedure TfrViewPresupuestoCliente.frViewClientePresupuestoButton1Click(Sender: TObject);