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

--FIX para E01

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-02-04 19:26:30 -07:00
parent fb80b93627
commit 4edc27d2db
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ventas/PVCobranza.aspx.vb
View File

@@ -523,7 +523,7 @@ Partial Class Ventas_PVCobranza
HdnVentaCondicionesPago.Value = GvRow.DataKey("CondicionesPago") HdnVentaCondicionesPago.Value = GvRow.DataKey("CondicionesPago")
HdnPlazoCobranza.Value = GvRow.DataKey("PlazoCobranza") HdnPlazoCobranza.Value = GvRow.DataKey("PlazoCobranza")
If UsuarioActual.CveEmpresa = 189 AndAlso GvRow.DataKey("TipoDocto") = "Rem" Then If UsuarioActual.CveEmpresa.Contiene(189, 1) AndAlso GvRow.DataKey("TipoDocto") = "Rem" Then
DivAnticipo.Visible = True DivAnticipo.Visible = True
ImgAntiPend.Visible = True ImgAntiPend.Visible = True
End If End If
@@ -572,6 +572,9 @@ Partial Class Ventas_PVCobranza
End Sub End Sub
Private Sub BtnPagar_Click(sender As Object, e As EventArgs) Handles BtnPagar.Click Private Sub BtnPagar_Click(sender As Object, e As EventArgs) Handles BtnPagar.Click
Dim GenerarFac As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 189, 197)
'registrar pago 'registrar pago
Dim VentaContado As Boolean = HdnVentaCondicionesPago.Value = "0" Dim VentaContado As Boolean = HdnVentaCondicionesPago.Value = "0"
@@ -680,7 +683,7 @@ Partial Class Ventas_PVCobranza
Dim PlazoCobranza As Integer = HdnPlazoCobranza.Value.ToEntero Dim PlazoCobranza As Integer = HdnPlazoCobranza.Value.ToEntero
Try Try
'FACTURAR LA REMISION PARA HACER EL PAGO 'FACTURAR LA REMISION PARA HACER EL PAGO
If UsuarioActual.CveEmpresa.Contiene(1, 189, 197) AndAlso VentaActual.TipoDocto = "Rem" Then If GenerarFac AndAlso VentaActual.TipoDocto = "Rem" Then
CveVentaRemision = HdnCveVenta.Value.ToEntero CveVentaRemision = HdnCveVenta.Value.ToEntero