SIG/Ashx/E158.ashx

<%@ WebHandler Language="VB" Class="E158" %>

Imports System
Imports System.Web
Imports System.Data
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Imports Extensiones
Imports System.IO
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports Microsoft.Reporting.WebForms
Imports System.Threading
Imports System.Threading.Tasks
Imports System.Net.Http
Imports System.Net.Http.Headers
Imports SharpCompress.Archive.Rar
Imports SharpCompress.Common
Imports SharpCompress.Reader
Imports System.Xml
'Imports ADSistemaLibrary.SatXml
'Imports ADSistemaLibrary.SatXml.XmlSatCFDI
Imports System.Diagnostics
Imports System.Drawing
Imports System.Drawing.Imaging



Public Class E158 : Implements IHttpHandler, IReadOnlySessionState


    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

    Private currentcontext As HttpContext
    Private URLParametros As New Hashtable
    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        context.Response.ContentType = "text/plain"
        currentcontext = context
        Dim retorno As String = "no se encontro la variable"
        Try
            Dim metodo As String = ""
            Dim FechaActual As DateTime = ClsPaginas.NowADS()
            Dim FechaEnvio As DateTime = FechaActual

            If context.Request("var") IsNot Nothing Then
                URLParametros = Parametros(context.Request("var"))
                metodo = URLParametros("metodo").ToString
                'SI TRAE UN JSON COMO PARAMETRO
            ElseIf context.Request("metodo") IsNot Nothing Then
                metodo = context.Request("metodo").ToString()
                If context.Request("FechaEnvio") IsNot Nothing Then
                    FechaEnvio = context.Request("FechaEnvio").ToString().ToDateTime()
                End If
            End If

            Select Case metodo
                Case "PreciosVentaCultivo"
                    Dim tCveEmpresa As Integer = context.Request("CveEmpresa").ToString.ToEntero
                    If PreciosVentaCultivo(tCveEmpresa, context) Then
                        retorno = "OK"
                    Else
                        retorno = "Error"
                    End If

                    context.Response.Write(retorno)
            End Select
        Catch ex As Exception
            ex.GuardaLog(ex.ToString())
            context.Response.Write(retorno)
        End Try

    End Sub

    Private Function PreciosVentaCultivo(ByVal CveEmpresa As Integer, ByVal context As HttpContext) As Boolean
        Dim Respuesta As Boolean = False
        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)

        ' Crear una instancia del servicio web
        Dim wsservice As New GrowerService.Service()
        wsservice.Url = "http://webservices.optimaproduce.net/GrowerService/service.asmx"

        ' Llamar al método GetSales con los parámetros necesarios

        Dim Parametro1 As Integer = 9
        Dim Parametro2 As Integer = 1
        Dim Parametro3 As Integer = 43
        Dim Parametro4 As Integer = 0 '–batchid de una liquidación – 0 Todos
        Dim Parametro5 As Integer = 3 '– Para agropecuaria Jam
        Dim Parametro6 As Integer = 0
        Dim Parametro6Date As Date = Now.AddDays(-3)

        'Dim DTresp As DataTable = wsservice.GetSales(Parametro1, Parametro2, Parametro3, Parametro4, Parametro5, Parametro6)
        'DTresp.WriteXml("C:\temp\GrowerService\Sales.xml", XmlWriteMode.WriteSchema)

        'Dim DTAdjustements As DataTable = wsservice.GetAdjustements(Parametro1, Parametro2, Parametro4, Parametro5, Parametro6)
        'DTAdjustements.WriteXml("C:\temp\GrowerService\Adjustements.xml", XmlWriteMode.WriteSchema)



        'Dim DTGeneralExpenses As DataTable = wsservice.GetGeneralExpenses(Parametro1, Parametro2, Parametro3, Parametro4, Parametro5, Parametro6, expenseID:=)
        'DTGeneralExpenses.WriteXml("C:\temp\GrowerService\GeneralExpenses.xml", XmlWriteMode.WriteSchema)

        'Dim DTLotexpenses As DataTable = wsservice.GetLotExpenses(Parametro1, Parametro2, Parametro3, Parametro4, Parametro5, Parametro6, expenseID:=)
        'DTLotexpenses.WriteXml("C:\temp\GrowerService\Lotexpenses.xml", XmlWriteMode.WriteSchema)

        Dim DTTodayInvoices As DataTable = wsservice.GetTodayInvoices(Parametro1, Parametro2, Parametro3, Parametro4, Parametro5, Parametro6Date, ContractFilter:=1)
        DTTodayInvoices.WriteXml("C:\temp\GrowerService\TodayInvoices.xml", XmlWriteMode.WriteSchema)

        Dim InvParametro1 As Integer = 9
        Dim InvParametro2 As Integer = 1
        Dim InvParametro3 As Date = Now.AddDays(-3) ' “01/01/2025” '- ldDate
        Dim InvParametro4 As Integer = 3 '- PackerID
        Dim InvParametro5 As Integer = 0 ' - GrowerID
        Dim InvParametro6 As Integer = 0 '- LabelID(0 = Todos)
        Dim InvParametro7 As String = ”E” '- Language

        'Dim DTIntentoryActivity As DataTable = wsservice.GetInventoryActivity(InvParametro1, InvParametro2, InvParametro3, InvParametro4, InvParametro5, InvParametro6, InvParametro7)
        'DTIntentoryActivity.WriteXml("C:\temp\GrowerService\IntentoryActivity.xml", XmlWriteMode.WriteSchema)





        Return Respuesta
    End Function


    Private Function ValidaUsuarioSistema(CveUsuario As Integer, CveEmpresa As Integer) As Usuario
        Dim UsuarioActual As Usuario = Nothing
        Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
        Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
        UsuarioActual = ObjUsuarios.GetUsuarioDetalle(CveUsuario, CveEmpresa)
        If UsuarioActual IsNot Nothing Then
            HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
            'CreaObjetoEmpresa(UsuarioActual)
        End If
        ObjUsuarios.Dispose()

        Return UsuarioActual
    End Function

    Private Function Parametros(Cadena As String) As Hashtable
        Cadena = Decripta(Cadena)
        Dim P1() As String = Cadena.Split("&"c)
        Dim Tmp As String
        Dim P2() As String

        Dim URLParametros As New Hashtable

        For Each Tmp In P1
            P2 = Tmp.Replace("%26%", "&").Split("="c)
            URLParametros.Add(P2(0).ToString(), P2(1))
        Next
        Return URLParametros
    End Function


End Class