--merge SIGWEB
This commit is contained in:
@@ -4074,7 +4074,7 @@ Partial Class Ventas
|
||||
Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
|
||||
|
||||
DdlEstadoSAT.Items.Clear()
|
||||
DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
|
||||
DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais)
|
||||
|
||||
DdlEstadoSAT.DataBind()
|
||||
DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
@@ -4673,6 +4673,7 @@ Partial Class Ventas
|
||||
ChkDireccionEnvio.Enabled = False
|
||||
DdlDireccionEnvio.Visible = True
|
||||
trDireccionEnvio.Visible = True
|
||||
If UsuarioActual.TienePermisoProceso(333) Then LnkEditarDir.Visible = True
|
||||
End If
|
||||
|
||||
'ESTATUS FACTURA
|
||||
@@ -5766,7 +5767,7 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
'HABILITA LA OPCION DE DIRECCION DE ENVIO
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 72, 119) Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 72, 119, 140) Then
|
||||
trDireccionEnvio.Visible = True
|
||||
CargaDireccionesEnvio()
|
||||
End If
|
||||
@@ -8712,7 +8713,10 @@ Partial Class Ventas
|
||||
Dim TmpDT7Eleven As New DataTable
|
||||
Dim TmpDTComplementosTimbrado As New DataTable
|
||||
|
||||
PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
|
||||
If AplicaFEMSA Then
|
||||
PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
|
||||
End If
|
||||
|
||||
'DOCUMENTO ACTUAL
|
||||
If DebeTimbrar Then
|
||||
SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
|
||||
@@ -9807,7 +9811,7 @@ Partial Class Ventas
|
||||
|
||||
'ObjFactura.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text)
|
||||
'ObjFactura.PedidoContrato = TxtPedidoContrato.Text.Trim
|
||||
ObjFactura.AtnA = TxtAtencionA.Text
|
||||
ObjFactura.AtencionA = TxtAtencionA.Text
|
||||
ObjFactura.FordGSDB = ""
|
||||
|
||||
ObjFactura.NumeroContrato = NumeroContrato
|
||||
@@ -10979,18 +10983,18 @@ Partial Class Ventas
|
||||
|
||||
Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String
|
||||
ComExtColonia = "" : ComExtMunicipio = ""
|
||||
ComExtPais = GlobalDTPais.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}")
|
||||
ComExtPais = GlobalDTGralPaises.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}")
|
||||
ComExtCalle = TxtComExtCalle.Text.Trim
|
||||
ComExtNumero = TxtComExtNumero.Text.Trim
|
||||
ComExtCP = TxtComExtCP.Text.Trim
|
||||
|
||||
If ComExtPais = "MEX" Then
|
||||
ComExtEstado = GlobalDTEstado(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
|
||||
ComExtMunicipio = GlobalDTMunicipio(ComExtEstado).FiltroPrimeroValor("ClaveSATMunicipio", $"CveMunicipio={DdlComExtMunicipio.SelectedValue}")
|
||||
ComExtColonia = GlobalDTColonia(ComExtMunicipio).FiltroPrimeroValor("ClaveSATColonia", $"CveColonia={DdlComExtColonia.SelectedValue}")
|
||||
ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
|
||||
ComExtMunicipio = GlobalDTGralMunicipios(ComExtEstado).FiltroPrimeroValor("ClaveSATMunicipio", $"CveMunicipio={DdlComExtMunicipio.SelectedValue}")
|
||||
ComExtColonia = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=DdlComExtColonia.SelectedValue.ToEntero).FiltroPrimeroValor("ClaveSATColonia", "")
|
||||
Else
|
||||
If ComExtPais.Contiene("USA", "CAN") Then
|
||||
ComExtEstado = GlobalDTEstado(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
|
||||
ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
|
||||
Else
|
||||
ComExtEstado = TxtComExtEstado.Text.Trim
|
||||
End If
|
||||
@@ -15097,10 +15101,15 @@ Partial Class Ventas
|
||||
ErrorConta = True
|
||||
End If
|
||||
|
||||
If Not ErrorConta AndAlso Not ObjConta.PrePolizaSimplificacion(ObjFactura.CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
If ObjConta.ValidacionPrePolizaCuadre(CvePrepoliza, 3) Then
|
||||
If ObjConta.ValorPolizaDescuadre > 0 Then
|
||||
GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrepoliza}", "LogPrePolizas")
|
||||
ErrorConta = True
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -27980,7 +27989,7 @@ Partial Class Ventas
|
||||
#Region "Comercio Exterior"
|
||||
Private Sub CargaPais()
|
||||
DdlComExtPais.Items.Clear()
|
||||
DdlComExtPais.DataSource = GlobalDTPais()
|
||||
DdlComExtPais.DataSource = GlobalDTGralPaises()
|
||||
DdlComExtPais.DataBind()
|
||||
DdlComExtPais.SelectedValueExist("151")
|
||||
End Sub
|
||||
@@ -27988,7 +27997,7 @@ Partial Class Ventas
|
||||
Private Sub CargaEstado()
|
||||
DdlComExtEstado.Items.Clear()
|
||||
If DdlComExtPais.SelectedValue.ToEntero() > 0 Then
|
||||
DdlComExtEstado.DataSource = GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString())
|
||||
DdlComExtEstado.DataSource = GlobalDTGralEstados("-1", CvePais:=DdlComExtPais.SelectedValue.ToEntero)(0)("ClaveSATPais").ToString()
|
||||
End If
|
||||
DdlComExtEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlComExtEstado.DataBind()
|
||||
@@ -27997,7 +28006,7 @@ Partial Class Ventas
|
||||
Private Sub CargaMunicipio()
|
||||
DdlComExtMunicipio.Items.Clear()
|
||||
If DdlComExtEstado.SelectedValue.ToEntero() > 0 Then
|
||||
DdlComExtMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlComExtEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString())
|
||||
DdlComExtMunicipio.DataSource = GlobalDTGralMunicipios("-1", CveEstado:=DdlComExtEstado.SelectedValue.ToEntero())
|
||||
End If
|
||||
DdlComExtMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlComExtMunicipio.DataBind()
|
||||
@@ -28007,7 +28016,7 @@ Partial Class Ventas
|
||||
Private Sub CargaColonia()
|
||||
DdlComExtColonia.Items.Clear()
|
||||
If DdlComExtMunicipio.SelectedValue.ToEntero() > 0 Then
|
||||
DdlComExtColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlComExtEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString()).FiltraParametros($"CveMunicipio = {DdlComExtMunicipio.SelectedValue.ToEntero()}")(0)("ClaveSATMunicipio").ToString())
|
||||
DdlComExtColonia.DataSource = GlobalDTGralColonias("-1", "-1", "-1", CveMunicipio:=DdlComExtMunicipio.SelectedValue.ToEntero)
|
||||
End If
|
||||
DdlComExtColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlComExtColonia.DataBind()
|
||||
@@ -32656,5 +32665,28 @@ Partial Class Ventas
|
||||
Public Property CveVenta As Integer
|
||||
Public Property FolioFiscal As String
|
||||
End Class
|
||||
|
||||
Protected Sub LnkEditarDir_Click(sender As Object, e As EventArgs)
|
||||
DdlDireccionEnvio.Enabled = True
|
||||
LnkEditarDir.Visible = False
|
||||
LnkAplicarDir.Visible = True
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkAplicarDir_Click(sender As Object, e As EventArgs)
|
||||
Dim ProcesoOK As Boolean = True
|
||||
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
If Not ObjVentas.UpdateDireccionEnvioVenta(CveVenta, DdlDireccionEnvio.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = False
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If ProcesoOK Then
|
||||
Alert("Dirección Actualizada correctamente.", ModExtensiones.TipoMensaje.ToastInformacion)
|
||||
LnkAplicarDir.Visible = False
|
||||
LnkEditarDir.Visible = True
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user