Pagos para FyE,IVA al generar OC,poliza virtual,etc
This commit is contained in:
@@ -1,5 +1,6 @@
|
||||
<%@ WebHandler Language="VB" Class="SIGPolizaVirtual" %>
|
||||
|
||||
Imports Fluent
|
||||
Imports System
|
||||
Imports System.Web
|
||||
Imports System.Net.Http
|
||||
@@ -9,61 +10,187 @@ Imports Newtonsoft.Json
|
||||
Imports Newtonsoft.Json.Linq
|
||||
Imports Extensiones
|
||||
Imports System.IO
|
||||
Imports System.Runtime.CompilerServices
|
||||
|
||||
Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
||||
|
||||
Protected ReadOnly Property User As String = "cslth.2809@jcilink.com"
|
||||
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
|
||||
context.Response.ContentType = "application/json"
|
||||
EnviarPolizaVentaWS(context)
|
||||
EnviarPolizaVentaLTHWSD(context)
|
||||
EnviarPolizaIndicadores(context)
|
||||
Dim usuario = ValidaUsuarioSistema(140, 100)
|
||||
Dim ObjFactura As New Modelos.Factura(usuario, 898028, 140)
|
||||
|
||||
GeneraPolizaVentaWS(context, ObjFactura)
|
||||
'GeneraPolizaVentaLTHWSD(context)
|
||||
'GeneraIndicadores(context)
|
||||
End Sub
|
||||
|
||||
|
||||
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
|
||||
Get
|
||||
Return False
|
||||
End Get
|
||||
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 = "[]"
|
||||
Try
|
||||
Using wc As New HttpClient()
|
||||
Dim Url = New Uri("http://polizavirtual.com.mx/lthwsd/api/Venta")
|
||||
|
||||
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)("password", Password))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_name", "JOSE ENRIQUE VIZCARA RENDON"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", "Prueba"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", "Prueba"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_birthday", "1900-01-01 00:00:00"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_phone", "5417543010"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_email", "elunap@gmail.com"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", "02"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", "False"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_date", "2018-07-24 00:00:00"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_paidby", "01"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type", "01"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", "01"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_code", "174200"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", "65047187"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", "01"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_product", "True"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_brand", "01"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_bci", "25"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_month", "1"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_year", "2015"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_sale_date", "2018-07-24 00:00:00"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_brand", "36"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_model", "741"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_year", "2015"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", "0"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_id", "32860"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_name", obj.customer_name))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", obj.customer_last_name1))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", obj.customer_last_name1))
|
||||
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", obj.customer_phone))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_email", obj.customer_email))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", obj.customer_gender))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", obj.customer_advertising.ToString()))
|
||||
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", obj.sale_paidby))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type", obj.sale_type))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", obj.sale_type_service))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_code", obj.product_code))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", obj.product_unique_code))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", obj.product_sale_type))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_product", obj.used_product.ToString()))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_brand", obj.used_brand))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_bci", obj.used_bci))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_month", obj.used_month.ToString()))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_year", obj.used_year.ToString()))
|
||||
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", obj.customer_car_brand.ToString()))
|
||||
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", obj.customer_car_year.ToString()))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", obj.sale_discount.ToString()))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_id", obj.sale_id.ToString()))
|
||||
|
||||
Dim content As New FormUrlEncodedContent(Parametros)
|
||||
Dim response = wc.PostAsync(Url, content).Result
|
||||
@@ -78,7 +205,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
||||
context.Response.Write(Retorno)
|
||||
End Sub
|
||||
|
||||
Private Sub EnviarPolizaVentaWS(ByVal context As HttpContext)
|
||||
Protected Sub EnviarPolizaVentaWS(ByVal context As HttpContext, obj As MPolizaVentaWS)
|
||||
Dim Retorno As String = "[]"
|
||||
Try
|
||||
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)("password", Password))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_name", "JOSE ENRIQUE "))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", "VIZCARA"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", "RENDON"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_birthday", "1900-01-01 00:00:00"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_phone", "8186545256"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_email", "mail@mail.com"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", "02"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", "False"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_date", "2018-07-24 00:00:00"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_paidby", "01"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type", "01"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", "01"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_code", "174925"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", "65047187"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", "01"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_total", "0"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_product", "True"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_brand", "01"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_bci", "25"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_month", "1"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_year", "2015"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_sale_date", "2018-07-24 00:00:00"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_brand", "36"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_model", "741"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_year", "2015"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", "0"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_id", "32860"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_name", obj.customer_name))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", obj.customer_last_name1))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", obj.customer_last_name1))
|
||||
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", obj.customer_phone))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_email", obj.customer_email))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", obj.customer_gender))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", obj.customer_advertising.ToString()))
|
||||
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", obj.sale_paidby))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type", obj.sale_type))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", obj.sale_type_service))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_code", obj.product_code))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", obj.product_unique_code))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", obj.product_sale_type))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_total", obj.sale_total.ToString()))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_product", obj.used_product.ToString()))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_brand", obj.used_brand))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_bci", obj.used_bci))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_month", obj.used_month.ToString()))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("used_year", obj.used_year.ToString()))
|
||||
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", obj.customer_car_brand.ToString()))
|
||||
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", obj.customer_car_year.ToString()))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", obj.sale_discount.ToString()))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("sale_id", obj.sale_id.ToString()))
|
||||
|
||||
Dim content As New FormUrlEncodedContent(Parametros)
|
||||
Dim response = wc.PostAsync(Url, content).Result
|
||||
@@ -129,7 +256,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
||||
context.Response.Write(Retorno)
|
||||
End Sub
|
||||
|
||||
Private Sub EnviarPolizaIndicadores(ByVal context As HttpContext)
|
||||
Protected Sub EnviarPolizaIndicadores(ByVal context As HttpContext, obj As MIndicador)
|
||||
Dim Retorno As String = "[]"
|
||||
Try
|
||||
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)("password", Password))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_optima", "1"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_fullpower", "2"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_hitec", "3"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_agm", "4"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_suv", "5"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_taxi", "6"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_america", "7"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_lth", "8"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_cronos", "9"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_diener", "10"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_b_heavyduty", "11"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_m_lth", "12"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_filtros", "13"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lub1", "14"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lubgalon", "15"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lub5", "16"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_aa", "17"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("v_o_aaa", "18"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_optima", "19"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_fullpower", "20"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_hitec", "21"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_agm", "22"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_suv", "23"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_taxi", "24"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_america", "25"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_lth", "26"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_cronos", "27"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_diener", "28"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_b_heavyduty", "29"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("g_m_lth", "30"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_optima", "31"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_fullpower", "32"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_hitec", "33"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_agm", "34"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_suv", "35"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_taxi", "36"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_america", "37"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_lth", "38"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_cronos", "39"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_diener", "40"))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_heavyduty", "41"))
|
||||
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", obj.v_b_fullpower.ToString()))
|
||||
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", obj.v_b_agm.ToString()))
|
||||
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", obj.v_b_taxi.ToString()))
|
||||
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", obj.v_b_lth.ToString()))
|
||||
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", obj.v_b_diener.ToString()))
|
||||
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", obj.v_m_lth.ToString()))
|
||||
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", obj.v_o_lub1.ToString()))
|
||||
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", obj.v_o_lub5.ToString()))
|
||||
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", obj.v_o_aaa.ToString()))
|
||||
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", obj.g_b_fullpower.ToString()))
|
||||
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", obj.g_b_agm.ToString()))
|
||||
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", obj.g_b_taxi.ToString()))
|
||||
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", obj.g_b_lth.ToString()))
|
||||
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", obj.g_b_diener.ToString()))
|
||||
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", obj.g_m_lth.ToString()))
|
||||
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", obj.a_b_fullpower.ToString()))
|
||||
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", obj.a_b_agm.ToString()))
|
||||
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", obj.a_b_taxi.ToString()))
|
||||
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", obj.a_b_lth.ToString()))
|
||||
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", obj.a_b_diener.ToString()))
|
||||
Parametros.Add(New KeyValuePair(Of String, String)("a_b_heavyduty", obj.a_b_heavyduty.ToString()))
|
||||
|
||||
Dim content As New FormUrlEncodedContent(Parametros)
|
||||
Dim response = wc.PostAsync(Url, content).Result
|
||||
@@ -194,4 +321,217 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
||||
context.Response.Write(Retorno)
|
||||
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>
|
||||
</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>
|
||||
</ContentTemplate>
|
||||
</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">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-Width="10%">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox ID="chk" Checked="false" Visible="false" runat="server" />
|
||||
</ItemTemplate>
|
||||
@@ -212,8 +218,14 @@
|
||||
<asp:UpdatePanel ID="upDatosPersonal" runat="server" UpdateMode="Conditional">
|
||||
<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>
|
||||
<asp:TemplateField ItemStyle-Width="10%">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox ID="chk" Checked="false" Visible="false" runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Personal">
|
||||
<ItemTemplate>
|
||||
<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
|
||||
LnkSaldar.Visible = True
|
||||
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()
|
||||
End If
|
||||
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
|
||||
|
||||
Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
ObjConta.IniciaTransacSQL()
|
||||
Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL())
|
||||
|
||||
Dim CvePrePoliza As Integer = 0
|
||||
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
|
||||
ObjConta.Commit()
|
||||
@@ -239,11 +274,96 @@ Partial Class Bancos_RepEgresosSinComprobante
|
||||
|
||||
LnkSaldar.Visible = False
|
||||
LnkHabilitarSaldar.Visible = True
|
||||
|
||||
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"
|
||||
|
||||
|
||||
Private Sub ImprimirReportePdf(Archivo As String, DtDatos As DataTable, Optional Formato As String = "PDF")
|
||||
If DtDatos.Rows.Count > 0 Then
|
||||
Dim StrFiltro As New StringBuilder
|
||||
|
||||
@@ -795,8 +795,11 @@ Partial Class RepCxCDetalle
|
||||
|
||||
For index = 0 To GvDatos.Columns.Count - 1
|
||||
If GvDatos.Columns(index).Visible Then
|
||||
|
||||
If TypeOf GvDatos.Columns(index) Is HyperLinkField Then
|
||||
If TypeOf GvDatos.Columns(index) Is TemplateField 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(" ", "")
|
||||
Else
|
||||
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
|
||||
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
|
||||
|
||||
|
||||
@@ -2900,11 +2900,10 @@ Partial Class OC
|
||||
|
||||
CveProveedor = dr("CveProveedor").ToString.ToEntero
|
||||
|
||||
Porcentaje = DtDetalle.SUM("Total", String.Format("CveProveedor = {0}", CveProveedor)) / DtDetalle.SUM("Total")
|
||||
PorIVA = GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)).Rows(0)("IVA").ToString.ToDouble
|
||||
IVACot = (DtDetalle.SUM("Total", String.Format("CveProveedor = {0}", CveProveedor)) * PorIVA).ToString.ToDecimal
|
||||
RetIVA = TxtRetIVA.Text.ToDecimal * Porcentaje
|
||||
RetISR = TxtRetISR.Text.ToDecimal * Porcentaje
|
||||
PorIVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) '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
|
||||
RetIVA = TxtRetIVA.Text.ToDecimal
|
||||
RetISR = TxtRetISR.Text.ToDecimal
|
||||
|
||||
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,
|
||||
@@ -2945,7 +2944,15 @@ Partial Class OC
|
||||
End If
|
||||
|
||||
'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
|
||||
Exit For
|
||||
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,
|
||||
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,
|
||||
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
|
||||
|
||||
|
||||
|
||||
@@ -5076,14 +5076,15 @@ Partial Class PV
|
||||
Dim FechaI = TxtFechaAjuste.Text.ToDate
|
||||
Dim FechaF = Now
|
||||
'Dim NumDiasAlMes As Double = (365 / 12)
|
||||
|
||||
'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 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()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -131,7 +131,7 @@
|
||||
<%-- 14 --%>
|
||||
<asp:BoundField DataField="CodigoPS" HeaderText="Articulo" ItemStyle-HorizontalAlign="Left" />
|
||||
<%-- 15 --%>
|
||||
<asp:BoundField DataField="Costo" HeaderText="Costo" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField DataField="CostoTotal" HeaderText="Costo" ItemStyle-HorizontalAlign="Right" />
|
||||
<%-- 16 --%>
|
||||
<asp:BoundField DataField="PLista" HeaderText="P.L." DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||
<%-- 17 --%>
|
||||
|
||||
Reference in New Issue
Block a user