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

--merge RegPrePolizaS

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-11-29 17:03:25 -07:00
parent 439610d888 f729e7d5fd
commit ae2cc0ce0c
61 changed files with 6574 additions and 2788 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/Ventas.aspx.vb
View File

@@ -30897,7 +30897,7 @@ Partial Class Ventas
Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())
If ArrayNC.Length >= 4 Then
Dim CvePSNC As Integer = ArrayNC(3).ToEntero()
DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).Rows(0)
DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).FiltroPrimero("")
Else
Dim CveSATNC = "84111506"
DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1).Rows(0)