opcion para consumo interno

2023-05-11 10:50:03 -07:00
parent f43042312e
commit 6a2d7efa3e
1 changed files with 6 additions and 1 deletions
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1950,8 +1950,13 @@ Partial Class Inventarios_EntradasSalidas
                        End If

                        If Not ErrorMovInv Then
+                            Dim OpcionPrePoliza As Integer = -1
+                            'SI ES CONSUMO INTERNO
+                            If DdlConcepto.SelectedValue = "30" Then
+                                OpcionPrePoliza = 11
+                            End If

-                            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, OpcionPrePoliza) Then
                                If ObjConta.ValorPolizaDescuadre > 0 Then
                                    ErrorMovInv = True
                                    GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")