Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx

@@ -2212,8 +2212,8 @@
                                                         <ItemTemplate>
                                                             <asp:Label runat="server" Visible="false" ID="LbCveAF" Text='<%# Eval("CodAF")%>'></asp:Label>
                                                             <asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="80px" Visible="true"></asp:TextBox>
-                                                            <asp:HyperLink runat="server" ID="HLBuscarAF"><i class="fa fa-search" aria-hidden="true"></i></asp:HyperLink>
+                                                            <asp:Label runat="server" ID="LblValido" Visible="false"  Text="<i class='fa fa-check' style='color:green'></i>"></asp:Label>
-                                                            <asp:Label runat="server" ID="LblValido" Style="display: none" Text="<i class='fa fa-check' style='color:green'></i>"></asp:Label>
+                                                            <asp:HyperLink runat="server" ID="HLBuscarAF"><i class="fa fa-search" aria-hidden="true"></i></asp:HyperLink>                                                           
 
                                                             <asp:HiddenField runat="server" ID="HdnCveConcepto" Value='<%# Eval("CveConcepto")%>' />
                                                             <asp:HiddenField runat="server" ID="HdnIndex" />
@@ -2313,7 +2313,7 @@
                                                         <ItemTemplate>
                                                             <%--<asp:Label runat="server" ID="LbCveAF" Text='<%# Eval("CodAF")%>'></asp:Label>--%>
                                                             <asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="100px"></asp:TextBox>
-															<asp:Label runat="server" ID="LblValido" Style="display: none" Text="<i class='fa fa-check' style='color:green'></i>"></asp:Label>
+															<asp:Label runat="server" ID="LblValido" Visible="false"   Text="<i class='fa fa-check' style='color:green'></i>"></asp:Label>
                                                             <asp:HyperLink runat="server" ID="HLBuscarAF"><i class="fa fa-search" aria-hidden="true"></i></asp:HyperLink>
 
                                                             <asp:HiddenField runat="server" ID="HdnCveConcepto" Value='<%# Eval("CveConcepto")%>' />

Compras/Compras.aspx.vb

@@ -8056,10 +8056,13 @@ Partial Class Compras_Compras
 
                         If (TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas) < 0 Then
 
-                            Dim AjusteteDividido As Decimal = DiferenciaIVas / CantidadRegistroConIVA
-
                             For Each dRow As DataRow In TmpDT.Rows
-                                dRow("IVA") = dRow("IVA").ToString.ToDecimal + AjusteteDividido
+
+                                If dRow("IVA").ToString.ToDecimal > 0 Then
+                                    Dim AjusteCorrespondiente As Decimal = (DiferenciaIVas * dRow("IVA").ToString.ToDecimal) / 100
+                                    dRow("IVA") = dRow("IVA").ToString.ToDecimal - AjusteCorrespondiente
+                                End If
+
                             Next
 
                         Else
@@ -11472,7 +11475,8 @@ Partial Class Compras_Compras
             If e.Row.DBCampo("TipoAF").ToEntero = 1 Then
                 If e.Row.DBCampo("CveActivoFijo").ToEntero > 0 Then
                     e.Row.FCTextBox("LblCodigo").Text = e.Row.DBCampo("CodAF").ToString
-                    e.Row.FCLabel("LblValido").Attributes("display") = ""
+                    'e.Row.FCLabel("LblValido").Attributes("display") = ""
+                    e.Row.FCLabel("LblValido").Visible = False
                     e.Row.FCHiddenField("HdnCveAF").Value = e.Row.DBCampo("CveActivoFijo").ToString
                     e.Row.FCHiddenField("HdnCodAF").Value = e.Row.DBCampo("CodAF").ToString
                     SinValor = False
@@ -11483,7 +11487,10 @@ Partial Class Compras_Compras
                 e.Row.FCTextBox("LblCodigo").Text = ""
                 e.Row.FCHiddenField("HdnCveAF").Value = "0"
                 e.Row.FCHiddenField("HdnCodAF").Value = "0"
-                e.Row.FCLabel("LblValido").Attributes("display") = "none"
+                'e.Row.FCLabel("LblValido").Attributes("display") = "none"
+                e.Row.FCLabel("LblValido").Visible = False
+            Else
+                e.Row.FCLabel("LblValido").Visible = True
             End If
 
             If e.Row.DBCampo("AFTipoMantenimiento").ToEntero > 0 Then
