From 135c8f9d174e7f8c25011228d887dd928317ee7c Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 1 Nov 2021 19:33:16 -0700
Subject: [PATCH] Filtra Colonia por CP

---
 Planeacion/CatSubProyectos.aspx.vb | 6 ++++--
 Ventas/Clientes.aspx.vb            | 2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index 02500da0f..e7a4840bd 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -846,8 +846,10 @@ Partial Class CatSubProyectos
 
     Private Sub CargaColonia()
         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)
+        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}", ""))
+
         End If
         DdlColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlColonia.DataBind()
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 07d038abb..94b4ba3ab 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -4386,7 +4386,7 @@ Partial Class Clientes
     Private Sub CargaDirClienteColonia()
         DdlDirClienteColonia.Items.Clear()
         If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then
-            DdlDirClienteColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlDirClienteEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString).FiltraParametros($"CveMunicipio = {DdlDirClienteMunicipio.SelectedValue.ToEntero}")(0)("ClaveSATMunicipio").ToString)
+            DdlDirClienteColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlDirClienteEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString).FiltraParametros($"CveMunicipio = {DdlDirClienteMunicipio.SelectedValue.ToEntero}")(0)("ClaveSATMunicipio").ToString).FiltraParametros(If(TxtEnvioCP.Text.Trim.Length > 0, $"CP = {TxtEnvioCP.Text}", ""))
         End If
         DdlDirClienteColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlDirClienteColonia.DataBind()