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

Ventas/PV.aspx.vb

@@ -584,7 +584,7 @@ Partial Class PV
     'Estimaciones
     Private Property CveContrato As Integer
         Get
-            Return ViewState("CveContrato").ToString.ToEntero
+            Return If(IsNothing(ViewState("CveContrato")), -1, ViewState("CveContrato").ToString.ToEntero)
         End Get
 
         Set(value As Integer)
@@ -1181,7 +1181,10 @@ Partial Class PV
             'CARGA VENTA
             If Request("CveVenta") IsNot Nothing Then
                 ViewState("CveVenta") = Request("CveVenta").ToString().ToEntero()
+                SetPermisos()
                 CargaVenta()
+            Else
+                SetPermisos()
             End If
 
 
@@ -1198,7 +1201,7 @@ Partial Class PV
             End If
 
             If UsuarioActual.CveVendedor > 0 Then
-                If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString)
+                If CveVenta <= 0 AndAlso Not DdlVendedor.SelectedValue.ToEntero > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString)
                 If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
                     DdlVendedor.Enabled = False
                 End If
@@ -1268,6 +1271,49 @@ Partial Class PV
         End If
     End Sub
 
+    Private Sub SetPermisos()
+        If CveVenta <= 0 Then
+            'Puede cotizar
+            If Not UsuarioActual.TienePermisoProceso(59) Then
+                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Cot"))
+            End If
+
+            'Puede Hacer NC
+            If Not UsuarioActual.TienePermisoProceso(175) Then
+                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs"))
+            End If
+
+            'Puede Hacer Devolución
+            If Not UsuarioActual.TienePermisoProceso(264) Then
+                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Dev"))
+            End If
+
+            'Puede facturar
+            If Not UsuarioActual.TienePermisoProceso(60) Then
+                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
+                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs"))
+                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Dev"))
+            End If
+
+            'Puede remisionar
+            If Not UsuarioActual.TienePermisoProceso(199) Then
+                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
+            End If
+
+            'Puede hacer pedido
+            If Me.CveVenta <= 0 Then
+                If Not UsuarioActual.TienePermisoProceso(177) Then
+                    If DdlTipoComprobante.Items.FindByValue("Pd2") IsNot Nothing Then
+                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2"))
+                    End If
+                End If
+            End If
+
+            ConfiguraTipoDocto()
+        End If
+    End Sub
+
     Private Sub CargaMarcasFiltro()
 
         Using ObjMarcas As New ClsProductosServicios
@@ -2856,12 +2902,22 @@ Partial Class PV
         Dim CveVendedorActual = DdlVendedor.SelectedValue
 
         DdlVendedor.Items.Clear()
-        If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
-            DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1")
-        Else
-            DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1")
+
+        Dim DtVendedores As DataTable = Nothing
+
+        Dim ObjVendedores As New ClsVtaVendedores
+        If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then DtVendedores = ObjVendedores.DtResultados.Copy
+        ObjVendedores.Dispose()
+
+        If DtVendedores IsNot Nothing Then
+            If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
+                DdlVendedor.DataSource = DtVendedores.FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo IN(1,4)")
+            Else
+                DdlVendedor.DataSource = DtVendedores.FiltraParametros("VendedorTipo IN(1,4)")
+            End If
         End If
 
+
         DdlVendedor.SelectedValue = "0"
         DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
         DdlVendedor.DataBind()
@@ -2874,7 +2930,7 @@ Partial Class PV
 
         'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE
         If UsuarioActual.CveVendedor > 0 Then
-            If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
+            If CveVenta <= 0 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
             If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
                 DdlVendedor.Enabled = False
             End If

Ventas/Promociones.aspx

@@ -289,8 +289,8 @@
                                 <div class="col-md-9">
                                     <asp:DropDownList ID="DdlRin" DataTextField="RinTamaño" DataValueField="CveRinTamaño" Width="100%" CssClass="select2me" runat="server" >
                                     </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" InitialValue="-1" ControlToValidate="DdlRin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Rin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpAgregar"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoPromocion" Width="300px"></ajax:ValidatorCalloutExtender>
+                                   <%-- <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" InitialValue="-1" ControlToValidate="DdlRin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Rin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpAgregar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoPromocion" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                 </div>
                             </div>
 

Ventas/RepComisionesServec.aspx

