-- mejora

Ashx/E119.ashx

@@ -393,6 +393,31 @@ Public Class E119 : Implements IHttpHandler
                     Dim UsoCFDI As String = ""
                     Dim CveUsoCFDI As Integer = -1
                     IdEcommerce = JsonRequest("wp_sale_id").ToEntero
+                    Dim Registrada As Boolean = False
+                    If IdEcommerce > 0 Then
+                        Dim objVenta As New ClsVentas
+                        If objVenta.GetVentaTerminal(IdEcommerce, MinFecha, CveSubProyecto, CveEmpresa) Then
+                            Dim dr As DataRow = objVenta.DtResultados.FiltroPrimero("")
+                            If dr IsNot Nothing Then
+                                MsgLog.AppendLine("0.10 remisión registrada previamente")
+                                Dim data As New JArray
+                                Dim objSucursal As New JObject(
+                                        New JProperty("Cve", dr("CveVenta")),
+                                        New JProperty("SerieFolio", dr("SerieFolio"))
+                                        )
+                                data.Add(objSucursal)
+                                Respuesta.status = "success"
+                                Respuesta.data = data
+                                Registrada = True
+                            End If
+                        End If
+                        objVenta.Dispose()
+                    End If
+
+                    If Registrada Then
+                        context.Response.StatusCode = 200
+                        Return JsonConvert.SerializeObject(Respuesta)
+                    End If
 
                     If JsonRequest("billing") IsNot Nothing AndAlso JsonRequest("rfc_info") IsNot Nothing Then
                         RFC = JsonRequest("rfc_info")("rfc_client").ToString()
@@ -508,9 +533,8 @@ Public Class E119 : Implements IHttpHandler
                     End If
 
                     ObjFactura.CveDireccionEnvio = CveDireccionEnvio
-                    ObjFactura.Num1 = IdEcommerce
-                    ObjFactura.CveUsoCFDI = cveusocfdi
-
+                    ObjFactura.CveVentaTerminal = IdEcommerce
+                    ObjFactura.CveUsoCFDI = CveUsoCFDI
 
                     If JsonRequest("line_items") IsNot Nothing Then
                         Dim ListaPS As JArray = JArray.Parse(JsonRequest("line_items").ToString())