Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsClientes.vb

@@ -1573,7 +1573,7 @@ Public Class ClsClientes
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@NumCuentaPago", SqlDbType.Int).Value = NumCuentaPago
+            .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago
 
         End With
 

Compras/Compras.aspx

@@ -2294,7 +2294,7 @@
                                         </asp:RadioButtonList></td>
                                 </tr>
                                 <tr id="TrRembolsoNumero" runat="server" visible="False">
-                                    <td>#<asp:TextBox ID="TxtRembolsoNumero" Width="30px" runat="server"></asp:TextBox></td>
+                                    <td>#<asp:TextBox ID="TxtRembolsoNumero" Width="80px" runat="server"></asp:TextBox></td>
                                 </tr>
                                 <tr id="TrRembolsoCajaChica" runat="server" visible="False">
                                     <td>

Compras/Compras.aspx.vb

@@ -4225,6 +4225,9 @@ Partial Class Compras_Compras
                                         If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then
                                             CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
                                         End If
+                                        If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+                                            CveConceptoContableAlmacen = 205
+                                        End If
                                     Else
                                         CveConceptoContableAlmacen = 225
                                     End If

Ventas/PV.aspx

@@ -2321,7 +2321,7 @@
                                 </div>
                                 <div id="DivDireccionCliente" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtDireccionCliente" CssClass="form-control " runat="server" MaxLength="90" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="TxtDireccionCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="RFVDireccionC" runat="server" ControlToValidate="TxtDireccionCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                     <label for="<%= TxtDireccionCliente.ClientID.ToString()%>">Dirección:</label>
                                 </div>
                                 <div id="DivNumeroCPCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
@@ -2332,7 +2332,7 @@
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-4">
                                         <asp:TextBox ID="TxtNumExtCliente" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtNumExtCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Número Exterior''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <asp:RequiredFieldValidator ID="RFVNoEC" runat="server" ControlToValidate="TxtNumExtCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Número Exterior''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= TxtNumExtCliente.ClientID.ToString()%>">Número Exterior:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-4">
@@ -2343,7 +2343,7 @@
                                 <div id="DivColoniaTelefonoCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtColoniaCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator6" runat="server" ControlToValidate="TxtColoniaCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <asp:RequiredFieldValidator ID="RFVColoniaC" runat="server" ControlToValidate="TxtColoniaCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= TxtColoniaCliente.ClientID.ToString()%>">Colonia:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
@@ -2354,24 +2354,24 @@
                                 <div id="DivCiudadLocalidadCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtCiudadCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" ControlToValidate="TxtCiudadCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <asp:RequiredFieldValidator ID="RFVCiudadC" runat="server" ControlToValidate="TxtCiudadCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= TxtCiudadCliente.ClientID.ToString()%>">Ciudad:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtLocalidadCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator7" runat="server" ControlToValidate="TxtLocalidadCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <asp:RequiredFieldValidator ID="RFVLocalidadC" runat="server" ControlToValidate="TxtLocalidadCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= TxtLocalidadCliente.ClientID.ToString()%>">Localidad:</label>
                                     </div>
                                 </div>
                                 <div id="DivEstadoPaisCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtEstadoCliente" CssClass="form-control " runat="server" MaxLength="35" CausesValidation="true"></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator8" runat="server" ControlToValidate="TxtEstadoCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <asp:RequiredFieldValidator ID="RFVEstadoC" runat="server" ControlToValidate="TxtEstadoCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= TxtEstadoCliente.ClientID.ToString()%>">Estado:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtPaisCliente" CssClass="form-control " Text="Mexico" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator9" runat="server" ControlToValidate="TxtPaisCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''País''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <asp:RequiredFieldValidator ID="RFVPaisC" runat="server" ControlToValidate="TxtPaisCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''País''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= TxtPaisCliente.ClientID.ToString()%>">País:</label>
                                     </div>
                                 </div>
@@ -2387,15 +2387,17 @@
                                 </div>
                                 <div id="DivFormaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright  col-xs-6">
-                                        <asp:DropDownList ID="DdlMetodoCliente" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" Width="200px">
+                                        <asp:DropDownList ID="DdlMetodoCliente" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" Width="200px">
                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                         </asp:DropDownList>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlMetodoCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= DdlMetodoCliente.ClientID.ToString()%>">Método Pago:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright  col-xs-6">
                                         <asp:DropDownList ID="DdlFormaCliente" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FormaPagoSAT" DataValueField="CveFormaPago" Width="200px">
                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                         </asp:DropDownList>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="DdlMetodoCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Forma Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= DdlFormaCliente.ClientID.ToString()%>">Forma Pago: </label>
                                         <i></i>
                                     </div>

Ventas/PV.aspx.vb

