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

Edicion de metodo de pago en remisiones

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-01-30 14:09:20 -07:00
parent 708f02609f
commit dae538be00
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Ventas/Ventas.aspx.vb
View File

@@ -6063,10 +6063,10 @@ Partial Class Ventas
End Sub End Sub
Private Sub CargaFormaPago(CveMetodoPago As Integer) Private Sub CargaFormaPago(CveMetodoPago As Integer)
'EN LA VERSION 4.0 NO PERMITE DESBLOEQUEAR RELACION METODO Y FOMA DE PAGO 'EN LA VERSION 4.0 NO PERMITE DESBLOEQUEAR RELACION METODO Y FOMA DE PAGO
If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then 'If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
'permiso para desbloquear la relación entre Método de pago y forma de pago ' 'permiso para desbloquear la relación entre Método de pago y forma de pago
If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1 ' If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1
End If 'End If
Dim dtt As DataTable = Nothing Dim dtt As DataTable = Nothing
If CveMetodoPago > 0 Then If CveMetodoPago > 0 Then
@@ -21920,6 +21920,10 @@ Partial Class Ventas
LblAmort.Text = TxtSubTotal.Text LblAmort.Text = TxtSubTotal.Text
LimpiaEscondeContado() LimpiaEscondeContado()
If Not UsuarioActual.TienePermisoProceso(289) Then
DdlMetodoPago33.Enabled = True
End If
UPPVentas.Update() UPPVentas.Update()
UpPS.Update() UpPS.Update()
UpCliente.Update() UpCliente.Update()