diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 56113522c..e79c5ec37 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -5318,7 +5318,7 @@
         </asp:UpdatePanel>
     </div>
 
-    <%--MODAL DIRECCION ENVIO --%>
+    <%-- MODAL DIRECCION ENVIO --%>
     <div id="divAddDireccionEnvio" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
             <asp:UpdatePanel ID="UpAddDireccion" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
@@ -5333,54 +5333,122 @@
                         <asp:UpdatePanel ID="UpBodyDireccion" UpdateMode="Conditional" runat="server">
                             <ContentTemplate>
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtDireccion" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVDireccion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDireccion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtDireccion.ClientID.ToString()%>">Dirección:</label>
+                                    <asp:TextBox ID="TxtEnvioContacto" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVContacto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioContacto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Contacto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtEnvioContacto.ClientID.ToString()%>">Contacto:</label>
+                                </div>
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtEnvioDireccion" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator21" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioDireccion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtEnvioDireccion.ClientID.ToString()%>">Calle:</label>
                                 </div>
                                 <div class="row">
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input">
-                                            <asp:TextBox ID="TxtNoExt" runat="server" CssClass="form-control" MaxLength="15"></asp:TextBox>
-                                            <label for="<%= TxtNoExt.ClientID.ToString()%>">No. Ext. </label>
+                                            <asp:TextBox ID="TxtEnvioNoExt" runat="server" CssClass="form-control" MaxLength="15"></asp:TextBox>
+                                            <label for="<%= TxtEnvioNoExt.ClientID.ToString()%>">No. Ext. </label>
                                         </div>
                                     </div>
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input">
-                                            <asp:TextBox ID="TxtNoInt" runat="server" CssClass="form-control" MaxLength="15"></asp:TextBox>
-                                            <label for="<%= TxtNoInt.ClientID.ToString()%>">No. Int.</label>
+                                            <asp:TextBox ID="TxtEnvioNoInt" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
+                                            <label for="<%= TxtEnvioNoInt.ClientID.ToString()%>">No. Int.</label>
+                                        </div>
+                                    </div>
+                                </div>
+                              <%--  <div class="row " runat="server" id="DVDireccionCliente1" visible="false">
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtEnvioEstado" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator22" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioEstado" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= TxtEnvioEstado.ClientID.ToString()%>">Estado:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtEnvioCiudad" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator23" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioCiudad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= TxtEnvioCiudad.ClientID.ToString()%>">Ciudad:</label>
+                                        </div>
+                                    </div>
+                                </div>
+                                <div class="row ">
+                                    <div class="col-md-6" runat="server" id="DVDireccionCliente2" visible="false">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtEnvioColonia" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator24" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioColonia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= TxtEnvioColonia.ClientID.ToString()%>">Colonia:</label>
+                                        </div>
+                                    </div>
+                                    
+                                </div>--%>
+                                <div class="row">
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlDirClientePais" AutoPostBack="true" AppendDataBoundItems="true" OnSelectedIndexChanged="DdlDirClientePais_SelectedIndexChanged" runat="server" DataTextField="Descripcion" DataValueField="CvePais" CssClass="form-control select2me" Width="100%" CausesValidation="true">
+                                            </asp:DropDownList>
+                                            <asp:RequiredFieldValidator ID="RFVDdlDirClientePais" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClientePais" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlDirClientePais.ClientID.ToString()%>">Pais:</label>
+                                            <i></i>
+                                        </div>
+                                    </div>
+
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlDirClienteEstado" AutoPostBack="true" AppendDataBoundItems="true" OnSelectedIndexChanged="DdlDirClienteEstado_SelectedIndexChanged" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" CssClass="form-control select2me" Width="100%" CausesValidation="true">
+                                            </asp:DropDownList>
+                                            <asp:RequiredFieldValidator ID="RFVDdlDirClienteEstado" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClienteEstado" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlDirClienteEstado.ClientID.ToString()%>">Estado:</label>
+                                            <i></i>
+                                        </div>
+                                    </div>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlDirClienteMunicipio" AutoPostBack="true" AppendDataBoundItems="true" OnSelectedIndexChanged="DdlDirClienteMunicipio_SelectedIndexChanged" runat="server" DataTextField="Descripcion" DataValueField="CveMunicipio" CssClass="form-control select2me" Width="100%" CausesValidation="true">
+                                            </asp:DropDownList>
+                                            <asp:RequiredFieldValidator ID="RFVDdlDirClienteMunicipio" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClienteMunicipio" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Municipio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlDirClienteMunicipio.ClientID.ToString()%>">Municipio:</label>
+                                            <i></i>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList runat="server" ID="DdlDirClienteLocalidad" CssClass="form-control select2me" DataValueField="CveLocalidad" DataTextField="NombreLocalidad" Width="100%" CausesValidation="true"></asp:DropDownList>
+                                            <label for="<%= DdlDirClienteLocalidad.ClientID.ToString()%>">Localidad:</label>
+                                            <i></i>
+                                        </div>
+                                    </div>
+                                </div>
+
+                                <div class="row">
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlDirClienteColonia" runat="server" AppendDataBoundItems="true" DataTextField="NombreAsentamiento" DataValueField="CveColonia" CssClass="form-control select2me" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlDirClienteColonia_SelectedIndexChanged" CausesValidation="true">
+                                            </asp:DropDownList>
+                                            <asp:RequiredFieldValidator ID="RFVDdlDirClienteColonia" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClienteColonia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlDirClienteColonia.ClientID.ToString()%>">Colonia:</label>
+                                            <i></i>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtEnvioCP" runat="server" Width="100%" CssClass="form-control" CausesValidation="true" TextMode="Number" onblur="DirclienteValidaCodigoPostal()" onkeypress="if(event.key === 'Enter'){return false;}"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator25" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioCP" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código Postal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= TxtEnvioCP.ClientID.ToString()%>">Código Postal:</label>
                                         </div>
                                     </div>
                                 </div>
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtColonia" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVColonia" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtColonia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtColonia.ClientID.ToString()%>">Colonia:</label>
+                                    <asp:TextBox ID="TxtEnvioTel" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                    <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator17" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioTel" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
+                                    <ajax:MaskedEditExtender ID="MaskedEditExtender8" runat="server" TargetControlID="TxtEnvioTel" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                    <label for="<%= TxtEnvioTel.ClientID.ToString()%>">Telefono:</label>
                                 </div>
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtCiudad" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVCiudad" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtCiudad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtCiudad.ClientID.ToString()%>">Ciudad:</label>
+                                <div style="display: none">
+                                    <asp:Button ID="BtnDirClienteValidar" ClientIDMode="Static" runat="server" CssClass="btn btn-primary" OnClick="BtnDirClienteValidar_Click" Text="validar" />
                                 </div>
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtEstado" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVEstado" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEstado" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtEstado.ClientID.ToString()%>">Estado:</label>
-                                </div>
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtCP" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVCP" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtCP" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código Postal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtCP.ClientID.ToString()%>">Código Postal:</label>
-                                </div>
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtContacto" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVContacto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtContacto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Contacto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtContacto.ClientID.ToString()%>">Contacto:</label>
-                                </div>
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtDepartamento" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                    <label for="<%= TxtDepartamento.ClientID.ToString()%>">Departamento:</label>
-                                </div>
-
                             </ContentTemplate>
                         </asp:UpdatePanel>
                         <div class="modal-footer">