@@ -0,0 +1,104 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComisionesServec.aspx.vb" Inherits="Ventas_RepComisionesServec" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Reporte de comisiones
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                    </div>
+                    <div class="titlefiltros  caption">
+                        <div class="row">
+                            <label style="max-width: 80px;" class="col-md-1 truncate">Vendedor:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" Width="100%">
+                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <label style="max-width: 70px;" class="col-md-1 truncate">Sucursal:</label>
+                            <div class="col-md-2" style="max-width: 120px;">
+                                <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="select2me">
+                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <label style="max-width: 90px;" class="col-md-1 truncate">Fecha Inicio:</label>
+                            <div class="col-md-2" style="max-width: 140px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                    <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="85px" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <label style="max-width: 80px;" class="col-md-1 truncate">Fecha Fin:</label>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                    <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="85px" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                    </div>
+
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <div class="row">
+        <div class="col-md-6">
+            <h4>Importes expresados en moneda nacional</h4>
+        </div>
+        <div class="col-md-6" align="right">
+            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+        </div>
+    </div>
+    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron comisiones con los filtros especificados" ToolTip="Listado de Comisiones" CssClass="table table-striped table-hover Widthall" GridLines="None">
+                <Columns>
+                    <asp:TemplateField HeaderText="Vendedor" ItemStyle-Width="40%" ItemStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HLVendedor" Target="_blank" Text='<%# Eval("Grupo") %>' runat="server" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" ItemStyle-Width="10%" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Total" DataField="Total" ItemStyle-Width="10%" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Utilidad" DataField="Utilidad" ItemStyle-Width="10%" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Comisión" DataField="Comision" DataFormatString="{0:###,###,##0.00}" ItemStyle-Width="30%" ItemStyle-HorizontalAlign="Right" />
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

Ventas/RepComisionesServec.aspx.vb

@@ -0,0 +1,63 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports System.Data
+
+Partial Class Ventas_RepComisionesServec
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            DdlSubProyecto.DataBind()
+
+            InicializaValores()
+        End If
+    End Sub
+
+#Region "  INICIALIZA VALORES  "
+
+    Private Sub InicializaValores()
+        txtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString
+        txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
+
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataBind()
+
+    End Sub
+
+#End Region
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+        UPDatos.Update()
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
+        Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
+        Dim ObjVentas As New ClsVentas()
+
+        If ObjVentas.GetRepComisionesServec(DdlVendedor.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjVentas.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+        ObjVentas.Dispose()
+        GvDatos.DataBind()
+    End Sub
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Select Case e.Row.DBCampo("TipoFila").ToString.ToEntero()
+                Case 1
+                    e.Row.CssClass = "Totales"
+                Case Else
+                    e.Row.CssClass = "Texto"
+            End Select
+
+            e.Row.FCHyperLink("HLVendedor").NavigateUrl = String.Format("/Ventas/RepComisionesServecDetalle.aspx?CveVendedor={0}&CveSubProyecto={1}&FechaI={2:dd/MM/yyy}&FechaF={3:dd/MM/yyy}", e.Row.DBCampo("CveVendedor"), DdlSubProyecto.SelectedValue, If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha), If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha))
+        End If
+    End Sub
+End Class

Ventas/RepComisionesServecDetalle.aspx

@@ -0,0 +1,110 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComisionesServecDetalle.aspx.vb" Inherits="Ventas_RepComisionesServecDetalle" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Reporte de comisiones - Detalle
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                    </div>
+                    <div class="titlefiltros  caption">
+                        <div class="row">
+                            <label style="max-width: 80px;" class="col-md-1 truncate">Vendedor:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" Width="100%">
+                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <label style="max-width: 70px;" class="col-md-1 truncate">Sucursal:</label>
+                            <div class="col-md-2" style="max-width: 120px;">
+                                <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="select2me">
+                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <label style="max-width: 90px;" class="col-md-1 truncate">Fecha Inicio:</label>
+                            <div class="col-md-2" style="max-width: 140px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                    <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="85px" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <label style="max-width: 80px;" class="col-md-1 truncate">Fecha Fin:</label>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                    <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="85px" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                    </div>
+
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <div class="row">
+        <div class="col-md-6">
+            <h4>Importes expresados en moneda nacional</h4>
+        </div>
+        <div class="col-md-6" align="right">
+            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+        </div>
+    </div>
+    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron comisiones con los filtros especificados" ToolTip="Listado de Comisiones" CssClass="table table-striped table-hover Widthall" GridLines="None">
+                <Columns>
+                    <asp:TemplateField HeaderText="Factura" ItemStyle-Width="16%" ItemStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HLGrupo" Target="_blank" Text='<%# Eval("Grupo") %>' runat="server" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-Width="8%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
+                    <asp:BoundField HeaderText="F. Venc" DataField="FechaVencimiento" ItemStyle-Width="8%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
+                    <asp:BoundField HeaderText="F. Pago" DataField="FechaPago" ItemStyle-Width="8%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
+                    <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" ItemStyle-Width="10%" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Total" DataField="Total" ItemStyle-Width="10%" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Utilidad" DataField="Utilidad" ItemStyle-Width="10%" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="% Utilidad" DataField="PorcentajeUtilidad" ItemStyle-Width="10%" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Comisión" DataField="Comision" DataFormatString="{0:###,###,##0.00}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="% Comisión" DataField="PorcentajeComision" ItemStyle-Width="10%" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

Ventas/RepComisionesServecDetalle.aspx.vb

