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

-- paramtros de empresa, en prepolizasdetalle

Browse Source 
-- nueva funcionalidad 224, para que no
This commit is contained in:
rrene
2023-06-02 14:44:45 -07:00
parent cbc0fd017f
commit 4826b6b888
5 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsContabilidad.vb
View File

@@ -6403,8 +6403,9 @@ Public Class ClsContabilidad
Dim MsgPrePoliza As String = SqlAdapter.SelectCommand.Parameters("@MsgPrePolizaSalida").Value.ToString
If MsgPrePoliza <> "" Then MsgPrePoliza.GuardaLogAD("LogPrePoliza")
If MensajePolizaDescuadre = "" AndAlso AutoConta Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then ' el tipocontabilidad deberá activarse en el PA
If MensajePolizaDescuadre = "" Then
' el tipocontabilidad 1. deberá activarse en el PA, solo aplica para conta contpaq y que no tenga activada el no contabilzar automática
If AutoConta AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso Not UsuarioActual.Empresa.Funcionalidad(224) = "1" Then
If Not ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then
MensajePolizaDescuadre = Mensaje.ToString ' regresa el mensaje de contabilización
Retorno = False

2
Contabilidad/ContabilizacionCompras.aspx.cs
View File

@@ -106,7 +106,7 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
ClsContabilidad contP = new ClsContabilidad();
if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza))
if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa))
{
if (contP.DtResultados.Rows.Count > 0)
{

2
Contabilidad/ContabilizacionVentas.aspx.cs
View File

@@ -93,7 +93,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
ClsContabilidad contP = new ClsContabilidad();
if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza))
if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza,UsuarioActual.CveEmpresa))
{
if (contP.DtResultados.Rows.Count > 0)
{

2
Contabilidad/FiltraPolizas.aspx.vb
View File

@@ -308,7 +308,7 @@ Partial Class Contabilidad_FiltraPolizas
If TempPolizas.FCCheckBox("ChkPoliza").Checked Then
contador += 1
CvePrePoliza = TempPolizas.DataKey("CvePrePoliza").ToString.ToEntero
ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
TieneComprobante = VerificarComprobante(ObjContabilidad.DtResultados)
If TieneComprobante = "" And Not SinComprobante Then

2
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -483,7 +483,7 @@ Partial Class ContabilidadC_RegPrePoliza
BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo"
End If
ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
GvPrePoliza.DataSource = DtMovimientos