diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 4468e4e..b0ce442 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 7dae4e8..95ba1f7 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,13 +44,6 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index 040991a..14a439f 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas @@ -428,6 +428,7 @@ begin with Result do begin ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + ID_TIENDA := AppFactuGES.TiendaActiva.ID; USUARIO := AppFactuGES.UsuarioActivo.UserName; FECHA_ALBARAN := DateOf(Now); INCIDENCIAS_ACTIVAS := 0; diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas index bd1b3a0..db61e5f 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas @@ -530,6 +530,7 @@ begin with Result do begin ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + ID_TIENDA := AppFactuGES.TiendaActiva.ID; USUARIO := AppFactuGES.UsuarioActivo.UserName; FECHA_ALBARAN := DateOf(Now); INCIDENCIAS_ACTIVAS := 0; diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas index 1957c18..bb2568f 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas +++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas @@ -366,6 +366,7 @@ begin with Result do begin ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + ID_TIENDA := AppFactuGES.TiendaActiva.ID; USUARIO := AppFactuGES.UsuarioActivo.UserName; FECHA_CONTRATO := DateOf(Now); INCIDENCIAS_ACTIVAS := 0; diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 0781526..6c6fa14 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -563,6 +563,7 @@ begin with Result do begin ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + ID_TIENDA := AppFactuGES.TiendaActiva.ID; USUARIO := AppFactuGES.UsuarioActivo.UserName; REFERENCIA := ''; //Para que se asigne una nueva SITUACION := CTE_PENDIENTE; //Al ser una nueva debe de estar pendiente diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 71e40a8..b166934 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -617,6 +617,7 @@ begin with Result do begin ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + ID_TIENDA := AppFactuGES.TiendaActiva.ID; USUARIO := AppFactuGES.UsuarioActivo.UserName; REFERENCIA := ''; //Para que se asigne una nueva SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 1854548..5d1e7f6 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -455,6 +455,7 @@ begin with Result do begin ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + ID_TIENDA := AppFactuGES.TiendaActiva.ID; USUARIO := AppFactuGES.UsuarioActivo.UserName; FECHA_PRESUPUESTO := DateOf(Now); INCIDENCIAS_ACTIVAS := 0; diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index ec9928d..3d4b25e 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