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

2021-04-06 11:46:15 -07:00
parent db2d1af801 1d19d20e25
commit a2c6a75f9c
89 changed files with 26213 additions and 23899 deletions
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -4787,7 +4787,7 @@
                                        <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                        <label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label>
                                    </div>
-                                    <div id="DivRFCSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-8">
+                                    <div id="DivRFCSucursal" runat="server" class="form-group form-md-line-input input-iconright col-xs-8">
                                        <asp:TextBox ID="TxtRFCSucursal" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
                                        <asp:RegularExpressionValidator ID="REVRFCSucursal" 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>
                                        <label for="<%= TxtRFCSucursal.ClientID.ToString()%>">RFC:</label>
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -788,7 +788,7 @@ Partial Class Clientes
                        UpAccionesCRM.Update()
                    End If

-                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(309) Then
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveRol = 1280 Then
                        DeshabilitarDatosClienteCajas()
                    End If

@@ -943,6 +943,10 @@ Partial Class Clientes
        TxtCorreoEntregaAlmacen.Enabled = False
        ChkCargoUsado.Enabled = False
        ChkBonificacionUsado.Enabled = False
+
+        If Not ChkEsDistribuidor.Checked Then
+            BtnGuardar.Visible = PermiteEditar()
+        End If
    End Sub


@@ -3048,7 +3052,7 @@ Partial Class Clientes

                If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim,
                                             TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
-                                              DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG) Then
+                                              DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC) Then
                    GVSucursales.EditIndex = -1
                    ViewState("DTSucursalesCliente") = ObjCliente.DtResultados
                    Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
@@ -3064,7 +3068,7 @@ Partial Class Clientes
            Else
                If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim,
                                          DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
-                                           DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG) Then
+                                           DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC) Then
                    TxtNombreSucursal.Text = ""
                    TxtCiudadSucursal.Text = ""
                    TxtColoniaSucursal.Text = ""
@@ -3187,7 +3191,7 @@ Partial Class Clientes
    Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GVSucursales.RowEditing

        Me.Actualizar = True
-        Me.DivRFCSucursal.Visible = False
+        'Me.DivRFCSucursal.Visible = False
        Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString().ToEntero()


@@ -3209,7 +3213,7 @@ Partial Class Clientes
            TxtNumIntSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoInt").ToString()
            TxtTelefonoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString()
            TxtRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString()
-            DivRFCSucursal.Visible = Not String.IsNullOrEmpty(TxtRFCSucursal.Text.Trim())
+            'DivRFCSucursal.Visible = Not String.IsNullOrEmpty(TxtRFCSucursal.Text.Trim())
            TxtCorreoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Correo").ToString()
            TxtCorreoSucursalCotizacion.Text = ObjCliente.DtResultados(0)("CorreoCotizacion").ToString()
            TxtContactoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString()
--- a/Ventas/ClientesAbonar.aspx
+++ b/Ventas/ClientesAbonar.aspx
@@ -138,8 +138,7 @@
                                    <ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                    <asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                    <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''Fecha''</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>
-                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" MaximumValue="01/12/2999" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
-
+                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                    <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                    <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                    <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -3176,4 +3176,8 @@ Partial Class Ventas_ClientesAbonar
        CargaDatos(CveMoneda)

    End Sub
+
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+    End Sub
 End Class
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -589,7 +589,7 @@
        <asp:UpdatePanel ID="UpTurno" runat="server" UpdateMode="Conditional" class=" xspadding .nolineheight bordered whitoutcol" style="color: white;">
            <ContentTemplate>
                <div id="DivBloqueo" runat="server" style="width: 100%; text-align: center;" visible="false">
-                    <asp:Button ID="BtnBloquearAcceso" CssClass="btn red-haze btn-outline btn-circle btn-sm" runat="server" Text="Bloquear Turno" OnClick="BtnBloquearAcceso_Click" />
+                    <asp:Button ID="BtnBloquearAcceso" ClientIDMode="Static" CssClass="btn red-haze btn-outline btn-circle btn-sm" runat="server" Text="Bloquear Turno" OnClick="BtnBloquearAcceso_Click" />
                </div>
            </ContentTemplate>
        </asp:UpdatePanel>
@@ -837,11 +837,11 @@
                                                    <td></td>
                                                </tr>
                                                <tr align="right">
-                                                    <td><b style="font-size:18px">Total:</b></td>
+                                                    <td><b style="font-size: 18px">Total:</b></td>
                                                    <td>
                                                        <asp:UpdatePanel runat="server">
                                                            <ContentTemplate>
-                                                                <asp:TextBox ID="TxtTotal" runat="server" ClientIDMode="Static" BorderStyle="None" Style="text-align: right; font-weight: bold; font-size:18px" Text="0.00" Width="78px" ReadOnly="true"></asp:TextBox>
+                                                                <asp:TextBox ID="TxtTotal" runat="server" ClientIDMode="Static" BorderStyle="None" Style="text-align: right; font-weight: bold; font-size: 18px" Text="0.00" Width="78px" ReadOnly="true"></asp:TextBox>
                                                                <asp:HiddenField ID="HdnVentaSaldo" runat="server" ClientIDMode="Static" Value="0" />
                                                                <asp:HiddenField ID="HdnTotalVenta" runat="server" ClientIDMode="Static" Value="0" />
                                                            </ContentTemplate>
@@ -1229,7 +1229,7 @@
                                                                    <div class="row">
                                                                        <div class="col-md-6">
                                                                        </div>
-                                                                        <label class="col-md-2">Cambio:</label>
+                                                                        <label id="lblCambio" class="col-md-2">Cambio:</label>
                                                                        <div class="col-md-4 input-icon">
                                                                            <i style="margin: 0px;">$</i>
                                                                            <asp:TextBox ID="TxtCambio" CssClass="form-control input-sm " Enabled="false" runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
