git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@78 0c75b7a4-871f-7646-8a2f-f78d34cc349f

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 */

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 */

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 */

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 */

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 */

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