Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
janeth arvizu
@@ -1,5 +1,6 @@
|
|||||||
<%@ WebHandler Language="VB" Class="SIGPolizaVirtual" %>
|
<%@ WebHandler Language="VB" Class="SIGPolizaVirtual" %>
|
||||||
|
|
||||||
|
Imports Fluent
|
||||||
Imports System
|
Imports System
|
||||||
Imports System.Web
|
Imports System.Web
|
||||||
Imports System.Net.Http
|
Imports System.Net.Http
|
||||||
@@ -9,61 +10,187 @@ Imports Newtonsoft.Json
|
|||||||
Imports Newtonsoft.Json.Linq
|
Imports Newtonsoft.Json.Linq
|
||||||
Imports Extensiones
|
Imports Extensiones
|
||||||
Imports System.IO
|
Imports System.IO
|
||||||
|
Imports System.Runtime.CompilerServices
|
||||||
|
|
||||||
Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
||||||
|
|
||||||
Protected ReadOnly Property User As String = "cslth.2809@jcilink.com"
|
Protected ReadOnly Property User As String = "cslth.2809@jcilink.com"
|
||||||
Protected ReadOnly Property Password As String = "ff31580a95f36b51ad27f970428b77a5a9245076"
|
Protected ReadOnly Property Password As String = "ff31580a95f36b51ad27f970428b77a5a9245076"
|
||||||
|
|
||||||
|
#Region "U S U A R I O - T O K E N"
|
||||||
|
|
||||||
|
Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
|
||||||
|
|
||||||
|
Dim UsuarioToken As Usuario = Nothing
|
||||||
|
Dim ObjUsuarios As New ClsSisUsuarios
|
||||||
|
If ObjUsuarios.GetUsuarios(CveUsuario) Then
|
||||||
|
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
|
||||||
|
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
|
||||||
|
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
|
||||||
|
UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
|
||||||
|
UsuarioToken.CveEmpresa = CveEmpresa
|
||||||
|
CreaObjetoEmpresa(UsuarioToken)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
ObjUsuarios.Dispose()
|
||||||
|
Return UsuarioToken
|
||||||
|
End Function
|
||||||
|
Private Sub CreaObjetoEmpresa(ByRef UsuarioToken As Usuario)
|
||||||
|
|
||||||
|
Dim ObjEmpresa As New ClsSisEmpresas()
|
||||||
|
If ObjEmpresa.GetEmpresas(UsuarioToken.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
||||||
|
If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioToken.CveEmpresa) Then
|
||||||
|
Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
|
||||||
|
|
||||||
|
Dim EmpresasFuncionalidades As New HybridDictionary
|
||||||
|
For Each Row As Data.DataRow In dttmp.Rows
|
||||||
|
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
|
||||||
|
Next
|
||||||
|
ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
|
||||||
|
End If
|
||||||
|
|
||||||
|
UsuarioToken.Empresa = ObjEmpresa.Empresa
|
||||||
|
End If
|
||||||
|
ObjEmpresa.Dispose()
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
|
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
|
||||||
context.Response.ContentType = "application/json"
|
context.Response.ContentType = "application/json"
|
||||||
EnviarPolizaVentaWS(context)
|
Dim usuario = ValidaUsuarioSistema(140, 100)
|
||||||
EnviarPolizaVentaLTHWSD(context)
|
Dim ObjFactura As New Modelos.Factura(usuario, 898028, 140)
|
||||||
EnviarPolizaIndicadores(context)
|
|
||||||
|
GeneraPolizaVentaWS(context, ObjFactura)
|
||||||
|
'GeneraPolizaVentaLTHWSD(context)
|
||||||
|
'GeneraIndicadores(context)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
|
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
|
||||||
Get
|
Get
|
||||||
Return False
|
Return False
|
||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Private Sub EnviarPolizaVentaLTHWSD(ByVal context As HttpContext)
|
Protected Sub GeneraPolizaVentaWS(ByVal context As HttpContext, ObjFactura As Modelos.Factura)
|
||||||
|
Dim obj As New MPolizaVentaWS
|
||||||
|
'DATOS DEL CLIENTE
|
||||||
|
obj.customer_name = ObjFactura.Cliente.Nombre
|
||||||
|
obj.customer_last_name1 = ""
|
||||||
|
obj.customer_last_name2 = ""
|
||||||
|
obj.customer_birthday = Nothing
|
||||||
|
obj.customer_phone = ObjFactura.Cliente.Telefono
|
||||||
|
obj.customer_email = ObjFactura.Cliente.Mail
|
||||||
|
obj.customer_gender = "03" 'OTRO GENERO
|
||||||
|
obj.customer_advertising = False
|
||||||
|
obj.customer_car_brand = "00"
|
||||||
|
obj.customer_car_model = "00"
|
||||||
|
obj.customer_car_year = ObjFactura.Fecha.Year
|
||||||
|
|
||||||
|
'DATOS DE VENTA
|
||||||
|
obj.sale_date = Now
|
||||||
|
obj.sale_paidby = "01"
|
||||||
|
obj.sale_type = "01" 'PISO
|
||||||
|
obj.sale_type_service = "01" 'PARTICULAR
|
||||||
|
obj.sale_total = ObjFactura.Total
|
||||||
|
obj.sale_discount = ObjFactura.SubTotal
|
||||||
|
obj.sale_id = GuidGenerator.GenerateTimeBasedGuid().ToString()
|
||||||
|
|
||||||
|
'Dim PS = ObjFactura.DtDetalle.Rows(0)
|
||||||
|
'DATOS DEL PRODUCTO
|
||||||
|
obj.product_code = "174925"
|
||||||
|
obj.product_unique_code = "65047187"
|
||||||
|
obj.product_sale_type = "02" 'AJUSTE
|
||||||
|
|
||||||
|
'DATOS DE USADO
|
||||||
|
obj.used_product = True
|
||||||
|
obj.used_brand = "01"
|
||||||
|
obj.used_bci = "25"
|
||||||
|
obj.used_month = 1
|
||||||
|
obj.used_year = 2015
|
||||||
|
obj.used_sale_date = ObjFactura.Fecha
|
||||||
|
|
||||||
|
EnviarPolizaVentaWS(context, obj)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub GeneraPolizaVentaLTHWSD(ByVal context As HttpContext, ObjFactura As Modelos.Factura)
|
||||||
|
Dim obj As New MPolizaVentaLTHWSD
|
||||||
|
'DATOS DEL CLIENTE
|
||||||
|
obj.customer_name = "JOSE ENRIQUE"
|
||||||
|
obj.customer_last_name1 = "VIZCARA"
|
||||||
|
obj.customer_last_name2 = "RENDON"
|
||||||
|
obj.customer_birthday = Now
|
||||||
|
obj.customer_phone = "8186545256"
|
||||||
|
obj.customer_email = "mail@mail.com"
|
||||||
|
obj.customer_gender = "02"
|
||||||
|
obj.customer_advertising = False
|
||||||
|
obj.customer_car_brand = "02"
|
||||||
|
obj.customer_car_model = "741"
|
||||||
|
obj.customer_car_year = 2015
|
||||||
|
|
||||||
|
'DATOS DE VENTA
|
||||||
|
obj.sale_date = Now
|
||||||
|
obj.sale_paidby = "01"
|
||||||
|
obj.sale_type = "01"
|
||||||
|
obj.sale_type_service = "01"
|
||||||
|
obj.sale_discount = 0
|
||||||
|
obj.sale_id = GuidGenerator.GenerateTimeBasedGuid().ToString()
|
||||||
|
|
||||||
|
'DATOS DEL PRODUCTO
|
||||||
|
obj.product_code = "174925"
|
||||||
|
obj.product_unique_code = "65047187"
|
||||||
|
obj.product_sale_type = "01"
|
||||||
|
|
||||||
|
'DATOS DE USADO
|
||||||
|
obj.used_product = True
|
||||||
|
obj.used_brand = "01"
|
||||||
|
obj.used_bci = "25"
|
||||||
|
obj.used_month = 1
|
||||||
|
obj.used_year = 2015
|
||||||
|
obj.used_sale_date = Now
|
||||||
|
|
||||||
|
EnviarPolizaVentaLTHWSD(context, obj)
|
||||||
|
End Sub
|
||||||
|
Protected Sub GeneraIndicadores(ByVal context As HttpContext)
|
||||||
|
Dim obj As New MIndicador(True)
|
||||||
|
EnviarPolizaIndicadores(context, obj)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub EnviarPolizaVentaLTHWSD(ByVal context As HttpContext, obj As MPolizaVentaLTHWSD)
|
||||||
Dim Retorno As String = "[]"
|
Dim Retorno As String = "[]"
|
||||||
Try
|
Try
|
||||||
Using wc As New HttpClient()
|
Using wc As New HttpClient()
|
||||||
Dim Url = New Uri("http://polizavirtual.com.mx/lthwsd/api/Venta")
|
Dim Url = New Uri("http://polizavirtual.com.mx/lthwsd/api/Venta")
|
||||||
|
|
||||||
Dim Parametros = New List(Of KeyValuePair(Of String, String))
|
Dim Parametros = New List(Of KeyValuePair(Of String, String))
|
||||||
|
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("User", User))
|
Parametros.Add(New KeyValuePair(Of String, String)("User", User))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("password", Password))
|
Parametros.Add(New KeyValuePair(Of String, String)("password", Password))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_name", "JOSE ENRIQUE VIZCARA RENDON"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_name", obj.customer_name))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", "Prueba"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", obj.customer_last_name1))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", "Prueba"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", obj.customer_last_name1))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_birthday", "1900-01-01 00:00:00"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_birthday", obj.customer_birthday.ToString("yyyy-MM-dd HH:mm:ss")))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_phone", "5417543010"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_phone", obj.customer_phone))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_email", "elunap@gmail.com"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_email", obj.customer_email))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", "02"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", obj.customer_gender))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", "False"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", obj.customer_advertising.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_date", "2018-07-24 00:00:00"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_date", obj.sale_date.ToString("yyyy-MM-dd HH:mm:ss")))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_paidby", "01"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_paidby", obj.sale_paidby))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type", "01"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_type", obj.sale_type))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", "01"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", obj.sale_type_service))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("product_code", "174200"))
|
Parametros.Add(New KeyValuePair(Of String, String)("product_code", obj.product_code))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", "65047187"))
|
Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", obj.product_unique_code))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", "01"))
|
Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", obj.product_sale_type))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_product", "True"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_product", obj.used_product.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_brand", "01"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_brand", obj.used_brand))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_bci", "25"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_bci", obj.used_bci))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_month", "1"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_month", obj.used_month.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_year", "2015"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_year", obj.used_year.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_sale_date", "2018-07-24 00:00:00"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_sale_date", obj.used_sale_date.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_brand", "36"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_brand", obj.customer_car_brand.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_model", "741"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_model", obj.customer_car_model.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_year", "2015"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_year", obj.customer_car_year.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", "0"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", obj.sale_discount.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_id", "32860"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_id", obj.sale_id.ToString()))
|
||||||
|
|
||||||
Dim content As New FormUrlEncodedContent(Parametros)
|
Dim content As New FormUrlEncodedContent(Parametros)
|
||||||
Dim response = wc.PostAsync(Url, content).Result
|
Dim response = wc.PostAsync(Url, content).Result
|
||||||
@@ -78,7 +205,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
|||||||
context.Response.Write(Retorno)
|
context.Response.Write(Retorno)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub EnviarPolizaVentaWS(ByVal context As HttpContext)
|
Protected Sub EnviarPolizaVentaWS(ByVal context As HttpContext, obj As MPolizaVentaWS)
|
||||||
Dim Retorno As String = "[]"
|
Dim Retorno As String = "[]"
|
||||||
Try
|
Try
|
||||||
Using wc As New HttpClient()
|
Using wc As New HttpClient()
|
||||||
@@ -88,33 +215,33 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
|||||||
|
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("User", User))
|
Parametros.Add(New KeyValuePair(Of String, String)("User", User))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("password", Password))
|
Parametros.Add(New KeyValuePair(Of String, String)("password", Password))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_name", "JOSE ENRIQUE "))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_name", obj.customer_name))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", "VIZCARA"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", obj.customer_last_name1))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", "RENDON"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", obj.customer_last_name1))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_birthday", "1900-01-01 00:00:00"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_birthday", obj.customer_birthday.ToString("yyyy-MM-dd HH:mm:ss")))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_phone", "8186545256"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_phone", obj.customer_phone))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_email", "mail@mail.com"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_email", obj.customer_email))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", "02"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", obj.customer_gender))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", "False"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", obj.customer_advertising.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_date", "2018-07-24 00:00:00"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_date", obj.sale_date.ToString("yyyy-MM-dd HH:mm:ss")))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_paidby", "01"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_paidby", obj.sale_paidby))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type", "01"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_type", obj.sale_type))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", "01"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", obj.sale_type_service))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("product_code", "174925"))
|
Parametros.Add(New KeyValuePair(Of String, String)("product_code", obj.product_code))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", "65047187"))
|
Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", obj.product_unique_code))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", "01"))
|
Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", obj.product_sale_type))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_total", "0"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_total", obj.sale_total.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_product", "True"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_product", obj.used_product.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_brand", "01"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_brand", obj.used_brand))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_bci", "25"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_bci", obj.used_bci))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_month", "1"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_month", obj.used_month.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_year", "2015"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_year", obj.used_year.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("used_sale_date", "2018-07-24 00:00:00"))
|
Parametros.Add(New KeyValuePair(Of String, String)("used_sale_date", obj.used_sale_date.ToString("yyyy-MM-dd HH:mm:ss")))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_brand", "36"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_brand", obj.customer_car_brand.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_model", "741"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_model", obj.customer_car_model.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_year", "2015"))
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_year", obj.customer_car_year.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", "0"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", obj.sale_discount.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_id", "32860"))
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_id", obj.sale_id.ToString()))
|
||||||
|
|
||||||
Dim content As New FormUrlEncodedContent(Parametros)
|
Dim content As New FormUrlEncodedContent(Parametros)
|
||||||
Dim response = wc.PostAsync(Url, content).Result
|
Dim response = wc.PostAsync(Url, content).Result
|
||||||
@@ -129,7 +256,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
|||||||
context.Response.Write(Retorno)
|
context.Response.Write(Retorno)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub EnviarPolizaIndicadores(ByVal context As HttpContext)
|
Protected Sub EnviarPolizaIndicadores(ByVal context As HttpContext, obj As MIndicador)
|
||||||
Dim Retorno As String = "[]"
|
Dim Retorno As String = "[]"
|
||||||
Try
|
Try
|
||||||
Using wc As New HttpClient()
|
Using wc As New HttpClient()
|
||||||
@@ -139,47 +266,47 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
|||||||
|
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("User", User))
|
Parametros.Add(New KeyValuePair(Of String, String)("User", User))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("password", Password))
|
Parametros.Add(New KeyValuePair(Of String, String)("password", Password))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_optima", "1"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_optima", obj.v_b_optima.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_fullpower", "2"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_fullpower", obj.v_b_fullpower.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_hitec", "3"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_hitec", obj.v_b_hitec.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_agm", "4"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_agm", obj.v_b_agm.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_suv", "5"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_suv", obj.v_b_suv.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_taxi", "6"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_taxi", obj.v_b_taxi.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_america", "7"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_america", obj.v_b_america.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_lth", "8"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_lth", obj.v_b_lth.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_cronos", "9"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_cronos", obj.v_b_cronos.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_diener", "10"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_diener", obj.v_b_diener.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_heavyduty", "11"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_heavyduty", obj.v_b_heavyduty.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_m_lth", "12"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_m_lth", obj.v_m_lth.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_filtros", "13"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_filtros", obj.v_o_filtros.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lub1", "14"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lub1", obj.v_o_lub1.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lubgalon", "15"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lubgalon", obj.v_o_lubgalon.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lub5", "16"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lub5", obj.v_o_lub5.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_aa", "17"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_aa", obj.v_o_aa.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_aaa", "18"))
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_aaa", obj.v_o_aaa.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_optima", "19"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_optima", obj.g_b_optima.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_fullpower", "20"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_fullpower", obj.g_b_fullpower.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_hitec", "21"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_hitec", obj.g_b_hitec.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_agm", "22"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_agm", obj.g_b_agm.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_suv", "23"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_suv", obj.g_b_suv.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_taxi", "24"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_taxi", obj.g_b_taxi.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_america", "25"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_america", obj.g_b_america.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_lth", "26"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_lth", obj.g_b_lth.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_cronos", "27"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_cronos", obj.g_b_cronos.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_diener", "28"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_diener", obj.g_b_diener.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_heavyduty", "29"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_heavyduty", obj.g_b_heavyduty.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("g_m_lth", "30"))
|
Parametros.Add(New KeyValuePair(Of String, String)("g_m_lth", obj.g_m_lth.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_optima", "31"))
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_optima", obj.a_b_optima.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_fullpower", "32"))
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_fullpower", obj.a_b_fullpower.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_hitec", "33"))
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_hitec", obj.a_b_hitec.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_agm", "34"))
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_agm", obj.a_b_agm.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_suv", "35"))
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_suv", obj.a_b_suv.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_taxi", "36"))
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_taxi", obj.a_b_taxi.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_america", "37"))
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_america", obj.a_b_america.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_lth", "38"))
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_lth", obj.a_b_lth.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_cronos", "39"))
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_cronos", obj.a_b_cronos.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_diener", "40"))
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_diener", obj.a_b_diener.ToString()))
|
||||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_heavyduty", "41"))
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_heavyduty", obj.a_b_heavyduty.ToString()))
|
||||||
|
|
||||||
Dim content As New FormUrlEncodedContent(Parametros)
|
Dim content As New FormUrlEncodedContent(Parametros)
|
||||||
Dim response = wc.PostAsync(Url, content).Result
|
Dim response = wc.PostAsync(Url, content).Result
|
||||||
@@ -194,4 +321,217 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
|||||||
context.Response.Write(Retorno)
|
context.Response.Write(Retorno)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
Public Class MPolizaVentaLTHWSD
|
||||||
|
Public Property customer_name As String
|
||||||
|
Public Property customer_last_name1 As String
|
||||||
|
Public Property customer_last_name2 As String
|
||||||
|
Public Property customer_birthday As DateTime
|
||||||
|
Public Property customer_phone As String
|
||||||
|
Public Property customer_email As String
|
||||||
|
Public Property customer_gender As String
|
||||||
|
Public Property customer_advertising As Boolean
|
||||||
|
Public Property sale_date As DateTime
|
||||||
|
Public Property sale_paidby As String
|
||||||
|
Public Property sale_type As String
|
||||||
|
Public Property sale_type_service As String
|
||||||
|
Public Property product_code As String
|
||||||
|
Public Property product_unique_code As String
|
||||||
|
Public Property product_sale_type As String
|
||||||
|
Public Property used_product As Boolean
|
||||||
|
Public Property used_brand As String
|
||||||
|
Public Property used_bci As String
|
||||||
|
Public Property used_month As Integer
|
||||||
|
Public Property used_year As Integer
|
||||||
|
Public Property used_sale_date As DateTime
|
||||||
|
Public Property customer_car_brand As String
|
||||||
|
Public Property customer_car_model As String
|
||||||
|
Public Property customer_car_year As Integer
|
||||||
|
Public Property sale_discount As Decimal
|
||||||
|
Public Property sale_id As String
|
||||||
|
End Class
|
||||||
|
|
||||||
|
Public Class MPolizaVentaWS
|
||||||
|
Public Property customer_name As String
|
||||||
|
Public Property customer_last_name1 As String
|
||||||
|
Public Property customer_last_name2 As String
|
||||||
|
Public Property customer_birthday As DateTime
|
||||||
|
Public Property customer_phone As String
|
||||||
|
Public Property customer_email As String
|
||||||
|
Public Property customer_gender As String
|
||||||
|
Public Property customer_advertising As Boolean
|
||||||
|
Public Property sale_date As DateTime
|
||||||
|
Public Property sale_paidby As String
|
||||||
|
Public Property sale_type As String
|
||||||
|
Public Property sale_type_service As String
|
||||||
|
Public Property sale_total As Decimal
|
||||||
|
Public Property product_code As String
|
||||||
|
Public Property product_unique_code As String
|
||||||
|
Public Property product_sale_type As String
|
||||||
|
Public Property used_product As Boolean
|
||||||
|
Public Property used_brand As String
|
||||||
|
Public Property used_bci As String
|
||||||
|
Public Property used_month As Integer
|
||||||
|
Public Property used_year As Integer
|
||||||
|
Public Property used_sale_date As DateTime
|
||||||
|
Public Property customer_car_brand As String
|
||||||
|
Public Property customer_car_model As String
|
||||||
|
Public Property customer_car_year As Integer
|
||||||
|
Public Property sale_discount As Decimal
|
||||||
|
Public Property sale_id As String
|
||||||
|
End Class
|
||||||
|
|
||||||
|
Public Class MIndicador
|
||||||
|
|
||||||
|
Sub New(Optional UsaValoresPrueba As Boolean = False)
|
||||||
|
If UsaValoresPrueba Then
|
||||||
|
Dim Index As Integer = 0
|
||||||
|
For Each p As Reflection.PropertyInfo In Me.GetType().GetProperties()
|
||||||
|
Index = Index + 1
|
||||||
|
p.SetValue(Me, Convert.ChangeType(Index, p.PropertyType), Nothing)
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Property v_b_optima As Integer
|
||||||
|
Public Property v_b_fullpower As Integer
|
||||||
|
Public Property v_b_hitec As Integer
|
||||||
|
Public Property v_b_agm As Integer
|
||||||
|
Public Property v_b_suv As Integer
|
||||||
|
Public Property v_b_taxi As Integer
|
||||||
|
Public Property v_b_america As Integer
|
||||||
|
Public Property v_b_lth As Integer
|
||||||
|
Public Property v_b_cronos As Integer
|
||||||
|
Public Property v_b_diener As Integer
|
||||||
|
Public Property v_b_heavyduty As Integer
|
||||||
|
Public Property v_m_lth As Integer
|
||||||
|
Public Property v_o_filtros As Integer
|
||||||
|
Public Property v_o_lub1 As Integer
|
||||||
|
Public Property v_o_lubgalon As Integer
|
||||||
|
Public Property v_o_lub5 As Integer
|
||||||
|
Public Property v_o_aa As Integer
|
||||||
|
Public Property v_o_aaa As Integer
|
||||||
|
Public Property g_b_optima As Integer
|
||||||
|
Public Property g_b_fullpower As Integer
|
||||||
|
Public Property g_b_hitec As Integer
|
||||||
|
Public Property g_b_agm As Integer
|
||||||
|
Public Property g_b_suv As Integer
|
||||||
|
Public Property g_b_taxi As Integer
|
||||||
|
Public Property g_b_america As Integer
|
||||||
|
Public Property g_b_lth As Integer
|
||||||
|
Public Property g_b_cronos As Integer
|
||||||
|
Public Property g_b_diener As Integer
|
||||||
|
Public Property g_b_heavyduty As Integer
|
||||||
|
Public Property g_m_lth As Integer
|
||||||
|
Public Property a_b_optima As Integer
|
||||||
|
Public Property a_b_fullpower As Integer
|
||||||
|
Public Property a_b_hitec As Integer
|
||||||
|
Public Property a_b_agm As Integer
|
||||||
|
Public Property a_b_suv As Integer
|
||||||
|
Public Property a_b_taxi As Integer
|
||||||
|
Public Property a_b_america As Integer
|
||||||
|
Public Property a_b_lth As Integer
|
||||||
|
Public Property a_b_cronos As Integer
|
||||||
|
Public Property a_b_diener As Integer
|
||||||
|
Public Property a_b_heavyduty As Integer
|
||||||
|
End Class
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Namespace Fluent
|
||||||
|
Public Enum GuidVersion
|
||||||
|
TimeBased = &H1
|
||||||
|
Reserved = &H2
|
||||||
|
NameBased = &H3
|
||||||
|
Random = &H4
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
Partial Public Module GuidGenerator
|
||||||
|
Public Const ByteArraySize = 16
|
||||||
|
Public Const VariantByte = 8
|
||||||
|
Public Const VariantByteMask = &H3F
|
||||||
|
Public Const VariantByteShift = &H80
|
||||||
|
Public Const VersionByte = 7
|
||||||
|
Public Const VersionByteMask = &HF
|
||||||
|
Public Const VersionByteShift = 4
|
||||||
|
Private Const TimestampByte As Byte = 0
|
||||||
|
Private Const GuidClockSequenceByte As Byte = 8
|
||||||
|
Private Const NodeByte As Byte = 10
|
||||||
|
Private ReadOnly GregorianCalendarStart As DateTimeOffset = New DateTimeOffset(1582, 10, 15, 0, 0, 0, TimeSpan.Zero)
|
||||||
|
Public Property DefaultClockSequence As Byte()
|
||||||
|
Public Property DefaultNode As Byte()
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
DefaultClockSequence = New Byte(1) {}
|
||||||
|
DefaultNode = New Byte(5) {}
|
||||||
|
Dim random = New Random
|
||||||
|
random.NextBytes(DefaultClockSequence)
|
||||||
|
random.NextBytes(DefaultNode)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
<Extension()>
|
||||||
|
Function GetVersion(ByVal guid As Guid) As GuidVersion
|
||||||
|
Dim bytes = guid.ToByteArray
|
||||||
|
Return ((bytes(VersionByte) And &HFF) >> VersionByteShift)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Function GetDateTimeOffset(ByVal guid As Guid) As DateTimeOffset
|
||||||
|
Dim bytes As Byte() = guid.ToByteArray
|
||||||
|
bytes(VersionByte) = bytes(VersionByte) And CByte(VersionByteMask)
|
||||||
|
bytes(VersionByte) = bytes(VersionByte) Or (CByte(GuidVersion.TimeBased) >> VersionByteShift)
|
||||||
|
Dim timestampBytes = New Byte(7) {}
|
||||||
|
Array.Copy(bytes, TimestampByte, timestampBytes, 0, 8)
|
||||||
|
Dim timestamp As Long = BitConverter.ToInt64(timestampBytes, 0)
|
||||||
|
Dim ticks As Long = timestamp + GregorianCalendarStart.Ticks
|
||||||
|
|
||||||
|
Return New DateTimeOffset(ticks, TimeSpan.Zero)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Function GetDateTime(ByVal guid As Guid) As Date
|
||||||
|
Return GetDateTimeOffset(guid).DateTime
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Function GetLocalDateTime(ByVal guid As Guid) As Date
|
||||||
|
Return GetDateTimeOffset(guid).LocalDateTime
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Function GetUtcDateTime(ByVal guid As Guid) As Date
|
||||||
|
Return GetDateTimeOffset(guid).UtcDateTime
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Function GenerateTimeBasedGuid() As Guid
|
||||||
|
Return GenerateTimeBasedGuid(DateTimeOffset.UtcNow, DefaultClockSequence, DefaultNode)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Function GenerateTimeBasedGuid(ByVal dateTime As Date) As Guid
|
||||||
|
Return GenerateTimeBasedGuid(dateTime, DefaultClockSequence, DefaultNode)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Function GenerateTimeBasedGuid(ByVal dateTime As DateTimeOffset) As Guid
|
||||||
|
Return GenerateTimeBasedGuid(dateTime, DefaultClockSequence, DefaultNode)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Function GenerateTimeBasedGuid(ByVal dateTime As Date, ByVal clockSequence As Byte(), ByVal node As Byte()) As Guid
|
||||||
|
Return GenerateTimeBasedGuid(New DateTimeOffset(dateTime), clockSequence, node)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Function GenerateTimeBasedGuid(ByVal dateTime As DateTimeOffset, ByVal clockSequence As Byte(), ByVal node As Byte()) As Guid
|
||||||
|
If clockSequence Is Nothing Then Throw New ArgumentNullException("clockSequence")
|
||||||
|
If node Is Nothing Then Throw New ArgumentNullException("node")
|
||||||
|
If clockSequence.Length <> 2 Then Throw New ArgumentOutOfRangeException("clockSequence", "The clockSequence must be 2 bytes.")
|
||||||
|
If node.Length <> 6 Then Throw New ArgumentOutOfRangeException("node", "The node must be 6 bytes.")
|
||||||
|
Dim ticks = (dateTime - GregorianCalendarStart).Ticks
|
||||||
|
Dim guid = New Byte(15) {}
|
||||||
|
Dim timestamp = BitConverter.GetBytes(ticks)
|
||||||
|
Array.Copy(node, 0, guid, NodeByte, Math.Min(6, node.Length))
|
||||||
|
Array.Copy(clockSequence, 0, guid, GuidClockSequenceByte, Math.Min(2, clockSequence.Length))
|
||||||
|
Array.Copy(timestamp, 0, guid, TimestampByte, Math.Min(8, timestamp.Length))
|
||||||
|
guid(VariantByte) = guid(VariantByte) And CByte(VariantByteMask)
|
||||||
|
guid(VariantByte) = guid(VariantByte) Or CByte(VariantByteShift)
|
||||||
|
guid(VersionByte) = guid(VersionByte) And CByte(VersionByteMask)
|
||||||
|
guid(VersionByte) = guid(VersionByte) Or (CByte(GuidVersion.TimeBased) << VersionByteShift)
|
||||||
|
Return New Guid(guid)
|
||||||
|
End Function
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
|
|||||||
@@ -16,7 +16,13 @@
|
|||||||
<asp:LinkButton ID="LnkHabilitarSaldar" runat="server"><i class="fa fa-money"></i> Otros Egresos</asp:LinkButton>
|
<asp:LinkButton ID="LnkHabilitarSaldar" runat="server"><i class="fa fa-money"></i> Otros Egresos</asp:LinkButton>
|
||||||
</li>
|
</li>
|
||||||
<li>
|
<li>
|
||||||
<asp:LinkButton ID="LnkSaldar" Visible="false" OnClick="LnkSaldar_Click" runat="server"><i class="fa fa-money"></i> Saldar</asp:LinkButton>
|
<asp:LinkButton ID="LnkHabilitarSaldarFyE" runat="server"><i class="fa fa-money"></i> Viaticos-Personal</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkSaldar" Visible="false" OnClick="LnkSaldar_Click" runat="server"><i class="fa fa-money"></i> Saldar Proveedores</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkSaldarFyE" Visible="false" OnClick="LnkSaldarFyE_Click" runat="server"><i class="fa fa-money"></i> Saldar FyE</asp:LinkButton>
|
||||||
</li>
|
</li>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
@@ -153,7 +159,7 @@
|
|||||||
|
|
||||||
<asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
<asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
||||||
<Columns>
|
<Columns>
|
||||||
<asp:TemplateField>
|
<asp:TemplateField ItemStyle-Width="10%">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:CheckBox ID="chk" Checked="false" Visible="false" runat="server" />
|
<asp:CheckBox ID="chk" Checked="false" Visible="false" runat="server" />
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
@@ -212,8 +218,14 @@
|
|||||||
<asp:UpdatePanel ID="upDatosPersonal" runat="server" UpdateMode="Conditional">
|
<asp:UpdatePanel ID="upDatosPersonal" runat="server" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
|
|
||||||
<asp:GridView ID="GvPersonal" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Funcionarios Empleados" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
|
<asp:GridView ID="GvPersonal" runat="server" AutoGenerateColumns="False" DataKeyNames="CveIE, Saldo, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal"
|
||||||
|
EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Funcionarios Empleados" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
|
||||||
<Columns>
|
<Columns>
|
||||||
|
<asp:TemplateField ItemStyle-Width="10%">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:CheckBox ID="chk" Checked="false" Visible="false" runat="server" />
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
<asp:TemplateField HeaderText="Personal">
|
<asp:TemplateField HeaderText="Personal">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:HyperLink ID="Hpl" runat="server" NavigateUrl='<%# String.Format("/RH/Personal.aspx?CvePersonal={0}&Opt=10", Eval("CvePersonal"))%>' Text='<%# Eval("NombreCompleto")%>'></asp:HyperLink>
|
<asp:HyperLink ID="Hpl" runat="server" NavigateUrl='<%# String.Format("/RH/Personal.aspx?CvePersonal={0}&Opt=10", Eval("CvePersonal"))%>' Text='<%# Eval("NombreCompleto")%>'></asp:HyperLink>
|
||||||
|
|||||||
@@ -180,53 +180,88 @@ Partial Class Bancos_RepEgresosSinComprobante
|
|||||||
gr.FCCheckBox("Chk").Visible = True
|
gr.FCCheckBox("Chk").Visible = True
|
||||||
LnkSaldar.Visible = True
|
LnkSaldar.Visible = True
|
||||||
LnkHabilitarSaldar.Visible = False
|
LnkHabilitarSaldar.Visible = False
|
||||||
'portletBody.Attributes.Remove("style")
|
|
||||||
'portletBody.Attributes.Add("style", "display: block;")
|
|
||||||
|
|
||||||
'HExtensorFiltro.Attributes.Remove("class")
|
|
||||||
'HExtensorFiltro.Attributes.Add("class", "collapse")
|
|
||||||
|
|
||||||
'UPFiltros.Update()
|
|
||||||
UPDatos.Update()
|
UPDatos.Update()
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
End Sub
|
||||||
|
Private Sub LnkHabilitarSaldoFyE_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldarFyE.Click
|
||||||
|
For Each gr As GridViewRow In GvPersonal.Rows
|
||||||
|
If gr.DataKey("CvePersonal") <> "" Then
|
||||||
|
gr.FCCheckBox("Chk").Visible = True
|
||||||
|
LnkSaldarFyE.Visible = True
|
||||||
|
LnkHabilitarSaldarFyE.Visible = False
|
||||||
|
upDatosPersonal.Update()
|
||||||
|
End If
|
||||||
|
Next
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
|
Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
|
||||||
Dim ObjConta As New ClsContabilidad
|
Dim ObjConta As New ClsContabilidad
|
||||||
ObjConta.IniciaTransacSQL()
|
Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL())
|
||||||
|
|
||||||
Dim CvePrePoliza As Integer = 0
|
Dim CvePrePoliza As Integer = 0
|
||||||
Dim MsgError As String = ""
|
Dim MsgError As String = ""
|
||||||
|
Try
|
||||||
|
For Each gr As GridViewRow In GvESC.Rows
|
||||||
|
If gr.FCCheckBox("Chk").Checked Then
|
||||||
|
Dim CveCuenta As Integer = 0
|
||||||
|
Dim IdCtaContable As Integer = 0
|
||||||
|
Dim CveConceptoContable As Integer
|
||||||
|
|
||||||
|
Select Case gr.DataKey("CveConceptoContable").ToEntero
|
||||||
|
Case 10
|
||||||
|
CveConceptoContable = 21
|
||||||
|
Case 28
|
||||||
|
CveConceptoContable = 29
|
||||||
|
Case 37
|
||||||
|
CveConceptoContable = 43
|
||||||
|
Case 42
|
||||||
|
CveConceptoContable = 41
|
||||||
|
Case 43
|
||||||
|
CveConceptoContable = 37
|
||||||
|
End Select
|
||||||
|
|
||||||
|
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, gr.DataKey("CveProveedor").ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||||
|
If ObjProveedor.DtResultados.Rows.Count > 0 Then
|
||||||
|
IdCtaContable = ObjProveedor.IdCtaContProveedores
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ObjConta.GetCuentaDobleConta(IdCtaContable, UsuarioActual.CveEmpresa) Then
|
||||||
|
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||||
|
CveCuenta = ObjConta.DtResultados.Rows(0)("CveCuenta").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
|
||||||
|
"Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
|
||||||
|
gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
|
||||||
|
ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
|
||||||
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
|
||||||
|
ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
|
||||||
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
|
||||||
|
If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||||
|
Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgError = "Ocurrió un error al generar la prepoliza"
|
||||||
|
OnError(MsgError, ex)
|
||||||
|
End Try
|
||||||
|
|
||||||
For Each gr As GridViewRow In GvESC.Rows
|
|
||||||
If gr.FCCheckBox("Chk").Checked Then
|
|
||||||
Dim CveCuenta As Integer = 0
|
|
||||||
Dim CveConceptoContable As Integer
|
|
||||||
|
|
||||||
Select Case gr.DataKey("CveConceptoContable").ToEntero
|
|
||||||
Case 10
|
|
||||||
CveConceptoContable = 21
|
|
||||||
Case 28
|
|
||||||
CveConceptoContable = 29
|
|
||||||
Case 37
|
|
||||||
CveConceptoContable = 43
|
|
||||||
Case 42
|
|
||||||
CveConceptoContable = 41
|
|
||||||
Case 43
|
|
||||||
CveConceptoContable = 37
|
|
||||||
End Select
|
|
||||||
|
|
||||||
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
||||||
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
|
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=-1) Then
|
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
|
|
||||||
If MsgError = "" Then
|
If MsgError = "" Then
|
||||||
ObjConta.Commit()
|
ObjConta.Commit()
|
||||||
@@ -239,11 +274,96 @@ Partial Class Bancos_RepEgresosSinComprobante
|
|||||||
|
|
||||||
LnkSaldar.Visible = False
|
LnkSaldar.Visible = False
|
||||||
LnkHabilitarSaldar.Visible = True
|
LnkHabilitarSaldar.Visible = True
|
||||||
|
|
||||||
ObjConta.Dispose()
|
ObjConta.Dispose()
|
||||||
End Sub
|
ObjProveedor.Dispose()
|
||||||
|
End Sub
|
||||||
|
Protected Sub LnkSaldarFyE_Click(sender As Object, e As EventArgs)
|
||||||
|
Dim ObjConta As New ClsContabilidad
|
||||||
|
ObjConta.IniciaTransacSQL()
|
||||||
|
|
||||||
|
Dim CvePrePoliza As Integer = 0
|
||||||
|
Dim MsgError As String = ""
|
||||||
|
|
||||||
|
Try
|
||||||
|
For Each gr As GridViewRow In GvPersonal.Rows
|
||||||
|
If gr.FCCheckBox("Chk").Checked Then
|
||||||
|
Dim CveCuenta As Integer = 0
|
||||||
|
Dim IdCtaContPersonal As Integer = 0
|
||||||
|
Dim CveConceptoContable As Integer
|
||||||
|
|
||||||
|
Select Case gr.DataKey("CveConceptoContable").ToEntero
|
||||||
|
Case 10
|
||||||
|
CveConceptoContable = 21
|
||||||
|
Case 28
|
||||||
|
CveConceptoContable = 29
|
||||||
|
Case 37
|
||||||
|
CveConceptoContable = 43
|
||||||
|
Case 42
|
||||||
|
CveConceptoContable = 41
|
||||||
|
Case 43
|
||||||
|
CveConceptoContable = 37
|
||||||
|
End Select
|
||||||
|
|
||||||
|
If ObjConta.GetRetCuenta(CveConceptoContable, gr.DataKey("CvePersonal").ToEntero) Then
|
||||||
|
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||||
|
IdCtaContPersonal = ObjConta.DtResultados.Rows(0)("IdCtaContPersonal").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ObjConta.GetCuentaDobleConta(IdCtaContPersonal, UsuarioActual.CveEmpresa) Then
|
||||||
|
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||||
|
CveCuenta = ObjConta.DtResultados.Rows(0)("CveCuenta").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
|
||||||
|
"Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
|
||||||
|
gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
|
||||||
|
ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
|
||||||
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
|
||||||
|
ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
|
||||||
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
|
||||||
|
If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||||
|
Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgError = "Ocurrió un error al generar la prepoliza"
|
||||||
|
OnError(MsgError, ex)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
If MsgError = "" Then
|
||||||
|
ObjConta.Commit()
|
||||||
|
CargaDatos()
|
||||||
|
Alert("Los movimientos se saldaron correctamente.")
|
||||||
|
Else
|
||||||
|
ObjConta.RollBack()
|
||||||
|
Alert(MsgError, TipoMensaje.MsgError)
|
||||||
|
End If
|
||||||
|
|
||||||
|
LnkSaldarFyE.Visible = False
|
||||||
|
LnkHabilitarSaldarFyE.Visible = True
|
||||||
|
ObjConta.Dispose()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
#Region "IMPRESIONES"
|
#Region "IMPRESIONES"
|
||||||
|
|
||||||
Private Sub ImprimirReportePdf(Archivo As String, DtDatos As DataTable, Optional Formato As String = "PDF")
|
Private Sub ImprimirReportePdf(Archivo As String, DtDatos As DataTable, Optional Formato As String = "PDF")
|
||||||
If DtDatos.Rows.Count > 0 Then
|
If DtDatos.Rows.Count > 0 Then
|
||||||
Dim StrFiltro As New StringBuilder
|
Dim StrFiltro As New StringBuilder
|
||||||
|
|||||||
@@ -795,8 +795,11 @@ Partial Class RepCxCDetalle
|
|||||||
|
|
||||||
For index = 0 To GvDatos.Columns.Count - 1
|
For index = 0 To GvDatos.Columns.Count - 1
|
||||||
If GvDatos.Columns(index).Visible Then
|
If GvDatos.Columns(index).Visible Then
|
||||||
|
If TypeOf GvDatos.Columns(index) Is TemplateField Then
|
||||||
If TypeOf GvDatos.Columns(index) Is HyperLinkField Then
|
If GvDatos.Columns(index).HeaderText = "Folio" Then
|
||||||
|
dr(GvDatos.Columns(index).HeaderText) = fila.FCHyperLink("HlFolio").Text.Replace(" ", "")
|
||||||
|
End If
|
||||||
|
ElseIf TypeOf GvDatos.Columns(index) Is HyperLinkField Then
|
||||||
dr(GvDatos.Columns(index).HeaderText) = DirectCast(fila.Cells(index).Controls(0), HyperLink).Text.Replace(" ", "")
|
dr(GvDatos.Columns(index).HeaderText) = DirectCast(fila.Cells(index).Controls(0), HyperLink).Text.Replace(" ", "")
|
||||||
Else
|
Else
|
||||||
dr(GvDatos.Columns(index).HeaderText) = fila.Cells(index).Text.Replace(" ", "")
|
dr(GvDatos.Columns(index).HeaderText) = fila.Cells(index).Text.Replace(" ", "")
|
||||||
|
|||||||
@@ -2889,7 +2889,7 @@ Partial Class OC
|
|||||||
|
|
||||||
If ChkCotizacion.Checked AndAlso NoProveedoresCot > 0 AndAlso (NumCotizacionesGanadoras > 0 OrElse Not (NumCotizacionesGanadoras <= 0 AndAlso CveConfianzaProveedor = 1)) Then
|
If ChkCotizacion.Checked AndAlso NoProveedoresCot > 0 AndAlso (NumCotizacionesGanadoras > 0 OrElse Not (NumCotizacionesGanadoras <= 0 AndAlso CveConfianzaProveedor = 1)) Then
|
||||||
Dim CveProveedor = -1
|
Dim CveProveedor = -1
|
||||||
Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0, PorIVA = 0.0, Porcentaje = 0.0
|
Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0, PorIVA = 0.0
|
||||||
Dim IdPoliza = -1
|
Dim IdPoliza = -1
|
||||||
|
|
||||||
|
|
||||||
@@ -2900,11 +2900,10 @@ Partial Class OC
|
|||||||
|
|
||||||
CveProveedor = dr("CveProveedor").ToString.ToEntero
|
CveProveedor = dr("CveProveedor").ToString.ToEntero
|
||||||
|
|
||||||
Porcentaje = DtDetalle.SUM("Total", String.Format("CveProveedor = {0}", CveProveedor)) / DtDetalle.SUM("Total")
|
PorIVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) 'GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)).Rows(0)("IVA").ToString.ToDouble
|
||||||
PorIVA = GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)).Rows(0)("IVA").ToString.ToDouble
|
IVACot = IVA '(DtDetalle.SUM("Total", String.Format("CveProveedor = {0}", CveProveedor)) * PorIVA).ToString.ToDecimal
|
||||||
IVACot = (DtDetalle.SUM("Total", String.Format("CveProveedor = {0}", CveProveedor)) * PorIVA).ToString.ToDecimal
|
RetIVA = TxtRetIVA.Text.ToDecimal
|
||||||
RetIVA = TxtRetIVA.Text.ToDecimal * Porcentaje
|
RetISR = TxtRetISR.Text.ToDecimal
|
||||||
RetISR = TxtRetISR.Text.ToDecimal * Porcentaje
|
|
||||||
|
|
||||||
If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
|
If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
|
||||||
CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
|
CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
|
||||||
@@ -2945,7 +2944,15 @@ Partial Class OC
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'AGREGA DETALLES
|
'AGREGA DETALLES
|
||||||
If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CveOrdenCompra, CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble, IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then
|
If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero,
|
||||||
|
dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(),
|
||||||
|
dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CveOrdenCompra,
|
||||||
|
CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble,
|
||||||
|
IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble,
|
||||||
|
RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble,
|
||||||
|
CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble,
|
||||||
|
RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble,
|
||||||
|
IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then
|
||||||
HuboError = True
|
HuboError = True
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
@@ -2968,7 +2975,7 @@ Partial Class OC
|
|||||||
If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
|
If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
|
||||||
CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
|
CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
|
||||||
PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
|
PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
|
||||||
EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
|
EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
|
||||||
Promocion:=Promocion) Then
|
Promocion:=Promocion) Then
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -5094,14 +5094,15 @@ Partial Class PV
|
|||||||
Dim FechaI = TxtFechaAjuste.Text.ToDate.AddDays(1)
|
Dim FechaI = TxtFechaAjuste.Text.ToDate.AddDays(1)
|
||||||
Dim FechaF = Now
|
Dim FechaF = Now
|
||||||
'Dim NumDiasAlMes As Double = (365 / 12)
|
'Dim NumDiasAlMes As Double = (365 / 12)
|
||||||
|
|
||||||
'Dim DiasTranscurridos = DateDiff(DateInterval.Day, FechaI, FechaF)
|
'Dim DiasTranscurridos = DateDiff(DateInterval.Day, FechaI, FechaF)
|
||||||
|
'Dim MesesTranscurridos As Double = (DiasTranscurridos / NumDiasAlMes)
|
||||||
'Dim MesesTranscurridos As Double = DiasTranscurridos / NumDiasAlMes
|
'Dim Diff = Math.Round(MesesTranscurridos - Math.Truncate(MesesTranscurridos), 2)
|
||||||
|
|
||||||
'Dim NoMesesTrascurridos = Math.Ceiling(MesesTranscurridos)
|
'Dim NoMesesTrascurridos = Math.Ceiling(MesesTranscurridos)
|
||||||
|
Dim NoMesesTrascurridos2 = DateDiff(DateInterval.Month, FechaI, FechaF)
|
||||||
|
|
||||||
TxtMesesUso.Text = (DateDiff(DateInterval.Month, FechaI, FechaF) + 1).ToString()
|
'TxtMesesUso.Text = If(Diff > 0.5, NoMesesTrascurridos, NoMesesTrascurridos2).ToString()
|
||||||
|
TxtMesesUso.Text = NoMesesTrascurridos2
|
||||||
CalculaPorcentajeAjuste()
|
CalculaPorcentajeAjuste()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|||||||
@@ -131,7 +131,7 @@
|
|||||||
<%-- 14 --%>
|
<%-- 14 --%>
|
||||||
<asp:BoundField DataField="CodigoPS" HeaderText="Articulo" ItemStyle-HorizontalAlign="Left" />
|
<asp:BoundField DataField="CodigoPS" HeaderText="Articulo" ItemStyle-HorizontalAlign="Left" />
|
||||||
<%-- 15 --%>
|
<%-- 15 --%>
|
||||||
<asp:BoundField DataField="Costo" HeaderText="Costo" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField DataField="CostoTotal" HeaderText="Costo" ItemStyle-HorizontalAlign="Right" />
|
||||||
<%-- 16 --%>
|
<%-- 16 --%>
|
||||||
<asp:BoundField DataField="PLista" HeaderText="P.L." DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField DataField="PLista" HeaderText="P.L." DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||||
<%-- 17 --%>
|
<%-- 17 --%>
|
||||||
|
|||||||
Reference in New Issue
Block a user