@@ -1950,13 +1950,14 @@
                <td colspan="1">
                    <asp:Label runat="server" Text="Código de Acceso:" Font-Bold="true" Width="120px" />
                </td>
-                <td colspan="1" style="text-align:center">
+                <td colspan="1" style="text-align: center">
                    <asp:TextBox ID="TxtCodigoAcceso" runat="server" type="password"></asp:TextBox>
                    <asp:RequiredFieldValidator ID="RFVCodigoAcceso" runat="server" ControlToValidate="TxtCodigoAcceso" Display="None" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Código de Acceso''</b> es necesario.</span></span>" ValidationGroup="GrpValidarCodigo"></asp:RequiredFieldValidator>
                </td>
            </tr>
            <tr>
-                <td colspan="2" > <span class='has-error'><span id='username-error' class='help-block'><asp:Literal ID="LtlMensajeBloqueo" runat="server" Text=""></asp:Literal></span></span></td>
+                <td colspan="2"><span class='has-error'><span id='username-error' class='help-block'>
+                    <asp:Literal ID="LtlMensajeBloqueo" runat="server" Text=""></asp:Literal></span></span></td>
            </tr>
        </table>
        <asp:Button ID="BtnCambiar" runat="server" CssClass="btn btn-success btn-sm" Text="Desbloquear" ValidationGroup="GrpValidarCodigo" OnClick="BtnCambiar_Click" />
@@ -2861,9 +2862,9 @@
                                        </div>
                                    </div>
                                    <asp:UpdatePanel ID="UpAjuste" runat="server" class="portlet-body form" UpdateMode="Conditional">
-                                        <Triggers>
+                                        <%--<Triggers>
                                            <asp:PostBackTrigger ControlID="BtnPDFHistorial" />
-                                        </Triggers>
+                                        </Triggers>--%>
                                        <ContentTemplate>
                                            <div class="col-md-1" id="DivAjuste" runat="server" visible="false">
                                                <div class="portlet light xspadding bordered">
@@ -2943,7 +2944,7 @@
                                                        <div class="row">
                                                            <div class="col-md-8">
                                                                <div class="form-group form-md-line-input input-iconright">
-                                                                    <asp:DropDownList ID="DdlFolioGarantia" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" Width="100%" AutoPostBack="true">
+                                                                    <asp:DropDownList ID="DdlFolioGarantia" CssClass="form-control input-sm select2me" runat="server" CausesValidation="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" Width="100%" AutoPostBack="true">
                                                                    </asp:DropDownList>
                                                                    <asp:RequiredFieldValidator ID="RFVFolioGarantia" runat="server" ControlToValidate="DdlFolioGarantia" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
                                                                    <ajax:ValidatorCalloutExtender ID="VCEFolioGarantia" runat="server" HighlightCssClass="vco" TargetControlID="RFVFolioGarantia"></ajax:ValidatorCalloutExtender>
@@ -3114,6 +3115,15 @@
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
    <script type="text/javascript">
+        function bloquearAcceso() {
+            $('#BtnBloquearAcceso').click();
+        }
+        function descargarPDF(urlfactura, urlajuste) {
+            window.open(urlfactura, '_blank');
+            if (urlajuste != '') {
+                setTimeout(function () { window.open(urlajuste, '_blank'); }, 2000);
+            }
+        }

        // Get the input field
        var txtCodigoAcceso = document.getElementById("C_TxtCodigoAcceso");