@@ -5396,7 +5464,7 @@
             </asp:UpdatePanel>
         </div>
     </div>
-    <%--FIN MODAL DIRECCION ENVIO--%>
+    <%-- FIN MODAL DIRECCION ENVIO--%>
 
     <div id="DivCargaExcel" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
@@ -7655,6 +7723,10 @@
     <script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script>
     <script type="text/javascript">
 
+        function DirclienteValidaCodigoPostal() {
+            $("#BtnDirClienteValidar").click();
+        }
+
         //FUNCIONES PARA COMERCIO EXTERIOR
         function CalculaTotalUSD(TotalUSD, ValorUnitario, TxtCantidad) {
             TotalUSD.innerText = FormatoNumero(ToDouble(ValorUnitario.value) * ToDouble(TxtCantidad.value), 2);
@@ -9040,14 +9112,6 @@
                 return Math.round(totalPoints * 100) / 100;
             }
 
-            function LimpiaModal() {
-                $('#<%= TxtDireccion.ClientID  %>').val('');
-                $('#<%= TxtColonia.ClientID  %>').val('');
-                $('#<%= TxtCiudad.ClientID  %>').val('');
-                $('#<%= TxtEstado.ClientID  %>').val('');
-                $('#<%= TxtCP.ClientID  %>').val('');
-            }
-
             function BtnMateriales() {
                 $('#BtnMateriales').click();
             }
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 72d066785..12b59b146 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6342,11 +6342,18 @@ Partial Class Ventas
                             'RBLPago.Items(0).Enabled = False
                             RBLPago_SelectedIndexChanged(Nothing, Nothing)
                             UPCondicionesPago.Update()
