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

uViewDatosYSeleccionCliente: poder cargar un cliente a partir de su ID.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@348 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-03-23 20:12:51 +00:00
parent f57cd68fb1
commit 8ad0dcc6bf
2 changed files with 92 additions and 107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

159
Source/Modulos/Contactos/Views/uViewDatosYSeleccionCliente.dfm
View File

@ -166,40 +166,25 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Caption = 'Elegir un cliente'
TabOrder = 0
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
42020000424D4202000000000000420000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003
00001F0000001F7C1F7C1F7C1D74186055547450735054505554365C19641D74
1F7C1F7C1F7C1F7C1F7C9658AA21091A281A481668164816481A091AC9190B29
1A681F7C1F7C1F7C1F7C8C25091A481A68168716A71687166716481A091ACA1D
744C1F7C1F7C1F7C1F7CAB25291A6816A716C616E512C612A6166816291AEA19
56581F7C1F7C1F7C1F7C3241291A6716A616C61A2F3FE516C6168716481AAA25
1D741F7C1F7C1F7C1F7C3E78CB296716C616B0425A6BF042C6168716091E7860
1F7C1F7C1F7C1F7C1F7C1F7C3D748F39461E2B56295E0952C51DAC2D5A681F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C3D782C6A8A6E8A6A696A296253541F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C916DAB6EAB6E8B6E8A6E6A6A6A551D741F7C
1F7C1F7C1F7C1F7C1F7C1F7C3D788C6ECC72CC72AC72AB6E8A6E496618601F7C
1F7C1F7C1F7C1F7C1F7C1F7CD874CC72CD76CD76CC72AC728B6E6A6A555C1F7C
1F7C1F7C1F7C1F7C1F7C1F7CF770295A09564B5ECD72CC72AB6E8A6A75601F7C
1F7C1F7C1F7C1F7C1F7C1F7C99746A626A62495EE8514A5E6A62E75137601F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C4D6AAC6E8B6A6A620856E7556A511E781F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1875EE76CD728B66495EE85558681F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CF978306E2C668F615A701F7C1F7C1F7C
1F7C1F7C1F7C}
end
object Button2: TBitBtn
Left = 131
@ -210,40 +195,25 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Caption = 'Dar de alta un cliente'
TabOrder = 1
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
3100694731006947310069473100694731006947310069473100694731006947
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
ED00F2ECE800006000000060000000600000B7A2930069473100D5BFB100E9F6
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
F100F7A073000060000033CB510000600000B7A2930069473100D5BFB100F4FA
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB000060
0000006000000060000040D86500006000000060000000600000D5BFB100FFFF
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF000060
000060F898005AF28F004DE57A0040D865003AD25C0000600000D5BFB100FFFF
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF000060
000000600000006000005AF28F00006000000060000000600000D5BFB100D5BF
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
B100D5BFB1000060000060F8980000600000D5BFB100D5BFB100FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
42020000424D4202000000000000420000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003
00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7CFA5A0D190D190D190D190D190D190D190D190D190D190D190D19
0D190D190D19FA5ADE77964A964A964A964A964A964A964A964A964A964A964A
964A964A0D19FA5A050EA205A205A205A205A205A205050E5C675C673B633B63
3B5F964A0D19FA5AAB2A281687168612861267162816A2057C6BD42DD42DD42D
D42D964A0D19FA5AF03E48168612661A661A86124716A2059D6F7C6B5C6B5C67
3B63964A0D19FA5AB96789224516AE4A8D46461AA205BD739D6FD42DD42DD42D
D42D964A0D19FA5AFF7F776369526A66496229461557BE77BD739D6F9D6F7C6B
5C6B964A0D19FA5AFF7F3477AB6EAB6E8A6E6A66F466DE77BE77BD739D6F9D6F
7C6B964A0D19FA5ADD7FED6ECC72CC72AB6E8A6A6D5EDE7BDE77BE7780018001
8001964A0D19FA5ADD7FCB6A8B6AAC6EAC728B6E0652FF7BDE7B9E3A8001262B
8001964A0D19FA5AFE7F0F6F8A666A666A66285E0652FF7F8001800180016833
800180018001FA5AFF7FB97BCC6E8B6A495E06527873FF7F8001EC4FCB47893F
6833472F8001FA5AFF7FFF7FB97B34773477B97BFF7FFF7F800180018001CB47
800180018001FA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5A8001EC4F
8001FA5AFA5A1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C80018001
80011F7C1F7C}
end
object Button3: TBitBtn
Left = 148
@ -254,40 +224,25 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Caption = 'Ver ficha completa del cliente...'
TabOrder = 8
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
3100694731006947310069473100694731006947310069473100694731006947
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
ED00F2ECE800EFE8E300EDE4DF00EAE0DA00B7A2930069473100D5BFB100E9F6
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
F100F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100F4FA
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB00FAF8
F600F7F4F100F5F0ED00F2ECE800EFE8E300B7A2930069473100D5BFB100FFFF
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF00FDFC
FB00F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100FFFF
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF00FFFF
FF00FEFEFD00FCFAF900F9F6F400F6F2EF00F3EEEA0069473100D5BFB100D5BF
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
42020000424D4202000000000000420000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003
00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7CFA5A0D190D190D190D190D190D190D190D190D190D190D190D19
0D190D190D19FA5ADE77964A964A964A964A964A964A964A964A964A964A964A
964A964A0D19FA5A050EA205A205A205A205A205A205050E5C675C673B633B63
3B5F964A0D19FA5AAB2A281687168612861267162816A2057C6BD42DD42DD42D
D42D964A0D19FA5AF03E48168612661A661A86124716A2059D6F7C6B5C6B5C67
3B63964A0D19FA5AB96789224516AE4A8D46461AA205BD739D6FD42DD42DD42D
D42D964A0D19FA5AFF7F776369526A66496229461557BE77BD739D6F9D6F7C6B
5C6B964A0D19FA5AFF7F3477AB6EAB6E8A6E6A66F466DE77BE77BD739D6F9D6F
7C6B964A0D19FA5ADD7FED6ECC72CC72AB6E8A6A6D5EDE7BDE77BE77BD739D6F
9D6F964A0D19FA5ADD7FCB6A8B6AAC6EAC728B6E0652FF7BDE7B9E3A9E3A9E3A
9E3A964A0D19FA5AFE7F0F6F8A666A666A66285E0652FF7FFF7BDE7BDE77BE77
BD73964A0D19FA5AFF7FB97BCC6E8B6A495E06527873FF7FFF7F9E3A9E3A9E3A
9E3A964A0D19FA5AFF7FFF7FB97B34773477B97BFF7FFF7FFF7FFF7FFF7FDF7B
DE77BE770D19FA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5A
FA5AFA5AFA5A1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C}
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False