@@ -3162,7 +3172,7 @@

            //MARCA OPTIMA
            if (CveMarca == "1086") {
-                var regex = new RegExp("^\d{4}$|^[A-L][0-9][1-9A-Z][A-HJ-M]$");
+                var regex = new RegExp("[0-9]{4}");
                arguments.IsValid = regex.test(arguments.Value);
                return;
                //MARCA MOTOBATERIAS
@@ -3483,69 +3493,75 @@
            var totalVenta = ToDouble($get('TxtTotal').value);

            if (total > totalVenta) {
+                lblCambio.innerHTML = "Cambio:"
                $get("TxtCambio").value = FormatoNumero(total - totalVenta);
            } else {
-                $get("TxtCambio").value = "0.00";
-            }
-
-            $get("TxtImporteContado").value = total;
-
-        }
-
-        // ****************************************************************************************************************************************************************************
-
-        // ************** Contratos **************************************************************************************************************************************************
-
-        function AjustaTotales(_this) {
-
-            var pu; var cant;
-            if (_this.val().trim() == '') {
-                cant = 0;
+                if ('<%= UsuarioActual.Empresa.Funcionalidad(531) %>' == '1') {
+                lblCambio.innerHTML = "Faltante:"
+                $get("TxtCambio").value = FormatoNumero(total - totalVenta);
            } else {
-                cant = ToDouble(_this.val());
+                $get("TxtCambio").value = "$0.00"
            }
-
-            pu = ToDouble(_this.parent().prev().text());
-            _this.parent().next().html(FormatoNumero(pu * cant, 2));
-            //console.log(pu);
-            //console.log(cant);
-            //console.log(pu * cant);
        }

-        function loadpage() {
-            $('.AjustaT').each(function () {
-                AjustaTotales($(this));
-            })
-            $('.AjustaT').change(function () {
-                AjustaTotales($(this));
-            });
+        $get("TxtImporteContado").value = total;
+
+    }
+
+    // ****************************************************************************************************************************************************************************
+
+    // ************** Contratos **************************************************************************************************************************************************
+
+    function AjustaTotales(_this) {
+
+        var pu; var cant;
+        if (_this.val().trim() == '') {
+            cant = 0;
+        } else {
+            cant = ToDouble(_this.val());
        }
-        jQuery(document).ready(function () {
-            loadpage();
-            Sys.Application.add_load(function (s, e) {
-                loadpage();
-            });
+
+        pu = ToDouble(_this.parent().prev().text());
+        _this.parent().next().html(FormatoNumero(pu * cant, 2));
+        //console.log(pu);
+        //console.log(cant);
+        //console.log(pu * cant);
+    }
+
+    function loadpage() {
+        $('.AjustaT').each(function () {
+            AjustaTotales($(this));
+        })
+        $('.AjustaT').change(function () {
+            AjustaTotales($(this));
        });
-        /*mover esta funcion al final*/
-        //function AjustarTotales() {
-        //    $get('C_Tab_TabEstimaciones_BtnCalcularTotalesContrato').click();
-        //}
-        // ****************************************************************************************************************************************************************************
+    }
+    jQuery(document).ready(function () {
+        loadpage();
+        Sys.Application.add_load(function (s, e) {
+            loadpage();
+        });
+    });
+    /*mover esta funcion al final*/
+    //function AjustarTotales() {
+    //    $get('C_Tab_TabEstimaciones_BtnCalcularTotalesContrato').click();
+    //}
+    // ****************************************************************************************************************************************************************************


-        // bad implementation
-        function sleep(milliSeconds) {
-            var startTime = new Date().getTime(); // get the current time
-            while (new Date().getTime() < startTime + milliSeconds); // hog cpu
-        }
+    // bad implementation
+    function sleep(milliSeconds) {
+        var startTime = new Date().getTime(); // get the current time
+        while (new Date().getTime() < startTime + milliSeconds); // hog cpu
+    }

-        function PrendeTextBox(Chk, Obj, Saldo, Row) {
-            $get("HdnTipoDescuento").value = "3";
-            if ($("#" + Chk.id).is(":checked")) {
-                $get(Obj).readOnly = false;
-                $get(Row).style.backgroundColor = "#82b6db";
-                $get(Obj).focus();
-                var total = parseFloat($('#<%= LblSaldoVenta.ClientID%>').text().replace(',', ''));
+    function PrendeTextBox(Chk, Obj, Saldo, Row) {
+        $get("HdnTipoDescuento").value = "3";
+        if ($("#" + Chk.id).is(":checked")) {
+            $get(Obj).readOnly = false;
+            $get(Row).style.backgroundColor = "#82b6db";
+            $get(Obj).focus();
+            var total = parseFloat($('#<%= LblSaldoVenta.ClientID%>').text().replace(',', ''));
                $get(Obj).value = 0;
                var suma = 0;
                $('#<%= GVAnticipos.ClientID%> input[type="text"]').each(function (index) {
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -3262,23 +3262,33 @@ Partial Class PV
                    SbAlert.AppendFormat("{0}<br>", Retorno.Mensajes(Retorno.Mensajes.Count - 1))
                    SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Factura</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta)))

+                    Dim urlFactura As String = $"/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta))}"
+                    Dim urlAjuste As String = ""
+
                    Using ObjAcum As New ClsAcumuladores
                        If ObjAcum.GetGarantiasDetalle(Retorno.CveVenta) Then
                            Dim RowGarantia As DataRow = ObjAcum.DtResultados.FiltroPrimero("")
                            If RowGarantia IsNot Nothing Then
-                                SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Ajuste</a></li></ul><br/>", Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle"))))
-
+                                SbAlert.AppendFormat("<ul><li><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Ajuste</a></li></ul><br/>", Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle"))))
                                'AUTO DESCARGAR PDF AJUSTE
-                                RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle")))}'", "Imprimir")
+                                urlAjuste = $"/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle")))}"
                            End If
                        End If
                    End Using

                    Retorno.Mensajes(Retorno.Mensajes.Count - 1) = SbAlert.ToString()
+
+                    RegistraScript($"descargarPDF('{urlFactura}','{urlAjuste}');", "Imprimir")
+
+                    'BLOQUEAR LA SESION DESPUES DE GENERAR
+                    If DivBloqueo.Visible Then
+                        Retorno.LigaPV = "bloquearAcceso();"
+                    End If
+
                End If

                For Each Mensaje In Retorno.Mensajes
-                    Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV))
+                    Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV), ShowCloseButton:=False)
                Next
            Else
                Alert("No hay partidas agregadas a la factura", TipoMensaje.MsgAdvertencia)
@@ -3954,6 +3964,19 @@ Partial Class PV
    End Sub
    Private Sub DdlSubProyectoDatos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyectoDatos.SelectedIndexChanged
        CambiaSucursalGeneral()
+
+        If UsuarioActual.Empresa.Funcionalidad(531).ToString = "1" Then
+            Dim ObjAcum As New ClsAcumuladores
+            If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then
+                DdlFolioGarantia.DataSource = ObjAcum.DtResultados.FiltraParametros($"CveSubProyecto={DdlSubProyectoDatos.SelectedValue}")
+            End If
+            ObjAcum.Dispose()
+            DdlFolioGarantia.DataBind()
+            DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
+
+        UpAjuste.Update()
+        UpModalVenta.Update()
    End Sub
    Private Sub CambiaSucursalGeneral()
        Dim ObjSubProyectos As New ClsSubProyectos
@@ -6228,10 +6251,12 @@ Partial Class PV
    Private Sub CargaAjuste()
        Dim ObjAcum As New ClsAcumuladores
        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then
-            DdlFolioGarantia.DataSource = ObjAcum.DtResultados
-            DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlFolioGarantia.DataSource = ObjAcum.DtResultados.Copy().FiltraParametros($"CveSubProyecto={DdlSubProyectoDatos.SelectedValue}")
        End If
        ObjAcum.Dispose()
+        DdlFolioGarantia.DataBind()
+        DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
+

        DdlFacturas.Items.Insert(0, New ListItem("Sin Factura", "-1"))

@@ -6264,6 +6289,8 @@ Partial Class PV
        DdlDistribuidor.setEsWebService(True)
        DivChkAjuste.Visible = True

+        UpAjuste.Update()
+        UpModalVenta.Update()
    End Sub

    Private Sub CargaModelos()
@@ -6536,6 +6563,13 @@ Partial Class PV
            HdnPSAjusteMarca.Value = CveMarca.ToString()
            HdnPSAjusteClasificacion.Value = CveClasificacion.ToString()

