diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb
index 026dd4995..f9723e55e 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..1fc7ddb54 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7376,7 +7376,7 @@ Public Class ClsPaginas
params.Add(New ReportParameter("Descuento", DtDetalle.SUM("Descuento").ToString.FormatoNumero(2)))
End If
'DATOS PARA DESCUENTO
- If EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 13, 72, 80, 83, 122, 126) Then 'EMPRESAS QUE YA TIENEN EL AJUSTE EN EL FORMATO
+ If EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 13, 72, 80, 83, 119, 122, 126) Then 'EMPRESAS QUE YA TIENEN EL AJUSTE EN EL FORMATO
params.Add(New ReportParameter("SubTotal", ObjOC.SubTotal.ToString))
params.Add(New ReportParameter("SubTotal2", DtDetalle.SUM("Total").ToString))
Else
@@ -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/Empresas/119/Formatos/OC.rdlc b/Empresas/119/Formatos/OC.rdlc
index 972fe2b26..1d461c99b 100644
--- a/Empresas/119/Formatos/OC.rdlc
+++ b/Empresas/119/Formatos/OC.rdlc
@@ -12,10 +12,16 @@
1.5586cm
- 11.45281cm
+ 9.58751cm
- 5.42617cm
+ 3.627cm
+
+
+ 1.8653cm
+
+
+ 1.79919cm
@@ -254,6 +260,122 @@
+
+
+
+ true
+ true
+
+
+
+
+ P. U.
+
+
+
+
+
+
+ Textbox2
+
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+ 1pt
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Total
+
+
+
+
+
+
+ Textbox1
+
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+ 1pt
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
@@ -477,6 +599,75 @@
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Importe.Value
+
+
+
+
+
+
+ Importe
+
+
+ 2pt
+ 2pt
+ 1pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Total.Value
+
+
+
+
+
+
+ Total
+
+
+ 2pt
+ 2pt
+ 1pt
+
+
+
+
@@ -487,6 +678,16 @@
+
+
+ =IIF(Parameters!TipoProveedor.Value = "1",true,false)
+
+
+
+
+ =IIF(Parameters!TipoProveedor.Value = "1",true,false)
+
+
@@ -503,7 +704,7 @@
4.58198cm
0.20457cm
0.96717cm
- 20.2584cm
+ 20.25842cm
=Today
@@ -2276,6 +2480,12 @@
true
ReportParameter1
+
+ String
+ true
+ true
+ ReportParameter1
+
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("{0}-{1}: El producto/servicio no existe en el catálogo del SAT
", 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("{0}-{1}: El producto/servicio no existe en el catálogo del SAT
", 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("{0}-{1}: El producto/servicio no existe en el catálogo del SAT
", DrPS("Codigo").ToString(), DrPS("PS").ToString())
+ Return False
End If
End If