From aab5ce20f64c5e4da07fcd9f202f7b6515a42ebf Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Sat, 25 Jan 2020 14:00:42 -0700
Subject: [PATCH] .

---
 Inventarios/RecepcionUsados.aspx.vb | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index edbc4153c..68c89a4b4 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -1032,7 +1032,7 @@ Partial Class Inventarios_RecepcionUsados
 
         If Me.ObjRemisionNC IsNot Nothing Then
             Dim sb As New StringBuilder()
-            sb.Append($"Se va a generar un documento de tipo 'Remisión de nota de crédito'.<br> Serie-Folio:<b>{Me.ObjRemisionNC.SerieFolio}</b>.<br> ¿Esta seguro que desea guardar?:<br/>")
+            sb.Append($"Se va a generar un documento de tipo 'Remisión de nota de crédito'.<br> ¿Esta seguro que desea guardar?:<br/>")
 
             Alert(sb.ToString(), TipoMensaje.MsgConfirmacion, JSBtnAceptar:="GenerarRNC();", TextoConfirmacion:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;No&nbsp;&nbsp;&nbsp;&nbsp;")
         Else
@@ -1096,10 +1096,11 @@ Partial Class Inventarios_RecepcionUsados
 
                             CargaDTDetalleRNC()
 
-                            Dim Resp = ObjRemisionNC.EmitirFactura(False)
+                            Dim Resp = ObjRemisionNC.EmitirFactura(False, ObjInventario.IniciaTransacSQL)
                             For Each mensaje2 As String In Resp.Mensajes
                                 Msg.AppendFormat("<br>{0}", mensaje2)
                             Next
+                            If Resp.TieneError Then ErrorMovInv = True
                             Alert(Msg.ToString, If(Resp.CveVenta > 0, TipoMensaje.MsgInformacion, TipoMensaje.MsgAdvertencia))
                             CveVenta = Resp.CveVenta
                         End If
@@ -2031,20 +2032,20 @@ Partial Class Inventarios_RecepcionUsados
         Dim Folio As String = ""
         Dim Serie As String = ""
 
-        Dim ObjFolios As New ClsGralFolios()
-        If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then
-            Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo' AND CveSubProyecto = {0}", CveSubProyecto))
-            If DT.Rows.Count > 0 Then
-                Serie = DT.Rows(0)("Serie").ToString()
-                Folio = DT.Rows(0)("FActual").ToString()
-            End If
-            DT.Dispose()
-        End If
-        ObjFolios.Dispose()
+        'Dim ObjFolios As New ClsGralFolios()
+        'If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then
+        '    Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo' AND CveSubProyecto = {0}", CveSubProyecto))
+        '    If DT.Rows.Count > 0 Then
+        '        Serie = DT.Rows(0)("Serie").ToString()
+        '        Folio = DT.Rows(0)("FActual").ToString()
+        '    End If
+        '    DT.Dispose()
+        'End If
+        'ObjFolios.Dispose()
 
         Me.ObjRemisionNC.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML
-        Me.ObjRemisionNC.Serie = Serie
-        Me.ObjRemisionNC.Folio = Folio.ToEntero()
+        Me.ObjRemisionNC.Serie = "-1"
+        Me.ObjRemisionNC.Folio = -1 'Folio.ToEntero()
         Me.ObjRemisionNC.Version = "3.3"
         Me.ObjRemisionNC.FolioFiscal = ""
         Me.ObjRemisionNC.CveUsuario = UsuarioActual.CveUsuario