@@ -11605,15 +11612,23 @@ Partial Class Compras_Compras
         Dim ObjAF As New ClsAF
         Dim Index As Integer = HdnIndexTmpDT.Value.ToEntero()
         If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, HdnCodAFEdit.Value, "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then
-            If ObjAF.DtResultados.Rows.Count = 1 Then
+
+            Dim DTResultadosAF As New DataTable
+            If ObjAF.DtResultados IsNot Nothing Then
+                DTResultadosAF = ObjAF.DtResultados.FiltraParametros($" Codigo = '{HdnCodAFEdit.Value.Trim}' ")
+            End If
+
+            If DTResultadosAF.Rows.Count = 1 Then
                 'VERIFICAR QUE EL ACTIVO FIJO ESTE ACTIVO. que no este en baja, inactivo.
                 If HdnTipoAF.Value.ToEntero = 1 Then
-                    GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
+                    GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = DTResultadosAF.Rows(0)("CveActivoFijo").ToString
-                    GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString
+                    GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = DTResultadosAF.Rows(0)("Codigo").ToString
-                    RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
+                    GvAFInsumos.Rows(Index).FCLabel("LblValido").Visible = True
+
+                    'RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
 
                     Try
-                        TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
+                        TmpDT.Rows(Index)("CveActivoFijo") = DTResultadosAF.Rows(0)("CveActivoFijo").ToString
                         TmpDT.AcceptChanges()
                     Catch ex As Exception
 
@@ -11621,12 +11636,13 @@ Partial Class Compras_Compras
 
 
                 ElseIf HdnTipoAF.Value.ToEntero = 2 Then
-                    GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
+                    GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = DTResultadosAF.Rows(0)("CveActivoFijo").ToString
-                    GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString
+                    GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = DTResultadosAF.Rows(0)("Codigo").ToString
-                    RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
+                    GvAFCompras.Rows(Index).FCLabel("LblValido").Visible = True
+                    'RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
 
                     Try
-                        TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
+                        TmpDT.Rows(Index)("CveActivoFijo") = DTResultadosAF.Rows(0)("CveActivoFijo").ToString
                         TmpDT.AcceptChanges()
                     Catch ex As Exception
 
@@ -11641,7 +11657,8 @@ Partial Class Compras_Compras
                 If HdnTipoAF.Value.ToEntero = 1 Then
                     GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1"
                     GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1"
-                    RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
+                    GvAFInsumos.Rows(Index).FCLabel("LblValido").Visible = False
+                    'RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
 
 
                     Try
@@ -11655,7 +11672,8 @@ Partial Class Compras_Compras
                 ElseIf HdnTipoAF.Value.ToEntero = 2 Then
                     GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1"
                     GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1"
-                    RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
+                    GvAFCompras.Rows(Index).FCLabel("LblValido").Visible = True
+                    'RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
 
                     Try
                         TmpDT.Rows(Index)("CveActivoFijo") = Nothing
@@ -11670,6 +11688,8 @@ Partial Class Compras_Compras
             End If
         End If
 
+        UPDatosAFInsumos.Update()
+        UPDatosAFCompras.Update()
         ObjAF.Dispose()
     End Sub
     Protected Sub DdlTipoMantemiento_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -17887,10 +17907,13 @@ Partial Class Compras_Compras
         Dim PU As Double = DrPS("PU").ToString.ToDouble
         Dim Descuento As Double = DrPS("Descuento").ToString.ToDouble
         Dim Total As Double = (Cantidad * PU) - Descuento
+        Dim PorcentajeIVAActual As Decimal = DrPS("IVAPorcentaje").ToString.ToDecimal
+        Dim PorcentajeIVADDl As Decimal = Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2)
+
         DrPS("NoDeducible") = ChkEsNoDeduciblePS.Checked
 
         Dim ActualizarIva As Boolean = False
-        If Cantidad.RoundSQL(2) <> TxtCantidad.Text.Trim.ToDouble.RoundSQL(2) Or PU.RoundSQL(2) <> TxtPrecio.Text.Trim.ToDouble.RoundSQL(2) Then
+        If Cantidad.RoundSQL(2) <> TxtCantidad.Text.Trim.ToDouble.RoundSQL(2) Or PU.RoundSQL(2) <> TxtPrecio.Text.Trim.ToDouble.RoundSQL(2) Or PorcentajeIVAActual <> PorcentajeIVADDl Then
             ActualizarIva = True
         End If
 

