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

-- quitar candado E119, para permitir refacturación con productos

Browse Source
This commit is contained in:
rrene
2023-11-14 11:34:00 -07:00
parent 232f3955a6
commit fc1c300e00
1 changed files with 15 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Ventas/Ventas.aspx.vb
View File

@@ -20884,21 +20884,22 @@ Partial Class Ventas
Response.Redirect($"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1") Response.Redirect($"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1")
Else Else
'si es la empresa 119, Candado, no permite refacturar, si no se ha surtido y que no sea refacturación, para que cancele la factura mejor. 'si es la empresa 119, Candado, no permite refacturar, si no se ha surtido y que no sea refacturación, para que cancele la factura mejor.
If UsuarioActual.CveEmpresa = 119 AndAlso LkRefacturacion.Visible AndAlso CveVentaPadre <= 0 Then 'comentado. RMF. 2023.11136. visto con Fernanda
Dim PermiteRefacturarar As Boolean = True 'If UsuarioActual.CveEmpresa = 119 AndAlso LkRefacturacion.Visible AndAlso CveVentaPadre <= 0 Then
Using ObjInv As New ClsInventarios ' Dim PermiteRefacturarar As Boolean = True
If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then ' Using ObjInv As New ClsInventarios
If ObjInv.DtResultados.Rows.Count > 0 Then ' If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
PermiteRefacturarar = False ' If ObjInv.DtResultados.Rows.Count > 0 Then
End If ' PermiteRefacturarar = False
End If ' End If
End Using ' End If
' End Using
If Not PermiteRefacturarar Then ' If Not PermiteRefacturarar Then
Alert("La factura no se puede refacturar si no ha sido surtida previamente", TipoMensaje.MsgAdvertencia) ' Alert("La factura no se puede refacturar si no ha sido surtida previamente", TipoMensaje.MsgAdvertencia)
Exit Sub ' Exit Sub
End If ' End If
End If 'End If
Dim script As String = "" Dim script As String = ""
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then