Descuentos en formatos de OC Emp:13,82

App_Code/ClsPaginas.vb

@@ -6707,15 +6707,15 @@ Public Class ClsPaginas
                 '    nombreautorizo = "Lic. LUIS JORGE CONTRERAS LANDGRAVE"
                 'End If
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta))
-                If Not Archivo.Exists OrElse EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 72, 80, 122, 126) Then
+                If Not Archivo.Exists OrElse EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 13, 72, 80, 83, 122, 126) Then
                     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, 72, 80, 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, 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
-                    params.Add(New ReportParameter("SubTotal", ObjOC.SubTotal.ToString))
+                    params.Add(New ReportParameter("SubTotal", DtDetalle.SUM("Total").ToString))
                 End If
 
                 If EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 122) Then