@@ -4592,6 +4592,17 @@ Partial Class PV
             DivCorreoCuentaCliente.Visible = True
             DivBotonesAgregarCliente.Visible = True
             DivFormaCliente.Visible = True
+
+            RFVDireccionC.Visible = False
+            RFVNoEC.Visible = False
+            RFVColoniaC.Visible = False
+            RFVCiudadC.Visible = False
+            RFVLocalidadC.Visible = False
+            RFVEstadoC.Visible = False
+            RFVPaisC.Visible = False
+
+            DdlMetodoCliente.SelectedValueExist(1)
+            DdlFormaCliente.SelectedValueExist(1)
         Else
             Dim ObjCliente As New ClsClientes
             If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then
@@ -4614,6 +4625,17 @@ Partial Class PV
                 End If
             End If
             ObjCliente.Dispose()
+
+            RFVDireccionC.Visible = True
+            RFVNoEC.Visible = True
+            RFVColoniaC.Visible = True
+            RFVCiudadC.Visible = True
+            RFVLocalidadC.Visible = True
+            RFVEstadoC.Visible = True
+            RFVPaisC.Visible = True
+
+            DdlMetodoCliente.SelectedValueExist(-1)
+            DdlFormaCliente.SelectedValueExist(-1)
         End If
 
     End Sub

Ventas/Ventas.aspx

@@ -381,6 +381,7 @@
 
                         <i class="icon-pin font-green"></i>
                         <span class="caption-subject bold uppercase"><a id="HlCliente" href="javascript:void(0);" runat="server" class="Texto" onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarClientes.aspx?Opt=Fact', 800, 547, 'N', 'PopUpBuscar')">Cliente:  </a></span>
+                        <asp:LinkButton ID="LnkAgregarCliente" runat="server" AlternateText="Agregar Cliente" Text="<i class='fa fa-plus-square'></i>" />
                         <asp:TextBox ID="TxtCodigo" runat="server" AutoPostBack="true" BorderStyle="None" Width="65px"></asp:TextBox>
                         <asp:HiddenField ID="HdnCveCliente" runat="server" ClientIDMode="Static" Value="-1" />
                         <asp:HiddenField ID="HdnIndices" runat="server" ClientIDMode="Static" Value="-1" />
@@ -6044,6 +6045,139 @@
             </div>
         </div>
     </div>
