AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios en el reporte de compras - almacen

Browse Source 
AutoConta solo con funcionalidad 200, se quito el UsaContabilidad
This commit is contained in:
Raul Pimienta
2019-08-26 11:05:43 -07:00
parent b5fdcf8a7d
commit f89a7b7c9d
18 changed files with 31 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/Devoluciones.aspx.cs
View File

@@ -467,7 +467,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
}
//CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals(""))
{
if (IDCtaContableDevolucion > 0 && IDCtaContableBancos > 0)
{

4
Bancos/IE.aspx.vb
View File

@@ -3049,7 +3049,7 @@ Partial Class Bancos_IE
'El movimiento 1 es el de Venta
'Conta SIG
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidadSIG Then
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If CveCuentaBeneficiario > 0 And CveCuentaConta > 0 Then
If ObjMov.ContabilizarPrePolizaSIG(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
IDPoliza = ObjMov.ContaIdPoliza
@@ -3067,7 +3067,7 @@ Partial Class Bancos_IE
End If
'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidad Then
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If IDCtaBeneficiario > 0 And IDCtaContable > 0 Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
IDPoliza = ObjMov.ContaIdPoliza

4
Bancos/PagoAcreedor.aspx.cs
View File

@@ -527,7 +527,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
}
//CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals(""))
{
if (IDCtaContableAcreedor > 0 && IDCtaContableBancos > 0)
{
@@ -801,7 +801,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
}
//CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") )
{
if (IDCtaContableAcreedor > 0 && IDCtaContableBancos > 0)
{

4
Bancos/PagoDeudor.aspx.cs
View File

@@ -447,7 +447,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1");
if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
if (AutoConta && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
if (AutoConta && MsgError.Equals(""))
{
//JJMQ:20190103: Cambio la siguiente linea porque esta validando siempre una complementaria aunque el movto sea dlls
//if (IDCtaContableDeudorPrestamo > 0 && IDCtaContableBancosPrestamo > 0 && IDCtaContableBancosComplementariaPrestamo > 0 && IDCtaContableDeudorCompPrestamo > 0)
@@ -838,7 +838,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1");
if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
if (AutoConta && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
if (AutoConta && MsgError.Equals(""))
{
if (IDCtaContableDeudor > 0 && IDCtaContableBancos > 0)
{

2
Bancos/PopIECompras.aspx.vb
View File

@@ -3090,7 +3090,7 @@ Partial Class Bancos_PopIECompras
End If
'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If idCuentaContabilizacion > 0 Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
IdPoliza = ObjMov.ContaIdPoliza

2
Bancos/PopIEVentas.aspx.vb
View File

@@ -3390,7 +3390,7 @@ Partial Class Bancos_PopIEVentas
End If
'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
If idCuentaContabilizacion > 0 Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then

4
Bancos/PrestamoPersonal.aspx.cs
View File

@@ -366,7 +366,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
}
//CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") )
{
if (IDCtaContablePrestamo > 0 && IDCtaContableBancos > 0)
{
@@ -626,7 +626,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
}
//CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") )
{
if (IDCtaContablePrestamo > 0 && IDCtaContableBancosPrestamo > 0)
{

2
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -1823,7 +1823,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidad Then
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If idCuentaContabilizacion > 0 Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then
' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)

2
Bancos/Transferencias.aspx.vb
View File

@@ -412,7 +412,7 @@ Partial Class Bancos_Transferencias
End If
'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
If (IdCtaContableOrigen > 0 AndAlso IdCtaContableDestino > 0) OrElse (IdCtaContableDestino > 0 AndAlso Opcion = 1) Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha:=TxtFechaDocumento.Text) Then