@@ -0,0 +1,85 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports System.Data
+
+Partial Class Ventas_RepComisionesServecDetalle
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            DdlSubProyecto.DataBind()
+
+            InicializaValores()
+            CargaParametrosDetalle()
+        End If
+    End Sub
+
+#Region "  INICIALIZA VALORES  "
+
+    Private Sub InicializaValores()
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataBind()
+    End Sub
+
+    Private Sub CargaParametrosDetalle()
+        Dim CveVendedor, CveSubProyecto, FechaI, FechaF As String
+
+        CveVendedor = If(Request("CveVendedor") IsNot Nothing AndAlso Request("CveVendedor").ToEntero() > 0, Request("CveVendedor").ToEntero(), -1).ToString
+        CveSubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1).ToString
+
+        FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString
+        FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString
+
+        DdlVendedor.SelectedValueExist(CveVendedor)
+        DdlSubProyecto.SelectedValueExist(CveSubProyecto)
+
+        If FechaI <> "-1" Then
+            txtFechaI.Text = FechaI
+        End If
+        If FechaF <> "-1" Then
+            txtFechaF.Text = FechaF
+        End If
+        CargaDatos()
+    End Sub
+
+#End Region
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+        UPDatos.Update()
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
+        Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
+        Dim ObjVentas As New ClsVentas()
+
+        If ObjVentas.GetRepComisionesServecDetalle(DdlVendedor.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjVentas.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+        ObjVentas.Dispose()
+        GvDatos.DataBind()
+    End Sub
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Select Case e.Row.DBCampo("TipoFila").ToString.ToEntero()
+                Case 1
+                    e.Row.CssClass = "Totales"
+                Case 2
+                    e.Row.CssClass = "SubTotales"
+                Case 3
+                    e.Row.CssClass = "SubTotales2"
+                Case 4
+                    e.Row.FCHyperLink("HLGrupo").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta"))
+            End Select
+
+        End If
+    End Sub
+
+End Class

Ventas/Ventas.aspx.vb

@@ -2231,7 +2231,7 @@ Partial Class Ventas
 
             CargaClasificaciones()
             CargaPS(-1, DdlPS)
-            CargaPSRemision(-1, DdlPSRemision)
+            'CargaPSRemision(-1, DdlPSRemision)
             CargaPSPyME(-1, DdlPSPyME)
 
             CreaDTVentas()
@@ -5172,7 +5172,8 @@ Partial Class Ventas
                         AgregarProductoServicio(dr("Cantidad").ToString().ToDecimal, dr("CveUM").ToString().ToEntero(), dr("UM").ToString(), dr("CveClasificacion").ToString().ToEntero(), dr("Clasificacion").ToString(),
                                         dr("CvePS").ToString().ToEntero(), dr("PS").ToString(), dr("Obs").ToString(), dr("PU").ToString().ToDecimal, dr("Descuento").ToString().ToDecimal,
                                         dr("CveProyecto").ToString().ToEntero(), dr("Proyecto").ToString(), dr("CveSubProyecto").ToString().ToEntero(), dr("SubProyecto").ToString(),
-                                        CveContratoDetalle:=dr("CveContratoDetalle").ToString().ToEntero(), CveVentaDetalleCotizacion:=dr("CveVentaDetalleCotizacion").ToString().ToEntero(), RegeneraIEPS:=False, SeActualiza:=True)
+                                        CveContratoDetalle:=dr("CveContratoDetalle").ToString().ToEntero(), CveVentaDetalleCotizacion:=dr("CveVentaDetalleCotizacion").ToString().ToEntero(),
+                                        CveVentaDetalle:=dr("CveVentaDetalle").ToString().ToEntero(), RegeneraIEPS:=False, SeActualiza:=True)
 
 
                     Next
@@ -6135,25 +6136,10 @@ Partial Class Ventas
     End Sub
     Private Sub CargaRestriccionesCreditoCliente(Optional Alertas As Boolean = False, Optional CveVenta As Integer = -1)
 
-        'RMF. validacion temporal
-        'verifica si tiene autorizaciones de Nota de crédito autorizadas
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then ' si es empresa de acumuladores
-            Dim ObjVentas As New ClsVentas
-
-            If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, CveEstatus:=1) Then
-                Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL AND CveTipoDocumento='Egs'", Orderby:="TipoAutorizacion")
-
-                If RowAutorizacion IsNot Nothing Then
-                    DdlTipoComprobante.SelectedValueExistInsert("Egs", "Egresos")
-                End If
-
-            End If
-
-            ObjVentas.Dispose()
-        End If
+        Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595)
 
         'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO
-        If UsuarioActual.Empresa.Funcionalidad(570) = "1" AndAlso Me.PermiteCredito = False AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1 Then
+        If UsuarioActual.Empresa.Funcionalidad(570) = "1" AndAlso Me.PermiteCredito = False AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta <= 0 Then
             RBLPago.SelectedValue = "2"
             RBLPago.Items(0).Enabled = False
             RBLPago_SelectedIndexChanged(Nothing, Nothing)
@@ -6174,209 +6160,153 @@ Partial Class Ventas
             End If
             UPCondicionesPago.Update()
             'CARGAR CREDITO DISPONIBLE AL GENERAR UNA FACTURA
-        ElseIf UsuarioActual.Empresa.Funcionalidad(596) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta < 1 Then
-            RBLPago.SelectedValue = "1"
-            RBLPago_SelectedIndexChanged(Nothing, Nothing)
-            UPCondicionesPago.Update()
-            Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero())
+        End If
 
-            If CreditoDispo > 0 Then
-                TrCreditoDisponible.Visible = True
-                LblCreditoDisponible.Text = CreditoDispo.FormatoNumero
-                If PorcentajeCredito > 80 Then TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%"
-                If UsuarioActual.Empresa.Funcionalidad(597) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0 AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito Then
+            If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
+                RBLPago.SelectedValue = "1"
+                RBLPago_SelectedIndexChanged(Nothing, Nothing)
+                UPCondicionesPago.Update()
 
+                Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero())
 
-                    Dim Vta As New ClsVentas
-                    Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
-                    Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
-                    Vta.Dispose()
-                    If Opcion > 0 Then
-                        'si la cotización no debe de existir este canddado
-                        If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                        'RBLPago.SelectedValue = "2"
-                        'RBLPago.Items(0).Enabled = False
-                        RBLPago_SelectedIndexChanged(Nothing, Nothing)
-                        UPCondicionesPago.Update()
-                        DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
-                        DdlTipoComprobante.SelectedValue = "PA"
-                        TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString
-                        'si  llegó por la opción de cotización no debe de restringuir
-                        If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
-                        'quito remisión y factura
-                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
-                        If Not UsuarioActual.TienePermisoProceso(325) Then
-                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
-                        End If
-                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
-                        If Opcion = 1 Then
-                            BtnEmitirImprimir.Visible = False
-                            BtnsFacturar.Visible = False
-                            LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
-                            BtnGenerarRemision.Visible = False
-                            LnkPedido2SinFacturar.Visible = False
-                            LnkCotizaciones.Visible = False
-                            LnkOCs.Visible = False
-                        End If
-                    Else
-                        ' el cliente tiene crédito disponible, no tiene bloqueo
-                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("PA"))
+                If CreditoDispo > 0 Then
+                    TrCreditoDisponible.Visible = True
+                    LblCreditoDisponible.Text = CreditoDispo.FormatoNumero
+                    If PorcentajeCredito > 80 Then TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%"
 
