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

Correcion en PS SAT

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-10-12 16:49:09 -07:00
parent efafba9671
commit 7c766941cc
2 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Ventas/ProductosServicios.aspx.vb
View File

@@ -2019,17 +2019,18 @@ Partial Class ProductosyServicios
#Region "SELECTED INDEX CHANGE" #Region "SELECTED INDEX CHANGE"
Public Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged Public Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
If DdlClasificacion.SelectedValue.ToEntero > 0 Then If DdlClasificacion.SelectedValue.ToEntero > 0 Then
If Not CveSATPS > 0 Or CveSATPS = 46920 Then If Me.CvePS <= 0 AndAlso (Not CveSATPS > 0 Or CveSATPS = 46920) Then
Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0) Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
DdlSATPS.SelectedValue = Dr("CveSATPS").ToString If Dr IsNot Nothing Then
DdlSATPS.SelectedText = Dr("SATClaveProductoServicio").ToString DdlSATPS.SelectedValue = Dr("CveSATPS").ToString
DdlSATPS.SelectedText = Dr("SATClaveProductoServicio").ToString
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
VerificaRequiereSerieLote()
End If End If
End If
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
VerificaRequiereSerieLote()
End If End If
' CargaClasificacionesDetalles() ' CargaClasificacionesDetalles()
End If End If

2
Ventas/Ventas.aspx.vb
View File

@@ -7081,7 +7081,7 @@ Partial Class Ventas
Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '01010101' ") Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '01010101' ")
If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
Dim StrNoEncontrados As New StringBuilder Dim StrNoEncontrados As New StringBuilder
StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>") StrNoEncontrados.Append("Los siguientes productos no existen en el catálogo del SAT<br/><br/>")
For Each drt As DataRow In DtNoEncontrados.Rows For Each drt As DataRow In DtNoEncontrados.Rows
StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS")) StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
Next Next