+            'MARCA OPTIMA
+            If CveMarca = 1086 Then
+                TxtCodInspeccion.MaxLength = 4
+            Else
+                TxtCodInspeccion.MaxLength = 50
+            End If
+
        End If

        If Not DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso DdlFacturas.SelectedValue.ToEntero > 0 Then
@@ -6801,26 +6835,29 @@ Partial Class PV
    End Sub

    Protected Sub DdlFolioGarantia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFolioGarantia.SelectedIndexChanged
-        Dim ObjAcumuladores As New ClsAcumuladores
-        If ObjAcumuladores.GetNuevoConsecutivoFolio(DdlFolioGarantia.SelectedValue.ToEntero) Then
-            Dim resultado As Integer = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo").ToEntero
-            If ObjAcumuladores.FoliosGarantiaGet(DdlFolioGarantia.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-                Dim Limite As Integer = If(ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite") IsNot Nothing, ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero, 0) 'ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero
-                If resultado < Limite Or Limite = 0 Then
-                    TxtConsecutivoAjuste.Text = (resultado + 1).ToString
-                Else
-                    Alert("limite de folios alcanzado")
+        If DdlFolioGarantia.SelectedValue.ToEntero > 0 Then
+            Dim ObjAcumuladores As New ClsAcumuladores
+            If ObjAcumuladores.GetNuevoConsecutivoFolio(DdlFolioGarantia.SelectedValue.ToEntero) Then
+                Dim resultado As Integer = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo").ToEntero
+                If ObjAcumuladores.FoliosGarantiaGet(DdlFolioGarantia.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                    Dim Limite As Integer = If(ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite") IsNot Nothing, ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero, 0) 'ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero
+                    If resultado < Limite Or Limite = 0 Then
+                        TxtConsecutivoAjuste.Text = (resultado + 1).ToString
+                    Else
+                        Alert("limite de folios alcanzado")
+                    End If
                End If
+                UpAjuste.Update()
            End If
-            UpAjuste.Update()
-        End If
-        ObjAcumuladores.Dispose()
+            ObjAcumuladores.Dispose()

-        Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(DdlPSAjuste.SelectedValue.ToEntero(), DdlFolioGarantia.SelectedValue.ToEntero())
+            Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(DdlPSAjuste.SelectedValue.ToEntero(), DdlFolioGarantia.SelectedValue.ToEntero())

-        If Not FolioGarantia.Valido Then
-            Alert($"El folio de garantía no es valido.<br/> Clasificacion del Producto:{FolioGarantia.ClasificacionPS}.<br/>Tipo Folio:{FolioGarantia.TipoFolio}", TipoMensaje.MsgAdvertencia)
+            If Not FolioGarantia.Valido Then
+                Alert($"El folio de garantía no es valido.<br/> Clasificacion del Producto:{FolioGarantia.ClasificacionPS}.<br/>Tipo Folio:{FolioGarantia.TipoFolio}", TipoMensaje.MsgAdvertencia)
+            End If
        End If
+
    End Sub

 #End Region
@@ -7282,97 +7319,108 @@ Partial Class PV

    Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs)

-        Dim ObjPS As New ClsProductosServicios
-        Dim MarcaPS As String = ""
-        If ObjPS.GetPS(DdlPSAjuste.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
-            MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero))
-        End If
+        'Dim ObjPS As New ClsProductosServicios
+        'Dim MarcaPS As String = ""
+        'If ObjPS.GetPS(DdlPSAjuste.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+        '    MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero))
+        'End If

-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-        Dim DtDatos As New DataTable
+        'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        'Dim DtDatos As New DataTable

-        Dim params As New List(Of ReportParameter)
+        'Dim params As New List(Of ReportParameter)


-        'Informacion Distribuidor
-        If (DdlDistribuidor.SelectedValue.ToEntero > 0) Then
+        ''Informacion Distribuidor
+        'If (DdlDistribuidor.SelectedValue.ToEntero > 0) Then

-            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
-            Dim CiudadEstado As String = ""
-            Dim Telefono As String = ""
-            Dim Nombre As String = ""
+        '    Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
+        '    Dim CiudadEstado As String = ""
+        '    Dim Telefono As String = ""
+        '    Dim Nombre As String = ""

-            If DatosClienteSeleccionado IsNot Nothing Then
-                CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
-                Telefono = DatosClienteSeleccionado("Telefono").ToString
-                Nombre = DatosClienteSeleccionado("Nombre").ToString
-            End If
+        '    If DatosClienteSeleccionado IsNot Nothing Then
+        '        CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
+        '        Telefono = DatosClienteSeleccionado("Telefono").ToString
+        '        Nombre = DatosClienteSeleccionado("Nombre").ToString
+        '    End If

-            params.Add(New ReportParameter("NombreDistribuidor", Nombre))
-            params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
-            params.Add(New ReportParameter("TelCliente", Telefono))
+        '    params.Add(New ReportParameter("NombreDistribuidor", Nombre))
+        '    params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
+        '    params.Add(New ReportParameter("TelCliente", Telefono))

-        End If
-        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
-        params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
+        'End If
+        'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        'params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
+        'params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))

-        'Informacion de Garantia o ajuste
-        params.Add(New ReportParameter("FechaInst", TxtFechaAjuste.Text.Trim))
-        params.Add(New ReportParameter("Fecha", Now.ToShortDateString))
-        params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
-        params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim))
-        params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))
+        ''Informacion de Garantia o ajuste
+        'params.Add(New ReportParameter("FechaInst", TxtFechaAjuste.Text.Trim))
+        'params.Add(New ReportParameter("Fecha", Now.ToShortDateString))
+        'params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
+        'params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim))
+        'params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))