-                        If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
-                        If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
-                        DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
-
-                        TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
-                    End If
-
-                    'Else
-                    '    'que no de crédito, solo contado
-                    '    RBLPago.SelectedValue = "2"
-                    '    RBLPago.Items(0).Enabled = False
-                    'End If
-
-                End If
-            Else
-                'GENERAR AUTORIZACION SI TIENE EXCEDIO EL LIMITE DE CREDITO
-                If UsuarioActual.Empresa.Funcionalidad(595) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") Then
-
-                    'VERIFICAR CANDADOS DE VENTA, REMISIONES SIN FACTURAR, FACTURAS QUE NO TENGAN VENCIDAS
-                    If UsuarioActual.Empresa.Funcionalidad(597) = "1" Then
+                    If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then
                         Dim Vta As New ClsVentas
                         Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
                         Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
                         Vta.Dispose()
                         If Opcion > 0 Then
-                            If Opcion = 1 Then
-                                BtnEmitirImprimir.Visible = False
-                            End If
+                            'si la cotización no debe de existir este canddado
                             If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                        Else
-                            If Alertas AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
-                        End If
-                    End If
-
-                    'RBLPago.SelectedValue = "2"
-                    'RBLPago.Items(0).Enabled = False
-                    RBLPago_SelectedIndexChanged(Nothing, Nothing)
-                    UPCondicionesPago.Update()
-                    DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
-                    DdlTipoComprobante.SelectedValue = "PA"
-                    TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString
-                    'si  llegó por la opción de cotización no debe de restringuir
-                    If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
-                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
-                    If Not UsuarioActual.TienePermisoProceso(325) Then
-                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
-                    End If
-                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
-                    BtnsFacturar.Visible = False
-                    LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
-                    BtnGenerarRemision.Visible = False
-                    LnkPedido2SinFacturar.Visible = False
-                    LnkCotizaciones.Visible = False
-                    LnkOCs.Visible = False
-
-                Else
-                    'RMF. codigo temporal para pruebas
-                    If Alertas AndAlso UsuarioActual.CveEmpresa = 140 AndAlso UsuarioActual.CveUsuario.Contiene(100, 1937, 2275) AndAlso Now.Hour > 5 AndAlso Now.Hour < 9 Then
-                        Dim Vta As New ClsVentas
-                        Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
-                        Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
-                        Vta.Dispose()
-                        If Opcion > 0 Then
-                            LnkSolicitarCredito.Visible = True
-                            Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                        End If
-                    Else
-
-                        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
-                            RBLPago.SelectedValue = "2"
-                            RBLPago.Items(0).Enabled = False
+                            'RBLPago.SelectedValue = "2"
+                            'RBLPago.Items(0).Enabled = False
                             RBLPago_SelectedIndexChanged(Nothing, Nothing)
                             UPCondicionesPago.Update()
-                        Else
-                            'este codigo no es temporal
-                            If Alertas AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
-                            If UsuarioActual.CveEmpresa = 140 Then
-                                LnkSolicitarCredito.Visible = True
-                                DdlTipoAutorizacion.SelectedValueExist("1")
+                            DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
+                            DdlTipoComprobante.SelectedValue = "PA"
+                            TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString
+                            'si  llegó por la opción de cotización no debe de restringuir
+                            If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
+                            'quito remisión y factura
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
+                            If Not UsuarioActual.TienePermisoProceso(325) Then
+                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
                             End If
-                        End If
-
-
-                    End If
-                End If
-            End If
-            UPPCreditoDisponible.Update()
-            'Si tiene credito disponible, Verificar limites de 	(verificar candados de venta, remisiones sin facturar, facturas que no tengan vencidas)
-        ElseIf UsuarioActual.Empresa.Funcionalidad(597) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso CveVenta > 0 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Pd2", "Cot") Or (DdlTipoComprobante.SelectedValue = "Rem" And ModalidadEdicion And ViewState("CveClienteAnterior").ToString().ToEntero() > 0 And LblRFC.Text.Trim <> "XAXX010101000")) Then
-            Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero())
-            If CreditoDispo > 0 Then
-                Dim Vta As New ClsVentas
-                Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
-                Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
-                Vta.Dispose()
-                If Opcion > 0 Then
-                    If ModalidadEdicion AndAlso ViewState("CveCliente").ToString().ToEntero() <> ViewState("CveClienteAnterior").ToString().ToEntero() And DdlTipoComprobante.SelectedValue = "Rem" And ViewState("CveClienteAnterior").ToString().ToEntero() > 0 And LblRFC.Text.Trim <> "XAXX010101000" Then
-                        ViewState("CveCliente") = ViewState("CveClienteAnterior").ToString().ToEntero()
-
-                        CargaCliente(ViewState("CveCliente").ToString().ToEntero())
-                        If Opcion > 0 Then
-                            If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                        Else
-                            If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
-                        End If
-                        BtnEmitirImprimir.Visible = False
-                        BtnVistaPrevia.Visible = False
-                        UpFacturar.Update()
-                        Exit Sub
-                    ElseIf DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso EsCreaApartirDe Then
-                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
-                        If Not UsuarioActual.TienePermisoProceso(325) Then
-                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
-                        End If
-                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
-                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2"))
-                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs"))
-                        BtnGenerarRemision.Visible = False
-                        BtnGenerarOS.Visible = False
-                        BtnEmitirImprimir.Visible = True
-                        BtnsFacturar.Visible = False
-                        LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
-                    Else
-                        If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
-                            BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False)
-                        End If
-                        BtnGenerarRemision.Visible = False
-                        BtnGenerarOS.Visible = False
-                        BtnEmitirImprimir.Visible = False
-                        BtnsFacturar.Visible = False
-                        LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
-                        If ViewState("CveCliente").ToString().ToEntero() <> ViewState("CveClienteAnterior").ToString().ToEntero() Then
-                            If Opcion > 0 Then
-                                If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                            Else
-                                If Alertas Then Alert("El cliente tiene límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
+                            If Opcion = 1 Then
+                                BtnEmitirImprimir.Visible = False
+                                BtnsFacturar.Visible = False
+                                LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
+                                BtnGenerarRemision.Visible = False
+                                LnkPedido2SinFacturar.Visible = False
+                                LnkCotizaciones.Visible = False
+                                LnkOCs.Visible = False
                             End If
+                        Else
+                            ' el cliente tiene crédito disponible, no tiene bloqueo
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("PA"))
+
+                            If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+                            If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
+                            DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
+
+                            TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
                         End If
