AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- recepción de parametro RFC

Browse Source
This commit is contained in:
rrene
2024-01-29 20:02:13 -07:00
parent 8d6f80f8fc
commit 62ba4e5c76
1 changed files with 25 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Ashx/E119.ashx
View File

@@ -381,6 +381,7 @@ Public Class E119 : Implements IHttpHandler
Dim Cantidad, PU, Descuento As Decimal Dim Cantidad, PU, Descuento As Decimal
Dim CveDireccionEnvio As Integer = 0 Dim CveDireccionEnvio As Integer = 0
Dim Obs As String = "" Dim Obs As String = ""
Dim IdEcommerce As Integer = 0
CveSubProyecto = 12659 ' fijo Ecommerce CveSubProyecto = 12659 ' fijo Ecommerce
CveCliente = 0 CveCliente = 0
CveMoneda = 1 CveMoneda = 1
@@ -388,9 +389,19 @@ Public Class E119 : Implements IHttpHandler
MsgLog.AppendLine("1.3 billing") MsgLog.AppendLine("1.3 billing")
Dim RFC As String = "" Dim RFC As String = ""
Dim NombreCliente As String = "" Dim NombreCliente As String = ""
If JsonRequest("billing") IsNot Nothing Then Dim RegimenCliente As String = ""
RFC = JsonRequest("billing")("first_name").ToString() Dim UsoCFDI As String = ""
Dim CveUsoCFDI As Integer = -1
IdEcommerce = JsonRequest("wp_sale_id").ToEntero
If JsonRequest("billing") IsNot Nothing AndAlso JsonRequest("rfc_info") IsNot Nothing Then
RFC = JsonRequest("rfc_info")("rfc_client").ToString()
RegimenCliente = JsonRequest("rfc_info")("regimen_client").ToString()
UsoCFDI = JsonRequest("rfc_info")("cfdi").ToString()
NombreCliente = JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString() NombreCliente = JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString()
If Not String.IsNullOrEmpty(UsoCFDI) Then
CveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", $"UsoCFDI = '{UsoCFDI.Trim}'").ToEntero()
End If
End If End If
'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE 'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE
@@ -403,11 +414,14 @@ Public Class E119 : Implements IHttpHandler
End If End If
MsgLog.AppendLine("1.4 verificar cliente") MsgLog.AppendLine("1.4 verificar cliente")
If CveCliente = 0 Then If CveCliente = 0 Then
' 'DATOS DE BILLING ' 'DATOS DE BILLING
MsgLog.AppendLine("1.5 crear cliente") MsgLog.AppendLine("1.5 crear cliente")
If JsonRequest("billing") IsNot Nothing Then If JsonRequest("billing") IsNot Nothing Then
Dim CveEstado As Integer = -1 Dim CveEstado As Integer = -1
Dim CveRegimenFiscal As Integer = -1
Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString()) Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString())
Dim NumExt As String = "" Dim NumExt As String = ""
Dim NumInt As String = "" Dim NumInt As String = ""
@@ -426,7 +440,11 @@ Public Class E119 : Implements IHttpHandler
Else Else
CveEstado = 26 CveEstado = 26
End If End If
If ObjClientes.AgregarClienteNoFrecuente(NombreCliente, Direccion, NumExt, NumInt, Colonia, Localidad, Ciudad, CveEstado, RFC, CP, Telefono, Correo, CveSubProyecto, CveUsuario, CveEmpresa, "", -1, -1) Then If Not String.IsNullOrEmpty(RegimenCliente) Then
CveRegimenFiscal = ClsPaginas.GlobalDTRegimenesFiscales().FiltroPrimeroValor("CveRegimenFiscal", $"CodigoRegimenFiscal = '{RegimenCliente.Trim}'").ToEntero()
End If
If ObjClientes.AgregarClienteNoFrecuente(NombreCliente, Direccion, NumExt, NumInt, Colonia, Localidad, Ciudad, CveEstado, RFC, CP, Telefono, Correo, CveSubProyecto, CveUsuario, CveEmpresa, "", -1, -1, CveRegimenFiscal:=CveRegimenFiscal, CveUsoCFDI:=CveUsoCFDI) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then If ObjClientes.DtResultados.Rows.Count > 0 Then
CveCliente = ObjClientes.DtResultados(0)("CveCliente").ToString().ToEntero() CveCliente = ObjClientes.DtResultados(0)("CveCliente").ToString().ToEntero()
MsgLog.AppendLine("1.5.5 cliente creado") MsgLog.AppendLine("1.5.5 cliente creado")
@@ -489,7 +507,10 @@ Public Class E119 : Implements IHttpHandler
ObjFactura.Alfa1 = Entrega ObjFactura.Alfa1 = Entrega
End If End If
ObjFactura.CveDireccionEnvio = cvedireccionenvio ObjFactura.CveDireccionEnvio = CveDireccionEnvio
ObjFactura.Num1 = IdEcommerce
ObjFactura.CveUsoCFDI = cveusocfdi
If JsonRequest("line_items") IsNot Nothing Then If JsonRequest("line_items") IsNot Nothing Then
Dim ListaPS As JArray = JArray.Parse(JsonRequest("line_items").ToString()) Dim ListaPS As JArray = JArray.Parse(JsonRequest("line_items").ToString())