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

Correcion en metodo de pago al generar RNC

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-08-14 13:39:36 -07:00
parent 7507057a04
commit 735da2cf29
1 changed files with 17 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -2272,12 +2272,24 @@ Partial Class Inventarios_RecepcionUsados
Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33 Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33
If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows.Count > 0 Then If GlobalDTMetodosPago IsNot Nothing Then
Me.ObjRemisionNC.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows(0)("MetodoPago").ToString Dim DtMetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))
Else
Me.ObjRemisionNC.CveMetodoPago = 1 If DtMetodoPago IsNot Nothing Then
Me.ObjRemisionNC.MetodoPago = "Efectivo"
If DtMetodoPago.Rows.Count > 0 Then
Me.ObjRemisionNC.MetodoPago = DtMetodoPago.Rows(0)("MetodoPago").ToString
Else
Me.ObjRemisionNC.CveMetodoPago = 1
Me.ObjRemisionNC.MetodoPago = "Efectivo"
End If
DtMetodoPago.Dispose()
DtMetodoPago = Nothing
End If
End If End If
End If End If
End If End If