+
+
                     End If
                 Else
-                    BtnGeneraAutorizacion.Visible = False
-                    If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
-                        If UsuarioActual.TienePermisoProceso(199) Then
-                            BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False)
-                        Else
-                            BtnGenerarRemision.Visible = False
-                        End If
-                    End If
-                End If
-            Else
-                BtnGenerarRemision.Visible = False
-                If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
-                    BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False)
+                    'GENERAR AUTORIZACION SI TIENE EXCEDIO EL LIMITE DE CREDITO
+                    Select Case ValorAutorizacion
+                        Case "1" 'CREAR DOCUMENTO DE AUTORIZACION PA
+                            If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") Then
+
+                                'VERIFICAR CANDADOS DE VENTA, REMISIONES SIN FACTURAR, FACTURAS QUE NO TENGAN VENCIDAS
+                                Dim Vta As New ClsVentas
+                                Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
+                                Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
+                                Vta.Dispose()
+                                If Opcion > 0 Then
+                                    If Opcion = 1 Then
+                                        BtnEmitirImprimir.Visible = False
+                                    End If
+                                    If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
+                                Else
+                                    If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
+                                End If
+
+                                'RBLPago.SelectedValue = "2"
+                                'RBLPago.Items(0).Enabled = False
+                                RBLPago_SelectedIndexChanged(Nothing, Nothing)
+                                UPCondicionesPago.Update()
+                                DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
+                                DdlTipoComprobante.SelectedValue = "PA"
+                                TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString
+                                'si  llegó por la opción de cotización no debe de restringuir
+                                If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
+                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
+                                If Not UsuarioActual.TienePermisoProceso(325) Then
+                                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                                End If
+                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
+                                BtnsFacturar.Visible = False
+                                LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
+                                BtnGenerarRemision.Visible = False
+                                LnkPedido2SinFacturar.Visible = False
+                                LnkCotizaciones.Visible = False
+                                LnkOCs.Visible = False
+                            End If
+                        Case "2" 'Autorizacion desde una solicitud del catalogo de autorizaciones
+                            'RMF. validacion temporal
+                            'verifica si tiene autorizaciones de Nota de crédito autorizadas
+                            Dim ObjVentas As New ClsVentas
+                            If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, CveEstatus:=1) Then
+                                Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL AND CveTipoDocumento='Egs'", Orderby:="TipoAutorizacion")
+                                If RowAutorizacion IsNot Nothing Then
+                                    DdlTipoComprobante.SelectedValueExistInsert("Egs", "Egresos")
+                                End If
+                            End If
+                            ObjVentas.Dispose()
+                        Case Else 'SI NO TIENE NINGUN TIPO DE AUTORIZACION CONFIGURADO
+                            'RMF. codigo temporal para pruebas
+                            If Alertas AndAlso UsuarioActual.CveEmpresa = 140 AndAlso UsuarioActual.CveUsuario.Contiene(100, 1937, 2275) AndAlso Now.Hour > 5 AndAlso Now.Hour < 9 Then
+                                Dim Vta As New ClsVentas
+                                Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
+                                Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
+                                Vta.Dispose()
+                                If Opcion > 0 Then
+                                    LnkSolicitarCredito.Visible = True
+                                    Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
+                                End If
+                            Else
+
+                                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+                                    RBLPago.SelectedValue = "2"
+                                    RBLPago.Items(0).Enabled = False
+                                    RBLPago_SelectedIndexChanged(Nothing, Nothing)
+                                    UPCondicionesPago.Update()
+                                Else
+                                    'este codigo no es temporal
+                                    If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
+                                    If UsuarioActual.CveEmpresa = 140 Then
+                                        LnkSolicitarCredito.Visible = True
+                                        DdlTipoAutorizacion.SelectedValueExist("1")
+                                    End If
+                                End If
+
+
+                            End If
+                    End Select
+
                 End If
             End If
+
+            UPPCreditoDisponible.Update()
         End If
 
         'Puede hacer pedido
@@ -6543,49 +6473,45 @@ Partial Class Ventas
     End Sub
     Private Function CargaCreditoDisponible(tCveCliente As Integer, tCveSucursalCliente As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing) As Decimal
         Dim Retorno As Decimal = 0
-        If UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then
+        Dim ObjVentasAplciar As ClsVentas = Nothing
+        If ObjVentas IsNot Nothing Then
+            ObjVentasAplciar = ObjVentas
+        Else
+            ObjVentasAplciar = New ClsVentas
+        End If
 
-            Dim ObjVentasAplciar As ClsVentas = Nothing
-            If ObjVentas IsNot Nothing Then
-                ObjVentasAplciar = ObjVentas
-            Else
-                ObjVentasAplciar = New ClsVentas
-            End If
+        If ObjVentasAplciar.ObtenerCreditoRestante(tCveCliente, tCveSucursalCliente) Then
+            If ObjVentasAplciar.DtResultados.Rows.Count > 0 Then
 
