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 Public Property FechaEstimadaEntrega As Date
'Private _NombreUsuario As String 'Private _NombreUsuario As String
Public Property CveProveedor As Integer Public Property CveProveedor As Integer
Public Property TipoProveedor As String
Public Property CveProveedorSucursal As Integer Public Property CveProveedorSucursal As Integer
Public Property SucursalDireccion As String Public Property SucursalDireccion As String
Public Property ProveedorContacto As String Public Property ProveedorContacto As String
@@ -736,6 +737,7 @@ Public Class ClsOC
_NombreUsuario = dr("NombreUsuario").ToString _NombreUsuario = dr("NombreUsuario").ToString
_CveProveedor = If(Not IsDBNull(dr("CveProveedor")), dr("CveProveedor").ToString.ToEntero, -1) _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) _CveProveedorSucursal = If(Not IsDBNull(dr("CveProveedorSucursal")), dr("CveProveedorSucursal").ToString.ToEntero, -1)
_RazonSocial = If(Not IsDBNull(dr("RazonSocial")), dr("RazonSocial").ToString, "") _RazonSocial = If(Not IsDBNull(dr("RazonSocial")), dr("RazonSocial").ToString, "")
_Direccion = If(Not IsDBNull(dr("Direccion")), dr("Direccion").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("ProveedorDireccion", If(ObjOC.CveProveedorSucursal > 0, ObjOC.SucursalDireccion, ObjOC.Direccion)))
params.Add(New ReportParameter("ProveedorTel", If(ObjOC.CveProveedorSucursal > 0, ObjOC.SucursalTelefono, ObjOC.Telefono))) 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("ProveedorRFC", ObjOC.RFC))
params.Add(New ReportParameter("IVA", ObjOC.IVA.ToString)) params.Add(New ReportParameter("IVA", ObjOC.IVA.ToString))
params.Add(New ReportParameter("RetIVA", ObjOC.RetIVA.ToString.FormatoNumero(2))) 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 Return False
End If End If
If UsuarioActual.CveEmpresa = 72 AndAlso DrPS("SATClavePS").ToString() = "01010101" Then '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()) ' 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 ' Return False
End If '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
End If End If