Compras correcion total al actualizar compra ya registrada
This commit is contained in:
rakcsle
6
App_WebReferences/GrowerService/service.disco
Normal file
6
App_WebReferences/GrowerService/service.disco
Normal file
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<discovery xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://schemas.xmlsoap.org/disco/">
|
||||
<contractRef ref="http://webservices.optimaproduce.net/GrowerService/service.asmx?wsdl" docRef="http://webservices.optimaproduce.net/GrowerService/service.asmx" xmlns="http://schemas.xmlsoap.org/disco/scl/" />
|
||||
<soap address="http://webservices.optimaproduce.net/GrowerService/service.asmx" xmlns:q1="http://tempuri.org/" binding="q1:ServiceSoap" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
|
||||
<soap address="http://webservices.optimaproduce.net/GrowerService/service.asmx" xmlns:q2="http://tempuri.org/" binding="q2:ServiceSoap12" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
|
||||
</discovery>
|
||||
7
App_WebReferences/GrowerService/service.discomap
Normal file
7
App_WebReferences/GrowerService/service.discomap
Normal file
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<DiscoveryClientResultsFile xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<Results>
|
||||
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="http://webservices.optimaproduce.net/GrowerService/service.asmx?wsdl" filename="service.wsdl" />
|
||||
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.DiscoveryDocumentReference" url="http://webservices.optimaproduce.net/GrowerService/service.asmx?disco" filename="service.disco" />
|
||||
</Results>
|
||||
</DiscoveryClientResultsFile>
|
||||
350
App_WebReferences/GrowerService/service.wsdl
Normal file
350
App_WebReferences/GrowerService/service.wsdl
Normal file
@@ -0,0 +1,350 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<wsdl:definitions xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:tns="http://tempuri.org/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" targetNamespace="http://tempuri.org/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
|
||||
<wsdl:types>
|
||||
<s:schema elementFormDefault="qualified" targetNamespace="http://tempuri.org/">
|
||||
<s:element name="GetSales">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="1" maxOccurs="1" name="OptimaCompanyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="companyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="yearID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="batchID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="packerID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="growerID" type="s:int" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
<s:element name="GetSalesResponse">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="0" maxOccurs="1" name="GetSalesResult">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:any minOccurs="0" maxOccurs="unbounded" namespace="http://www.w3.org/2001/XMLSchema" processContents="lax" />
|
||||
<s:any minOccurs="1" namespace="urn:schemas-microsoft-com:xml-diffgram-v1" processContents="lax" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
<s:element name="GetAdjustements">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="1" maxOccurs="1" name="OptimaCompanyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="companyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="packerID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="growerID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="batchID" type="s:int" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
<s:element name="GetAdjustementsResponse">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="0" maxOccurs="1" name="GetAdjustementsResult">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:any minOccurs="0" maxOccurs="unbounded" namespace="http://www.w3.org/2001/XMLSchema" processContents="lax" />
|
||||
<s:any minOccurs="1" namespace="urn:schemas-microsoft-com:xml-diffgram-v1" processContents="lax" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
<s:element name="GetInventoryActivity">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="1" maxOccurs="1" name="OptimaCompanyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="companyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="LdDate" type="s:dateTime" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="packerID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="growerID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="LabelID" type="s:int" />
|
||||
<s:element minOccurs="0" maxOccurs="1" name="Language" type="s:string" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
<s:element name="GetInventoryActivityResponse">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="0" maxOccurs="1" name="GetInventoryActivityResult">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:any minOccurs="0" maxOccurs="unbounded" namespace="http://www.w3.org/2001/XMLSchema" processContents="lax" />
|
||||
<s:any minOccurs="1" namespace="urn:schemas-microsoft-com:xml-diffgram-v1" processContents="lax" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
<s:element name="GetTodayInvoices">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="1" maxOccurs="1" name="OptimaCompanyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="companyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="yearID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="packerID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="growerID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="InvoiceDate" type="s:dateTime" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="ContractFilter" type="s:int" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
<s:element name="GetTodayInvoicesResponse">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="0" maxOccurs="1" name="GetTodayInvoicesResult">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:any minOccurs="0" maxOccurs="unbounded" namespace="http://www.w3.org/2001/XMLSchema" processContents="lax" />
|
||||
<s:any minOccurs="1" namespace="urn:schemas-microsoft-com:xml-diffgram-v1" processContents="lax" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
<s:element name="GetGeneralExpenses">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="1" maxOccurs="1" name="OptimaCompanyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="companyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="yearID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="packerID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="growerID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="batchID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="expenseID" type="s:int" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
<s:element name="GetGeneralExpensesResponse">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="0" maxOccurs="1" name="GetGeneralExpensesResult">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:any minOccurs="0" maxOccurs="unbounded" namespace="http://www.w3.org/2001/XMLSchema" processContents="lax" />
|
||||
<s:any minOccurs="1" namespace="urn:schemas-microsoft-com:xml-diffgram-v1" processContents="lax" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
<s:element name="GetLotExpenses">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="1" maxOccurs="1" name="OptimaCompanyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="companyID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="yearID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="packerID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="growerID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="batchID" type="s:int" />
|
||||
<s:element minOccurs="1" maxOccurs="1" name="expenseID" type="s:int" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
<s:element name="GetLotExpensesResponse">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:element minOccurs="0" maxOccurs="1" name="GetLotExpensesResult">
|
||||
<s:complexType>
|
||||
<s:sequence>
|
||||
<s:any minOccurs="0" maxOccurs="unbounded" namespace="http://www.w3.org/2001/XMLSchema" processContents="lax" />
|
||||
<s:any minOccurs="1" namespace="urn:schemas-microsoft-com:xml-diffgram-v1" processContents="lax" />
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
</s:sequence>
|
||||
</s:complexType>
|
||||
</s:element>
|
||||
</s:schema>
|
||||
</wsdl:types>
|
||||
<wsdl:message name="GetSalesSoapIn">
|
||||
<wsdl:part name="parameters" element="tns:GetSales" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="GetSalesSoapOut">
|
||||
<wsdl:part name="parameters" element="tns:GetSalesResponse" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="GetAdjustementsSoapIn">
|
||||
<wsdl:part name="parameters" element="tns:GetAdjustements" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="GetAdjustementsSoapOut">
|
||||
<wsdl:part name="parameters" element="tns:GetAdjustementsResponse" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="GetInventoryActivitySoapIn">
|
||||
<wsdl:part name="parameters" element="tns:GetInventoryActivity" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="GetInventoryActivitySoapOut">
|
||||
<wsdl:part name="parameters" element="tns:GetInventoryActivityResponse" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="GetTodayInvoicesSoapIn">
|
||||
<wsdl:part name="parameters" element="tns:GetTodayInvoices" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="GetTodayInvoicesSoapOut">
|
||||
<wsdl:part name="parameters" element="tns:GetTodayInvoicesResponse" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="GetGeneralExpensesSoapIn">
|
||||
<wsdl:part name="parameters" element="tns:GetGeneralExpenses" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="GetGeneralExpensesSoapOut">
|
||||
<wsdl:part name="parameters" element="tns:GetGeneralExpensesResponse" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="GetLotExpensesSoapIn">
|
||||
<wsdl:part name="parameters" element="tns:GetLotExpenses" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="GetLotExpensesSoapOut">
|
||||
<wsdl:part name="parameters" element="tns:GetLotExpensesResponse" />
|
||||
</wsdl:message>
|
||||
<wsdl:portType name="ServiceSoap">
|
||||
<wsdl:operation name="GetSales">
|
||||
<wsdl:input message="tns:GetSalesSoapIn" />
|
||||
<wsdl:output message="tns:GetSalesSoapOut" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetAdjustements">
|
||||
<wsdl:input message="tns:GetAdjustementsSoapIn" />
|
||||
<wsdl:output message="tns:GetAdjustementsSoapOut" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetInventoryActivity">
|
||||
<wsdl:input message="tns:GetInventoryActivitySoapIn" />
|
||||
<wsdl:output message="tns:GetInventoryActivitySoapOut" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetTodayInvoices">
|
||||
<wsdl:input message="tns:GetTodayInvoicesSoapIn" />
|
||||
<wsdl:output message="tns:GetTodayInvoicesSoapOut" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetGeneralExpenses">
|
||||
<wsdl:input message="tns:GetGeneralExpensesSoapIn" />
|
||||
<wsdl:output message="tns:GetGeneralExpensesSoapOut" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetLotExpenses">
|
||||
<wsdl:input message="tns:GetLotExpensesSoapIn" />
|
||||
<wsdl:output message="tns:GetLotExpensesSoapOut" />
|
||||
</wsdl:operation>
|
||||
</wsdl:portType>
|
||||
<wsdl:binding name="ServiceSoap" type="tns:ServiceSoap">
|
||||
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
|
||||
<wsdl:operation name="GetSales">
|
||||
<soap:operation soapAction="http://tempuri.org/GetSales" style="document" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetAdjustements">
|
||||
<soap:operation soapAction="http://tempuri.org/GetAdjustements" style="document" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetInventoryActivity">
|
||||
<soap:operation soapAction="http://tempuri.org/GetInventoryActivity" style="document" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetTodayInvoices">
|
||||
<soap:operation soapAction="http://tempuri.org/GetTodayInvoices" style="document" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetGeneralExpenses">
|
||||
<soap:operation soapAction="http://tempuri.org/GetGeneralExpenses" style="document" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetLotExpenses">
|
||||
<soap:operation soapAction="http://tempuri.org/GetLotExpenses" style="document" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
</wsdl:binding>
|
||||
<wsdl:binding name="ServiceSoap12" type="tns:ServiceSoap">
|
||||
<soap12:binding transport="http://schemas.xmlsoap.org/soap/http" />
|
||||
<wsdl:operation name="GetSales">
|
||||
<soap12:operation soapAction="http://tempuri.org/GetSales" style="document" />
|
||||
<wsdl:input>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetAdjustements">
|
||||
<soap12:operation soapAction="http://tempuri.org/GetAdjustements" style="document" />
|
||||
<wsdl:input>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetInventoryActivity">
|
||||
<soap12:operation soapAction="http://tempuri.org/GetInventoryActivity" style="document" />
|
||||
<wsdl:input>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetTodayInvoices">
|
||||
<soap12:operation soapAction="http://tempuri.org/GetTodayInvoices" style="document" />
|
||||
<wsdl:input>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetGeneralExpenses">
|
||||
<soap12:operation soapAction="http://tempuri.org/GetGeneralExpenses" style="document" />
|
||||
<wsdl:input>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="GetLotExpenses">
|
||||
<soap12:operation soapAction="http://tempuri.org/GetLotExpenses" style="document" />
|
||||
<wsdl:input>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap12:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
</wsdl:binding>
|
||||
<wsdl:service name="Service">
|
||||
<wsdl:port name="ServiceSoap" binding="tns:ServiceSoap">
|
||||
<soap:address location="http://webservices.optimaproduce.net/GrowerService/service.asmx" />
|
||||
</wsdl:port>
|
||||
<wsdl:port name="ServiceSoap12" binding="tns:ServiceSoap12">
|
||||
<soap12:address location="http://webservices.optimaproduce.net/GrowerService/service.asmx" />
|
||||
</wsdl:port>
|
||||
</wsdl:service>
|
||||
</wsdl:definitions>
|
||||
169
Ashx/E158.ashx
Normal file
169
Ashx/E158.ashx
Normal file
@@ -0,0 +1,169 @@
|
||||
<%@ 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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -17381,7 +17381,9 @@ Partial Class Compras_Compras
|
||||
If TxtIEPS.Text.ToDouble > 0 Then TrIEPS.Visible = True
|
||||
End If
|
||||
If TxtDescuento.Text.ToDouble > 0 Then TrDescuento.Visible = True
|
||||
If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Then TxtTotal.Text = Total.ToString.FormatoNumero()
|
||||
'If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Then
|
||||
TxtTotal.Text = Total.ToString.FormatoNumero()
|
||||
'End If
|
||||
Else
|
||||
TxtSubTotal.Text = SubTotal.ToString.FormatoNumero()
|
||||
TxtSubTotal2.Text = SubTotal2.ToString.FormatoNumero()
|
||||
|
||||
Reference in New Issue
Block a user