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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2025-01-16 09:14:12 -07:00
parent cb83af4ca1 8dc54b4196
commit 44c11dd60d
12 changed files with 419 additions and 403 deletions
Download Patch File Download Diff File Expand all files Collapse all files

134
Ventas/Clientes.aspx.vb
View File

@@ -1946,9 +1946,9 @@ Partial Class Clientes
End If
ObjMovtos.Dispose()
If UsuarioActual.Empresa.Funcionalidad(185) = "1" AndAlso UsuarioActual.TienePermisoProceso(379) Then
GVAnticipos.Columns(7).Visible = True
End If
'If UsuarioActual.Empresa.Funcionalidad(185) = "1" AndAlso UsuarioActual.TienePermisoProceso(379) Then
' GVAnticipos.Columns(7).Visible = True
'End If
GVAnticipos.DataBind()
GVAnticiposHistorial.DataBind()
@@ -10753,82 +10753,82 @@ Partial Class Clientes
End Function
Protected Sub LnkAutorizarAnticipo_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
Dim CveVenta As Integer = GvRow.DataKey("CveVenta").ToEntero()
Dim CveIE As Integer = GvRow.DataKey("CveIE").ToEntero()
'Protected Sub LnkAutorizarAnticipo_Click(sender As Object, e As EventArgs)
' Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
' Dim CveVenta As Integer = GvRow.DataKey("CveVenta").ToEntero()
' Dim CveIE As Integer = GvRow.DataKey("CveIE").ToEntero()
If CveVenta > 0 OrElse CveIE > 0 Then
Dim Actualizo As Boolean = False
' If CveVenta > 0 OrElse CveIE > 0 Then
' Dim Actualizo As Boolean = False
Using ObjVentas As New ClsVentas
If GvRow.DataKey("Tipo").Contiene("NC", "Ant") Then
If ObjVentas.UpdateVentaAnticipoAutorizado(CveVenta, True) Then
Alert("El anticipo se autorizó correctamente")
Actualizo = True
End If
ElseIf GvRow.DataKey("Tipo").Contiene("IxC") Then
If ObjVentas.UpdateIxCAnticipoAutorizado(CveIE, True) Then
Alert("El anticipo se autorizó correctamente")
Actualizo = True
End If
End If
End Using
' Using ObjVentas As New ClsVentas
' If GvRow.DataKey("Tipo").Contiene("NC", "Ant") Then
' If ObjVentas.UpdateVentaAnticipoAutorizado(CveVenta, True) Then
' Alert("El anticipo se autorizó correctamente")
' Actualizo = True
' End If
' ElseIf GvRow.DataKey("Tipo").Contiene("IxC") Then
' If ObjVentas.UpdateIxCAnticipoAutorizado(CveIE, True) Then
' Alert("El anticipo se autorizó correctamente")
' Actualizo = True
' End If
' End If
' End Using
If Actualizo Then
Dim ObjEventoBitacora As New ClsOIEventos
If ObjEventoBitacora.AddEventoBitacora($"El anticipo se autorizó correctamente. Folio: <b>{GvRow.DataKey("Folio")}</b>", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveCliente, -1, -1, -1, -1, -1) Then
GvEB.DataSource = ObjEventoBitacora.DtResultados
End If
ObjEventoBitacora.Dispose()
GvEB.DataBind()
' If Actualizo Then
' Dim ObjEventoBitacora As New ClsOIEventos
' If ObjEventoBitacora.AddEventoBitacora($"El anticipo se autorizó correctamente. Folio: <b>{GvRow.DataKey("Folio")}</b>", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveCliente, -1, -1, -1, -1, -1) Then
' GvEB.DataSource = ObjEventoBitacora.DtResultados
' End If
' ObjEventoBitacora.Dispose()
' GvEB.DataBind()
UPEventoBitacora.Update()
CargaEventoBitacora()
End If
' UPEventoBitacora.Update()
' CargaEventoBitacora()
' End If
End If
' End If
CargaAnticipos()
End Sub
' CargaAnticipos()
'End Sub
Protected Sub LnkCancelarAnticipo_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
Dim CveVenta As Integer = GvRow.DataKey("CveVenta").ToEntero()
Dim CveIE As Integer = GvRow.DataKey("CveIE").ToEntero()
'Protected Sub LnkCancelarAnticipo_Click(sender As Object, e As EventArgs)
' Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
' Dim CveVenta As Integer = GvRow.DataKey("CveVenta").ToEntero()
' Dim CveIE As Integer = GvRow.DataKey("CveIE").ToEntero()
If CveVenta > 0 OrElse CveIE > 0 Then
Dim Actualizo As Boolean = False
Using ObjVentas As New ClsVentas
If GvRow.DataKey("Tipo").Contiene("NC", "Ant") Then
If ObjVentas.UpdateVentaAnticipoAutorizado(CveVenta, False) Then
Alert("El anticipo se desautorizó correctamente")
Actualizo = True
End If
ElseIf GvRow.DataKey("Tipo").Contiene("IxC") Then
If ObjVentas.UpdateIxCAnticipoAutorizado(CveIE, False) Then
Alert("El anticipo se desautorizó correctamente")
Actualizo = True
End If
End If
End Using
CargaAnticipos()
' If CveVenta > 0 OrElse CveIE > 0 Then
' Dim Actualizo As Boolean = False
' Using ObjVentas As New ClsVentas
' If GvRow.DataKey("Tipo").Contiene("NC", "Ant") Then
' If ObjVentas.UpdateVentaAnticipoAutorizado(CveVenta, False) Then
' Alert("El anticipo se desautorizó correctamente")
' Actualizo = True
' End If
' ElseIf GvRow.DataKey("Tipo").Contiene("IxC") Then
' If ObjVentas.UpdateIxCAnticipoAutorizado(CveIE, False) Then
' Alert("El anticipo se desautorizó correctamente")
' Actualizo = True
' End If
' End If
' End Using
' CargaAnticipos()
If Actualizo Then
Dim ObjEventoBitacora As New ClsOIEventos
If ObjEventoBitacora.AddEventoBitacora($"El anticipo se desautorizó correctamente. Folio: <b>{GvRow.DataKey("Folio")}</b>", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveCliente, -1, -1, -1, -1, -1) Then
GvEB.DataSource = ObjEventoBitacora.DtResultados
End If
ObjEventoBitacora.Dispose()
GvEB.DataBind()
' If Actualizo Then
' Dim ObjEventoBitacora As New ClsOIEventos
' If ObjEventoBitacora.AddEventoBitacora($"El anticipo se desautorizó correctamente. Folio: <b>{GvRow.DataKey("Folio")}</b>", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveCliente, -1, -1, -1, -1, -1) Then
' GvEB.DataSource = ObjEventoBitacora.DtResultados
' End If
' ObjEventoBitacora.Dispose()
' GvEB.DataBind()
UPEventoBitacora.Update()
CargaEventoBitacora()
End If
' UPEventoBitacora.Update()
' CargaEventoBitacora()
' End If
End If
End Sub
' End If
'End Sub
End Class