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

-- cambios en carta porte

Browse Source
This commit is contained in:
rrene
2021-12-11 16:56:01 -07:00
parent 456b057d31
commit 1e02a1874d
20 changed files with 1678 additions and 2824 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -821,7 +821,7 @@ Partial Class CatSubProyectos
#Region "COMERCIO EXTERIOR"
Private Sub CargaPais()
DdlPais.DataSource = GlobalDTPais()
DdlPais.DataSource = GlobalDTGralPaises()
DdlPais.DataBind()
DdlPais.SelectedValueExist("151")
End Sub
@@ -829,7 +829,7 @@ Partial Class CatSubProyectos
Private Sub CargaEstado()
DdlEstado.Items.Clear()
If DdlPais.SelectedValue.ToEntero > 0 Then
DdlEstado.DataSource = GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString)
DdlEstado.DataSource = GlobalDTEstado("-1", DdlPais.SelectedValue.ToEntero)
End If
DdlEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlEstado.DataBind()
@@ -838,7 +838,7 @@ Partial Class CatSubProyectos
Private Sub CargaMunicipio()
DdlMunicipio.Items.Clear()
If DdlEstado.SelectedValue.ToEntero > 0 Then
DdlMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString)
DdlMunicipio.DataSource = GlobalDTMunicipio("-1", DdlEstado.SelectedValue.ToEntero)
End If
DdlMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlMunicipio.DataBind()
@@ -848,7 +848,7 @@ Partial Class CatSubProyectos
DdlColonia.Items.Clear()
If DdlMunicipio.SelectedValue.ToEntero > 0 Then
DdlColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString).FiltraParametros($"CveMunicipio = {DdlMunicipio.SelectedValue.ToEntero}")(0)("ClaveSATMunicipio").ToString).FiltraParametros(If(TxtCP.Text.Trim.Length > 0, $"CP = {TxtCP.Text}", ""))
DdlColonia.DataSource = GlobalDTGralColonias("-1", "-1", "-1", DdlMunicipio.SelectedValue.ToEntero, CodigoPostal:=If(TxtCP.Text.Trim.Length > 0, TxtCP.Text.ToEntero, -1))
End If
DdlColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -917,9 +917,9 @@ Partial Class CatSubProyectos
Dim CveColonia As Integer = DdlColonia.SelectedValue.ToEntero
If CPTxt > 0 And CveColonia > 0 Then
Dim CP As Integer = GlobalDTColonia("-1").FiltroPrimeroValor("CP", $"CveColonia = {CveColonia}").ToEntero
Dim CP As Integer = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=CveColonia).FiltroPrimeroValor("CP", "").ToEntero
If CPTxt <> CP Then
Alert("El codigo postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
Alert("El código postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
End If
End If