se agregó parametro CveEmpresa a GetPrePolizasDetalle.

This commit is contained in:
2021-06-29 06:35:42 -07:00
parent 874d1e529f
commit 6b557505ee
9 changed files with 23 additions and 24 deletions

View File

@@ -895,7 +895,7 @@ Partial Class Bancos_IE
End If
'Detectamos a quien se le hizo el cobro (Cliente, proveedor, Funcionario/Empleado, etc.)
If ObjIE2.GetPrePolizasDetalle(-1, CveIE) Then
If ObjIE2.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If ObjIE2.DtResultados.Rows.Count > 0 Then
Dim CveConceptoContable As Integer = ObjIE2.DtResultados.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero
@@ -2958,7 +2958,7 @@ Partial Class Bancos_IE
End If
'IMPUESTOS
If ObjMov.GetPrePolizasDetalle(CvePrePolizaDevDin) Then
If ObjMov.GetPrePolizasDetalle(CvePrePolizaDevDin, UsuarioActual.CveEmpresa) Then
Dim PorcentajePagoDevDin = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6)
Dim CveConceptoContableAplciar = -1
Dim TipoMovtoAplicar = False