Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Clientes.aspx

@@ -415,7 +415,7 @@
                                         </div>
                                          <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtRFC" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13"></asp:TextBox>
-                                            <asp:RegularExpressionValidator ID="REVRFC" runat="server" ControlToValidate="TxtRFC" 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 correctamente." ValidationGroup="GrpGuardar" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
+                                            <asp:RegularExpressionValidator ID="REVRFC" runat="server" ControlToValidate="TxtRFC" 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 correctamente." ValidationGroup="GrpGuardar" ValidationExpression="^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
                                             <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" TargetControlID="TxtRFC" FilterType="UppercaseLetters, Numbers,LowercaseLetters, Custom" runat="server" ValidChars="&Ñ" InvalidChars="-" />
                                             <asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                             <label for="<%= TxtRFC.ClientID.ToString()%>">RFC:</label>
@@ -5234,7 +5234,7 @@
 
                                         <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>
-                                            <asp:RequiredFieldValidator ID="RfvDdlDirClienteLocalidad" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClienteLocalidad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <%--<asp:RequiredFieldValidator ID="RfvDdlDirClienteLocalidad" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClienteLocalidad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
                                             <label for="<%= DdlDirClienteLocalidad.ClientID.ToString()%>">Localidad:</label>
                                             <i></i>
                                         </div>

Ventas/Clientes.aspx.vb

@@ -3889,14 +3889,17 @@ Partial Class Clientes
                         IdCtaContableRetISR = IdCuentaContable
                 End Select
 
-
-                Dim ObjClientes As New ClsClientes
-                If Not ObjClientes.VincularCuentasContables(IdCtaContableClientes, IdCtaContableAnticipos, IdCtaContableRetIVA, IdCtaContableRetISR, CveCliente) Then
-                    TieneError = True
-                End If
-
-                ObjClientes.Dispose()
-
+                If CveCliente > 0 Then
+                    Dim ObjClientes As New ClsClientes
+                    If Not ObjClientes.VincularCuentasContables(IdCtaContableClientes, IdCtaContableAnticipos, IdCtaContableRetIVA, IdCtaContableRetISR, CveCliente) Then
+                        TieneError = True
+                    End If
+
+                    ObjClientes.Dispose()
+                End If
+
+
+
             Else
                 TieneError = True
             End If
@@ -4530,15 +4533,20 @@ Partial Class Clientes
         TxtEnvioCP.Text = GvRow.DataKey("EnvioCP")
         TxtEnvioTel.Text = GvRow.DataKey("EnvioTel")
 
+
+
         DdlDirClientePais.SelectedValueExist(GvRow.DataKey("CvePais"))
         CargaDirClienteEstado()
         DdlDirClienteEstado.SelectedValueExist(GvRow.DataKey("CveEstado"))
         CargaDirClienteMunicipio()
-        DdlDirClienteMunicipio.SelectedValueExist(GvRow.DataKey("CveMunicipio"))
-        CargaDirClienteColonia()
-        DdlDirClienteLocalidad.SelectedValueExist(GvRow.DataKey("CveLocalidad"))
+        DdlDirClienteMunicipio.SelectedValueExist(GvRow.DataKey("CveMunicipio"))
+
+
         CargaDirClienteLocalidad()
-
+        DdlDirClienteLocalidad.SelectedValueExist(GvRow.DataKey("CveLocalidad"))
+
+
+        CargaDirClienteColonia()
         DdlDirClienteColonia.SelectedValueExist(GvRow.DataKey("CveColonia"))
 
         ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString() = "True", True, False)
@@ -10214,5 +10222,6 @@ Partial Class Clientes
 
         UpDatos.Update()
     End Sub
+
 End Class
 

Ventas/PV.aspx

@@ -2456,6 +2456,7 @@
                         <%--<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>
@@ -2466,23 +2467,75 @@
                                         </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" Text="XAXX010101000" 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>
+                                        <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-z,ñ,A-Z,Ñ,&]{3,4}[0-9]{2}[0-1][0-9][0-3][0-9][A-Z,0-9]?[A-Z,0-9]?[0-9,A-Z]?"></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 class="row">
+                                    <div class="col-md-12">
+
+
+                                        <div runat="server" id="DivTipoPersona" class="form-group form-md-line-input input-iconright">
+
+                                            <%-- <asp:RadioButtonList runat="server" ID="RdTipoPersona" RepeatDirection="Horizontal" OnSelectedIndexChanged="RdTipoPersona_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm"> 
+                                                     <asp:ListItem Value="0">Física</asp:ListItem>
+                                                     <asp:ListItem Value="1">Moral</asp:ListItem>
+                                                    </asp:RadioButtonList>--%>
+
+
+                                            <asp:DropDownList runat="server" ID="RdTipoPersona" OnSelectedIndexChanged="RdTipoPersona_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm select2me">
+                                                <asp:ListItem Value="0">Física</asp:ListItem>
+                                                <asp:ListItem Value="1">Moral</asp:ListItem>
+                                            </asp:DropDownList>
+
+
+                                            <label for="<%= RdTipoPersona.ClientID.ToString()%>">Tipo Persona:</label>
+                                            <i></i>
+                                        </div>
+
+                                    </div>
+
                                 </div>
