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@136 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-11-18 15:10:09 +00:00
parent bbae3dd97a
commit 0b9db1a2dc
17 changed files with 55 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -129,7 +129,7 @@ uses
uBizDetallesAlbaranProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios,
schAlbaranesProveedorClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranProveedor,
uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor,
schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf,
schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf, uFactuGES_App,
uBizPedidosProveedor, uPedidosProveedorController,
// schInventarioClient_Intf,
uArticulosController, uBizArticulos, uControllerDetallesBase, Classes,
@ -525,8 +525,8 @@ begin
Result.Edit;
with Result do
begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
// USUARIO := dmUsuarios.LoginInfo.Usuario;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_ALBARAN := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0;
REFERENCIA := '';
@ -589,7 +589,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. }
AAlbaran.Edit;
try
// AAlbaran.USUARIO := dmUsuarios.LoginInfo.Usuario;
AAlbaran.USUARIO := AppFactuGES.UsuarioActivo.UserName;
if Assigned(AAlbaran.Proveedor)
and (AAlbaran.ID_PROVEEDOR <> AAlbaran.Proveedor.ID) then
@ -1072,3 +1072,4 @@ begin
end;
end.

8
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
View File

@ -86,7 +86,7 @@ implementation
uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
uDataTableUtils, DateUtils, uDateUtils, DB;
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App;
{ TBizAlbaranProveedor }
@ -178,11 +178,12 @@ end;
procedure TBizAlbaranProveedor.IniciarValoresAlbaranNuevo;
begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
// USUARIO := dmUsuarios.LoginInfo.Usuario;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_ALBARAN := DateOf(Date);
INCIDENCIAS_ACTIVAS := 0;
TIPO := CTE_TIPO_ALBARAN;
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
// ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
ID_ALMACEN := 2;
end;
@ -295,3 +296,4 @@ finalization
end.

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -80,7 +80,7 @@ implementation
uses
uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uProveedoresController,
uBizDireccionesContacto, uDialogUtils, uDataTableUtils;
uBizDireccionesContacto, uDialogUtils, uDataTableUtils, uFactuGES_App;
{$R *.dfm}
@ -267,7 +267,7 @@ begin
end;
inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')';
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end;
procedure TfEditorAlbaranProveedor.PrevisualizarInterno;

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas
View File

@ -27,7 +27,7 @@ implementation
{$R *.dfm}
uses
uDataModuleUsuarios, uViewAlbaranesDevProveedor;
uDataModuleUsuarios, uViewAlbaranesDevProveedor, uFactuGES_App;
{ TfEditorAlbaranesDevProveedor }
@ -47,7 +47,7 @@ procedure TfEditorAlbaranesDevProveedor.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
FTitulo := 'Lista de órdenes de devolución de proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE;
FTitulo := 'Lista de órdenes de devolución de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -59,7 +59,7 @@ type
implementation
uses
uDataModuleAlbaranesProveedor, uDataModuleUsuarios,
uDataModuleAlbaranesProveedor, uDataModuleUsuarios, uFactuGES_App,
// uGenerarFacturasProvAlbProvUtils, uGenerarAlbaranesProvUtils,
uEditorBase, schAlbaranesProveedorClient_Intf,
uGridUtils, uDBSelectionListUtils;
@ -273,7 +273,7 @@ var
FTitulo : String;
begin
if (ATitulo = '') then
FTitulo := 'Lista de albaranes de proveedor - ' // + dmUsuarios.EmpresaActual.NOMBRE
FTitulo := 'Lista de albaranes de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE
else
FTitulo := ATitulo;

9
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -111,7 +111,7 @@ implementation
uses
Windows, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasProveedorClient_Intf,
uBizContactos, uIEditorFacturasProveedor, uIEditorFacturaProveedor,
uBizContactos, uIEditorFacturasProveedor, uIEditorFacturaProveedor, uFactuGES_App,
uDataModuleFacturasProveedor, uBizDetallesFacturaProveedor, uControllerDetallesBase,
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uROTypes,
uAlbaranesProveedorController, schAlbaranesProveedorClient_Intf, uDetallesAlbaranProveedorController,
@ -534,8 +534,8 @@ begin
Result.Edit;
with Result do
begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
// USUARIO := dmUsuarios.LoginInfo.Usuario;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
REFERENCIA := ''; //Para que se asigne una nueva
SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente
FECHA_FACTURA := DateOf(Now);
@ -588,7 +588,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. }
AFactura.Edit;
try
// AFactura.USUARIO := dmUsuarios.LoginInfo.Usuario;
AFactura.USUARIO := AppFactuGES.UsuarioActivo.UserName;
if Assigned(AFactura.Proveedor)
and (AFactura.ID_Proveedor <> AFactura.Proveedor.ID) then
@ -1058,3 +1058,4 @@ begin
end;
end.

9
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -90,7 +90,7 @@ implementation
uses
SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios,
Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, Dialogs;
Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, uFactuGES_App;
{ TBizFacturaProveedor }
@ -236,12 +236,12 @@ end;
procedure TBizFacturaProveedor.IniciarValoresFacturaNueva;
begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
// USUARIO := dmUsuarios.LoginInfo.Usuario;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_FACTURA := DateOf(Now);
ID_PROVEEDOR := ID_NULO;
TIPO := CTE_TIPO_FACTURA;
// IVA := dmUsuarios.EmpresaActual.IVA;
IVA := AppFactuGES.EmpresaActiva.IVA;
RE := 0;
SITUACION := CTE_PENDIENTE;
end;
@ -324,3 +324,4 @@ finalization
end.