-                            DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
-                            DdlTipoComprobante.SelectedValue = "PA"
+
+                            If Not EsCreaApartirDe AndAlso (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then
+                                DdlTipoComprobante.SelectedValueExist("Cot")
+                            Else
+                                DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
+                                DdlTipoComprobante.SelectedValue = "PA"
+                            End If
+
                             TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString
                             'si  llegó por la opción de cotización no debe de restringuir
                             If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then DdlTipoComprobante.SelectedValue = "Cot"
+
                             'quito remisión y factura
                             DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
                             If Not UsuarioActual.TienePermisoProceso(325) Then
@@ -6355,7 +6362,7 @@ Partial Class Ventas
                             DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
 
                             'SI ES AUTORIZACION DEBE PERMITIR GENERARLA
-                            If Opcion = 1 AndAlso (Not DdlTipoComprobante.SelectedValue.Contiene("PA")) Then
+                            If (Not DdlTipoComprobante.SelectedValue.Contiene("PA")) Then
                                 BtnEmitirImprimir.Visible = False
                                 BtnsFacturar.Visible = False
                                 LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
@@ -6365,6 +6372,8 @@ Partial Class Ventas
                                 LnkOCs.Visible = False
                             End If
 
+
+
                         Else
                             ' el cliente tiene crédito disponible, no tiene bloqueo
                             DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("PA"))
@@ -10744,7 +10753,7 @@ Partial Class Ventas
         Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
         Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
         Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
-        Timbre.Comprobante.Subtotal = Obj.SubTotal
+        Timbre.Comprobante.SubTotal = Obj.SubTotal
         Timbre.Comprobante.Descuentos = Obj.Descuento
         Timbre.Comprobante.Moneda = Obj.MonedaSAT
         Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString())
@@ -11277,7 +11286,7 @@ Partial Class Ventas
                     DdlTipoComprobante.Enabled = False
                 End If
 
-                Tab.ActiveTab = TabGenerales
+                TAB.ActiveTab = TabGenerales
                 TabGenerales.Enabled = True
                 Updatetabs.Update()
                 UPObservaciones.Update()
@@ -11343,7 +11352,7 @@ Partial Class Ventas
             ContratoDetalles.Visible = False
             UPEstimaciones.Update()
 
-            Tab.ActiveTab = TabGenerales
+            TAB.ActiveTab = TabGenerales
             TabGenerales.Enabled = True
             Updatetabs.Update()
         End If
@@ -16269,7 +16278,7 @@ Partial Class Ventas
         If objcompras.GetCompraDetallealmacen(0, DdlNCFactura.SelectedValue.ToEntero()) Then
             GvInvNC.DataSource = objcompras.DtResultados
             If objcompras.DtResultados.Rows.Count > 0 Then
-                Tab.ActiveTabIndex = 1
+                TAB.ActiveTabIndex = 1
                 Updatetabs.Update()
             End If
         Else
@@ -16548,7 +16557,7 @@ Partial Class Ventas
 
                 End If
                 UpParametros.Update()
-                Tab.ActiveTab = TabGenerales
+                TAB.ActiveTab = TabGenerales
             Else
                 Alert("La empresa no contiene un producto asignado a la estimació", TipoMensaje.MsgInformacion)
             End If
@@ -21838,40 +21847,199 @@ Partial Class Ventas
         Dim TieneError = False
         Dim CveDireccionEnvio As Integer
 
-        CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtCP.Text.ToEntero(), TxtContacto.Text.Trim, UsuarioActual.CveUsuario, 1, CveClienteSucursal:=CveClienteSucursal, EnvioDepartamento:=If(TxtDepartamento.Text.Trim = "", "-1", TxtDepartamento.Text.Trim))
+        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("_", ""),
+        CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero)
 
         If CveDireccionEnvio < 0 Then
             TieneError = True
         End If
 
         If Not TieneError Then
-            TxtDireccion.Text = ""
-            TxtColonia.Text = ""
-            TxtCiudad.Text = ""
-            TxtEstado.Text = ""
-            TxtCP.Text = ""
-            TxtNoExt.Text = ""
-            TxtNoInt.Text = ""
-            TxtContacto.Text = ""
-            TxtDepartamento.Text = ""
+            'TxtDireccion.Text = ""
+            'TxtColonia.Text = ""
+            'TxtCiudad.Text = ""
+            'TxtEstado.Text = ""
+            'TxtCP.Text = ""
+            'TxtNoExt.Text = ""
+            'TxtNoInt.Text = ""
+            'TxtContacto.Text = ""
+            'TxtDepartamento.Text = ""
+            TxtEnvioDireccion.Text = ""
+            TxtEnvioNoExt.Text = ""
+            TxtEnvioNoInt.Text = ""
+            DdlDirClienteEstado.SelectedValueExist("-1")
+            DdlDirClienteMunicipio.SelectedValueExist("-1")
+            DdlDirClienteColonia.SelectedValueExist("-1")
+            'TxtEnvioColonia.Text = ""
+            'TxtEnvioCiudad.Text = ""
+            'TxtEnvioEstado.Text = ""
+            TxtEnvioContacto.Text = ""
+            TxtEnvioCP.Text = ""
+            TxtEnvioTel.Text = ""
             CargaDireccionesEnvio()
             DdlDireccionEnvio.SelectedValueExist(CveDireccionEnvio)
         End If
 
         ObjClientes.Dispose()
