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