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

-- se depuró/limpió la variables idctaXXX

Browse Source
This commit is contained in:
rrene
2023-08-17 18:56:22 -07:00
parent 70fce81f48
commit 2765dab757
74 changed files with 1350 additions and 5328 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -3135,25 +3135,7 @@ Partial Class Inventarios_EntregaAlmacen
GuardaLogAD($"Inventario/EntregaAlmacen | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorMovInv = True
End If
End If
'Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
'If AutoConta And Not ErrorMovInv Then
' Dim ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
' If IdCtaContable > 0 Then
' If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
' Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
' ErrorMovInv = True
' TextoError.AppendFormat("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
' End If
' Else
' Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia)
' End If
' ObjContPaq.Dispose()
'End If
End If
Else
ErrorMovInv = True
TextoError.AppendFormat("Ocurrió un Error al ingresar la prepoliza.1")

1
Inventarios/RecepcionDevolucion.aspx.vb
View File

@@ -601,7 +601,6 @@ Partial Class Inventarios_RecepcionDevolucion
TmpDT.Columns.Add("Total", GetType(Decimal))
'Para uso del módulo contable
TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
TmpDT.Columns.Add("IdCtaContVentas", GetType(Integer))
TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
TmpDT.Columns.Add("CveProyecto", GetType(Integer))
TmpDT.Columns.Add("Proyecto", GetType(String))

1
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -2708,7 +2708,6 @@ Partial Class Inventarios_RecepcionUsados
TmpDT.Columns.Add("Total", GetType(Decimal))
'Para uso del módulo contable
TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
TmpDT.Columns.Add("IdCtaContVentas", GetType(Integer))
TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
TmpDT.Columns.Add("CveProyecto", GetType(Integer))
TmpDT.Columns.Add("Proyecto", GetType(String))

12
Inventarios/Remanufactura.aspx.vb
View File

@@ -16,18 +16,6 @@ Partial Class Inventarios_Remanufactura
ViewState("ErrorList") = value
End Set
End Property
Private ReadOnly Property IdCtaContRetIVA As Integer
Get
Return ViewState("IdCtaContRetIVA").ToString.ToEntero
End Get
End Property
Private ReadOnly Property IdCtaContRetISR As Integer
Get
Return ViewState("IdCtaContRetISR").ToString.ToEntero
End Get
End Property
Private Property MensajeAlert As StringBuilder
Get
Return CType(ViewState("MensajeAlert"), StringBuilder)