-        RegistraScript("$('#divAddDireccionEnvio').modal('hide');LimpiaModal();")
+        RegistraScript("$('#divAddDireccionEnvio').modal('hide');")
     End Sub
     Private Sub LnkOtraDireccion_Click(sender As Object, e As EventArgs) Handles LnkOtraDireccion.Click
-        TxtDireccion.Text = LblDireccion.Text.Trim
-        TxtNoExt.Text = CliNoExt.Trim
-        TxtNoInt.Text = CliNoInt.Trim
-        TxtColonia.Text = LblColonia.Text.Trim
-        TxtCiudad.Text = LblCiudad.Text.Trim
-        TxtEstado.Text = LblEstado.Text.Trim
-        TxtCP.Text = LblCP.Text.Trim
+        'TxtDireccion.Text = LblDireccion.Text.Trim
+        'TxtNoExt.Text = CliNoExt.Trim
+        'TxtNoInt.Text = CliNoInt.Trim
+        'TxtColonia.Text = LblColonia.Text.Trim
+        'TxtCiudad.Text = LblCiudad.Text.Trim
+        'TxtEstado.Text = LblEstado.Text.Trim
+        'TxtCP.Text = LblCP.Text.Trim
+        CargaCombosDirecionesClientesSAT()
+
+
+        Dim DtDireccionEnvio As DataTable = Nothing
+        Dim ObjClientes As New ClsClientes
+        If ObjClientes.DireccionEnvioGet(DdlDireccionEnvio.SelectedValue.ToEntero(), CveCliente, CveClienteSucursal) Then
+            DtDireccionEnvio = ObjClientes.DtResultados
+        End If
+        ObjClientes.Dispose()
+
+        If DtDireccionEnvio IsNot Nothing And DtDireccionEnvio.Rows.Count > 0 Then
+            Dim Dr As DataRow = DtDireccionEnvio.Rows(0)
+
+            TxtEnvioDireccion.Text = Dr("EnvioDireccion").ToString()
+            TxtEnvioNoExt.Text = Dr("EnvioNoExt").ToString()
+            TxtEnvioNoInt.Text = Dr("EnvioNoInt").ToString()
+
+            TxtEnvioContacto.Text = Dr("EnvioContacto").ToString()
+            TxtEnvioCP.Text = Dr("EnvioCP").ToString()
+            TxtEnvioTel.Text = Dr("EnvioTel").ToString()
+
+            DdlDirClientePais.SelectedValueExist(Dr("CvePais"))
+            CargaDirClienteEstado()
+            DdlDirClienteEstado.SelectedValueExist(Dr("CveEstado"))
+            CargaDirClienteMunicipio()
+            DdlDirClienteMunicipio.SelectedValueExist(Dr("CveMunicipio"))
+            CargaDirClienteColonia()
+            DdlDirClienteLocalidad.SelectedValueExist(Dr("CveLocalidad"))
+            CargaDirClienteLocalidad()
+
+            DdlDirClienteColonia.SelectedValueExist(Dr("CveColonia"))
+        Else
+            TxtEnvioDireccion.Text = LblDireccion.Text.Trim
+            TxtEnvioNoExt.Text = CliNoExt.Trim
+            TxtEnvioNoInt.Text = CliNoInt.Trim
+            DdlDirClienteEstado.SelectedValueExist("-1")
+            DdlDirClienteMunicipio.SelectedValueExist("-1")
+            DdlDirClienteColonia.SelectedValueExist("-1")
+
+            'TxtEnvioColonia.Text = LblColonia.Text.Trim
+            'TxtEnvioCiudad.Text = LblCiudad.Text.Trim
+            'TxtEnvioEstado.Text = LblEstado.Text.Trim
+            TxtEnvioContacto.Text = ""
+            TxtEnvioCP.Text = LblCP.Text.Trim
+            TxtEnvioTel.Text = ""
+        End If
+
+
         UpBodyDireccion.Update()
         RegistraScript("$('#divAddDireccionEnvio').modal();")
     End Sub
