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

-- cambio en obtención de globaldtsubpro

Browse Source
This commit is contained in:
rrene
2024-07-27 07:36:25 -07:00
parent a9aaec5ded
commit d3c799971c
1 changed files with 14 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1767,13 +1767,21 @@ Partial Class Ventas_ClientesAbonar
DtImpuestos = CargaTotalesImpuestos(DtImpuestos) DtImpuestos = CargaTotalesImpuestos(DtImpuestos)
Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto).Rows(0) Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim Cantidad As Decimal = 1 Dim Cantidad As Decimal = 1
Dim CveProyecto As Integer = DrSubProyecto("CveProyecto").ToString().ToEntero() Dim CveProyecto As Integer
Dim CveSubProyecto As Integer = DrSubProyecto("CveSubProyecto").ToString.ToEntero Dim CveSubProyecto As Integer
Dim SubProyecto As String = DrSubProyecto("SubProyecto").ToString Dim SubProyecto As String
Dim Proyecto As String = DrSubProyecto("Proyecto").ToString Dim Proyecto As String
If DrSubProyecto IsNot Nothing Then
CveProyecto = DrSubProyecto("CveProyecto").ToString().ToEntero()
CveSubProyecto = DrSubProyecto("CveSubProyecto").ToString.ToEntero
SubProyecto = DrSubProyecto("SubProyecto").ToString
Proyecto = DrSubProyecto("Proyecto").ToString
Else
Alert("Ocurrió un error al obtener información de la sucursal")
Exit Sub
End If
Dim CveSATNC As Integer Dim CveSATNC As Integer
Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())