-            If ObjVentasAplciar.ObtenerCreditoRestante(tCveCliente, tCveSucursalCliente) Then
-                If ObjVentasAplciar.DtResultados.Rows.Count > 0 Then
+                If tCveSucursalCliente > 0 Then
 
-                    If tCveSucursalCliente > 0 Then
+                    Dim LimiteRestanteSucursal As Decimal = ObjVentasAplciar.DtResultados(0)("LimiteRestanteSucursal").ToString().ToDecimal
+                    Dim PorcentajeSaldoSucursal As Decimal = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoSucursal").ToString().ToDecimal
 
-                        Dim LimiteRestanteSucursal As Decimal = ObjVentasAplciar.DtResultados(0)("LimiteRestanteSucursal").ToString().ToDecimal
-                        Dim PorcentajeSaldoSucursal As Decimal = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoSucursal").ToString().ToDecimal
+                    Dim LimiteRestanteCliente As Decimal = ObjVentasAplciar.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal
+                    Dim PorcentajeSaldoCliente As Decimal = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoCliente").ToString().ToDecimal
 
-                        Dim LimiteRestanteCliente As Decimal = ObjVentasAplciar.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal
-                        Dim PorcentajeSaldoCliente As Decimal = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoCliente").ToString().ToDecimal
-
-                        'SI EL LIMITE DE LA SUCURSAL ES MAYOR AL DEL CLIENTE DEBE LIMITAR AL DEL CLIENTE
-                        If LimiteRestanteSucursal > LimiteRestanteCliente Then
-                            Retorno = LimiteRestanteCliente
-                            PorcentajeCredito = PorcentajeSaldoCliente
-                        ElseIf LimiteRestanteSucursal < LimiteRestanteCliente Then
-                            Retorno = LimiteRestanteSucursal
-                            PorcentajeCredito = PorcentajeSaldoSucursal
-                        ElseIf LimiteRestanteSucursal = LimiteRestanteCliente Then
-                            Retorno = LimiteRestanteSucursal
-                            PorcentajeCredito = PorcentajeSaldoSucursal
-                        End If
-
-                    Else
-                        Retorno = ObjVentasAplciar.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal
-                        PorcentajeCredito = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoCliente").ToString().ToDecimal
+                    'SI EL LIMITE DE LA SUCURSAL ES MAYOR AL DEL CLIENTE DEBE LIMITAR AL DEL CLIENTE
+                    If LimiteRestanteSucursal > LimiteRestanteCliente Then
+                        Retorno = LimiteRestanteCliente
+                        PorcentajeCredito = PorcentajeSaldoCliente
+                    ElseIf LimiteRestanteSucursal < LimiteRestanteCliente Then
+                        Retorno = LimiteRestanteSucursal
+                        PorcentajeCredito = PorcentajeSaldoSucursal
+                    ElseIf LimiteRestanteSucursal = LimiteRestanteCliente Then
+                        Retorno = LimiteRestanteSucursal
+                        PorcentajeCredito = PorcentajeSaldoSucursal
                     End If
+
+                Else
+                    Retorno = ObjVentasAplciar.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal
+                    PorcentajeCredito = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoCliente").ToString().ToDecimal
                 End If
             End If
+        End If
 
-            If ObjVentas Is Nothing Then
-                ObjVentasAplciar.Dispose()
-            End If
-
+        If ObjVentas Is Nothing Then
+            ObjVentasAplciar.Dispose()
         End If
         Return Retorno
     End Function
@@ -7622,38 +7548,38 @@ Partial Class Ventas
 
         'No exceder el limite de credito, Si no tiene contrato limita el credito, si tiene no hace nada. Si no tiene remisiones tampoco hace nada.
         If (Not CveContrato > 0 Or CveContratoTipo.Contiene(28)) AndAlso (Not NuevaFactura = 1) AndAlso RBLPago.SelectedValue = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") AndAlso RemisionesLista.Count <= 0 AndAlso TxtTotal.Text.ToDecimal > 0 AndAlso Not CvePedidoA > 0 Then
-            If UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then
-                Dim ObjVentas As New ClsVentas
+            'If UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then
+            Dim ObjVentas As New ClsVentas
 
-                If ObjVentas.ObtenerCreditoRestante(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) Then
-                    If ObjVentas.DtResultados.Rows.Count > 0 Then
+            If ObjVentas.ObtenerCreditoRestante(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) Then
+                If ObjVentas.DtResultados.Rows.Count > 0 Then
 
-                        If DdlSucursalCliente.SelectedValue.ToEntero() > 0 Then
-                            If ObjVentas.DtResultados(0)("LimiteRestanteSucursal").ToString().ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then
-                                ObjVentas.Dispose()
-                                Alert("Se está excediendo el límite de credito permitido de la Sucursal del Cliente.", TipoMensaje.MsgInformacion)
-                                Exit Sub
-                            End If
-                        Else
-                            If ObjVentas.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then
-                                ObjVentas.Dispose()
-                                Alert("Se está excediendo el límite de credito permitido del Cliente.", TipoMensaje.MsgInformacion)
-                                Exit Sub
-                            End If
+                    If DdlSucursalCliente.SelectedValue.ToEntero() > 0 Then
+                        If ObjVentas.DtResultados(0)("LimiteRestanteSucursal").ToString().ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then
+                            ObjVentas.Dispose()
+                            Alert("Se está excediendo el límite de credito permitido de la Sucursal del Cliente.", TipoMensaje.MsgInformacion)
+                            Exit Sub
                         End If
-
                     Else
-                        ObjVentas.Dispose()
-                        Alert("Ocurrio un error al obtener el limite de credito del cliente", TipoMensaje.MsgError)
-                        Exit Sub
+                        If ObjVentas.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then
+                            ObjVentas.Dispose()
+                            Alert("Se está excediendo el límite de credito permitido del Cliente.", TipoMensaje.MsgInformacion)
+                            Exit Sub
+                        End If
                     End If