Compras/eFacturas.aspx.vb

@@ -28,6 +28,7 @@ Imports System.Drawing
 Imports Microsoft.Owin.Security.Provider
 Imports Telerik.Web.UI
 Imports Stimulsoft.Base.StiDbType
+
 'Imports Telerik.Web.UI
 
 
@@ -1577,9 +1578,6 @@ Partial Class Compras_eFacturas
         Dim swTiempo As New StringBuilder
         sw.Start()
 
-
-
-
         For Each comprmido As String In ListComprimidos
 
             Dim FiInfo As New FileInfo(comprmido)
@@ -4204,6 +4202,8 @@ Partial Class Compras_eFacturas
 
         Using MR As ReportViewer = New ReportViewer()
             Dim rdsTotales As ReportDataSource = New ReportDataSource()
+
+
             Dim ltotales As List(Of utilValores) = New List(Of utilValores)()
             ltotales.Add(New utilValores("Subtotal", objxml.comprobante.SubTotal.ToString("N2")))
 
@@ -8966,7 +8966,9 @@ Namespace ADS.eFacturas
         Public Sub ImprimirPDF(UsuarioActual As Usuario, NombreArchivo As String, DirectorioEmpresa As String, TipodeComprobante As String)
             Dim objxml As XmlSatCFDI = Me
 
-            Dim rutaReporte As String = If(TipodeComprobante = "Pag", "Grales\Formatos\CFDIV3Pago.rdlc", "Grales\Formatos\CFDIV3.rdlc")
+            Dim rutaReporte As String = $"{DirectorioEmpresas}{If(TipodeComprobante = "Pag", "Grales\Formatos\CFDIV3Pago.rdlc", "Grales\Formatos\CFDIV3.rdlc")}"
+
+            'Dim rutaReporte As String = If(TipodeComprobante = "Pag", "Grales\Formatos\CFDIV3Pago.rdlc", "Grales\Formatos\CFDIV3.rdlc")
 
 
             Dim cQr As Byte() = Nothing
@@ -9035,46 +9037,173 @@ Namespace ADS.eFacturas
                 Dim listaDS As New List(Of ReportDataSource)
                 Dim rdsTotales As New ReportDataSource()
                 Dim ltotales As New List(Of utilValores)()
+
+                Dim DTTotales As New DataTable
+                DTTotales.TableName = "DTTotales"
+                DTTotales.Columns.Add("Nombre")
+                DTTotales.Columns.Add("Valor")
+
                 ltotales.Add(New utilValores("Subtotal", objxml.comprobante.SubTotal.ToString("N2")))
                 If objxml.comprobante.Descuento > 0 Then
                     ltotales.Add(New utilValores("Descuento", objxml.comprobante.Descuento.ToString("N2")))
                 End If
 
                 For Each item As CFDIImpuesto In objxml.Impuestos
+                    Dim nRow As DataRow = DTTotales.NewRow
                     If item.Importe > 0 Then
                         Dim TasaOCuota As Decimal = 0
                         Decimal.TryParse(item.TasaOCuota, TasaOCuota)
                         ltotales.Add(New utilValores($"Impuestos {item.Tipo} {item.ImpuestoTexto} {(If(item.TipoFactor = "Tasa", (TasaOCuota * 100).ToString("N4"), item.TasaOCuota))} {(If(item.TipoFactor = "Tasa", "%", ""))}", item.Importe.ToString("N2")))
+
+                        nRow("Nombre") = $"Impuestos {item.Tipo} {item.ImpuestoTexto} {(If(item.TipoFactor = "Tasa", (TasaOCuota * 100).ToString("N4"), item.TasaOCuota))} {(If(item.TipoFactor = "Tasa", "%", ""))}"
+                        nRow("Valor") = item.Importe.ToString("N2")
+                        DTTotales.Rows.Add(nRow)
+
                     End If
                 Next
 
                 ltotales.Add(New utilValores("Total", objxml.comprobante.Total.ToString("N2")))
                 rdsTotales.Name = "dsTotales"
-                rdsTotales.Value = ltotales
+                rdsTotales.Value = DTTotales 'ltotales.ToDataTable
                 listaDS.Add(rdsTotales)
 