-        'Informacion Acumulador
-        params.Add(New ReportParameter("CodEnsamble", TxtCodEnsamble.Text.Trim))
-        params.Add(New ReportParameter("CodLinea", TxtCodLinea.Text.Trim))
-        params.Add(New ReportParameter("CodInspeccion", TxtCodInspeccion.Text.Trim))
-        params.Add(New ReportParameter("Tipo", DdlBCIAjuste.SelectedItem.Text))
-        params.Add(New ReportParameter("Marca", MarcaPS))
-        params.Add(New ReportParameter("Etiqueta", TxtEtiqueta.Text))
+        ''Informacion Acumulador
+        'params.Add(New ReportParameter("CodEnsamble", TxtCodEnsamble.Text.Trim))
+        'params.Add(New ReportParameter("CodLinea", TxtCodLinea.Text.Trim))
+        'params.Add(New ReportParameter("CodInspeccion", TxtCodInspeccion.Text.Trim))
+        'params.Add(New ReportParameter("Tipo", DdlBCIAjuste.SelectedItem.Text))
+        'params.Add(New ReportParameter("Marca", MarcaPS))
+        'params.Add(New ReportParameter("Etiqueta", TxtEtiqueta.Text))

-        'Informacion Vehiculo
-        params.Add(New ReportParameter("MarcaAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
-        params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
+        ''Informacion Vehiculo
+        'params.Add(New ReportParameter("MarcaAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
+        'params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))

-        'Informacion Consumidor
-        'Informacion Distribuidor
-        If (CveCliente > 0) Then
+        ''Informacion Consumidor
+        ''Informacion Distribuidor
+        'If (CveCliente > 0) Then

-            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
-            Dim Nombre As String = ""
-            Dim Ciudad As String = ""
-            Dim Estado As String = ""
-            Dim Direccion As String = ""
-            Dim Telefono As String = ""
+        '    Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
+        '    Dim Nombre As String = ""
+        '    Dim Ciudad As String = ""
+        '    Dim Estado As String = ""
+        '    Dim Direccion As String = ""
+        '    Dim Telefono As String = ""

-            If DatosClienteSeleccionado IsNot Nothing Then
-                Nombre = DatosClienteSeleccionado("Nombre").ToString
-                Ciudad = DatosClienteSeleccionado("Ciudad").ToString
-                Estado = DatosClienteSeleccionado("Estado").ToString
-                Direccion = DatosClienteSeleccionado("Direccion").ToString
-                Telefono = DatosClienteSeleccionado("Telefono").ToString
-            End If
+        '    If DatosClienteSeleccionado IsNot Nothing Then
+        '        Nombre = DatosClienteSeleccionado("Nombre").ToString
+        '        Ciudad = DatosClienteSeleccionado("Ciudad").ToString
+        '        Estado = DatosClienteSeleccionado("Estado").ToString
+        '        Direccion = DatosClienteSeleccionado("Direccion").ToString
+        '        Telefono = DatosClienteSeleccionado("Telefono").ToString
+        '    End If

-            params.Add(New ReportParameter("NombreCliente", Nombre))
-            params.Add(New ReportParameter("Direccion", Direccion))
-            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
-            params.Add(New ReportParameter("TelConsumidor", Telefono))
-        End If
+        '    params.Add(New ReportParameter("NombreCliente", Nombre))
+        '    params.Add(New ReportParameter("Direccion", Direccion))
+        '    params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
+        '    params.Add(New ReportParameter("TelConsumidor", Telefono))
+        'End If

-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
+        'If Imagen.Exists Then
+        '    params.Add(New ReportParameter("LogoPath", logouri))
+        'Else
+        '    params.Add(New ReportParameter("LogoPath", ""))
+        'End If

-        params.Add(New ReportParameter("Anio", TxtAnioVehiculo.Text))
-        params.Add(New ReportParameter("Comprobante", TxtComprobante.Text))
-        params.Add(New ReportParameter("CodigoTD", TxtCodigoTD.Text))
+        'params.Add(New ReportParameter("Anio", TxtAnioVehiculo.Text))
+        'params.Add(New ReportParameter("Comprobante", TxtComprobante.Text))
+        'params.Add(New ReportParameter("CodigoTD", TxtCodigoTD.Text))

-        ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF")
+        Dim URLDescarga As New StringBuilder
+
+        URLDescarga.Append($"OP=AJUSTE&CVEPSAJUSTE={DdlPSAjuste.SelectedValue.ToEntero}&CVECLIENTE={CveCliente}&CVECLIENTEDISTRIBUIDOR={DdlDistribuidor.SelectedValue.ToEntero()}&CONSEC={TxtConsecutivoAjuste.Text.Trim}")
+        URLDescarga.Append($"&FOLIOGARANTIA={If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)}&FECHAAJUSTE={TxtFechaAjuste.Text.Trim}&FECHARECLAMACION={Now.ToString("dd/MM/yyyy")}")
+        URLDescarga.Append($"&TIPODEFECTO={If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)}&CVETIPOUSO={DdlTipoUso.SelectedValue.ToEntero()}&CODIGOENSAMBLE={TxtCodEnsamble.Text.Trim}&CODIGOLINEA={TxtCodLinea.Text.Trim}")
+        URLDescarga.Append($"&CODIGOINSPECCION={TxtCodInspeccion.Text.Trim}&PORCENTAJEAJUSTE={TxtPorcentajeAjuste.Text.Trim}&BCIAJUSTE={DdlBCIAjuste.SelectedItem.Text}&ETIQUETA={TxtEtiqueta.Text.Trim}&AÑO={TxtAnioVehiculo.Text}&COMPROBANTE={TxtComprobante.Text}")
+        URLDescarga.Append($"&MODELOAUTO={If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")}&MARCAAUTO={If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")}&CODIGOTD={TxtCodigoTD.Text.Trim}")
+
+
+        RegistraScript($"window.open('/Compras/PopUpVerFactura.aspx?P={Encripta(URLDescarga.ToString())}', '_blank');", "Imprimir")
+
+        'ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF", Content_Disposition:="inline")

    End Sub

--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -319,9 +319,9 @@
                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                        <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                        </div>

                    </div>
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -267,13 +267,15 @@ Partial Class Ventas_RepProductosServicios
        Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
        Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)

