From 17988bad434cf7f3d8d93085dcf72ab996a7d155 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 12 Nov 2020 20:16:13 -0700
Subject: [PATCH] =?UTF-8?q?condici=C3=B3n=20en=20el=20reporte=20de=20OC=20?=
 =?UTF-8?q?para=20el=20tipo=20de=20proveedor=20y=20validaci=C3=B3n=20de=20?=
 =?UTF-8?q?c=C3=B3digo=20PS=20SAT=20no=20permitido?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsOC.vb      |  2 ++
 App_Code/ClsPaginas.vb |  3 +++
 Ventas/Ventas.aspx.vb  | 13 +++++++++----
 3 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb
index b12725805..4f046f9db 100644
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -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, "")
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 38ccbc84f..191b602d2 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -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)))
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 71ec1f5d1..db277f368 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -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