-- contabilizar

Inventarios/EntradasSalidas.aspx.vb

@@ -791,8 +791,6 @@ Partial Class Inventarios_EntradasSalidas
             HplImprimirResumen.Visible = True
             HplImprimirResumen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Almr&CveMovimiento={0}", CveMovimiento)))
 
-
-
             CveCompra = Mov.CveCompra
             CveConcepto = Mov.CveConcepto
 
@@ -978,6 +976,9 @@ Partial Class Inventarios_EntradasSalidas
 
             PermisoVerImportes()
 
+            If IfNull(Request("Conta"), "0").ToString = "1" Then
+                Contabilizar()
+            End If
 
 
         Else
@@ -3683,6 +3684,10 @@ Partial Class Inventarios_EntradasSalidas
 
     Private Sub BtnGeneraPrepoliza_Click(sender As Object, e As EventArgs) Handles BtnGeneraPrepoliza.Click
         ''PREPOLIZA - SE CAMBIO DE LUGAR EL USO DE ESTA PARTE
+        Contabilizar()
+    End Sub
+
+    Private Sub Contabilizar()
         Dim ObjInventario As New ClsInventarios
 
         Dim ErrorMovInv As Boolean = False
@@ -3695,7 +3700,6 @@ Partial Class Inventarios_EntradasSalidas
 
         Dim CvePrePolizaRegistrada As Integer = -1
 
-
         ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
         Dim CveVenta As Integer = ObjInventario.CveVenta
         Dim MovAlmacen As Boolean = False
@@ -3743,6 +3747,12 @@ Partial Class Inventarios_EntradasSalidas
                             End If
                         End If
                     Next
+                Else
+                    If ObjInventario.Modulo.Contiene("RA/G4") Then
+                        Contabilizable = True
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 205, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompra, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
+                            ErrorMovInv = True
+                        End If
                     Else
                         If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then
                             Contabilizable = False
@@ -3793,6 +3803,7 @@ Partial Class Inventarios_EntradasSalidas
                             End If
                         End If
                     End If
+                End If
 
                 IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then