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")