From 878b406d276eb00f6e542b19abe419ff3c04500d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 3 Dec 2022 16:17:55 -0700 Subject: [PATCH] Utilizar direcciones de envio como destinatario en comercio exterior en Ventas.aspx, alta de regimen fiscal en clientes desde PV.aspx --- App_Code/ClsClientes.vb | 16 ++- Inventarios/CartaPorteManual.aspx.vb | 2 +- Inventarios/RepEntregaAlmacenRuta.aspx.cs | 2 +- OC/OC.aspx.vb | 2 +- Ventas/Clientes.aspx | 27 ++-- Ventas/Clientes.aspx.vb | 28 ++-- Ventas/PV.aspx | 120 +++++++--------- Ventas/PV.aspx.vb | 166 +++++++++++++++++++--- Ventas/Ventas.aspx | 37 +++-- Ventas/Ventas.aspx.vb | 86 +++++++++-- 10 files changed, 335 insertions(+), 151 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 14f390bd5..f71c30878 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1499,8 +1499,9 @@ Public Class ClsClientes #Region "D I R E C C I O N D E E N V I O " Public Function DireccionEnvioAdd(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String, - EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, Optional CveClienteSucursal As Integer = -1, Optional EnvioDepartamento As String = "-1", Optional EnvioTel As String = "-1", - Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1) As Integer + EnvioCP As String, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, Optional CveClienteSucursal As Integer = -1, Optional EnvioDepartamento As String = "-1", Optional EnvioTel As String = "-1", + Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, + Optional COM_NumRegIdTrib As String = "") As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Vta_ClientesDireccionesEnvioAdd") @@ -1513,7 +1514,7 @@ Public Class ClsClientes .Add("@EnvioColonia", SqlDbType.VarChar).Value = EnvioColonia .Add("@EnvioCiudad", SqlDbType.VarChar).Value = EnvioCiudad .Add("@EnvioEstado", SqlDbType.VarChar).Value = EnvioEstado - .Add("@EnvioCP", SqlDbType.Int).Value = EnvioCP + .Add("@EnvioCP", SqlDbType.VarChar).Value = EnvioCP .Add("@EnvioContacto", SqlDbType.VarChar).Value = EnvioContacto .Add("@EnvioDepartamento", SqlDbType.VarChar).Value = EnvioDepartamento .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel @@ -1527,6 +1528,7 @@ Public Class ClsClientes .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad .Add("@CveColonia", SqlDbType.Int).Value = CveColonia .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@COM_NumRegIdTrib", SqlDbType.VarChar).Value = COM_NumRegIdTrib .Add("@CveDireccionEnvio", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -1561,8 +1563,9 @@ Public Class ClsClientes End Function Public Function DireccionEnvioUpdate(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String, - EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, CveDireccionEnvio As Integer, Optional EnvioDepartamento As String = "-1", Optional CveClienteSucursal As Integer = -1, Optional EnvioTel As String = "-1", - Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean + EnvioCP As String, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, CveDireccionEnvio As Integer, Optional EnvioDepartamento As String = "-1", Optional CveClienteSucursal As Integer = -1, Optional EnvioTel As String = "-1", + Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveSubProyecto As Integer = -1, + Optional COM_NumRegIdTrib As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ClientesDireccionesEnvioUpdate") @@ -1578,7 +1581,7 @@ Public Class ClsClientes .Add("@EnvioEstado", SqlDbType.VarChar).Value = EnvioEstado .Add("@EnvioContacto", SqlDbType.VarChar).Value = EnvioContacto .Add("@EnvioDepartamento", SqlDbType.VarChar).Value = EnvioDepartamento - .Add("@EnvioCP", SqlDbType.Int).Value = EnvioCP + .Add("@EnvioCP", SqlDbType.VarChar).Value = EnvioCP .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Estatus", SqlDbType.Int).Value = Estatus @@ -1589,6 +1592,7 @@ Public Class ClsClientes .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad .Add("@CveColonia", SqlDbType.Int).Value = CveColonia + .Add("@COM_NumRegIdTrib", SqlDbType.VarChar).Value = COM_NumRegIdTrib End With diff --git a/Inventarios/CartaPorteManual.aspx.vb b/Inventarios/CartaPorteManual.aspx.vb index 6369d50dd..1c04f04ab 100644 --- a/Inventarios/CartaPorteManual.aspx.vb +++ b/Inventarios/CartaPorteManual.aspx.vb @@ -536,7 +536,7 @@ Partial Class Inventarios_CartaPorteManual Dim EnvioDireccion As String = GvRow.DataKey("EnvioDireccion") Dim EnvioNoExt As String = GvRow.DataKey("EnvioNoExt") Dim EnvioNoInt As String = GvRow.DataKey("EnvioNoInt") - Dim EnvioCP As Integer = GvRow.DataKey("EnvioCP").ToEntero + Dim EnvioCP As String = GvRow.DataKey("EnvioCP") Dim CvePais As Integer = GvRow.DataKey("CvePais").ToEntero Dim CveEstado As Integer = GvRow.DataKey("CveEstado").ToEntero diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx.cs b/Inventarios/RepEntregaAlmacenRuta.aspx.cs index 3dc47a24d..ed0c5bdae 100644 --- a/Inventarios/RepEntregaAlmacenRuta.aspx.cs +++ b/Inventarios/RepEntregaAlmacenRuta.aspx.cs @@ -1094,7 +1094,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas bool ErrorProceso = false; //CveDireccionEditar - if (!ObjCli.DireccionEnvioUpdate(-1, TxtEnvioDireccion.Text, TxtEnvioNoExt.Text, TxtEnvioNoInt.Text, "-1", "-1", "-1", TxtEnvioCP.Text.ToEntero(), "-1", UsuarioActual.CveUsuario, -1, CveDireccionEditar, "-1", -1, "-1", + if (!ObjCli.DireccionEnvioUpdate(-1, TxtEnvioDireccion.Text, TxtEnvioNoExt.Text, TxtEnvioNoInt.Text, "-1", "-1", "-1", TxtEnvioCP.Text, "-1", UsuarioActual.CveUsuario, -1, CveDireccionEditar, "-1", -1, "-1", DdlDirClientePais.SelectedValue.ToEntero(), DdlDirClienteEstado.SelectedValue.ToEntero(), DdlDirClienteMunicipio.SelectedValue.ToEntero(), DdlDirClienteLocalidad.SelectedValue.ToEntero(), DdlDirClienteColonia.SelectedValue.ToEntero())) { ErrorProceso = true; diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 76c7c54c1..c4da7e4fb 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -7800,7 +7800,7 @@ Partial Class OC_OC Dim TieneError = False Dim Estatus = If(ChkEstatus.Checked, 1, 0) - CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(Ddlcliente.txtValue.Value.ToEntero, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", "")) + CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(Ddlcliente.txtValue.Value.ToEntero, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", "")) If CveDireccionEnvio < 0 Then TieneError = True diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index ae60cc84c..3d80a5652 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -856,7 +856,7 @@
@@ -5294,7 +5294,7 @@
- +
@@ -5325,10 +5325,7 @@
-
- -
@@ -5339,21 +5336,17 @@
-
<%----%>
-
-
-
@@ -5361,18 +5354,14 @@
- +
+
+
+ + +
- - - - - - - - -
<%----%> diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 5f5496898..127298d4c 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -4583,17 +4583,21 @@ Partial Class Clientes Private Sub DirClientevalidaCodigoPostal() - Dim CPTxt As Integer = TxtEnvioCP.Text.ToEntero() + 'EN JAPON NO SE MANEJA CP NUMERICO + If DdlDirClientePais.SelectedValue.ToEntero() <> 122 Then + Dim CPTxt As Integer = TxtEnvioCP.Text.ToEntero() - Dim CveColonia As Integer = DdlDirClienteColonia.SelectedValue.ToEntero + Dim CveColonia As Integer = DdlDirClienteColonia.SelectedValue.ToEntero - If CPTxt > 0 And CveColonia > 0 Then - Dim CP As Integer = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=CveColonia).FiltroPrimeroValor("CP", "").ToEntero - If CPTxt <> CP Then - Alert("El código postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia) + If CPTxt > 0 And CveColonia > 0 Then + Dim CP As Integer = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=CveColonia).FiltroPrimeroValor("CP", "").ToEntero + If CPTxt <> CP Then + Alert("El código postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia) + End If End If End If + End Sub @@ -4636,6 +4640,7 @@ Partial Class Clientes DdlClienteSucursalEnvio.SelectedValueExist("-1") End If + TxtCom_NumRegIdTrib.Text = GvRow.DataKey("COM_NumRegIdTrib") Dim CveSubProyectoClienteSucursal As Integer = GvRow.DataKey("CveSubProyecto").ToEntero @@ -4644,6 +4649,8 @@ Partial Class Clientes DdlSubProyectoClienteSucursal.SelectedValueExist(CveSubProyectoClienteSucursal) End If + BtnAgregarDireccion.Text = "Actualizar" + UpAddDireccion.Update() RegistraScript("$('#divAddDireccionEnvio').modal();") End Sub @@ -4653,16 +4660,16 @@ Partial Class Clientes Dim Estatus = If(ChkEstatus.Checked, 1, 0) If CveDireccionEnvio < 0 Then - CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), - CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectoClienteSucursal.SelectedValue.ToEntero) + CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.Trim(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), + CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectoClienteSucursal.SelectedValue.ToEntero, COM_NumRegIdTrib:=TxtCom_NumRegIdTrib.Text.Trim()) If CveDireccionEnvio < 0 Then TieneError = True End If Else - If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), - CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectoClienteSucursal.SelectedValue.ToEntero) Then + If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.Trim(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), + CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectoClienteSucursal.SelectedValue.ToEntero, COM_NumRegIdTrib:=TxtCom_NumRegIdTrib.Text.Trim()) Then TieneError = True End If @@ -4698,6 +4705,7 @@ Partial Class Clientes 'DdlDirClienteLocalidad.SelectedValueExist(-1) 'DdlDirClienteColonia.SelectedValueExist(-1) + BtnAgregarDireccion.Text = "Agregar" UpAddDireccion.Update() RegistraScript("$('#divAddDireccionEnvio').modal();") End Sub diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 0e383970e..e9c6b7400 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2464,7 +2464,6 @@ -
@@ -2475,47 +2474,32 @@
- - -
-
- - - +
+
+
+ + + +
+
+ +
+
-
- -
-
- - -
-
- - +
- Física Moral -
-
- - - - - - -
@@ -2533,8 +2517,6 @@
- -
@@ -2543,6 +2525,7 @@
+
@@ -2555,29 +2538,37 @@
-
-
+
+
-
- - -
-
-
-
+
-
+
+
+
+ + + + +
+
+ + + + +
+
@@ -2599,47 +2590,42 @@
-
-
- - - -
-
-
-
- + - +
- + - +
-
- - - +
+
+ + + + + + +
+
+ + + + + + +
+
- - - - - - - - - - @@ -7281,7 +7294,7 @@ diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 999ca0292..2685f8520 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6470,6 +6470,12 @@ Partial Class Ventas If ObjCliente.AplicaComercioExterior Then ChkEmitirComercioExterior.Checked = True ChkEmitirComercioExterior_CheckedChanged(ChkEmitirComercioExterior, EventArgs.Empty) + + If CveCliente = 665317 Then + ChkAplicaDestinatario.Checked = True + ChkAplicaDestinatario_CheckedChanged(ChkAplicaDestinatario, EventArgs.Empty) + End If + End If If ObjCliente.AplicaComercioExterior Then @@ -8640,6 +8646,11 @@ Partial Class Ventas Exit Sub End If + If ChkEmitirComercioExterior.Checked AndAlso ChkAplicaDestinatario.Checked AndAlso DdlDirecionDestinatario.SelectedValue.ToEntero() <= 0 Then + Alert("Debe seleccionar un destino para comercio exterior.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs", "Dev") Then If LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso RegimenFiscalCliente <> "616" Then @@ -12362,20 +12373,48 @@ Partial Class Ventas 'DESTINATARIO - Timbre.Complementos.ComercioExterior11.Destinatario = Nothing + If ChkAplicaDestinatario.Checked AndAlso DdlDirecionDestinatario.SelectedValue.ToEntero() > 0 Then + + Dim RowDireccion As DataRow = Nothing + Dim ObjClientes As New ClsClientes + If ObjClientes.DireccionEnvioGet(DdlDirecionDestinatario.SelectedValue.ToEntero(), CveCliente, -1) Then + RowDireccion = ObjClientes.DtResultados.Rows(0) + End If + ObjClientes.Dispose() + + If RowDireccion IsNot Nothing Then + + Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = RowDireccion("EnvioContacto").ToString() + Timbre.Complementos.ComercioExterior11.Destinatario.Calle = RowDireccion("EnvioDireccion").ToString() + Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = RowDireccion("EnvioNoExt").ToString() + Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = "" + Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = "" + Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = RowDireccion("NombreLocalidad").ToString() + Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = "" + Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = RowDireccion("NombreMunicipio").ToString() + Timbre.Complementos.ComercioExterior11.Destinatario.CP = RowDireccion("EnvioCP").ToString() + Timbre.Complementos.ComercioExterior11.Destinatario.Estado = RowDireccion("NombreEstado").ToString() + Timbre.Complementos.ComercioExterior11.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString() + Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").ToString() + + 'Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = "FARMIND CORPORATION" + 'Timbre.Complementos.ComercioExterior11.Destinatario.Calle = "Kandaizumicho Bldg" + 'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = "7F" + 'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = "" + 'Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = "" + 'Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = "Chiyoda-ku" + 'Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = "" + 'Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = "Kandaizumicho" + 'Timbre.Complementos.ComercioExterior11.Destinatario.CP = "101-0024" + 'Timbre.Complementos.ComercioExterior11.Destinatario.Estado = "Tokyo" + 'Timbre.Complementos.ComercioExterior11.Destinatario.Pais = "JPN" + 'Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = "2010401130418" + End If + + Else + Timbre.Complementos.ComercioExterior11.Destinatario = Nothing + End If - 'Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = TxtDestinatarioNombre.Text.Trim - 'Timbre.Complementos.ComercioExterior11.Destinatario.Calle = ComExtCalle - 'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = ComExtNumero - 'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = "" - 'Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ComExtColonia - 'Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = "" - 'Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = Obj.Cliente.ReferenciaFiscal - 'Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = ComExtMunicipio - 'Timbre.Complementos.ComercioExterior11.Destinatario.CP = ComExtCP - 'Timbre.Complementos.ComercioExterior11.Destinatario.Estado = ComExtEstado - 'Timbre.Complementos.ComercioExterior11.Destinatario.Pais = ComExtPais - 'Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = TxtNumRegIdTrib.Text.Trim 'MERCANCIAS For Each Gvr As GridViewRow In GvComercioExterior.Rows @@ -23143,7 +23182,7 @@ Partial Class Ventas Dim TieneError = False Dim CveDireccionEnvio As Integer - CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, DdlDirClienteColonia.SelectedItem.Text.Trim, DdlDirClienteMunicipio.SelectedItem.Text.Trim, DdlDirClienteEstado.SelectedItem.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, 1, CveClienteSucursal:=CveClienteSucursal, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), + CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, DdlDirClienteColonia.SelectedItem.Text.Trim, DdlDirClienteMunicipio.SelectedItem.Text.Trim, DdlDirClienteEstado.SelectedItem.Text.Trim, TxtEnvioCP.Text.Trim(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, 1, CveClienteSucursal:=CveClienteSucursal, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero) If CveDireccionEnvio < 0 Then @@ -29623,6 +29662,7 @@ Partial Class Ventas Dim ImporteRetIVA As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeRetIVA").ToString().ToDecimal Dim ImporteRetISR As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeRetISR").ToString().ToDecimal Dim ImporteIEPS As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeIEPS").ToString().ToDecimal + Dim CodigoObjetoImpuesto As String = Gv.DataKey("CodigoObjetoImpuesto") AgregaTempDT(TmpDT, Gv.DataKey("CvePS").ToString().ToEntero(), Gv.DataKey("PS").ToString(), Gv.DataKey("Codigo").ToString(), Gv.DataKey("CodigoPS").ToString(), Gv.DataKey("CveTipoPS").ToString().ToEntero(), Gv.DataKey("CveTipoInvPS").ToString().ToEntero(), @@ -29633,7 +29673,7 @@ Partial Class Ventas Gv.DataKey("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA, Gv.DataKey("PorcentajeRetISR").ToString().ToDecimal, ImporteRetISR, Gv.DataKey("PorcentajeIEPS").ToString().ToDecimal, ImporteIEPS, -1, Descuento, Total, "", "", -1, -1, - Gv.DataKey("SATClaveProdServ").ToString(), Gv.DataKey("SATClaveUM").ToString(), -1, Gv.DataKey("CveVentaDetalle").ToString().ToEntero(), -1, -1, -1, -1, Gv.DataKey("CveTamaño").ToEntero()) + Gv.DataKey("SATClaveProdServ").ToString(), Gv.DataKey("SATClaveUM").ToString(), -1, Gv.DataKey("CveVentaDetalle").ToString().ToEntero(), -1, -1, -1, -1, Gv.DataKey("CveTamaño").ToEntero(), CodigoObjetoImpuesto:=CodigoObjetoImpuesto) End If Next @@ -35785,5 +35825,21 @@ Partial Class Ventas End If End Using End Sub + Protected Sub ChkAplicaDestinatario_CheckedChanged(sender As Object, e As EventArgs) + DivLblDestino.Visible = ChkAplicaDestinatario.Checked + DivDdlDestino.Visible = ChkAplicaDestinatario.Checked + + If ChkAplicaDestinatario.Checked Then + Dim ObjClientes As New ClsClientes + If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then + DdlDirecionDestinatario.DataSource = ObjClientes.DtResultados + End If + ObjClientes.Dispose() + DdlDirecionDestinatario.DataBind() + DdlDirecionDestinatario.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + + UpComercioExterior.Update() + End Sub End Class