+
+    <%-- Agregar un Nuevo CLiente --%>
+    <div id="divAgregarCliente" class="modal fade">
+        <div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
+            <asp:UpdatePanel ID="UpAgregarCliente" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <fieldset>
+                        <%--<legend><b>Descripción</b></legend>--%>
+                        <table border="0" class="portlet light bordered">
+                            <tr>
+                                <div class="portlet-title">
+                                    <div class="caption font-green">
+                                        <i class="fa fa-users font-green"></i>
+                                        <span class="caption-subject bold uppercase">Datos del Cliente</span>
+                                    </div>
+                                    <div class="actions">
+                                        <div class="btn-group">
+                                        </div>
+                                    </div>
+                                </div>
+                            </tr>
+                            <tr>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-9">
+                                        <asp:TextBox ID="TxtRFCCliente" Style="text-transform: uppercase;" placeholder="Ingrese el RFC para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
+                                        <asp:RegularExpressionValidator ID="REVRFCCliente" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarCliente" ControlToValidate="TxtRFCCliente" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
+                                        <label for="<%= TxtRFCCliente.ClientID.ToString()%>">RFC:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-3">
+                                        <asp:Button ID="BtnValidarRFC" runat="server" CssClass="btn btn-success" Text="Validar" />
+                                    </div>
+                                </div>
+                                <div id="DivNombreCliente" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtNombreCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVNombreCliente" runat="server" ControlToValidate="TxtNombreCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtNombreCliente.ClientID.ToString()%>">Razón Social:</label>
+                                </div>
+                                <div id="DivDireccionCliente" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtDireccionCliente" CssClass="form-control " runat="server" MaxLength="90" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVDireccionC" runat="server" ControlToValidate="TxtDireccionCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtDireccionCliente.ClientID.ToString()%>">Dirección:</label>
+                                </div>
+                                <div id="DivNumeroCPCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtCPCliente" CssClass="form-control " runat="server" MaxLength="5" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" ControlToValidate="TxtCPCliente" CssClass="help-block errorimput" 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="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtCPCliente.ClientID.ToString()%>">Código Postal:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtNumExtCliente" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RFVNoEC" runat="server" ControlToValidate="TxtNumExtCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Número Exterior''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtNumExtCliente.ClientID.ToString()%>">Número Exterior:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtNumIntCliente" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox>
+                                        <label for="<%= TxtNumIntCliente.ClientID.ToString()%>">Número Interior:</label>
+                                    </div>
+                                </div>
+                                <div id="DivColoniaTelefonoCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                        <asp:TextBox ID="TxtColoniaCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RFVColoniaC" runat="server" ControlToValidate="TxtColoniaCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtColoniaCliente.ClientID.ToString()%>">Colonia:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                        <asp:TextBox ID="TxtTelefonoCliente" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
+                                        <label for="<%= TxtTelefonoCliente.ClientID.ToString()%>">Teléfono:</label>
+                                    </div>
+                                </div>
+                                <div id="DivCiudadLocalidadCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                        <asp:TextBox ID="TxtCiudadCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RFVCiudadC" runat="server" ControlToValidate="TxtCiudadCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtCiudadCliente.ClientID.ToString()%>">Ciudad:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                        <asp:TextBox ID="TxtLocalidadCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RFVLocalidadC" runat="server" ControlToValidate="TxtLocalidadCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtLocalidadCliente.ClientID.ToString()%>">Localidad:</label>
+                                    </div>
+                                </div>
+                                <div id="DivEstadoPaisCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                        <asp:TextBox ID="TxtEstadoCliente" CssClass="form-control " runat="server" MaxLength="35" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RFVEstadoC" runat="server" ControlToValidate="TxtEstadoCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtEstadoCliente.ClientID.ToString()%>">Estado:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                        <asp:TextBox ID="TxtPaisCliente" CssClass="form-control " Text="Mexico" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RFVPaisC" runat="server" ControlToValidate="TxtPaisCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''País''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtPaisCliente.ClientID.ToString()%>">País:</label>
+                                    </div>
+                                </div>
+                                <div id="DivCorreoCuentaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright  col-xs-6">
+                                        <asp:TextBox ID="TxtCorreoCliente" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
+                                        <asp:RegularExpressionValidator ID="RegularExpressionValidator3" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoCliente" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarCliente"></asp:RegularExpressionValidator>
+                                        <label for="<%= TxtCorreoCliente.ClientID.ToString()%>">Email: </label>
+                                        <i></i>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright  col-xs-6">
+                                    </div>
+                                </div>
+                                <div id="DivFormaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright  col-xs-6">
+                                        <asp:DropDownList ID="DdlMetodoCliente" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" Width="200px">
+                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator6" runat="server" ControlToValidate="DdlMetodoCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <label for="<%= DdlMetodoCliente.ClientID.ToString()%>">Método Pago:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright  col-xs-6">
+                                        <asp:DropDownList ID="DdlFormaCliente" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FormaPagoSAT" DataValueField="CveFormaPago" Width="200px">
+                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator11" runat="server" ControlToValidate="DdlMetodoCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Forma Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <label for="<%= DdlFormaCliente.ClientID.ToString()%>">Forma Pago: </label>
+                                        <i></i>
+                                    </div>
+
+                                </div>
+
+                            </tr>
+                        </table>
+                    </fieldset>
+                    <div id="DivBotonesAgregarCliente" runat="server" visible="false" class="modal-footer">
+                        <asp:Button ID="BtnAgregarCliente" runat="server" CssClass="btn btn-primary" Text="Agregar" ValidationGroup="GrpGuardarCliente" />
+                        <button id="BtnCancelarCliente" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script>
@@ -6894,7 +7028,7 @@
                 indexd += 1;
             });
         }
-        function CargaExistenciasSucursales(id,ps) {
+        function CargaExistenciasSucursales(id, ps) {
             $.ajax({
                 url: '/Ashx/SIGWeb.ashx?metodo=getpsalmacen&cveps=' + id,
                 type: 'get',
@@ -7097,6 +7231,28 @@
             }
 
         }
+        
+        function showDivEC() {
+            $('#<%= TxtRFCCliente.ClientID  %>').val('');
+            $('#<%= TxtNombreCliente.ClientID  %>').val('');
+            $('#<%= TxtDireccionCliente.ClientID  %>').val('');
+            $('#<%= TxtNumExtCliente.ClientID  %>').val('');
+            $('#<%= TxtNumIntCliente.ClientID  %>').val('');
+            $('#<%= TxtCPCliente.ClientID  %>').val('');
+            $('#<%= TxtColoniaCliente.ClientID  %>').val('');
+            $('#<%= TxtTelefonoCliente.ClientID  %>').val('');
+            $('#<%= TxtCiudadCliente.ClientID  %>').val('');
+            $('#<%= TxtLocalidadCliente.ClientID  %>').val('');
+            $('#<%= TxtEstadoCliente.ClientID  %>').val('');
+            $('#<%= TxtPaisCliente.ClientID  %>').val('');
+            $('#<%= TxtCorreoCliente.ClientID  %>').val('');
+
+            $('#divAgregarCliente').modal();
+        }
+
+        function hideDivEC() {
+            $('#divAgregarCliente').modal('hide');
+        }
 
 
     </script>

Ventas/Ventas.aspx.vb

@@ -4345,6 +4345,11 @@ Partial Class Ventas
         DdlFormaPago33.DataSource = dtt
         DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "")
         DdlFormaPago33.DataBind()
+
+        DdlFormaCliente.DataSource = GlobalDTVtaFormaPago
+        DdlFormaCliente.DataBind()
+        DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
+        DdlMetodoCliente.DataBind()
         'End If
     End Sub
     Private Sub CargaUsoCFDI()
@@ -4500,6 +4505,8 @@ Partial Class Ventas
                 EnviarCorreoCliente = ObjCliente.EnviarFactura
                 EstatusCliente = ObjCliente.Estatus
 
+                LnkAgregarCliente.Visible = False
+
                 ClienteEsDistribuidor = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("EsDistribuidor").ToString)
 
                 If EstatusCliente = False And Not DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") And (CveVenta <= 0 Or EsCreaApartirDe) Then