+        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
+
        Dim ObjVentas As New ClsVentas()
        If ObjVentas.GetRepProductosServicios(DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
                                              DdlPS.SelectedValue.ToEntero, FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente,
                                              DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1",
                                              UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
                                              CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra,
-                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ChkModalidadContable.Checked) Then
+                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
            GvDatos.DataSource = ObjVentas.DtResultados
            DtVentas = ObjVentas.DtResultados
        Else
@@ -357,7 +359,7 @@ Partial Class Ventas_RepProductosServicios
                                                                                    e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"),
                                                                                    e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"),
                                                                                    e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"),
-                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), If(ChkModalidadContable.Checked, 1, 0))
+                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), If(Not ChkLecturaAdmin.Checked, 1, 0))


            e.Row.FCLiteral("LtlGrupo").Text = String.Format("<a target=""_blank"" Class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.DBCampo("Gpo"))
--- a/Ventas/RepProductosServiciosDetalle.aspx
+++ b/Ventas/RepProductosServiciosDetalle.aspx
@@ -315,9 +315,9 @@
                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                        <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                        </div>
                    </div>
                </div>
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -402,7 +402,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
        TxtFechaIEjec.Text = If(MesEjec <> "-1", String.Format("01/{0}/0001", MesEjec), TxtFechaIEjec.Text)

        Dim ModalidadContable As Boolean = CBool(If(Request("ModalidadContable") IsNot Nothing, Request("ModalidadContable").ToEntero(), 0))
-        ChkModalidadContable.Checked = ModalidadContable
+
+        ChkLecturaAdmin.Checked = Not ModalidadContable

        CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToEntero
        DdlProyecto.SelectedValueExist(CveProyecto)
@@ -462,7 +463,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
                                              UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, GPO:=DdlGrupo.SelectedValue.ToEntero, CveMoneda:=CveMoneda,
                                              TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra,
                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero(), TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
-                                              ModalidadContable:=ChkModalidadContable.Checked) Then
+                                              ModalidadContable:=Not ChkLecturaAdmin.Checked) Then
            GvDatos.DataSource = ObjVentas.DtResultados
            TmpDT = ObjVentas.DtResultados
        Else
--- a/Ventas/RepProductosServiciosPeriodo.aspx
+++ b/Ventas/RepProductosServiciosPeriodo.aspx
@@ -237,9 +237,9 @@
                        </div>
                    </div>
                    <div class="row" >
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                        <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                        </div>
                    </div>
                </div>
--- a/Ventas/RepProductosServiciosPeriodo.aspx.cs
+++ b/Ventas/RepProductosServiciosPeriodo.aspx.cs
@@ -354,7 +354,7 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
        if (txtFechaI.Text.Trim() != "") { FechaI = txtFechaI.Text.ToDate(); } else { FechaI = MinFecha; }
        if (txtFechaF.Text.Trim() != "") { FechaF = txtFechaF.Text.ToDate(); } else { FechaF = MaxFecha; }
        if (TxtFechaIEjec.Text.Trim() != "") { FechaIEjec = TxtFechaIEjec.Text.ToDate(); } else { FechaIEjec = MinFecha; }
-        if (TxtFechaFEjec.Text.Trim() != "") { FechaFEjec = TxtFechaFEjec.Text.ToDate(); } else { FechaFEjec = MaxFecha; }
+        if (TxtFechaFEjec.Text.Trim() != "") { FechaFEjec = TxtFechaFEjec.Text.ToDate(); } else { FechaFEjec = MaxFecha; }

        if (ObjVentas.GetRepPSPeriodo(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero(), DdlSubProyectoEjecucion.SelectedValue.ToEntero(),
            DdlVendedor.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), "-1", UsuarioActual.CveEmpresa,
--- a/Ventas/RepRecuperacion.aspx
+++ b/Ventas/RepRecuperacion.aspx
@@ -179,7 +179,7 @@
                            </asp:DropDownList>
                        </div>

-                            <div class="col-md-1 truncate">Fecha Aplicado Inicio: </div>
+                            <div class="col-md-1 truncate">F. Conciliado inicio:</div>
                            <div class="col-md-1">
                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                    <asp:TextBox Width="80px" ID="TxtFechaAplicadoI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
@@ -194,7 +194,7 @@
                                <ajax:ValidatorCalloutExtender ID="vcoFfvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
                                <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
                            </div>
-                            <div class="col-md-1 truncate">Fecha Aplicado Fin: </div>
+                            <div class="col-md-1 truncate">F. Conciliado Fin:</div>
                            <div class="col-md-1">
                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                    <asp:TextBox Width="80px" ID="TxtFechaAplicadoF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
--- a/Ventas/RepVentaDetalle.aspx
+++ b/Ventas/RepVentaDetalle.aspx
@@ -304,9 +304,9 @@

                    </div>
                    <div class="row">
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                        <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                        </div>
                    </div>
                </div>
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -482,13 +482,15 @@ Partial Class RepVentaDetalle

        Dim ModalidadContable As Boolean = CBool(If(Request("ModalidadContable") IsNot Nothing, Request("ModalidadContable").ToEntero(), 0))

+        ChkLecturaAdmin.Checked = Not ModalidadContable
+
        Dim ObjVentas As New ClsVentas()
        'FechaI, FechaF, -1, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero
        If ObjVentas.GetRepVentasDetalle(DdlGrupo.SelectedValue.ToEntero, Anio.ToEntero, Mes.ToEntero, AnioMes, Fecha, CveCliente,
                                         IVA, Vendedores, DdlUsuario.SelectedValue.ToEntero, Estatus, FechaI, FechaF,
                                         CveCorte.ToEntero, TipoComprobante, DdlSubProyectoEjecucion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaIEjec, FechaFEjec,
                                         CveProyecto, Sucursales, TipoCambio, TCEspecifico, CveMoneda, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                         CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
+                                         CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=Not ChkLecturaAdmin.Checked) Then
            DtVentas = AddRows(ObjVentas.DtResultados)
            ImgImprimir.Enabled = True
            GvDatos.DataSource = AddRows(ObjVentas.DtResultados)
--- a/Ventas/RepVentas.aspx
+++ b/Ventas/RepVentas.aspx
@@ -300,9 +300,9 @@
                        </div>
                    </div>
                    <div class="row" id="divModalidadcontable" runat="server" visible="false">
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                        <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                        </div>
                    </div>
                </div>
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -326,9 +326,11 @@ Partial Class Ventas_RepVentas
        FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim.ToDate, MinFecha)
        FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha)

