diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 637094f0b..984c85f62 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4620,7 +4620,7 @@ Partial Class Ventas
 
                                 For Each Dr As DataRow In TmpDTNCVinculadas.Rows
                                     If Dr("CveConceptoContable").ToString().ToEntero() = 91 Then
-                                        CargaNCDT(Dr("CveVenta").ToString().ToEntero(), Dr("Importe").ToString().ToDecimal, Dr("FolioFiscal").ToString(), TC:=Dr("TipoCambio").ToString().ToDecimal)
+                                        CargaNCDT(Dr("CveVenta").ToString().ToEntero(), DbRowVenta("TipoDocto").ToString(), Dr("Importe").ToString().ToDecimal, Dr("FolioFiscal").ToString(), TC:=Dr("TipoCambio").ToString().ToDecimal)
                                     End If
                                 Next
 
@@ -13153,7 +13153,7 @@ Partial Class Ventas
                 If DtVentasNC Is Nothing Then
                     InicializaDTVentasNC()
                 End If
-                CargaNCDT(factura.CveVentaPadre, factura.Total, NuevaFactura:=NuevaFactura, ObjVentas:=ObjVentas)
+                CargaNCDT(factura.CveVentaPadre, DdlTipoComprobante.SelectedValue, factura.Total, NuevaFactura:=NuevaFactura, ObjVentas:=ObjVentas)
             End If
 
             'Se agregan los PS
@@ -27559,7 +27559,7 @@ Partial Class Ventas
                                 DtImpuestos.Merge(CargaDtImpuestosNC(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal, AplicaImpuestosLocales:=AplicaImpuestosLocales, NivelTotal:=DdlNCNivelImporte.SelectedValue.ToEntero()), True, MissingSchemaAction.Ignore)
                                 'CARGA FACTURA A LA CUAL SE APLICA LA NC
                                 AcumuladoNC += Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal
-                                CargaNCDT(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal)
+                                CargaNCDT(Gvr.DataKey("CveVenta").ToString().ToEntero(), DdlTipoComprobante.SelectedValue, Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal)
                                 If UsuarioActual.CveEmpresa = 140 AndAlso NumVentasAplicar = 1 Then
                                     DdlMetodoPago33.Enabled = True
                                     DdlMetodoPago33.SelectedValueExist(Gvr.DataKey("CveMetodoPago33").ToString())
@@ -27825,7 +27825,7 @@ Partial Class Ventas
                 If Not AplicaNCMasiva Then
                     Dim TT As Decimal = TxtNCImporte.Text.ToDecimal
                     If TT > TxtTotal.Text.ToDecimal Then TT = TxtTotal.Text.ToDecimal
-                    CargaNCDT(CveVenta, TT)
+                    CargaNCDT(CveVenta, DdlTipoComprobante.SelectedValue, TT)
                 End If
 
                 'verifica el tipo de cambio que se actualice
@@ -28741,8 +28741,8 @@ Partial Class Ventas
         DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "Folio", .DataType = GetType(String), .DefaultValue = ""})
     End Sub
 
-    Private Sub CargaNCDT(pCveVenta As Integer, Importe As Decimal, Optional FolioFiscal As String = "", Optional NuevaFactura As Integer = -1, Optional ByRef ObjVentas As ClsVentas = Nothing, Optional TC As Decimal = 1)
-        If (pCveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs")) OrElse (pCveVenta > 0 AndAlso NuevaFactura = 1) Then
+    Private Sub CargaNCDT(pCveVenta As Integer, TipoDocumento As String, Importe As Decimal, Optional FolioFiscal As String = "", Optional NuevaFactura As Integer = -1, Optional ByRef ObjVentas As ClsVentas = Nothing, Optional TC As Decimal = 1)
+        If (pCveVenta > 0 AndAlso TipoDocumento.Contiene("Egs")) OrElse (pCveVenta > 0 AndAlso NuevaFactura = 1) Then
             Dim CveEstatusFacturaNC As Integer = -1
             Dim TCCambioValuacion As Decimal = 1
             Dim Folio As String = ""