+
+                Dim dtByte As New DataTable()
+                dtByte.Columns.Add("ImagenByte", GetType(Byte()))
+                dtByte.TableName = "dtImagenes"
+                Dim nrowByteArray As DataRow = dtByte.NewRow
+                nrowByteArray("ImagenByte") = cQr
+                dtByte.Rows.Add(nrowByteArray)
+
+                'byteArrayList.Add(cQr)
                 Dim rds2 As New ReportDataSource()
-                Dim limagenes As New List(Of utilImage)()
+                'Dim limagenes As New List(Of utilImage)()
-                limagenes.Add(New utilImage(cQr))
+                'limagenes.Add(New utilImage(cQr))
                 rds2.Name = "dsImagenes"
-                rds2.Value = limagenes
+                rds2.Value = dtByte
                 listaDS.Add(rds2)
 
+
+                Dim dtRelacionados As New DataTable
+                dtRelacionados.TableName = "dtRelacionados"
+                dtRelacionados.Columns.Add("TipoRelacion")
+                dtRelacionados.Columns.Add("TipoRelacionTexto")
+                dtRelacionados.Columns.Add("UUID")
+
+
+                For Each relaciondo As CFDIRelacionado In objxml.cFDIRelacionados
+                    Dim CFDIRelacionadoRow As DataRow = dtRelacionados.NewRow
+                    CFDIRelacionadoRow("TipoRelacion") = relaciondo.TipoRelacion
+                    CFDIRelacionadoRow("TipoRelacionTexto") = relaciondo.TipoRelacionTexto
+                    CFDIRelacionadoRow("UUID") = relaciondo.UUID
+                    dtRelacionados.Rows.Add(CFDIRelacionadoRow)
+                Next
+
                 Dim rdsrelacionados As New ReportDataSource()
                 rdsrelacionados.Name = "dsRelacionados"
-                rdsrelacionados.Value = objxml.cFDIRelacionados
+                rdsrelacionados.Value = dtRelacionados 'objxml.cFDIRelacionados
                 listaDS.Add(rdsrelacionados)
 
+
+
+                Dim dtConceptos As New DataTable
+                dtConceptos.TableName = "dtConceptos"
+                dtConceptos.Columns.Add("tipo", GetType(Integer))
+                dtConceptos.Columns.Add("orden", GetType(Integer))
+                dtConceptos.Columns.Add("ClaveProdServ", GetType(String))
+                dtConceptos.Columns.Add("NoIdentificacion", GetType(String))
+                dtConceptos.Columns.Add("Cantidad", GetType(String)) ' Nota: Se asume que es cadena, cambiar si necesario
+                dtConceptos.Columns.Add("ClaveUnidad", GetType(String))
+                dtConceptos.Columns.Add("Unidad", GetType(String))
+                dtConceptos.Columns.Add("ValorUnitario", GetType(Decimal))
+                dtConceptos.Columns.Add("Importe", GetType(Decimal))
+                dtConceptos.Columns.Add("Descuento", GetType(Decimal))
+                dtConceptos.Columns.Add("NumeroPedimento", GetType(String))
+                dtConceptos.Columns.Add("CuentaPredial", GetType(String))
+                dtConceptos.Columns.Add("Descripcion", GetType(String))
+                dtConceptos.Columns.Add("Impuesto", GetType(String))
+                dtConceptos.Columns.Add("Impuesto_Tipo", GetType(String))
+                dtConceptos.Columns.Add("Impuesto_Base", GetType(Decimal))
+                dtConceptos.Columns.Add("Impuesto_TipoFactor", GetType(String))
+                dtConceptos.Columns.Add("Impuesto_TasaOCuota", GetType(String))
+                dtConceptos.Columns.Add("Impuesto_Importe", GetType(Decimal))
+
+                For Each concepto As CFDIConcepto_I In objxml.GetConceptosforpdf()
+                    Dim CFDIRelacionadoRow As DataRow = dtConceptos.NewRow
+
+                    CFDIRelacionadoRow("tipo") = concepto.tipo
+                    CFDIRelacionadoRow("orden") = concepto.orden
+                    CFDIRelacionadoRow("ClaveProdServ") = concepto.ClaveProdServ
+                    CFDIRelacionadoRow("NoIdentificacion") = concepto.NoIdentificacion
+                    CFDIRelacionadoRow("Cantidad") = concepto.Cantidad
+                    CFDIRelacionadoRow("ClaveUnidad") = concepto.ClaveUnidad
+                    CFDIRelacionadoRow("Unidad") = concepto.Unidad
+                    CFDIRelacionadoRow("ValorUnitario") = concepto.ValorUnitario
+                    CFDIRelacionadoRow("Importe") = concepto.Importe
+                    CFDIRelacionadoRow("Descuento") = concepto.Descuento
+                    CFDIRelacionadoRow("NumeroPedimento") = concepto.NumeroPedimento
+                    CFDIRelacionadoRow("CuentaPredial") = concepto.CuentaPredial
+                    CFDIRelacionadoRow("Descripcion") = concepto.Descripcion
+                    CFDIRelacionadoRow("Impuesto") = concepto.Impuesto
+                    CFDIRelacionadoRow("Impuesto_Tipo") = concepto.Impuesto_Tipo
+                    CFDIRelacionadoRow("Impuesto_Base") = concepto.Impuesto_Base
+                    CFDIRelacionadoRow("Impuesto_TipoFactor") = concepto.Impuesto_TipoFactor
+                    CFDIRelacionadoRow("Impuesto_TasaOCuota") = If(concepto.Impuesto_TasaOCuota Is Nothing, "", concepto.Impuesto_TasaOCuota)
+                    CFDIRelacionadoRow("Impuesto_Importe") = If(concepto.Impuesto_Importe > 0, concepto.Impuesto_Importe, 0)
+
+                    dtConceptos.Rows.Add(CFDIRelacionadoRow)
+                Next
+
+
+
                 Dim rds1 As New ReportDataSource()
                 rds1.Name = "dsConceptos"
