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

condición en el reporte de OC para el tipo de proveedor y validación de código PS SAT no permitido

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-11-12 20:16:13 -07:00
parent d8cf78cef2
commit 17988bad43
3 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsOC.vb
View File

@@ -68,6 +68,7 @@ Public Class ClsOC
Public Property FechaEstimadaEntrega As Date
'Private _NombreUsuario As String
Public Property CveProveedor As Integer
Public Property TipoProveedor As String
Public Property CveProveedorSucursal As Integer
Public Property SucursalDireccion As String
Public Property ProveedorContacto As String
@@ -736,6 +737,7 @@ Public Class ClsOC
_NombreUsuario = dr("NombreUsuario").ToString
_CveProveedor = If(Not IsDBNull(dr("CveProveedor")), dr("CveProveedor").ToString.ToEntero, -1)
Me.TipoProveedor = If(Not IsDBNull(dr("CveTipoProveedor")), dr("CveTipoProveedor").ToString, "-1")
_CveProveedorSucursal = If(Not IsDBNull(dr("CveProveedorSucursal")), dr("CveProveedorSucursal").ToString.ToEntero, -1)
_RazonSocial = If(Not IsDBNull(dr("RazonSocial")), dr("RazonSocial").ToString, "")
_Direccion = If(Not IsDBNull(dr("Direccion")), dr("Direccion").ToString, "")

3
App_Code/ClsPaginas.vb
View File

@@ -7406,6 +7406,9 @@ Public Class ClsPaginas
params.Add(New ReportParameter("ProveedorDireccion", If(ObjOC.CveProveedorSucursal > 0, ObjOC.SucursalDireccion, ObjOC.Direccion)))
params.Add(New ReportParameter("ProveedorTel", If(ObjOC.CveProveedorSucursal > 0, ObjOC.SucursalTelefono, ObjOC.Telefono)))
If UsuarioActual.CveEmpresa = 119 Then
params.Add(New ReportParameter("TipoProveedor", ObjOC.TipoProveedor))
End If
params.Add(New ReportParameter("ProveedorRFC", ObjOC.RFC))
params.Add(New ReportParameter("IVA", ObjOC.IVA.ToString))
params.Add(New ReportParameter("RetIVA", ObjOC.RetIVA.ToString.FormatoNumero(2)))

13
Ventas/Ventas.aspx.vb
View File

@@ -15931,10 +15931,15 @@ Partial Class Ventas
Return False
End If
If UsuarioActual.CveEmpresa = 72 AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
Return False
End If
'If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
' MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
' Return False
'End If
End If
Else
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
Return False
End If
End If