+
                 Else
                     ObjVentas.Dispose()
                     Alert("Ocurrio un error al obtener el limite de credito del cliente", TipoMensaje.MsgError)
                     Exit Sub
                 End If
+            Else
                 ObjVentas.Dispose()
+                Alert("Ocurrio un error al obtener el limite de credito del cliente", TipoMensaje.MsgError)
+                Exit Sub
             End If
+            ObjVentas.Dispose()
+            'End If
         End If
 
 
@@ -8226,15 +8152,17 @@ Partial Class Ventas
                         Dim DtMovDetalles As DataTable = Nothing
                         If ObjInventario.GetSaldoVentaDetalle(CveDevolucion, UsuarioActual.CveEmpresa) Then
                             DtMovDetalles = ObjInventario.DtResultados.Copy()
+                        Else
+                            ErrorList.Add("No se pudo verificar los movimientos de almacen de la factura")
                         End If
 
                         If DtMovDetalles IsNot Nothing Then
                             For Each Row As DataRow In DtMovDetalles.Rows
-                                Dim SaldoAlmacen As Decimal = Row("SaldoAlmacen").ToString().ToEntero()
+                                Dim SaldoAlmacen As Decimal = Row("SaldoAlmacen").ToString().ToDecimal()
                                 If SaldoAlmacen < 0 Then
-                                    ObjInventario.UpdateEstatusAlmacen(Row("CveVentaDetalleNueva").ToString().ToEntero(), 1)
-                                ElseIf SaldoAlmacen = 0 Then
-                                    ObjInventario.UpdateEstatusAlmacen(Row("CveVentaDetalleNueva").ToString().ToEntero(), 0)
+                                    If Not ObjInventario.UpdateEstatusAlmacen(Row("CveVentaDetalleNueva").ToString().ToEntero(), 1) Then
+                                        ErrorList.Add("No se pudo actualizar el movimiento de almacen de la factura")
+                                    End If
                                 End If
                             Next
                         End If
@@ -14145,6 +14073,9 @@ Partial Class Ventas
                         saldo = e.Row.DataKey("SaldoSubTotal").ToString().ToDecimal
                     End If
 
+                    e.Row.FCLiteral("LtlAnticipos").Text = saldo.FormatoNumero
+                ElseIf CveVenta > 0 AndAlso e.Row.DBCampo("Tipo").ToString() = "Ant" Then
+                    saldo = e.Row.DataKey("SaldoConImpuestos").ToString().ToDecimal
                     e.Row.FCLiteral("LtlAnticipos").Text = saldo.FormatoNumero
                 End If
 
@@ -20544,9 +20475,9 @@ Partial Class Ventas
                     DdlMetodoPago33.Enabled = False
 
                     If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
+                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
                         DdlFormaPago33.Enabled = False
                         DdlFormaPago33.SelectedValueExist("20")
-                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
                     End If
 
                 End If
@@ -20930,7 +20861,7 @@ Partial Class Ventas
         Dim AmortizacionNC As Decimal = 0
 
         'SI ES AMORTIZACION POR NOTA DE CREDITO DEBE SUMAR LA TOTALIDAD PARA COMPARAR EL PAGO
-        If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
             For Each gvr As GridViewRow In GVAnticipos.Rows
                 If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(3) Then
                     AmortizacionNC += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal
@@ -25150,53 +25081,58 @@ Partial Class Ventas
 
         Me.TmpDTRNCBonificacionesSeleccionadas = Nothing
 
-        Me.TmpDTRNCBonificacionesCliente = DtNC.FiltraParametros("TipoRNC = 2")
-        Me.TmpDTRNCBonificacionesCliente.Columns.Add("ImporteBonificacion", GetType(Decimal))
-        Me.TmpDTRNCBonificacionesCliente.Columns.Add("IVABonificacion", GetType(Decimal))
-        Me.TmpDTRNCBonificacionesCliente.Columns.Add("CveVentaRNCCargo", GetType(Integer))
+        If DtNC IsNot Nothing Then
+            Me.TmpDTRNCBonificacionesCliente = DtNC.FiltraParametros("TipoRNC = 2")
+            Me.TmpDTRNCBonificacionesCliente.Columns.Add("ImporteBonificacion", GetType(Decimal))
+            Me.TmpDTRNCBonificacionesCliente.Columns.Add("IVABonificacion", GetType(Decimal))
+            Me.TmpDTRNCBonificacionesCliente.Columns.Add("CveVentaRNCCargo", GetType(Integer))
 
-        If CargarBonificaciones Then
-            'Me.TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Copy()
-            CargaBonificaciones(-1, True)
-        End If
+            If CargarBonificaciones Then
+                'Me.TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Copy()
+                CargaBonificaciones(-1, True)
+            End If
 
-        If CargarSoloGarantias Then
-            GvRemisionesNC.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = True")
-        Else
-            GvRemisionesNC.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = False")
-        End If
-        GvRemisionesNC.DataBind()
+            If CargarSoloGarantias Then
+                GvRemisionesNC.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = True")
+            Else
+                GvRemisionesNC.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = False")
+            End If
+            GvRemisionesNC.DataBind()
 
-        'GvRemisionesNCBon.DataSource = Me.TmpDTRNCBonificacionesSeleccionadas
-        'GvRemisionesNCBon.DataBind()
+            'GvRemisionesNCBon.DataSource = Me.TmpDTRNCBonificacionesSeleccionadas
+            'GvRemisionesNCBon.DataBind()
 