-                rds1.Value = objxml.GetConceptosforpdf()
+                rds1.Value = dtConceptos 'objxml.GetConceptosforpdf()
                 listaDS.Add(rds1)
 
+
                 If objxml.complemento.Pagos IsNot Nothing Then
+
+                    ' Crear un nuevo DataTable y agregar las columnas correspondientes
+                    Dim DTdoctosRelacionados As New DataTable()
+                    DTdoctosRelacionados.TableName = "dtDocumentos"
+
+                    ' Agregar todas las columnas respetando los tipos de datos
+                    DTdoctosRelacionados.Columns.Add("IdDocumento", GetType(String))
+                    DTdoctosRelacionados.Columns.Add("Serie", GetType(String))
+                    DTdoctosRelacionados.Columns.Add("Folio", GetType(String))
+                    DTdoctosRelacionados.Columns.Add("MonedaDR", GetType(String))
+                    DTdoctosRelacionados.Columns.Add("MetodoDePagoDR", GetType(String))
+                    DTdoctosRelacionados.Columns.Add("NumParcialidad", GetType(String))
+                    DTdoctosRelacionados.Columns.Add("ImpSaldoAnt", GetType(Decimal))
+                    DTdoctosRelacionados.Columns.Add("ImpPagado", GetType(Decimal))
+                    DTdoctosRelacionados.Columns.Add("ImpSaldoInsoluto", GetType(Decimal))
+
+                    ' Llenar el DataTable con los valores de la lista de documentos
+                    For Each doctosRelacionado As CFDIPagoDoctoRelacionado In objxml.complemento.Pagos.doctosRelacionados
+                        Dim nRowdoctosRelacionados As DataRow = DTdoctosRelacionados.NewRow()
+
+                        ' Asignar valores a cada columna desde las propiedades del objeto documento
+                        nRowdoctosRelacionados("IdDocumento") = doctosRelacionado.IdDocumento
+                        nRowdoctosRelacionados("Serie") = doctosRelacionado.Serie
+                        nRowdoctosRelacionados("Folio") = doctosRelacionado.Folio
+                        nRowdoctosRelacionados("MonedaDR") = doctosRelacionado.MonedaDR
+                        nRowdoctosRelacionados("MetodoDePagoDR") = doctosRelacionado.MetodoDePagoDR
+                        nRowdoctosRelacionados("NumParcialidad") = doctosRelacionado.NumParcialidad
+                        nRowdoctosRelacionados("ImpSaldoAnt") = doctosRelacionado.ImpSaldoAnt
+                        nRowdoctosRelacionados("ImpPagado") = doctosRelacionado.ImpPagado
+                        nRowdoctosRelacionados("ImpSaldoInsoluto") = doctosRelacionado.ImpSaldoInsoluto
+
+                        ' Agregar la fila al DataTable
+                        DTdoctosRelacionados.Rows.Add(nRowdoctosRelacionados)
+                    Next
+
                     Dim rdsp As New ReportDataSource()
                     rdsp.Name = "dsPagos"