40
Source/Modulos/Contactos/Views/uViewDatosYSeleccionCliente.pas
View File

@ -22,6 +22,10 @@ type
procedure SetCliente(Value: IBizCliente);
property Cliente: IBizCliente read GetCliente write SetCliente;
function GetID_Cliente: integer;
procedure SetID_Cliente(const Value: integer);
property ID_Cliente: integer read GetID_Cliente write SetID_Cliente;
function GetOnClienteChanged : TNotifyEvent;
procedure SetOnClienteChanged (const Value : TNotifyEvent);
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged
@ -83,14 +87,16 @@ type
function GetOnClienteChanged : TNotifyEvent;
procedure SetOnClienteChanged (const Value : TNotifyEvent);
procedure SetReadOnly(Value: Boolean); override;
function GetID_Cliente: integer;
procedure SetID_Cliente(const Value: integer);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Controller: IClientesController read GetController write SetController;
property Cliente: IBizCliente read GetCliente write SetCliente;
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged;
property MsgElegirCliente : String read GetMsgElegirCliente write SetMsgElegirCliente;
property ID_Cliente: integer read GetID_Cliente write SetID_Cliente;
end;
implementation
@ -125,15 +131,15 @@ var
ACliente : IBizCliente;
begin
inherited;
ACliente := (FController.Nuevo as IBizCliente);
FController.Ver(ACliente);
ACliente := (Controller.Nuevo as IBizCliente);
Controller.Ver(ACliente);
Cliente := ACliente;
end;
procedure TfrViewDatosYSeleccionCliente.actVerContactoExecute(Sender: TObject);
begin
inherited;
FController.Ver(Cliente);
Controller.Ver(Cliente);
end;
procedure TfrViewDatosYSeleccionCliente.actVerContactoUpdate(Sender: TObject);
@ -146,6 +152,13 @@ constructor TfrViewDatosYSeleccionCliente.Create(AOwner: TComponent);
begin
inherited;
FMsgElegirCliente := '';
FController := NIL;
end;
destructor TfrViewDatosYSeleccionCliente.Destroy;
begin
FController := NIL;
inherited;
end;
function TfrViewDatosYSeleccionCliente.GetCliente: IBizCliente;
@ -155,9 +168,18 @@ end;
function TfrViewDatosYSeleccionCliente.GetController: IClientesController;
begin
if not Assigned(FController) then
FController := TClientesController.Create;
Result := FController;
end;
function TfrViewDatosYSeleccionCliente.GetID_Cliente: integer;
begin
Result := -1;
if Assigned(FCliente) then
Result := FCliente.ID;
end;
function TfrViewDatosYSeleccionCliente.GetMsgElegirCliente: String;
begin
Result := FMsgElegirCliente;
@ -181,9 +203,17 @@ end;
procedure TfrViewDatosYSeleccionCliente.SetController(Value: IClientesController);
begin
if Assigned(FController) then
FController := NIL;
FController := Value;
end;
procedure TfrViewDatosYSeleccionCliente.SetID_Cliente(const Value: integer);
begin
Self.Cliente := IBizCliente(Controller.Buscar(Value));
end;
procedure TfrViewDatosYSeleccionCliente.SetMsgElegirCliente(
const Value: String);
begin