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

- validacion de registro

Browse Source
This commit is contained in:
rrene
2020-04-22 05:43:07 -07:00
parent 52cb679ac7
commit 45b8fe7c6b
1 changed files with 42 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Inventarios/RecepcionEntrega.aspx.vb
View File

@@ -2161,6 +2161,9 @@ Partial Class Inventarios_RecepcionEntrega
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
'Se agrega movimiento separado por la cuenta de ventas (ER) 'Se agrega movimiento separado por la cuenta de ventas (ER)
If CvePrePoliza > 0 Then
For Each RowInv As DataRow In tmpCostos.Rows For Each RowInv As DataRow In tmpCostos.Rows
ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL() ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
TotalCostoAcumulado += ValorInventario TotalCostoAcumulado += ValorInventario
@@ -2196,6 +2199,8 @@ Partial Class Inventarios_RecepcionEntrega
If IdCtaContable > 0 Then If IdCtaContable > 0 Then
If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) 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") Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
ErrorMovInv = True
TextoError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico"
End If End If
Else Else
Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia) Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia)
@@ -2203,7 +2208,10 @@ Partial Class Inventarios_RecepcionEntrega
ObjContPaq.Dispose() ObjContPaq.Dispose()
End If End If
Else
ErrorMovInv = True
TextoError = "Ocurrió un Error al ingresar la prepoliza"
End If
Else Else
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un Error al ingresar las prepolizas" TextoError = "Ocurrió un Error al ingresar las prepolizas"