-                    rdsp.Value = objxml.complemento.Pagos.doctosRelacionados
+                    rdsp.Value = DTdoctosRelacionados ' objxml.complemento.Pagos.doctosRelacionados
                     listaDS.Add(rdsp)
+
+
                 End If
 
 
@@ -9097,6 +9226,11 @@ Namespace ADS.eFacturas
         End Sub
 
         Public Class utilValores
+
+            Public Sub New()
+                ' Constructor sin parámetros
+            End Sub
+
             Public Sub New(nombre As String, valor As String)
                 Me.Nombre = nombre
                 Me.Valor = valor

Empresas/Grales/Formatos/CFDIV3.rdlc

@@ -4624,7 +4624,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Fields!Impuesto_TasaOCuota.Value &amp; if(Fields!Impuesto_TipoFactor.Value="Tasa","%","")</Value>
+                                  <Value>= CStr(Fields!Impuesto_TasaOCuota.Value) &amp; IIf(Fields!Impuesto_TipoFactor.Value = "Tasa", "%", "")</Value>
                                   <Style>
                                     <FontFamily>arial</FontFamily>
                                     <FontSize>7pt</FontSize>
@@ -4647,6 +4647,7 @@
                             <PaddingBottom>1pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>

OC/OC.aspx.vb

@@ -1427,6 +1427,16 @@ Partial Class OC_OC
 
         ObjOC.Dispose()
     End Sub
+
+
+    Protected Function GetCveSubProyectoDetalles() As Integer
+
+        Dim CveSubProyectoDetalles As Integer = DtDetalle.MAX("CveSubProyecto").ToEntero
+
+        Return CveSubProyectoDetalles
+
+    End Function
+
 #End Region
 
 #Region "  CARGA DATOS  "
@@ -2880,9 +2890,13 @@ Partial Class OC_OC
 
             If Not TieneError Then ' AGREGAR ORDEN DE COMPRA
 
-                Dim tCveSubProyecto As Integer = -1
+                Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto
                 If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
 
+                If tCveSubProyecto <= 0 Then
+                    tCveSubProyecto = GetCveSubProyectoDetalles()
+                End If
+
                 If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                  LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
                                  RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
@@ -2907,6 +2921,7 @@ Partial Class OC_OC
                         If Not TieneError Then
                             CveOCGeneradas.Add(CveOrdenCompra)
                             FolioOCGeneradas.Add(OC.Folio)
+                            SerieFolio = OC.Folio.ToString
                         End If
                     End If
 
@@ -3547,8 +3562,16 @@ Partial Class OC_OC
                         If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "OC", CveProveedor, objOrdenCompra.IniciaTransacSQL) Then
                             HuboError = True
                         End If
-                        Dim CveSubProyecto As Integer = -1
+
-                        If ModalidadSubProyectoGeneral Then CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
+                        Dim CveSubProyecto As Integer = UsuarioActual.CveSubProyecto
+
+                        If ModalidadSubProyectoGeneral Then
+                            CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
+                        End If
+
+                        If CveSubProyecto <= 0 Then
+                            CveSubProyecto = GetCveSubProyectoDetalles()
+                        End If
 
                         If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", CveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
                                                          CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
@@ -3624,8 +3647,14 @@ Partial Class OC_OC
                     HuboError = True
                 End If
 
-                Dim tCveSubProyecto As Integer = -1
+                Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto
                 If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
+                If tCveSubProyecto <= 0 Then
+                    tCveSubProyecto = GetCveSubProyectoDetalles()
+                End If
+
+
+
 
                 If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
                                                  CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,

Ventas/RepVentasDetalle.aspx

@@ -540,7 +540,7 @@
                     <%-- 31--%>
                     <asp:TemplateField HeaderText="Estatus Facturación" Visible="false">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlEstatusFacturacion" runat="server" Text='<%# Eval("EstatusCot") %>'></asp:Literal>
+                            <asp:Literal ID="LtlEstatusFacturacion" runat="server" Text='<%# Eval("EstatusFactura") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%-- 32--%>