@@ -16398,6 +16405,97 @@ Partial Class Ventas
         VerificarContrato()
     End Sub
 
+    Private Sub LnkAgregarCliente_Click(sender As Object, e As EventArgs) Handles LnkAgregarCliente.Click
+        DivNombreCliente.Visible = False
+        DivDireccionCliente.Visible = False
+        DivNumeroCPCliente.Visible = False
+        DivColoniaTelefonoCliente.Visible = False
+        DivCiudadLocalidadCliente.Visible = False
+        DivEstadoPaisCliente.Visible = False
+        DivCorreoCuentaCliente.Visible = False
+        DivBotonesAgregarCliente.Visible = False
+        DivFormaCliente.Visible = False
+        UpAgregarCliente.Update()
+
+        RegistraScript("showDivEC();")
+    End Sub
+
+    Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click
+
+        If TxtRFCCliente.Text = "XAXX010101000" Then
+            DivNombreCliente.Visible = True
+            DivDireccionCliente.Visible = True
+            DivNumeroCPCliente.Visible = True
+            DivColoniaTelefonoCliente.Visible = True
+            DivCiudadLocalidadCliente.Visible = True
+            DivEstadoPaisCliente.Visible = True
+            DivCorreoCuentaCliente.Visible = True
+            DivBotonesAgregarCliente.Visible = True
+            DivFormaCliente.Visible = True
+
+            RFVDireccionC.Visible = False
+            RFVNoEC.Visible = False
+            RFVColoniaC.Visible = False
+            RFVCiudadC.Visible = False
+            RFVLocalidadC.Visible = False
+            RFVEstadoC.Visible = False
+            RFVPaisC.Visible = False
+
+            DdlMetodoCliente.SelectedValueExist(1)
+            DdlFormaCliente.SelectedValueExist(1)
+        Else
+            Dim ObjCliente As New ClsClientes
+            If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then
+                If ObjCliente.DtResultados.Rows.Count > 0 Then
+                    RegistraScript("hideDivEC();")
+                    ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero
+                    HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString
+                    CargaCliente(CveCliente)
+                    UpCliente.Update()
+                Else
+                    DivNombreCliente.Visible = True
+                    DivDireccionCliente.Visible = True
+                    DivNumeroCPCliente.Visible = True
+                    DivColoniaTelefonoCliente.Visible = True
+                    DivCiudadLocalidadCliente.Visible = True
+                    DivEstadoPaisCliente.Visible = True
+                    DivCorreoCuentaCliente.Visible = True
+                    DivBotonesAgregarCliente.Visible = True
+                    DivFormaCliente.Visible = True
+                End If
+            End If
+            ObjCliente.Dispose()
+
+            RFVDireccionC.Visible = True
+            RFVNoEC.Visible = True
+            RFVColoniaC.Visible = True
+            RFVCiudadC.Visible = True
+            RFVLocalidadC.Visible = True
+            RFVEstadoC.Visible = True
+            RFVPaisC.Visible = True
+
+            DdlMetodoCliente.SelectedValueExist(-1)
+            DdlFormaCliente.SelectedValueExist(-1)
+
+        End If
+
+    End Sub
+
+    Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
+        Dim ObjCliente As New ClsClientes
+
+        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then
+            If ObjCliente.DtResultados.Rows.Count > 0 Then
+                RegistraScript("hideDivEC();")
+                ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero
+                HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString
+                CargaCliente(CveCliente)
+                UpCliente.Update()
+            End If
+        End If
+
+        ObjCliente.Dispose()
+    End Sub
 
 #End Region