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

Rellenar los campos ID_EMPRESA y USUARIO con sus valores.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@138 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-11-18 15:12:04 +00:00
parent 4ff512d2eb
commit 9ca3f78217
5 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas
View File

@ -192,7 +192,7 @@ begin
AddOperator(opAND);
OpenBraket;
AddText(fld_Historico_MovimientosID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
AddText(fld_Historico_MovimientosID_EMPRESA + ' = ' + IntToStr(AppFactuGES.EmpresaActiva.ID));
CloseBraket;
end;
end;

BIN
Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas
View File

Binary file not shown.

4
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -383,7 +383,7 @@ begin
AddOperator(opAND);
OpenBraket;
AddText(fld_DETALLE_RESERVAS_INVID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
AddText(fld_DETALLE_RESERVAS_INVID_EMPRESA + ' = ' + IntToStr(AppFactuGES.EmpresaActiva.ID));
CloseBraket;
end;
end;
@ -899,7 +899,7 @@ begin
AddOperator(opAND);
OpenBraket;
AddText(fld_InventarioID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
AddText(fld_InventarioID_EMPRESA + ' = ' + IntToStr(AppFactuGES.EmpresaActiva.ID));
CloseBraket;
end;
end;

BIN
Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas
View File

Binary file not shown.

3
Source/Modulos/Inventario/Views/uEditorInventario.pas
View File

@ -216,7 +216,7 @@ procedure TfEditorInventario.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
FTitulo := 'Inventario de articulos en almacenes - ' + dmUsuarios.EmpresaActual.NOMBRE;
FTitulo := 'Inventario de articulos en almacenes - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
@ -370,3 +370,4 @@ end;
end.