From f3e13d6836df0015635b8694b98052e61d5021fc Mon Sep 17 00:00:00 2001 From: david Date: Mon, 12 Nov 2007 19:35:05 +0000 Subject: [PATCH] git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@78 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/Contactos_controller.drc | 2 +- .../Modulos/Contactos/Data/Contactos_data.drc | 2 +- .../Contactos/Model/Contactos_model.drc | 2 +- .../Contactos/Plugin/Contactos_plugin.drc | 2 +- .../Contactos/Views/Contactos_view.drc | 2 +- .../Contactos/Views/Contactos_view.identcache | Bin 2868 -> 2868 bytes .../Views/uViewClienteDatosComerciales.pas | 26 +++++++++++++----- 7 files changed, 24 insertions(+), 12 deletions(-) diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.drc b/Source/Modulos/Contactos/Controller/Contactos_controller.drc index 97b31810..3b00a5cf 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.drc +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA3.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf148.tmp */ diff --git a/Source/Modulos/Contactos/Data/Contactos_data.drc b/Source/Modulos/Contactos/Data/Contactos_data.drc index 32b81a13..8d2d52e0 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.drc +++ b/Source/Modulos/Contactos/Data/Contactos_data.drc @@ -17,4 +17,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\Contactos_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA1.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf146.tmp */ diff --git a/Source/Modulos/Contactos/Model/Contactos_model.drc b/Source/Modulos/Contactos/Model/Contactos_model.drc index 3b0f1027..0765ad36 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.drc +++ b/Source/Modulos/Contactos/Model/Contactos_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Model\Contactos_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf9F.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf144.tmp */ diff --git a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc index 736986a3..fb50856c 100644 --- a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc +++ b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA7.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf14C.tmp */ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.drc b/Source/Modulos/Contactos/Views/Contactos_view.drc index e1b69043..d421443d 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.drc +++ b/Source/Modulos/Contactos/Views/Contactos_view.drc @@ -45,4 +45,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\Contactos_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA5.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf14A.tmp */ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.identcache b/Source/Modulos/Contactos/Views/Contactos_view.identcache index 3ac0a200cf40470272d6afd05cad19b497eb2c1c..119e177cc4940435c53c9683381bf2802b7d5191 100644 GIT binary patch delta 155 zcmdlYwndCpk%581ZL%Yi`D9*B>B$aEmJ@ArCeLLwnH<2*I?nc=9IJq{;6XttT&I69?+Dm>k0)v3W0BI^$#!w(!X%9Ep?rnIk4o zU^1Cpz|1z;kBx0|2B+l2mHv}wu~0->JpO;2Q-sF m1_qN~2_KU`1UQk82$Ky8ev_X8I+KwF8Ik-^k^DH58w(i)4l5r3 diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas index 4efaf424..b97d200d 100644 --- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas +++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas @@ -8,7 +8,7 @@ uses cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit, uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController, - uDAInterfaces; + uDAInterfaces, uBizFormasPago, uBizTiposIVA; type IViewClienteDatosComerciales = interface(IViewBase) @@ -52,6 +52,8 @@ type procedure bTiposIVAClick(Sender: TObject); protected FContacto : IBizContacto; + FTiposIVA : IBizTipoIVA; + FFormasPago : IBizFormaPago; FFormasPagoController : IFormasPagoController; FTiposIVAController : ITiposIVAController; function GetContacto: IBizContacto; @@ -66,20 +68,22 @@ implementation {$R *.dfm} uses - uRegimenIVAUtils, uBizFormasPago, uBizTiposIVA; + uRegimenIVAUtils; { TfrViewClienteDatosComerciales } procedure TfrViewClienteDatosComerciales.bFormasPagoClick(Sender: TObject); begin inherited; - FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago); + if Assigned(FFormasPago) then + FFormasPagoController.VerTodos(FFormasPago); end; procedure TfrViewClienteDatosComerciales.bTiposIVAClick(Sender: TObject); begin inherited; - FTiposIVAController.VerTodos((dsTiposIVA.DataTable) as IBizTipoIVA); + if Assigned(FTiposIVA) then + FTiposIVAController.VerTodos(FTiposIVA); end; procedure TfrViewClienteDatosComerciales.cbRegimenIVAPropertiesInitPopup( @@ -96,7 +100,10 @@ end; procedure TfrViewClienteDatosComerciales.CustomViewCreate(Sender: TObject); begin inherited; -// FAgentesController := TAgentesController.Create; + FTiposIVA := Nil; + FFormasPago := Nil; + FContacto := Nil; + // FAgentesController := TAgentesController.Create; FFormasPagoController := TFormasPagoController.Create; FTiposIVAController := TTiposIVAController.Create; end; @@ -104,6 +111,9 @@ end; procedure TfrViewClienteDatosComerciales.CustomViewDestroy(Sender: TObject); begin inherited; + FTiposIVA := Nil; + FFormasPago := Nil; + FContacto := Nil; // FAgentesController := NIL; FFormasPagoController := NIL; FTiposIVAController := NIL; @@ -122,9 +132,11 @@ begin dsDatosComerciales.DataTable := FContacto.DataTable; // dsAgentes.DataTable := FAgentesController.BuscarTodos.DataTable; // dsAgentes.DataTable.Active := True; - dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable; + FFormasPago := FFormasPagoController.BuscarTodos; + dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable.Active := True; - dsTiposIVA.DataTable := FTiposIVAController.BuscarTodos.DataTable; + FTiposIVA := FTiposIVAController.BuscarTodos; + dsTiposIVA.DataTable := FTiposIVA.DataTable; dsTiposIVA.DataTable.Active := True; end else begin