autoconta = 119

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -237,6 +237,18 @@ Partial Class Inventarios_PrestamosdeProveedor
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, -tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=-tValorInventario, CveSubProyecto:=CveSubProyecto) Then
                             ErrorMovInv = True
                         End If
+                    End If
+
+                    Dim AutoConta As Boolean = True
+                    If (UsuarioActual.CveEmpresa = 119) Then
+                        AutoConta = False
+                    End If
+                    If Not ErrorMovInv AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, AutoConta:=AutoConta) Then
+                        ErrorMovInv = True
+                        'If ObjConta.ValorPolizaDescuadre > 0 Then
+                        '    GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                        '    ErrorPrepolizaDescuadre = True
+                        'End If
                     End If
                 Else
                     ErrorMovInv = True