5
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -75,7 +75,7 @@ implementation
{$R *.dfm}
uses
cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls,
cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, uFactuGES_App,
uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils;
// uGenerarAlbaranesProvFacProvUtils;
@ -343,7 +343,7 @@ begin
inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')';
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end;
procedure TfEditorFacturaProveedor.PrevisualizarInterno;
@ -414,3 +414,4 @@ begin
end;
end.

5
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

@ -63,7 +63,7 @@ implementation
uses
uDataModuleFacturasProveedor, uDataModuleUsuarios,
uGridUtils, uDBSelectionListUtils,
uGridUtils, uDBSelectionListUtils, uFactuGES_App,
uAlbaranesProveedorController, uBizAlbaranesProveedor,
uEditorBase;
@ -322,7 +322,7 @@ procedure TfEditorFacturasProveedor.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
FTitulo := 'Lista de facturas de proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE;
FTitulo := 'Lista de facturas de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
@ -381,3 +381,4 @@ begin
end;
end.

9
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

@ -115,7 +115,7 @@ implementation
uses
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorPedidosProveedor, uDataModulePedidosProveedor,
uIEditorPedidosProveedor, uDataModulePedidosProveedor, uFactuGES_App,
uBizDetallesPedidoProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios,
schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController,
uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor,
@ -279,8 +279,8 @@ begin
with Result do
begin
REFERENCIA := '';
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
// USUARIO := dmUsuarios.LoginInfo.Usuario;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_PEDIDO := DateOf(Now);
SITUACION := SITUACION_PEDIDO_PENDIENTE;
FECHA_ENVIO := 0;
@ -331,7 +331,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. }
APedido.Edit;
try
// APedido.USUARIO := dmUsuarios.LoginInfo.Usuario;
APedido.USUARIO := AppFactuGES.UsuarioActivo.UserName;
if Assigned(APedido.Proveedor)
and (APedido.ID_PROVEEDOR <> APedido.Proveedor.ID) then
@ -779,3 +779,4 @@ begin
end;
end.

8
Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
View File

@ -91,7 +91,7 @@ implementation
uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
uDataTableUtils, DateUtils, uDateUtils, DB;
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App;
{ TBizPedidoProveedor }
@ -194,14 +194,15 @@ end;
procedure TBizPedidoProveedor.IniciarValoresPedidoNuevo;
begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
// USUARIO := dmUsuarios.LoginInfo.Usuario;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_PEDIDO := DateOf(Date);
SITUACION := SITUACION_PEDIDO_PENDIENTE;
INCIDENCIAS_ACTIVAS := 0;
// ID_PEDIDO_CLIENTE := 0;
REF_PED_CLIENTE := '';
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
// ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
ID_ALMACEN := 2;
end;
@ -329,3 +330,4 @@ finalization
end.

6
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
View File

@ -72,7 +72,8 @@ type
implementation
uses
uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uGridUtils, uDialogUtils;
uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uGridUtils, uDialogUtils,
uFactuGES_App;
{$R *.dfm}
@ -237,7 +238,7 @@ begin
inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')';
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end;
procedure TfEditorPedidoProveedor.PrevisualizarInterno;
@ -297,3 +298,4 @@ begin
end;
end.

5
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
View File

@ -58,7 +58,7 @@ type
implementation
uses
uDataModulePedidosProveedor, uDataModuleUsuarios, uEditorDBBase,
uDataModulePedidosProveedor, uDataModuleUsuarios, uFactuGES_App, uEditorDBBase,
// uInventarioController, uBizInventario,
uDialogUtils, uGridUtils, uDBSelectionListUtils;
// uAlbaranesProveedorController, uBizAlbaranesProveedor,
@ -273,7 +273,7 @@ procedure TfEditorPedidosProveedor.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
FTitulo := 'Lista de pedidos a proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE;
FTitulo := 'Lista de pedidos a proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
@ -332,3 +332,4 @@ begin
end;
end.

4
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -138,7 +138,7 @@ implementation
uses
Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs,
uDAInterfaces, uDataTableUtils, uDataModuleUsuarios,
uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
uRecibosProveedorReportController, uBizContactos,
schRecibosProveedorClient_Intf, uIEditorRecibosProveedor, uIEditorReciboProveedor,
@ -471,7 +471,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. }
ARecibosProveedor.Edit;
try
// ARecibosProveedor.USUARIO := dmUsuarios.LoginInfo.Usuario;
ARecibosProveedor.USUARIO := AppFactuGES.UsuarioActivo.UserName;
Result := True;
finally
ARecibosProveedor.Post;

BIN
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas
View File

Binary file not shown.

3
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas
View File

@ -174,7 +174,7 @@ begin
inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end;
procedure TfEditorRemesaProveedor.PrevisualizarInterno;
@ -340,3 +340,4 @@ end;
end.

3
Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas
View File

@ -152,7 +152,7 @@ procedure TfEditorRemesasProveedor.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
FTitulo := 'Lista de remesas de pago - ' + dmUsuarios.EmpresaActual.NOMBRE;
FTitulo := 'Lista de remesas de pago - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
@ -305,3 +305,4 @@ end;
end.