diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 1ccbb5c4b..c5073fc3c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10968,16 +10968,23 @@ Partial Class Ventas AutoConta = True End If - Try - If AutoConta Then - If Not ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa) Then - ErrorList.Add("Ocurrió un error al contabilizar, pongase en contacto con soporte técnico") - End If + If ErrorList.Count = 0 AndAlso ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=5, AutoConta:=AutoConta) Then + If ObjConta.ValorPolizaDescuadre > 0 Then + ErrorList.Add("Ocurrió un error al validar la prepóliza") + GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") End If - Catch ex As Exception - ErrorList.Add("Ocurrió un error al contabilizar, pongase en contacto con soporte técnico") - OnError("Ocurrió un error al contabilizar la factura", ex) - End Try + End If + + 'Try + ' If AutoConta Then + ' If Not ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa) Then + ' ErrorList.Add("Ocurrió un error al contabilizar, pongase en contacto con soporte técnico") + ' End If + ' End If + 'Catch ex As Exception + ' ErrorList.Add("Ocurrió un error al contabilizar, pongase en contacto con soporte técnico") + ' OnError("Ocurrió un error al contabilizar la factura", ex) + 'End Try If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso (SeGuardoPrePoliza Or ObjFactura.TipoDocto.Contiene("Ped", "Cot", "DPe", "PeC", "PA")) Then ObjVentas.Commit() @@ -15328,15 +15335,12 @@ Partial Class Ventas End If Next - - If Not ErrorPrepoliza AndAlso ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=5, AutoConta:=AutoConta) Then - If ObjConta.ValorPolizaDescuadre > 0 Then - 'ErrorPrepoliza = True - GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") - End If - End If - - + 'If Not ErrorPrepoliza AndAlso ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=5, AutoConta:=AutoConta) Then + ' If ObjConta.ValorPolizaDescuadre > 0 Then + ' 'ErrorPrepoliza = True + ' GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") + ' End If + 'End If If ErrorPrepoliza Then Exit For End If @@ -15402,11 +15406,11 @@ Partial Class Ventas End If End If - If ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=2, AutoConta:=AutoConta) Then - If ObjConta.ValorPolizaDescuadre > 0 Then - GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") - End If - End If + 'If ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=2, AutoConta:=AutoConta) Then + ' If ObjConta.ValorPolizaDescuadre > 0 Then + ' GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") + ' End If + 'End If End If End If @@ -16383,23 +16387,23 @@ Partial Class Ventas ' Next 'End If - If ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=2, AutoConta:=AutoConta) Then - If ObjConta.ValorPolizaDescuadre > 0 Then - If ObjConta.ValorPolizaDescuadre = 2 Then - ErrorPrepoliza = True - Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError) - End If - 'ErrorPrepoliza = True - GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") + 'If ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=2, AutoConta:=AutoConta) Then + ' If ObjConta.ValorPolizaDescuadre > 0 Then + ' If ObjConta.ValorPolizaDescuadre = 2 Then + ' ErrorPrepoliza = True + ' Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError) + ' End If + ' 'ErrorPrepoliza = True + ' GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") - 'SIRVE PARA VER LA PREPOLIZA QUE SE VALIDA - 'If ObjConta.GetPrePolizasDetalle(ObjFactura.CvePrePoliza) Then - ' Dim DtTest = ObjConta.DtResultados - 'End If - End If - Else - ErrorPrepoliza = True - End If + ' 'SIRVE PARA VER LA PREPOLIZA QUE SE VALIDA + ' 'If ObjConta.GetPrePolizasDetalle(ObjFactura.CvePrePoliza) Then + ' ' Dim DtTest = ObjConta.DtResultados + ' 'End If + ' End If + 'Else + ' ErrorPrepoliza = True + 'End If Return ErrorPrepoliza Catch ex As Exception