Cambio de formato de respuesta en facturacion masiva del pescadito

Ashx/SIGFacturacion.ashx

@@ -13,38 +13,62 @@ Imports Modelos
 
 Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
 
-    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
+    Private Property CveEmpresaFacturar As Integer = 143
-        context.Response.ContentType = "application/json"
-        Try
-            If context.Request.InputStream IsNot Nothing Then
-                Using reader As New StreamReader(context.Request.InputStream)
-                    Dim json = reader.ReadToEnd
 
-                    If Not String.IsNullOrEmpty(json) Then
+    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
-                        Dim JsonRequest As JObject = JObject.Parse(json)
+        context.Response.ContentType = "text/plain"
-                        If JsonRequest IsNot Nothing Then
+        Dim Retorno As Boolean = False
-                            Dim Metodo = JsonRequest("Metodo").ToString()
+
+        Try
+            'If context.Request.InputStream IsNot Nothing Then
+            '    Using reader As New StreamReader(context.Request.InputStream)
+            '        Dim json = reader.ReadToEnd
+
+            '        If Not String.IsNullOrEmpty(json) Then
+            '            Dim JsonRequest As JObject = JObject.Parse(json)
+            '            If JsonRequest IsNot Nothing Then
+            '                Dim Metodo = JsonRequest("Metodo").ToString()
+            '                If Metodo = "FactMasivaRemisiones" Then
+            '                    Dim pCveEmpresa = JsonRequest("CveEmpresa").ToString()
+            '                    Dim pFechaI As String = ""
+            '                    Dim pFechaF As String = ""
+
+            '                    If JsonRequest("FechaI") IsNot Nothing AndAlso JsonRequest("FechaF") IsNot Nothing Then
+            '                        pFechaI = JsonRequest("FechaI")
+            '                        pFechaF = JsonRequest("FechaF")
+            '                    End If
+
+            '                    IniciaFacturacionMasiva(context, CveEmpresaFacturar, pFechaI, pFechaF)
+            '                End If
+            '            End If
+            '        End If
+
+            '    End Using
+            'End If
+
+            Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
             If Metodo = "FactMasivaRemisiones" Then
-                                Dim pCveEmpresa = JsonRequest("CveEmpresa").ToString()
                 Dim pFechaI As String = ""
                 Dim pFechaF As String = ""
 
-                                If JsonRequest("FechaI") IsNot Nothing AndAlso JsonRequest("FechaF") IsNot Nothing Then
+                If context.Request("FechaI") IsNot Nothing AndAlso context.Request("FechaF") IsNot Nothing Then
-                                    pFechaI = JsonRequest("FechaI")
+                    pFechaI = context.Request("FechaI")
-                                    pFechaF = JsonRequest("FechaF")
+                    pFechaF = context.Request("FechaF")
                 End If
 
-                                IniciaFacturacionMasiva(context, pCveEmpresa, pFechaI, pFechaF)
+                Retorno = IniciaFacturacionMasiva(CveEmpresaFacturar, pFechaI, pFechaF)
-                            End If
-                        End If
-                    End If
-
-                End Using
             End If
 
         Catch ex As Exception
             ex.GuardaLog(ex.Message)
         End Try
+
+        If Retorno Then
+            context.Response.Write("True")
+        Else
+            context.Response.Write("False")
+        End If
+
     End Sub
 
     Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
@@ -53,7 +77,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
         End Get
     End Property
 
-    Private Sub IniciaFacturacionMasiva(ByVal context As HttpContext, pCveEmpresa As String, pFechaI As String, pFechaF As String)
+    Private Function IniciaFacturacionMasiva(pCveEmpresa As String, pFechaI As String, pFechaF As String) As Boolean
+        Dim Retorno As Boolean = True
         Dim JsonRetorno As New JObject()
         Dim CveEmpresa As Integer = pCveEmpresa.ToEntero()
         If CveEmpresa > 0 Then
@@ -72,6 +97,9 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
                     FechaF = New DateTime(Sabado.Year, Sabado.Month, Sabado.Day, 23, 59, 59)
 
                     JsonRetorno = EjecutarFacturacionMasiva(Usuario, FechaI, FechaF, Usuario.Empresa.FacturaProduccion)
+                Else
+                    Retorno = False
+                    GuardaLogFacturacion("Ejecución no permitida, no es el dia permitido para ejecucion o no se espeficaron las fechas")
                 End If
             Else
                 FechaI = pFechaI.ToDateTime()
@@ -79,11 +107,13 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
 
                 JsonRetorno = EjecutarFacturacionMasiva(Usuario, FechaI, FechaF, Usuario.Empresa.FacturaProduccion)
             End If
-
-
         End If
-        context.Response.Write(JsonRetorno)
+
-    End Sub
+        GuardaLogFacturacion("Ejecución Exitosa, se generaron las siguientes facturas:")
+        GuardaLogFacturacion(JsonRetorno.ToString())
+
+        Return Retorno
+    End Function
 
 
     Public Shared Function GetNextWeekday(ByVal start As DateTime, ByVal day As DayOfWeek, hora As TimeSpan) As DateTime