+        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
+
        If ObjVentas.GetRepVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, Vendedores,
                                  DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
-                                  CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ChkModalidadContable.Checked) Then
+                                  CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
            GvDatos.DataSource = ObjVentas.DtResultados
            DtVentas = ObjVentas.DtResultados
        Else
@@ -488,7 +490,7 @@ Partial Class Ventas_RepVentas


            'LIGA A DETALLE
-            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkModalidadContable.Checked, 1, 0)}"
+            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}"


            e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"
--- a/Ventas/RepVentasPeriodo.aspx
+++ b/Ventas/RepVentasPeriodo.aspx
@@ -246,9 +246,9 @@

                    </div>
                    <div class="row">
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                        <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                        </div>
                    </div>
                </div>
--- a/Ventas/RepVentasPeriodo.aspx.vb
+++ b/Ventas/RepVentasPeriodo.aspx.vb
@@ -192,10 +192,12 @@ Partial Class RepVentasPeriodo
        FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim.ToDate, MinFecha)
        FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha)

+        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
+
        If ObjVentas.GetRepVentasPeriodos(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero, DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero,
                                  DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue,
                                  DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
-                                  VerEn:=VerEn, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ChkModalidadContable.Checked) Then
+                                  VerEn:=VerEn, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then

            GvDatos.DataSource = ObjVentas.DtResultados
            DtVentas = ObjVentas.DtResultados
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3366,7 +3366,7 @@
                                                                    <div class="row">
                                                                        <div class="col-md-6">
                                                                        </div>
-                                                                        <label class="col-md-2">Cambio:</label>
+                                                                         <label id="lblCambio" class="col-md-2">Cambio:</label>
                                                                        <div class="col-md-4 input-icon">
                                                                            <i style="margin: 0px;">$</i>
                                                                            <asp:TextBox ID="TxtCambio" CssClass="form-control input-sm " Enabled="false" runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
@@ -7827,12 +7827,18 @@
            var totalVenta = ToDouble($get('TxtTotal').value);

            if (total > totalVenta) {
+                lblCambio.innerHTML = "Cambio:"
                $get("TxtCambio").value = FormatoNumero(total - totalVenta);
            } else {
-                $get("TxtCambio").value = "0.00";
+                if ('<%= UsuarioActual.Empresa.Funcionalidad(531) %>' == '1') {
+                    lblCambio.innerHTML = "Faltante:"
+                    $get("TxtCambio").value = FormatoNumero(total - totalVenta, 2);
+                } else {
+                    $get("TxtCambio").value = "$0.00"
+                }
            }

-            $get("TxtImporteContado").value = total - totalRNC - totalAmortizado - totalProntoPago;
+            $get("TxtImporteContado").value = FormatoNumero(total - totalRNC - totalAmortizado - totalProntoPago,2);
        }

        // ****************************************************************************************************************************************************************************
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -1256,14 +1256,6 @@ Partial Class Ventas
        End Set
    End Property

-    Private Property CreditoDisponible As Double
-        Get
-            Return If(IsNothing(ViewState("CreditoDisponible")), 0, ViewState("CreditoDisponible")).ToString().ToDecimal
-        End Get
-        Set(value As Double)
-            ViewState("CreditoDisponible") = value
-        End Set
-    End Property
    Private Property DtAnticipoAmortizacion As DataTable
        Get
            Return CType(ViewState("DtAnticipoAmortizacion"), DataTable)
@@ -1298,7 +1290,14 @@ Partial Class Ventas
            ViewState("CveVentaUsadoDevolucionEfectivo") = value
        End Set
    End Property
-
+    Private Property CveFormaPago33Cliente As Integer
+        Get
+            Return If(IsNothing(ViewState("CveFormaPago33Cliente")), -1, ViewState("CveFormaPago33Cliente")).ToString().ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveFormaPago33Cliente") = value
+        End Set
+    End Property
 #End Region

 #Region "Propiedades PuntoVenta"
@@ -2821,7 +2820,7 @@ Partial Class Ventas
                UpParametros.Update()
                DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
                CambiaTipoDocto()
-                LimpiaEscondeContado()
+                LimpiaEscondeContado(CveFormaPago33Cliente)
            End If

            InicializaAplicarNC()
@@ -2908,6 +2907,8 @@ Partial Class Ventas
        End If
        MostrarOpcionesPaqueteria()

+        'UNA VEZ CARGADA LAS CONDICIONES DE PAGO INICIALMENTE, NO VUELVE A SOBREESCRIBIR EL VALOR
+        CveFormaPago33Cliente = -1
    End Sub
    Private Sub BloqueaClasificaciones()
        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
@@ -5169,7 +5170,7 @@ Partial Class Ventas
        'End If

    End Sub
-    Private Sub CargaFormaPago(CveMetodoPago As Integer)
+    Private Sub CargaFormaPago(CveMetodoPago As Integer, Optional CveFormaPago As Integer = -1)
        'FACTURACION 3.3

        'permiso para desbloquear la relación entre Método de pago y forma de pago
@@ -5185,9 +5186,14 @@ Partial Class Ventas
        'DdlFormaPago33.ClearSelection()
        'DdlFormaPago33.DataBind()
        DdlFormaPago33.DataSource = dtt
