Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se pone todos lo modulos relacionados con contabilidad a no activo para que no les pida cuentas y nuevo año fiscal

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@642 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2016-03-09 19:00:16 +00:00
parent 71388183fd
commit 1e4397c0a2
7 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -744,9 +744,9 @@ begin
REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA); REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA);
//CONTABILIDAD //CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then // if Assigned(AppFactuGES.EjercicioActivo) then
IGNORAR_CONTABILIDAD := 0 // IGNORAR_CONTABILIDAD := 0
else // else
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
TIENE_SUBCUENTA := 0; TIENE_SUBCUENTA := 0;
@ -829,9 +829,9 @@ begin
REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Proveedores.RegimenIVA', PROVEEDOR_REGIMEN_IVA); REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Proveedores.RegimenIVA', PROVEEDOR_REGIMEN_IVA);
//CONTABILIDAD //CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then // if Assigned(AppFactuGES.EjercicioActivo) then
IGNORAR_CONTABILIDAD := 0 // IGNORAR_CONTABILIDAD := 0
else // else
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
TIENE_SUBCUENTA := 0; TIENE_SUBCUENTA := 0;
ES_ACREEDOR := 0; ES_ACREEDOR := 0;

6
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -266,9 +266,9 @@ begin
TIENDA := AppFactuGES.TiendaActiva.NOMBRE; TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
//CONTABILIDAD //CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then // if Assigned(AppFactuGES.EjercicioActivo) then
IGNORAR_CONTABILIDAD := 0 // IGNORAR_CONTABILIDAD := 0
else // else
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
end; end;

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

@ -291,9 +291,9 @@ begin
TIENDA := AppFactuGES.TiendaActiva.NOMBRE; TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
//CONTABILIDAD //CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then // if Assigned(AppFactuGES.EjercicioActivo) then
IGNORAR_CONTABILIDAD := 0 // IGNORAR_CONTABILIDAD := 0
else // else
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
end; end;

6
Source/Modulos/Recibos de cliente/Model/uBizPagosCliente.pas
View File

@ -67,9 +67,9 @@ end;
procedure TBizPagosCliente.IniciarValoresIBizPagosClienteNuevo; procedure TBizPagosCliente.IniciarValoresIBizPagosClienteNuevo;
begin begin
//CONTABILIDAD //CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then // if Assigned(AppFactuGES.EjercicioActivo) then
IGNORAR_CONTABILIDAD := 0 // IGNORAR_CONTABILIDAD := 0
else // else
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
end; end;

6
Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.pas
View File

@ -67,9 +67,9 @@ end;
procedure TBizPagosProveedor.IniciarValoresPagosProveedorNuevo; procedure TBizPagosProveedor.IniciarValoresPagosProveedorNuevo;
begin begin
//CONTABILIDAD //CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then // if Assigned(AppFactuGES.EjercicioActivo) then
IGNORAR_CONTABILIDAD := 0 // IGNORAR_CONTABILIDAD := 0
else // else
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
end; end;

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.7.2.0\0" VALUE "FileVersion", "2.7.2.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.7.2.0\0" VALUE "ProductVersion", "2.7.2.0\0"
VALUE "CompileDate", "jueves, 11 de febrero de 2016 10:52\0" VALUE "CompileDate", "miércoles, 09 de marzo de 2016 18:07\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.