diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj index f81fd44d..b5d3676c 100644 --- a/Source/ApplicationBase/ApplicationBase.dproj +++ b/Source/ApplicationBase/ApplicationBase.dproj @@ -46,6 +46,55 @@ Package FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -60,12 +109,12 @@ MainSource - - - - - - + + + + + + diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas index 7a3b54f6..d65eb7ba 100644 --- a/Source/ApplicationBase/uFactuGES_App.pas +++ b/Source/ApplicationBase/uFactuGES_App.pas @@ -67,12 +67,25 @@ type property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent; property Terminated : Boolean read GetTerminated; +//TEMPORAL + function getVAR_IDTIENDA : Integer; + procedure setVAR_IDTIENDA (AValue : Integer); + function getVAR_TIENDA : String; + procedure setVAR_TIENDA (AValue : String); + property VAR_IDTIENDA: Integer read getVAR_IDTIENDA write SetVAR_IDTIENDA; + property VAR_TIENDA: String read getVAR_TIENDA write setVAR_TIENDA; + + procedure ShowCapado; end; TAppFactuGES = class(TInterfacedObject, IAppFactuGES) private +//TEMPORAL + FVAR_IDTIENDA: Integer; + FVAR_TIENDA: String; + FAppInfo : TJclFileVersionInfo; FEmpresasController : IEmpresasController; FUsuariosController: IUsuariosController; @@ -116,6 +129,7 @@ type procedure HideSplashForm; procedure UpdateSplashForm; public + constructor Create; virtual; destructor Destroy; override; @@ -140,6 +154,15 @@ type property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent; property Terminated : Boolean read GetTerminated; +//TEMPORAL + function getVAR_IDTIENDA : Integer; + procedure setVAR_IDTIENDA (AValue : Integer); + function getVAR_TIENDA : String; + procedure setVAR_TIENDA (AValue : String); + + property VAR_IDTIENDA: Integer read getVAR_IDTIENDA write setVAR_IDTIENDA; + property VAR_TIENDA: String read getVAR_TIENDA write setVAR_TIENDA; + procedure ShowCapado; end; @@ -150,7 +173,9 @@ implementation uses Dialogs, uDialogUtils, cxControls, uUsuariosViewRegister, - uEmpresasViewRegister, uEjerciciosController; + uEmpresasViewRegister, uEjerciciosController, +//TEMPORAL + inifiles; procedure TAppFactuGES.CambiarEjercicio(const AIDEmpresa: Integer); var @@ -188,11 +213,26 @@ begin end; procedure TAppFactuGES.CargarModulos; +var + Fichero : String; begin if not Assigned(FDoLoadModulesEvent) then raise Exception.Create('Evento para la carga de los módulos de la aplicación no asignado (CargarModulos)'); FDoLoadModulesEvent(); + +//TEMPORAL + Fichero := ExtractFileDir(ParamStr(0))+ '\' + 'FACTUGES.INI'; + if not FileExists(Fichero) then + raise Exception.Create('No se ha encontrado el fichero de configuración' + #10#13 + Fichero); + + with TIniFile.Create(Fichero) do + begin + VAR_IDTIENDA := ReadInteger ('VARIABLES', 'IdTienda', 0); + VAR_TIENDA := ReadString ('VARIABLES', 'Tienda', ''); + Free; + end; + end; constructor TAppFactuGES.Create; @@ -314,6 +354,16 @@ begin Result := FUsuariosController; end; +function TAppFactuGES.getVAR_IDTIENDA: Integer; +begin + Result := FVAR_IDTIENDA; +end; + +function TAppFactuGES.getVAR_TIENDA: String; +begin + Result := FVAR_TIENDA; +end; + procedure TAppFactuGES.HideSplashForm; begin if not Assigned(FAppSplashForm) then @@ -368,6 +418,16 @@ begin FDoLoadModulesEvent := ALoadModulesEvent; end; +procedure TAppFactuGES.setVAR_IDTIENDA(AValue: Integer); +begin + FVAR_IDTIENDA := Avalue; +end; + +procedure TAppFactuGES.setVAR_TIENDA(AValue: String); +begin + FVAR_TIENDA := Avalue; +end; + procedure TAppFactuGES.ShowCapado; begin ShowInfoMessage('Sin Acceso', 'Funcionalidad en desarrollo, disculpen las molestias'); diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index c7c3b6b4..5df5fbb9 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,48 +58,48 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 506cc325..d3106ca9 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,79 +53,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2140FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.4.0FactuGESFactuGES2.1.4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2150FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.5.0FactuGESFactuGES2.1.4 diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index b4008703..fbbe1d01 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,1,4,0 -PRODUCTVERSION 2,1,4,0 +FILEVERSION 2,1,5,0 +PRODUCTVERSION 2,1,5,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,7 +13,7 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.1.4.0\0" + VALUE "FileVersion", "2.1.5.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" VALUE "ProductVersion", "2.1.4\0" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 3b42872e..924f51f9 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.dproj b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.dproj index 4a0a2e3f..bc5eaf2a 100644 --- a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.dproj +++ b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.dproj @@ -42,6 +42,18 @@ Package FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + + + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration EurekaLog 5.1.9 AlbaranesCliente_model.dpk @@ -51,9 +63,9 @@ MainSource - - - + + + diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas index 105bea7e..c4be2be8 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas @@ -83,7 +83,7 @@ begin with TsrvReferencias.Create(NIL) do try - Result := DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA) + Result := DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA) finally Free; end; @@ -101,8 +101,7 @@ begin with TsrvReferencias.Create(NIL) do try - Result := IncrementarValorReferencia(ACodigoReferencia, - Self.REFERENCIA, ID_EMPRESA) + Result := IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA) finally Free; end; diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas index 53697d6c..3c7afd6a 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas @@ -190,11 +190,13 @@ begin SITUACION := SITUACION_ALBARAN_PENDIENTE; REFERENCIA := ''; TIPO := CTE_TIPO_ALBARAN; + // ALMACÉN PUESTO A CAPÓN Y PROVISIONAL ID_ALMACEN := 1; - ID_TIENDA := CTE_ID_TODAS; - TIENDA := CTE_TODAS; + //TEMPORAL + ID_TIENDA := AppFactuGES.VAR_IDTIENDA; + TIENDA := AppFactuGES.VAR_TIENDA; end; procedure TBizAlbaranCliente.IVAOnChange(Sender: TDACustomField); diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas index a9c1db61..2934809f 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas @@ -187,8 +187,9 @@ begin // ALMACÉN PUESTO A CAPÓN Y PROVISIONAL ID_ALMACEN := 1; - ID_TIENDA := CTE_ID_TODAS; - TIENDA := CTE_TODAS; + //TEMPORAL + ID_TIENDA := AppFactuGES.VAR_IDTIENDA; + TIENDA := AppFactuGES.VAR_TIENDA; end; procedure TBizAlbaranProveedor.IVAOnChange(Sender: TDACustomField); diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas index ff03db04..04e2c1a1 100644 --- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas +++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas @@ -11,20 +11,76 @@ const type TBizClienteServer = class(TBizContactosServer) + private + FReferenciaAutomatica : Boolean; + function DarReferencia : String; + function IncrementarReferencia : Boolean; protected procedure Insert_Datos_Contacto(aChange: TDADeltaChange); override; procedure Update_Datos_Contacto(aChange: TDADeltaChange); override; procedure Delete_Datos_Contacto(aChange: TDADeltaChange); override; + + procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override; + procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override; end; implementation uses uDataModuleServer, uDAClasses, srvContabilidad_Impl, - schContactosClient_Intf, uBusinessUtils; + schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl; + +const + REF_CLIENTE = 'REF_CLIENTE'; { TBizClienteServer } +procedure TBizClienteServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); +begin + inherited; + + // Actualizamos el contador de referencias. + case aChange.ChangeType of + ctInsert, ctUpdate: begin + if FReferenciaAutomatica then + begin + IncrementarReferencia; + FReferenciaAutomatica := False; + end; + end; + end; +end; + +procedure TBizClienteServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); +begin + FReferenciaAutomatica := False; + + case Sender.CurrentChange.ChangeType of + ctInsert, ctUpdate: begin + //Si la referencia no ha sido asignada le asignamos una nosotros + if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then + begin + FReferenciaAutomatica := True; + REFERENCIA := DarReferencia; + end; + end; + end; +end; + +function TBizClienteServer.DarReferencia: String; +var + ATipo : String; +begin + ATipo := REF_CLIENTE; + + with TsrvReferencias.Create(NIL) do + try + Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA) + finally + Free; + end; +end; + procedure TBizClienteServer.Delete_Datos_Contacto(aChange: TDADeltaChange); var ASchema : TDASchema; @@ -48,6 +104,20 @@ begin end; end; +function TBizClienteServer.IncrementarReferencia: Boolean; +var + ATipo : String; +begin + ATipo := REF_CLIENTE; + + with TsrvReferencias.Create(NIL) do + try + Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA) + finally + Free; + end; +end; + procedure TBizClienteServer.Insert_Datos_Contacto(aChange: TDADeltaChange); var ASchema : TDASchema; diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas index 11afc399..9605dfc8 100644 --- a/Source/Modulos/Contactos/Model/uBizContactos.pas +++ b/Source/Modulos/Contactos/Model/uBizContactos.pas @@ -450,8 +450,10 @@ end; procedure TBizContacto.IniciarValoresContactoNuevo; begin USUARIO := AppFactuGES.UsuarioActivo.UserName; - ID_TIENDA := CTE_ID_TODAS; - TIENDA := CTE_TODAS; + + //TEMPORAL + ID_TIENDA := AppFactuGES.VAR_IDTIENDA; + TIENDA := AppFactuGES.VAR_TIENDA; end; procedure TBizContacto.OnNewRecord(Sender: TDADataTable); diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas index 126e5588..e78f1095 100644 --- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas +++ b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas @@ -11,20 +11,76 @@ const type TBizProveedorServer = class(TBizContactosServer) + private + FReferenciaAutomatica : Boolean; + function DarReferencia : String; + function IncrementarReferencia : Boolean; protected procedure Insert_Datos_Contacto(aChange: TDADeltaChange); override; procedure Update_Datos_Contacto(aChange: TDADeltaChange); override; procedure Delete_Datos_Contacto(aChange: TDADeltaChange); override; + + procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override; + procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override; end; implementation uses uDataModuleServer, uDAClasses, srvContabilidad_Impl, - schContactosClient_Intf, uBusinessUtils; + schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl; + +const + REF_PROVEEDOR = 'REF_PROVEEDOR'; { TBizProveedorServer } +procedure TBizProveedorServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); +begin + inherited; + + // Actualizamos el contador de referencias. + case aChange.ChangeType of + ctInsert, ctUpdate: begin + if FReferenciaAutomatica then + begin + IncrementarReferencia; + FReferenciaAutomatica := False; + end; + end; + end; +end; + +procedure TBizProveedorServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); +begin + FReferenciaAutomatica := False; + + case Sender.CurrentChange.ChangeType of + ctInsert, ctUpdate: begin + //Si la referencia no ha sido asignada le asignamos una nosotros + if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then + begin + FReferenciaAutomatica := True; + REFERENCIA := DarReferencia; + end; + end; + end; +end; + +function TBizProveedorServer.DarReferencia: String; +var + ATipo : String; +begin + ATipo := REF_PROVEEDOR; + + with TsrvReferencias.Create(NIL) do + try + Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA) + finally + Free; + end; +end; + procedure TBizProveedorServer.Delete_Datos_Contacto(aChange: TDADeltaChange); var ASchema : TDASchema; @@ -48,6 +104,20 @@ begin end; end; +function TBizProveedorServer.IncrementarReferencia: Boolean; +var + ATipo : String; +begin + ATipo := REF_PROVEEDOR; + + with TsrvReferencias.Create(NIL) do + try + Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA) + finally + Free; + end; +end; + procedure TBizProveedorServer.Insert_Datos_Contacto(aChange: TDADeltaChange); var ASchema : TDASchema; diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Contactos/Views/Contactos_view.res and b/Source/Modulos/Contactos/Views/Contactos_view.res differ diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas index 57458a74..c761c8dc 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas @@ -256,8 +256,10 @@ begin IVA := AppFactuGES.EmpresaActiva.IVA; RE := 0; SITUACION := CTE_PENDIENTE; - ID_TIENDA := CTE_ID_TODAS; - TIENDA := CTE_TODAS; + + //TEMPORAL + ID_TIENDA := AppFactuGES.VAR_IDTIENDA; + TIENDA := AppFactuGES.VAR_TIENDA; IGNORAR_CONTABILIDAD := 0; end; diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas index bb67e800..3370ed20 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas @@ -246,8 +246,11 @@ begin RE := 0; SITUACION := CTE_PENDIENTE; - ID_TIENDA := CTE_ID_TODAS; - TIENDA := CTE_TODAS; + //TEMPORAL + ID_TIENDA := AppFactuGES.VAR_IDTIENDA; + TIENDA := AppFactuGES.VAR_TIENDA; + + IGNORAR_CONTABILIDAD := 0; end; procedure TBizFacturaProveedor.IVAOnChange(Sender: TDACustomField); diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas index fde4bd37..30fbf98b 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas @@ -201,9 +201,13 @@ begin REFERENCIA := ''; SITUACION := SITUACION_PRESUPUESTO_PENDIENTE; - ID_TIENDA := AppFactuGES.UsuarioActivo.ID_TIENDA; +// ID_TIENDA := AppFactuGES.UsuarioActivo.ID_TIENDA; ID_VENDEDOR := AppFactuGES.UsuarioActivo.ID_EMPLEADO; - TIENDA := CTE_TODAS; +// TIENDA := CTE_TODAS; + + //TEMPORAL + ID_TIENDA := AppFactuGES.VAR_IDTIENDA; + TIENDA := AppFactuGES.VAR_TIENDA; end; procedure TBizPresupuestoCliente.IVAOnChange(Sender: TDACustomField); diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas index 734b90bc..23d2c224 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas @@ -77,7 +77,7 @@ function TBizPresupuestosClienteServer.DarReferencia: String; begin with TsrvReferencias.Create(NIL) do try - Result := DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA) + Result := DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA, ID_TIENDA) finally Free; end; @@ -88,8 +88,7 @@ function TBizPresupuestosClienteServer.IncrementarReferencia: Boolean; begin with TsrvReferencias.Create(NIL) do try - Result := IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE, - Self.REFERENCIA, ID_EMPRESA) + Result := IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA) finally Free; end; diff --git a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas index c655eb4c..4821162a 100644 --- a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas @@ -243,7 +243,10 @@ begin OTROS_GASTOS := 0; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; USUARIO := AppFactuGES.UsuarioActivo.UserName; - ID_TIENDA := CTE_ID_TODAS; + + //TEMPORAL + ID_TIENDA := AppFactuGES.VAR_IDTIENDA; + TIENDA := AppFactuGES.VAR_TIENDA; end; procedure TBizRecibosCliente.OnNewRecord(Sender: TDADataTable); diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas index 1e02ba5e..c7095151 100644 --- a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas @@ -245,7 +245,10 @@ begin OTROS_GASTOS := 0; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; USUARIO := AppFactuGES.UsuarioActivo.UserName; - ID_TIENDA := CTE_ID_TODAS; + + //TEMPORAL + ID_TIENDA := AppFactuGES.VAR_IDTIENDA; + TIENDA := AppFactuGES.VAR_TIENDA; end; procedure TBizRecibosProveedor.OnNewRecord(Sender: TDADataTable); diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 8b994917..717b09f7 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 0f9128ec..dc63a72c 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0" - VALUE "CompileDate", "viernes, 21 de marzo de 2008 12:17\0" + VALUE "CompileDate", "martes, 25 de marzo de 2008 9:34\0" END END BLOCK "VarFileInfo"