-

Ventas/Clientes.aspx.vb

@@ -2080,7 +2080,13 @@ Partial Class Clientes
         End If
 
         DdlUsoCFDI.Items.Clear()
-        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
+            DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+        Else
+            DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+        End If
+
         DdlUsoCFDI.DataBind()
         DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
 

Ventas/ProductosServicios.aspx

@@ -274,7 +274,7 @@
                                                  
                                                 <div runat="server" id="DivRegistroRSCO1" class="form-group form-md-line-input input-iconright" visible="false" style="width:100%!important">
                                                     <asp:TextBox ID="TxtRegistroRSCO" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
-                                                    <label for="<%= TxtRegistroRSCO.ClientID.ToString()%>">Registro RSCO:</label>
+                                                    <label for="<%= TxtRegistroRSCO.ClientID.ToString()%>" style="margin-top:-6px" >Registro RSCO:</label>
                                                     <%--<asp:RequiredFieldValidator runat="server" ID="RfvTxtRegistroRSCO" ControlToValidate="TxtRegistroRSCO" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Registro RSCO''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
                                                     <i></i>
                                                 </div>
@@ -284,7 +284,7 @@
 
                                                     <div class="form-group form-md-line-input input-iconright" runat="server" style="width: 125px">
                                                         <asp:CheckBox ID="ChkFechaIndeterminadaRSCO" runat="server" CssClass="form-control" OnCheckedChanged="ChkFechaIndeterminadaRSCO_CheckedChanged" AutoPostBack="true" />
-                                                        <label for="<%= ChkFechaIndeterminadaRSCO.ClientID.ToString()%>">F. Indeterminada:</label>
+                                                        <label for="<%= ChkFechaIndeterminadaRSCO.ClientID.ToString()%>" style="margin-top:-6px" >F. Indeterminada:</label>
                                                     </div>
 
                                                 </div>
@@ -297,13 +297,13 @@
                                                             <asp:LinkButton ID="LnkTxtFechaVigenciaRSCO" class="btn default" Style="margin-top: 15px; margin-left: 6px" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                                         </span>
                                                         <ajax:CalendarExtender runat="server" ID="CETxtFechaVigenciaRSCO" TargetControlID="TxtFechaVigenciaRSCO" PopupButtonID="LnkTxtFechaVigenciaRSCO" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-
+                                                        <ajax:MaskedEditExtender ID="METxtFechaVigenciaRSCO" runat="server" TargetControlID="TxtFechaVigenciaRSCO" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                                         <asp:CompareValidator ID="CvTxtFechaVigenciaRSCO" runat="server" ControlToValidate="TxtFechaVigenciaRSCO" Display="None"
                                                             ErrorMessage="El campo <b>''Fecha de Cierre''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."
                                                             Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                                               <ajax:ValidatorCalloutExtender ID="CvcTxtFechaVigenciaRSCO" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtFechaVigenciaRSCO" Width="300px"></ajax:ValidatorCalloutExtender>
                                                        
-                                                        <label for="<%= TxtFechaVigenciaRSCO.ClientID.ToString() %>">Fecha de Vigencia:</label>
+                                                        <label for="<%= TxtFechaVigenciaRSCO.ClientID.ToString() %>"  style="margin-top:-6px" >Fecha de Vigencia:</label>
 
 
                                                     </div>

Ventas/ProductosServicios.aspx.vb

@@ -1028,6 +1028,10 @@ Partial Class ProductosyServicios
                     Else
                         TxtFechaVigenciaRSCO.Text = ObjProductosServicios.DtResultados.Rows(0)("FechaVigenciaRSCO").ToString.ToDate.ToString("dd/MM/yyyy")
                         DivRegistroRSCO3.Visible = True
+
+                        If TxtFechaVigenciaRSCO.Text = "01/01/1900" Then
+                            TxtFechaVigenciaRSCO.Text = ""
+                        End If
                     End If
 
 

Ventas/Ventas.aspx.vb

@@ -4966,7 +4966,11 @@ Partial Class Ventas
                 DdlFormaPago33.SelectedValueExist(DbRowVenta("CveFormaPago33").ToString().ToEntero())
             End If
 
-            DdlUsoCFDI.SelectedValueExist(DbRowVenta("CveUsoCFDI").ToString())
+            If DbRowVenta("CveUsoCFDI").ToString().ToEntero() > 0 Then
+                Dim UsoCFDI As String = GlobalDTSATUsosCFDI().FiltroPrimeroValor("UsoCFDIDescripcion", $"CveUsoCFDI={DbRowVenta("CveUsoCFDI").ToString()}")
+                DdlUsoCFDI.SelectedValueExistInsert(DbRowVenta("CveUsoCFDI").ToString(), UsoCFDI)
+            End If
+
 
             If UsuarioActual.CveEmpresa = 126 Then CargaOrdenProduccion(2, CveVenta)
 
@@ -5105,8 +5109,8 @@ Partial Class Ventas
                 ChkDireccionEnvio.Enabled = False
                 DdlDireccionEnvio.Visible = True
                 trDireccionEnvio.Visible = True
-                If UsuarioActual.TienePermisoProceso(333) Then LnkEditarDir.Visible = True
             End If
+            If UsuarioActual.TienePermisoProceso(333) Then LnkEditarDir.Visible = True
 
             'ESTATUS FACTURA
             If Not (CveRemision > 0 Or CveCotizacion > 0) Then
@@ -5886,11 +5890,26 @@ Partial Class Ventas
             RegimenFiscalCliente = "-1"
         End If
 
-        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
-        DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+        DdlUsoCFDI.Items.Clear()
+        DdlSucursalUsoCFDI.Items.Clear()
+
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            Dim EsPersonaMoral As Boolean = (TipoPersona = True)
+
+            DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+            DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+        Else
+            DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+            DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+        End If
+
 
         DdlUsoCFDI.DataBind()
         DdlSucursalUsoCFDI.DataBind()
+
+        DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlSucursalUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
     End Sub
 
     Private Sub CargaMotivosCancelacion()