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

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

Browse Source
This commit is contained in:
David Arranz 2007-11-12 19:35:05 +00:00
parent 685e3c9e21
commit f3e13d6836
7 changed files with 24 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Contactos/Controller/Contactos_controller.drc
View File

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

2
Source/Modulos/Contactos/Data/Contactos_data.drc
View File

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

2
Source/Modulos/Contactos/Model/Contactos_model.drc
View File

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

2
Source/Modulos/Contactos/Plugin/Contactos_plugin.drc
View File

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

2
Source/Modulos/Contactos/Views/Contactos_view.drc
View File

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

BIN
Source/Modulos/Contactos/Views/Contactos_view.identcache
View File

Binary file not shown.

26
Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas
View File

@ -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