-        If CveVentaUsado > 0 Then
-            DivSMU.Visible = True
-            Dim FacUsado As New Modelos.Factura(UsuarioActual, CveVentaUsado, UsuarioActual.CveEmpresa)
-            Dim SaldoMaximoUsados As Decimal = FacUsado.DtDetalle.SUM("Total", "EsCargo = True").ToDecimal() + FacUsado.DtDetalle.SUM("ImporteIVA", "EsCargo = True").ToDecimal()
-            HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString()
-            LtlSMU.Text = String.Format("{0:N2}", SaldoMaximoUsados)
-        Else
-            Dim ObjAcum As New ClsAcumuladores
-            If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then
-                Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2)
+            If CveVentaUsado > 0 Then
                 DivSMU.Visible = True
+                Dim FacUsado As New Modelos.Factura(UsuarioActual, CveVentaUsado, UsuarioActual.CveEmpresa)
+                Dim SaldoMaximoUsados As Decimal = FacUsado.DtDetalle.SUM("Total", "EsCargo = True").ToDecimal() + FacUsado.DtDetalle.SUM("ImporteIVA", "EsCargo = True").ToDecimal()
+                HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString()
+                LtlSMU.Text = String.Format("{0:N2}", SaldoMaximoUsados)
+            Else
+                Dim ObjAcum As New ClsAcumuladores
+                If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then
+                    Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2)
+                    DivSMU.Visible = True
+
+                    Dim SaldoMaximo As Decimal = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
+                    If SaldoMaximo > 0 Then
+                        HdnSaldoMaximoUsados.Value = RowUsadosNC("ValorConImpuestos").ToString()
+                        LtlSMU.Text = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal().FormatoNumero(2)
+                    Else
+                        HdnSaldoMaximoUsados.Value = "0"
+                        LtlSMU.Text = "0"
+                    End If
 
-                Dim SaldoMaximo As Decimal = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
-                If SaldoMaximo > 0 Then
-                    HdnSaldoMaximoUsados.Value = RowUsadosNC("ValorConImpuestos").ToString()
-                    LtlSMU.Text = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal().FormatoNumero(2)
                 Else
+                    'DivSMU.Visible = False
                     HdnSaldoMaximoUsados.Value = "0"
                     LtlSMU.Text = "0"
                 End If
-
-            Else
-                'DivSMU.Visible = False
-                HdnSaldoMaximoUsados.Value = "0"
-                LtlSMU.Text = "0"
+                ObjAcum.Dispose()
             End If
-            ObjAcum.Dispose()
+        Else
+            HdnSaldoMaximoUsados.Value = "0"
+            LtlSMU.Text = "0"
         End If
 
         UpModalRemisionesNC.Update()
@@ -25213,26 +25149,31 @@ Partial Class Ventas
 
         Me.TmpDTRNCBonificacionesSeleccionadas = Nothing
 
-        Me.TmpDTRNCBonificacionesCliente = DtNC.FiltraParametros("TipoRNC = 2")
-        Me.TmpDTRNCBonificacionesCliente.Columns.Add("ImporteBonificacion", GetType(Decimal))
-        Me.TmpDTRNCBonificacionesCliente.Columns.Add("IVABonificacion", GetType(Decimal))
-        Me.TmpDTRNCBonificacionesCliente.Columns.Add("CveVentaRNCCargo", GetType(Integer))
+        If DtNC IsNot Nothing Then
+            Me.TmpDTRNCBonificacionesCliente = DtNC.FiltraParametros("TipoRNC = 2")
+            Me.TmpDTRNCBonificacionesCliente.Columns.Add("ImporteBonificacion", GetType(Decimal))
+            Me.TmpDTRNCBonificacionesCliente.Columns.Add("IVABonificacion", GetType(Decimal))
+            Me.TmpDTRNCBonificacionesCliente.Columns.Add("CveVentaRNCCargo", GetType(Integer))
 
-        If CargarBonificaciones Then
-            'Me.TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Copy()
-            CargaBonificacionesDesc("-1", True)
-        End If
+            If CargarBonificaciones Then
+                'Me.TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Copy()
+                CargaBonificacionesDesc("-1", True)
+            End If
 
-        If CargarSoloGarantias Then
-            GvDescNCCargos.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = True")
+            If CargarSoloGarantias Then
+                GvDescNCCargos.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = True")
+            Else
+                GvDescNCCargos.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = False")
+            End If
+            GvDescNCCargos.DataBind()
+
+            Dim SaldoMaximoUsados As Decimal = Me.TmpDT.SUM("Total", "EsCargo = True").ToDecimal() + Me.TmpDT.SUM("ImporteIVA", "EsCargo = True").ToDecimal()
+            HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString()
+            LblSaldoMaximoUsados.Text = String.Format("{0:N2}", SaldoMaximoUsados)
         Else
-            GvDescNCCargos.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = False")
+            HdnSaldoMaximoUsados.Value = "0"
+            LblSaldoMaximoUsados.Text = "0"
         End If
-        GvDescNCCargos.DataBind()
-
-        Dim SaldoMaximoUsados As Decimal = Me.TmpDT.SUM("Total", "EsCargo = True").ToDecimal() + Me.TmpDT.SUM("ImporteIVA", "EsCargo = True").ToDecimal()
-        HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString()
-        LblSaldoMaximoUsados.Text = String.Format("{0:N2}", SaldoMaximoUsados)
 
         UpDescNC.Update()
     End Sub
@@ -28423,7 +28364,7 @@ Partial Class Ventas
             ChkRemProductos.Visible = True
         Else
             'DivPSRemision.Visible = True
-            CargaPSRemision(-1, DdlPSRemision)
+            'CargaPSRemision(-1, DdlPSRemision)
             ChkRemProductos.Visible = False
             ChkRemProductos.Checked = False
         End If