+
+#Region "D I R E C C I O N   E N V I O - C O M B O S"
+    Protected Sub BtnDirClienteValidar_Click(sender As Object, e As EventArgs)
+        DirClientevalidaCodigoPostal()
+    End Sub
+    Private Sub CargaCombosDirecionesClientesSAT()
+        CargaDirClientePais()
+        CargaDirClienteEstado()
+        CargaDirClienteMunicipio()
+        CargaDirClienteLocalidad()
+        CargaDirClienteColonia()
+    End Sub
+
+    Private Sub CargaDirClientePais()
+
+        DdlDirClientePais.DataSource = GlobalDTGralPaises()
+        DdlDirClientePais.DataBind()
+        DdlDirClientePais.SelectedValueExist("151")
+    End Sub
+
+    Private Sub CargaDirClienteEstado()
+        DdlDirClienteEstado.Items.Clear()
+        If DdlDirClientePais.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteEstado.DataSource = GlobalDTGralEstados("-1", DdlDirClientePais.SelectedValue.ToEntero)
+        End If
+        DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteEstado.DataBind()
+    End Sub
+
+    Private Sub CargaDirClienteColonia()
+        DdlDirClienteColonia.Items.Clear()
+        If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteColonia.DataSource = GlobalDTGralColonias("-1", "-1", "-1", DdlDirClienteMunicipio.SelectedValue.ToEntero, CodigoPostal:=If(TxtEnvioCP.Text.Trim.Length > 0, TxtEnvioCP.Text.ToEntero, -1))
+        End If
+        DdlDirClienteColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteColonia.DataBind()
+    End Sub
+
+
+    Protected Sub CargaDirClienteLocalidad()
+
+        DdlDirClienteLocalidad.Items.Clear()
+        If DdlEstadoSAT.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteLocalidad.DataSource = GlobalDTLocalidad(DdlDirClienteEstado.SelectedValue.ToEntero, DdlDirClienteMunicipio.SelectedValue.ToEntero)
+            DdlDirClienteLocalidad.DataBind()
+        End If
+
+        DdlDirClienteLocalidad.Items.Insert(0, New ListItem("Seleccione una", "-1"))
+
+    End Sub
+
+    Private Sub CargaDirClienteMunicipio()
+        DdlDirClienteMunicipio.Items.Clear()
+        If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlDirClienteEstado.SelectedValue.ToEntero)
+        End If
+        DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteMunicipio.DataBind()
+    End Sub
+
+    Protected Sub DdlDirClientePais_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaDirClienteEstado()
+        CargaDirClienteMunicipio()
+        CargaDirClienteColonia()
+        CargaDirClienteLocalidad()
+    End Sub
+    Protected Sub DdlDirClienteEstado_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaDirClienteMunicipio()
+        CargaDirClienteColonia()
+        CargaDirClienteLocalidad()
+    End Sub
+
+    Protected Sub DdlDirClienteMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaDirClienteColonia()
+        CargaDirClienteLocalidad()
+    End Sub
+
+    Protected Sub DdlDirClienteColonia_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DirClientevalidaCodigoPostal()
+    End Sub
+
+    Private Sub DirClientevalidaCodigoPostal()
+
+        Dim CPTxt As Integer = TxtEnvioCP.Text.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)
+            End If
+        End If
+
+    End Sub
+
+#End Region
+
 #End Region
 
 #Region "  CARGA  FACTURA OC  "
@@ -22946,7 +23114,7 @@ Partial Class Ventas
                 DdlContratosModal.Items.Insert(0, New ListItem("Seleccione", "0"))
                 UPEstimaciones.Update()
 
-                Tab.ActiveTab = TabE
+                TAB.ActiveTab = TabE
                 TabGenerales.Enabled = False
                 Updatetabs.Update()
 
@@ -29133,7 +29301,7 @@ Partial Class Ventas
         ContratoDetalles.Visible = False
         UPEstimaciones.Update()
 
-        Tab.ActiveTab = TabGenerales
+        TAB.ActiveTab = TabGenerales
         TabGenerales.Enabled = True
         Updatetabs.Update()
 
@@ -29694,7 +29862,7 @@ Partial Class Ventas
         DdlMonedaModalPedido2.DataBind()
         DdlMonedaModalPedido2.Items.Insert(0, New ListItem("Todas", "-1"))
 
-        Tab.ActiveTab = TabGenerales
+        TAB.ActiveTab = TabGenerales
         TabGenerales.Enabled = True
         Updatetabs.Update()