Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Prueba para que las ventanas modales contengan otro objeto de negocio diferente al del grid, para poder abrir varias ventanas a la vez

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@138 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-07-21 16:23:44 +00:00
parent 0b5e8ef6af
commit 5df0770b1b
5 changed files with 22 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
View File

@ -49,10 +49,10 @@
<DelphiCompile Include="AlbaranesCliente_controller.dpk"> <DelphiCompile Include="AlbaranesCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_data.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_data.dcp" />
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Articulos_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="uAlbaranesClienteController.pas" /> <DCCReference Include="uAlbaranesClienteController.pas" />
<DCCReference Include="uAlbaranesClienteReportController.pas" /> <DCCReference Include="uAlbaranesClienteReportController.pas" />
<DCCReference Include="uArticulosAlbaranClienteController.pas" /> <DCCReference Include="uArticulosAlbaranClienteController.pas" />

BIN
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res
View File

Binary file not shown.

17
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -588,8 +588,21 @@ end;
procedure TAlbaranesClienteController.Ver(AAlbaran: IBizAlbaranCliente); procedure TAlbaranesClienteController.Ver(AAlbaran: IBizAlbaranCliente);
var var
AEditor : IEditorAlbaranCliente; AEditor : IEditorAlbaranCliente;
// AAlbaran2: IBizAlbaranCliente;
// Esnuevo: Boolean;
begin begin
AEditor := NIL; AEditor := NIL;
// Esnuevo := AAlbaran.ID < 0;
//Es modificación
// if not Esnuevo then
// begin
// AAlbaran2 := Buscar(AAlbaran.ID);
// AAlbaran2.DataTable.Active := True;
// end
// else
// AAlbaran2 := Nuevo;
RecuperarObjetos(AAlbaran); RecuperarObjetos(AAlbaran);
if (AAlbaran.TIPO = CTE_TIPO_ALBARAN) then if (AAlbaran.TIPO = CTE_TIPO_ALBARAN) then
@ -614,6 +627,10 @@ begin
//MODO CONSULTAR (Se deja la tabla como estaba) //MODO CONSULTAR (Se deja la tabla como estaba)
if AEditor.ReadOnly then if AEditor.ReadOnly then
SetDataTableReadOnly(AAlbaran.DataTable, False); SetDataTableReadOnly(AAlbaran.DataTable, False);
// if Esnuevo then
// DuplicarRegistro(AAlbaran.DataTable, AAlbaran.DataTable, True, True, True);
finally finally
AEditor.Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -199,10 +199,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
inherited actAnchoAuto: TAction inherited actAnchoAuto: TAction
ImageIndex = 22 ImageIndex = 22
end end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
object actGenerarFactura: TAction object actGenerarFactura: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Generar factura' Caption = 'Generar factura'

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -483,7 +483,7 @@ begin
// end; // end;
// 100 : begin // Albaran nuevo vacio // 100 : begin // Albaran nuevo vacio
if FController.Anadir(Albaranes) then if FController.Anadir(Albaranes) then
FController.Ver(Albaranes); FController.Ver(Albaranes);
// end; // end;
// end; // end;
// end; // end;