+                                                 
+                                          
+                               
+
+                                
+
+
+                                <div class="row">
+                                    <div class="col-md-12" runat="server" id="DivRazonSocial2">
+                                        <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>
+                                    <div class="col-md-4" id="DVRegimenSociedad" runat="server" visible="false">
+                                        <div runat="server" class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtRegimenSociedad" CssClass="form-control " runat="server" MaxLength="50" onkeyup="fncTxt()" ClientIDMode="Static"></asp:TextBox>
+                                            <label for="<%= TxtRegimenSociedad.ClientID.ToString()%>">Regimen Sociedad:</label>
+                                            <i></i>
+                                        </div>
+                                    </div>
+                                </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>
@@ -2575,8 +2628,13 @@
 
                                 </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" />

Ventas/PV.aspx.vb

@@ -6344,6 +6344,8 @@ Partial Class PV
     Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click
 
         If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
+
+            DivTipoPersona.Visible = True
             DivNombreCliente.Visible = True
             DivDireccionCliente.Visible = True
             DivNumeroCPCliente.Visible = True
@@ -6383,6 +6385,7 @@ Partial Class PV
                     UpCliente.Update()
                 Else
                     DivNombreCliente.Visible = True
+                    DivTipoPersona.Visible = True
                     DivDireccionCliente.Visible = True
                     DivNumeroCPCliente.Visible = True
                     DivColoniaTelefonoCliente.Visible = True
@@ -6420,10 +6423,12 @@ Partial Class PV
 
         Dim ObjCliente As New ClsClientes
 
+        Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
+
         If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim,
                                                 TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero, TxtRFCCliente.Text.Trim,
                                                 TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
-                                                UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero, DdlFormaCliente.SelectedValue.ToEntero) Then
+                                                UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero, DdlFormaCliente.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then
                 RegistraScript("hideDivEC();")
                 ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero
@@ -8284,4 +8289,20 @@ Partial Class PV
 
         Return Retorno
     End Function
+
+    Protected Sub RdTipoPersona_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        DVRegimenSociedad.Visible = False
+        DivRazonSocial2.Attributes.Add("class", "col-md-12")
+
+        If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+
+            DivRazonSocial2.Attributes.Add("class", "col-md-8")
+            DVRegimenSociedad.Visible = True
+
+        End If
+
+        UpAgregarCliente.Update()
+    End Sub
+
 End Class

Ventas/Ventas.aspx

@@ -7293,7 +7293,7 @@
                                 <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>
+                                        <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-zñA-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">
@@ -7680,7 +7680,7 @@
                                 <div class="row" style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright col-xs-12">
                                         <asp:TextBox ID="TxtRFCSucursal" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
-                                        <asp:RegularExpressionValidator ID="RFVRFCSucursal" 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="GrpGuardarSucursal" ControlToValidate="TxtRFCSucursal" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
+                                        <asp:RegularExpressionValidator ID="RFVRFCSucursal" 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="GrpGuardarSucursal" ControlToValidate="TxtRFCSucursal" ValidationExpression="^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
                                         <label for="<%= TxtRFCSucursal.ClientID.ToString()%>">RFC:</label>
                                     </div>
                                 </div>

Ventas/Ventas.aspx.vb

@@ -14291,7 +14291,7 @@ Partial Class Ventas
         If TmpDTImpuestos IsNot Nothing AndAlso Factura.CvePrePoliza > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Cot", "Rem") Then
 
             Dim Importe As Decimal
-            Dim IdCtaContable, CveCuenta As Integer
+            Dim IdCtaContable As Integer
             Dim Concepto As String
             Dim tipoCambio As Decimal
             Dim CveSubProyectoContabilizar = DdlSubProyectoDatos.SelectedValue.ToEntero()
@@ -14301,7 +14301,7 @@ Partial Class Ventas
 
                     Importe = RowIL("Importe").ToString().ToDecimal * ValorMultiplicador
                     IdCtaContable = RowIL("IdCtaContable").ToString().ToEntero()
-                    CveCuenta = RowIL("IdCtaContable").ToString().ToEntero()
+                    'CveCuenta = -1 'RowIL("IdCtaContable").ToString().ToEntero()
                     Concepto = ViewState("VentaFolio").ToString()
 
                     If ObjFactura.CveMoneda = 2 AndAlso ObjFactura.TipoCambio > 0 Then
@@ -14314,20 +14314,20 @@ Partial Class Ventas
 
                     Select Case RowIL("TipoImpuesto").ToString()
                         Case "1"
-                            If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 27, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                            If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 27, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
                                 ErrorPrepoliza = True
                             End If
 
                         Case "3"
-                            If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 116, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                            If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 116, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
                                 ErrorPrepoliza = True
                             End If
                         Case "4"
-                            If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 58, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                            If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 58, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
                                 ErrorPrepoliza = True
                             End If
                         Case "5"
-                            If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, True, Importe, Concepto, 27, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                            If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, True, Importe, Concepto, 27, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
                                 ErrorPrepoliza = True
                             End If
                     End Select