-        DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "")
        DdlFormaPago33.DataBind()

+        If CveFormaPago > 0 Then
+            DdlFormaPago33.SelectedValueExist(CveFormaPago)
+        Else
+            DdlFormaPago33.SelectedValueExist(dtt.FiltroPrimeroValor("CveFormaPago", ""))
+        End If
+
        DdlFormaCliente.DataSource = GlobalDTVtaFormaPago
        DdlFormaCliente.DataBind()
        DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
@@ -5495,6 +5501,8 @@ Partial Class Ventas

                Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero()

+                Me.CveFormaPago33Cliente = ObjCliente.CveFormaPago33
+
                If (CveVenta <= 0 AndAlso CveCotizacion <= 0) Or EsCreaApartirDe Or NuevaFactura = 1 Then
                    'CveMetodoPagoCliente = ObjCliente.CveMetodoPago

@@ -16743,7 +16751,16 @@ Partial Class Ventas
            Row("SubProyecto") = SubProyecto
            Row("Serie") = Serie
            Row("TiempoEntrega") = TiempoEntrega
-            Row("Orden") = TmpDT.Rows.Count + 1
+            If Modalidad = "U" Then
+                Row("Orden") = Index
+            Else
+                Dim ConsecutivoActual As Integer = TmpDT.MAX("Consec").ToEntero()
+                If ConsecutivoActual < 0 Then
+                    ConsecutivoActual = 0
+                End If
+                Row("Orden") = ConsecutivoActual + 1
+            End If
+
            Row("Cantidad") = Cantidad
            Row("CveUM") = CveUM
            Row("UM") = UM
@@ -16823,7 +16840,11 @@ Partial Class Ventas
            If Modalidad = "U" Then
                Row("Consec") = Index
            Else
-                Row("Consec") = TmpDT.Rows.Count + 1
+                Dim ConsecutivoActual As Integer = TmpDT.MAX("Consec").ToEntero()
+                If ConsecutivoActual < 0 Then
+                    ConsecutivoActual = 0
+                End If
+                Row("Consec") = ConsecutivoActual + 1
            End If

            Row("PS") = DrPS("PS")
@@ -19450,17 +19471,28 @@ Partial Class Ventas

        ViewState("CveClienteAnterior") = CveCliente

-        'SI EL DETALLE NO TIENE MOVIMIENTOS DE INVENTARIO ES VISIBLE
        Dim CantidadFacturadaRemision = 0.0
-        For Each Gvr As GridViewRow In GvPS.Rows
-            Gvr.FCLinkButton("imgE").Visible = Not Gvr.DataKey("CantidadFacturadaRem").ToString().ToDouble > 0
-            Gvr.FCLinkButton("imgD").Visible = Not Gvr.DataKey("CantidadInventario").ToString().ToDouble > 0
-            CantidadFacturadaRemision += Gvr.DataKey("CantidadFacturadaRem").ToString().ToDouble
-            'If GvInv.Rows.Count > 0 Then
-            '    Gvr.FCLinkButton("imgE").Enabled = False
-            '    Gvr.FCLinkButton("imgE").ToolTip = "No se puede editar debido a que ya hay un movimiento de almacen."
-            'End If
-        Next
+
+        'EN BDH NO DEBE PERMITIR EDITAR EL PU
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            For Each Gvr As GridViewRow In GvPS.Rows
+                Gvr.FCLinkButton("imgE").Visible = False
+                Gvr.FCLinkButton("imgD").Visible = False
+                CantidadFacturadaRemision += Gvr.DataKey("CantidadFacturadaRem").ToString().ToDouble
+            Next
+        Else
+            'SI EL DETALLE NO TIENE MOVIMIENTOS DE INVENTARIO ES VISIBLE
+            For Each Gvr As GridViewRow In GvPS.Rows
+                Gvr.FCLinkButton("imgE").Visible = Not Gvr.DataKey("CantidadFacturadaRem").ToString().ToDouble > 0
+                Gvr.FCLinkButton("imgD").Visible = Not Gvr.DataKey("CantidadInventario").ToString().ToDouble > 0
+                CantidadFacturadaRemision += Gvr.DataKey("CantidadFacturadaRem").ToString().ToDouble
+                'If GvInv.Rows.Count > 0 Then
+                '    Gvr.FCLinkButton("imgE").Enabled = False
+                '    Gvr.FCLinkButton("imgE").ToolTip = "No se puede editar debido a que ya hay un movimiento de almacen."
+                'End If
+            Next
+        End If
+

        'ACTIVA CAMBIO DE CLIENTE - SI NO TIENE NADA FACTURADO
        If Not CantidadFacturadaRemision > 0 AndAlso UsuarioActual.TienePermisoProceso(284) Then
@@ -19951,7 +19983,7 @@ Partial Class Ventas
        TxtImporteOtrosContado.Text = "0.00"

    End Sub
-    Private Sub LimpiaEscondeContado()
+    Private Sub LimpiaEscondeContado(Optional CveFormaPagoCliente As Integer = -1)
        'LIMPIA
        DivContado.Visible = False
        DivTerminal.Visible = False
@@ -19970,7 +20002,7 @@ Partial Class Ventas
                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
                        DdlFormaPago33.Enabled = False
                        DdlFormaPago33.SelectedValueExist("20")
-                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
+                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPagoCliente)
                    End If

                End If
@@ -19988,7 +20020,7 @@ Partial Class Ventas

                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
                        DdlFormaPago33.Enabled = True
-                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
+                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPagoCliente)
                    End If

                End If
@@ -20335,7 +20367,7 @@ Partial Class Ventas

    End Sub
    Private Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged
-        LimpiaEscondeContado()
+        LimpiaEscondeContado(CveFormaPago33Cliente)
    End Sub
    Private Function ValidaPagosContado() As Boolean
        Dim Retorno = False