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

-- contabilizar

Browse Source
This commit is contained in:
rrene
2022-05-11 13:34:17 -07:00
parent 87f2b80f9c
commit 1295653016
1 changed files with 45 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Inventarios/EntradasSalidas.aspx.vb
View File

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