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

manejo de corte en devoluciones

Browse Source
This commit is contained in:
rrene
2020-12-18 18:42:07 -07:00
parent 0cc5950b1a
commit 8c0e1e2247
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Bancos/IE.aspx.vb
View File

@@ -1261,13 +1261,14 @@ Partial Class Bancos_IE
GvRH.DataBind() GvRH.DataBind()
UpGvRH.Update() UpGvRH.Update()
End Sub End Sub
Private Sub CargaCorteCaja() Private Sub CargaCorteCaja(CveCuenta As Integer)
'Checar si hay un Turno Abierto 'Checar si hay un Turno Abierto
Dim ObjPVenta As New ClsPuntoVenta Dim ObjPVenta As New ClsPuntoVenta
If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
If ObjPVenta.DtResultados.Rows.Count > 0 Then If ObjPVenta.GetCortesPorCuenta(CveCuenta, UsuarioActual.CveEmpresa) Then
CveCorte = ObjPVenta.CveCorte
End If CveCorte = ObjPVenta.CveCorte
End If End If
ObjPVenta.Dispose() ObjPVenta.Dispose()
End Sub End Sub
@@ -1637,8 +1638,8 @@ Partial Class Bancos_IE
End If End If
'PAGAR NC CON C.CH DEBE DESCONTAR EN EL CORTE 'PAGAR NC CON C.CH DEBE DESCONTAR EN EL CORTE
If UsuarioActual.TienePermisoProceso(160) AndAlso Opcion IsNot Nothing AndAlso Opcion = "DevDinV" AndAlso dr("CveTipoCuenta").ToString.ToEntero = 1 Then If Opcion IsNot Nothing AndAlso Opcion = "DevDinV" AndAlso dr("CveTipoCuenta").ToString.ToEntero = 1 Then
CargaCorteCaja() CargaCorteCaja(DdlCuenta.SelectedValue.ToEntero)
End If End If
If dr("UsaTarjeta").ToString = "True" Then If dr("UsaTarjeta").ToString = "True" Then