AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-Cambios en columna ejercido

Browse Source
This commit is contained in:
rrene
2024-07-01 22:12:38 -07:00
parent 4f662737a8 1ec803786e
commit 7905623665
5 changed files with 197 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

205
Contabilidad/PopUpAuxiliar.aspx
View File

@@ -79,99 +79,109 @@
<tr> <tr>
<td> <td>
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpDatos"> <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpDatos">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal" EmptyDataText="No se encontraron Movimientos de Auxiliar" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None"> <asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal" EmptyDataText="No se encontraron Movimientos de Auxiliar" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <%--0--%>
<HeaderTemplate>Fecha</HeaderTemplate> <asp:TemplateField>
<ItemTemplate> <HeaderTemplate>Fecha</HeaderTemplate>
<asp:Literal ID="LtlFechaMovto" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal> <ItemTemplate>
</ItemTemplate> <asp:Literal ID="LtlFechaMovto" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
</asp:TemplateField> </ItemTemplate>
<asp:TemplateField> </asp:TemplateField>
<HeaderTemplate>Concepto</HeaderTemplate> <%--1--%>
<ItemTemplate> <asp:TemplateField>
<asp:Literal ID="LtlConcepto" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal> <HeaderTemplate>Concepto</HeaderTemplate>
</ItemTemplate> <ItemTemplate>
</asp:TemplateField> <asp:Literal ID="LtlConcepto" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal>
<asp:TemplateField> </ItemTemplate>
<HeaderTemplate>Cargo</HeaderTemplate> </asp:TemplateField>
<ItemTemplate> <%--2--%>
<asp:Literal ID="LtlCargo" runat="server" Text='<%# If(CDbl(Eval("Cargo")) = 0, "", Eval("Cargo", "{0:N2}")) %>'></asp:Literal> <asp:TemplateField>
</ItemTemplate> <HeaderTemplate>Cargo</HeaderTemplate>
</asp:TemplateField> <ItemTemplate>
<asp:TemplateField> <asp:Literal ID="LtlCargo" runat="server" Text='<%# If(CDbl(Eval("Cargo")) = 0, "", Eval("Cargo", "{0:N2}")) %>'></asp:Literal>
<HeaderTemplate>Abono</HeaderTemplate> </ItemTemplate>
<ItemTemplate> </asp:TemplateField>
<asp:Literal ID="LtlAbono" runat="server" Text='<%# If(CDbl(Eval("Abono")) = 0, "", Eval("Abono", "{0:N2}")) %>'></asp:Literal> <%--3--%>
</ItemTemplate> <asp:TemplateField>
</asp:TemplateField> <HeaderTemplate>Abono</HeaderTemplate>
<asp:TemplateField> <ItemTemplate>
<HeaderTemplate>Folio (Ref.)</HeaderTemplate> <asp:Literal ID="LtlAbono" runat="server" Text='<%# If(CDbl(Eval("Abono")) = 0, "", Eval("Abono", "{0:N2}")) %>'></asp:Literal>
<ItemTemplate> </ItemTemplate>
&nbsp;<asp:HyperLink ID="HplReferencia" runat="server" Text='<%# Eval("Referencia", "{0}") %>' Target="_blank"></asp:HyperLink> </asp:TemplateField>
</ItemTemplate> <%--4--%>
</asp:TemplateField> <asp:TemplateField>
<asp:TemplateField Visible="false"> <HeaderTemplate>Folio (Ref.)</HeaderTemplate>
<HeaderTemplate>Contabilizado</HeaderTemplate> <ItemTemplate>
<ItemTemplate> &nbsp;<asp:HyperLink ID="HplReferencia" runat="server" Text='<%# Eval("Referencia", "{0}") %>' Target="_blank"></asp:HyperLink>
<asp:Literal ID="LtlContabilizado" runat="server" Text='<%# Eval("Contabilizado") %>'></asp:Literal> </ItemTemplate>
</ItemTemplate> </asp:TemplateField>
</asp:TemplateField> <%--5--%>
<asp:TemplateField> <asp:TemplateField Visible="false">
<HeaderTemplate>Póliza</HeaderTemplate> <HeaderTemplate>Contabilizado</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlPoliza" runat="server"></asp:Literal> <asp:Literal ID="LtlContabilizado" runat="server" Text='<%# Eval("Contabilizado") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <%--6--%>
<HeaderTemplate>Fecha Conta.</HeaderTemplate> <asp:TemplateField>
<ItemTemplate> <HeaderTemplate>Póliza</HeaderTemplate>
<asp:Literal ID="LtlFechaConta" runat="server" Text='<%# Eval("FechaConta", "{0:d}") %>'></asp:Literal> <ItemTemplate>
</ItemTemplate> <asp:Literal ID="LtlPoliza" runat="server"></asp:Literal>
</asp:TemplateField> </ItemTemplate>
<asp:TemplateField ItemStyle-Width="8000px"> </asp:TemplateField>
<HeaderTemplate>Referencia</HeaderTemplate> <%--7--%>
<ItemTemplate> <asp:TemplateField Visible="false">
<asp:HyperLink ID="LtlConceptoInfo" runat="server" Text='<%# Eval("Concepto") %>' NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}") %>'></asp:HyperLink> <HeaderTemplate>Fecha Conta.</HeaderTemplate>
</ItemTemplate> <ItemTemplate>
</asp:TemplateField> <asp:Literal ID="LtlFechaConta" runat="server" Text='<%# Eval("FechaConta", "{0:d}") %>'></asp:Literal>
<asp:TemplateField> </ItemTemplate>
<HeaderTemplate>Usuario</HeaderTemplate> </asp:TemplateField>
<ItemTemplate> <%--8--%>
<asp:Label ToolTip='<%# Eval("Usuario") %>' runat="server"> <asp:TemplateField ItemStyle-Width="8000px">
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# If(Eval("Usuario").ToString.Length > 15, Eval("Usuario").ToString.Substring(0, 15), Eval("Usuario")) %>'></asp:Literal> <HeaderTemplate>Referencia</HeaderTemplate>
</asp:Label> <ItemTemplate>
</ItemTemplate> <asp:HyperLink ID="LtlConceptoInfo" runat="server" Text='<%# Eval("Concepto") %>' NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}") %>'></asp:HyperLink>
</asp:TemplateField> </ItemTemplate>
</asp:TemplateField>
<%--9--%>
<asp:TemplateField>
<HeaderTemplate>Usuario</HeaderTemplate>
<ItemTemplate>
<asp:Label ToolTip='<%# Eval("Usuario") %>' runat="server">
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# If(Eval("Usuario").ToString.Length > 15, Eval("Usuario").ToString.Substring(0, 15), Eval("Usuario")) %>'></asp:Literal>
</asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--10--%>
<asp:TemplateField HeaderText="Eliminar" Visible="false">
<ItemTemplate>
<asp:LinkButton ID="LnkDesAplicar" runat="server" ToolTip="DesAplicar" Visible='<%# Eval("CveConceptoContable").ToString() = "251" %>' AlternateText="Eliminar" CausesValidation="False" CommandName="DesAplicar" CssClass="btn btn-circle btn-sm blue" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
<asp:LinkButton ID="imgD" runat="server" Visible='<%# Eval("Eliminable").ToString() = "1" AndAlso Eval("CvePrePoliza").ToString.Length > 0 %>' AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
<%--11--%>
<asp:TemplateField HeaderText="Cancelar" Visible="false">
<ItemTemplate>
<asp:ImageButton ID="imgE" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Update" ImageUrl="/Imagenes/Btn_Delete.png" Visible='<%# Eval("Cancelable").ToString.ToEntero > 0 And Eval("CvePrePoliza").ToString.ToEntero > 0 And Eval("CveReferencia").ToString.ToEntero > 0 And (Eval("Cargo").ToString.ToDecimal > 0 OrElse Eval("Abono").ToString.ToDecimal > 0) %>' OnClientClick="javascript:return C();" />
</ItemTemplate>
</asp:TemplateField>
<%--12--%>
<asp:TemplateField HeaderText="Cancelar" Visible="false">
<ItemTemplate>
<asp:LinkButton ID="imgCancelar" runat="server" CausesValidation="False" OnClick="imgCancelar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar" Visible="false"> </Columns>
<ItemTemplate> <RowStyle CssClass="Texto" />
<asp:LinkButton ID="LnkDesAplicar" runat="server" ToolTip="DesAplicar" Visible='<%# Eval("CveConceptoContable").ToString() = "251" %>' AlternateText="Eliminar" CausesValidation="False" CommandName="DesAplicar" CssClass="btn btn-circle btn-sm blue" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" /> <AlternatingRowStyle CssClass="TextoAlterno" />
<asp:LinkButton ID="imgD" runat="server" Visible='<%# Eval("Eliminable").ToString() = "1" AndAlso Eval("CvePrePoliza").ToString.Length > 0 %>' AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" /> <HeaderStyle CssClass="Titulos" />
</ItemTemplate> </asp:GridView>
</asp:TemplateField> </ContentTemplate>
</asp:UpdatePanel>
<asp:TemplateField HeaderText="Cancelar" Visible="false">
<ItemTemplate>
<asp:ImageButton ID="imgE" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Update" ImageUrl="/Imagenes/Btn_Delete.png" Visible='<%# Eval("Cancelable").ToString.ToEntero > 0 And Eval("CvePrePoliza").ToString.ToEntero > 0 And Eval("CveReferencia").ToString.ToEntero > 0 And (Eval("Cargo").ToString.ToDecimal > 0 OrElse Eval("Abono").ToString.ToDecimal > 0) %>' OnClientClick="javascript:return C();" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cancelar" Visible="false">
<ItemTemplate>
<asp:LinkButton ID="imgCancelar" runat="server" CausesValidation="False" OnClick="imgCancelar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</td> </td>
@@ -201,10 +211,11 @@
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="row" style="align-items: center; vertical-align: middle;"> <div class="row" style="align-items: center; vertical-align: middle;">
<label class="col-md-4" style="max-width: 155px;">Concepto:</label> <div class="col-md-12">
<asp:TextBox ID="TxtConceptoCancelacion" runat="server" CssClass="form-control input-sm" Width="90%" CausesValidation="true" MaxLength="100" ValidationGroup="GrpCancelarPrepoliza"></asp:TextBox> <label for="<%# TxtConceptoCancelacion.ClientID %>">Concepto:</label>
<asp:RequiredFieldValidator ID="RFVTxtConceptoCancelacion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoCancelacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCancelarPrepoliza"></asp:RequiredFieldValidator> <asp:TextBox ID="TxtConceptoCancelacion" runat="server" CssClass="form-control" Width="90%" CausesValidation="true" MaxLength="100" ValidationGroup="GrpCancelarPrepoliza"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtConceptoCancelacion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoCancelacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCancelarPrepoliza"></asp:RequiredFieldValidator>
</div>
</div> </div>
<div class="row" style="align-items: center; vertical-align: middle;"> <div class="row" style="align-items: center; vertical-align: middle;">
<label class="col-md-4" style="max-width: 155px;">Fecha de Cancelación:</label> <label class="col-md-4" style="max-width: 155px;">Fecha de Cancelación:</label>
@@ -214,7 +225,7 @@
<asp:TextBox ID="TxtFechaCancelacion" runat="server" CssClass="form-control input-sm" Width="80px" CausesValidation="true" MaxLength="10" ValidationGroup="GrpCancelarPrepoliza"></asp:TextBox> <asp:TextBox ID="TxtFechaCancelacion" runat="server" CssClass="form-control input-sm" Width="80px" CausesValidation="true" MaxLength="10" ValidationGroup="GrpCancelarPrepoliza"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="ImgCalendarioDel" class="btn default input-sm" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="ImgCalendarioDel" class="btn default input-sm" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span> </span>
<ajax:MaskedEditExtender ID="MEEFechaCancelacion" runat="server" TargetControlID="TxtFechaCancelacion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="MEEFechaCancelacion" runat="server" TargetControlID="TxtFechaCancelacion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>

3
Contabilidad/PopUpAuxiliar.aspx.vb
View File

@@ -176,7 +176,8 @@ Partial Class PopUpAuxiliar
e.Row.Cells(6).Visible = False e.Row.Cells(6).Visible = False
e.Row.Cells(7).Visible = False e.Row.Cells(7).Visible = False
e.Row.Cells(8).Visible = False e.Row.Cells(8).Visible = False
e.Row.Cells(12).Visible = False 'e.Row.Cells(12).Visible = False
e.Row.FCLinkButton("imgCancelar").Visible = False
End If End If
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left

11
Ventas/Promociones.aspx.vb
View File

@@ -377,9 +377,16 @@ Partial Class Ventas_Promociones
Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs) Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs)
If UsuarioActual.Empresa.Funcionalidad(382) <> "1" Then If DdlClasificacion.SelectedValue.ToEntero <= 0 Then
If DdlPS.SelectedValue.ToEntero <= 0 Then
Alert("Debe seleccionar una clasificacion o un producto y/o servicio", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
If DdlPS.SelectedValue.ToEntero <= 0 Then
If DdlClasificacion.SelectedValue.ToEntero <= 0 Then If DdlClasificacion.SelectedValue.ToEntero <= 0 Then
Alert("Debe seleccionar una clasificacion", TipoMensaje.MsgAdvertencia) Alert("Debe seleccionar una clasificacion o un producto y/o servicio", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
End If End If

9
Ventas/Ventas.aspx
View File

@@ -10561,12 +10561,16 @@
function FnCambiaAnt(chk, txt, saldo) { function FnCambiaAnt(chk, txt, saldo) {
debugger;
var Total = ToDouble($get('TxtSubTotal').value); let Total = ToDouble($get('TxtSubTotal').value);
let TipoAnticipo = $('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').val(); let TipoAnticipo = $('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').val();
let importeTxt = parseFloat(txt.value.replace(/,/g, '')); let importeTxt = parseFloat(txt.value.replace(/,/g, ''));
if (TipoAnticipo == '4') {
Total = ToDouble($get('TxtTotal').value);
}
if (isNaN(importeTxt)) { if (isNaN(importeTxt)) {
importeTxt = 0; importeTxt = 0;
} else { } else {
@@ -10580,7 +10584,6 @@
saldo = (importeTxt > saldo) ? saldo : importeTxt; saldo = (importeTxt > saldo) ? saldo : importeTxt;
var SaldoCompra = (Total - FnSumaValoresAnt() + ToDouble(txt.value)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnVentaSaldo').value).toFixed(2)); var SaldoCompra = (Total - FnSumaValoresAnt() + ToDouble(txt.value)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnVentaSaldo').value).toFixed(2));
if (SaldoCompra < 0) txt.value = SaldoCompra - txt.value; if (SaldoCompra < 0) txt.value = SaldoCompra - txt.value;
//minimo entre saldocompra y el saldoanticipo //minimo entre saldocompra y el saldoanticipo

89
Ventas/Ventas.aspx.vb
View File

@@ -7047,6 +7047,12 @@ Partial Class Ventas
End If End If
If Not EsModuloCotizacion Then If Not EsModuloCotizacion Then
LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva() LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(60) Then
LnkCotizaciones.Visible = False
LnkPedido2SinFacturar.Visible = False
LnkRemisiones.Visible = False
LnkOCs.Visible = False
End If
End If End If
End If End If
@@ -7073,7 +7079,14 @@ Partial Class Ventas
End If End If
DdlSucursalCliente.Items.Clear() DdlSucursalCliente.Items.Clear()
Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0") 'Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0")
Dim dtts As DataTable = New DataTable
Dim ObjClientes As New ClsClientes
If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
dtts = ObjClientes.DtResultados.Copy()
End If
ObjClientes.Dispose()
If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then
DdlSucursalCliente.DataSource = dtts DdlSucursalCliente.DataSource = dtts
DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1")) DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
@@ -7852,7 +7865,7 @@ Partial Class Ventas
DdlTipoAutorizacion.SelectedValueExist("1") DdlTipoAutorizacion.SelectedValueExist("1")
If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then
Dim Autorizacion As Integer = 0 Dim Autorizacion As Integer = 0
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero, "Ing", CveEstatus:=1) Then If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero, "Ing", CveEstatus:=1) Then
@@ -7872,12 +7885,12 @@ Partial Class Ventas
'SI NO TIENE AUTORIZACION, MANTIENE EL BLOQUEO POR CONDICIONES DE CREDITO 'SI NO TIENE AUTORIZACION, MANTIENE EL BLOQUEO POR CONDICIONES DE CREDITO
If Autorizacion <= 0 Then If Autorizacion <= 0 Then
BtnEmitirImprimir.Visible = False BtnEmitirImprimir.Visible = False
TieneBloqueoPorCreditoVencimiento = 1 TieneBloqueoPorCreditoVencimiento = 1
End If
End If End If
End If
Case Else 'SI NO TIENE NINGUN TIPO DE AUTORIZACION CONFIGURADO Case Else 'SI NO TIENE NINGUN TIPO DE AUTORIZACION CONFIGURADO
'VERIFICAR CANDADOS DE VENTA 'VERIFICAR CANDADOS DE VENTA
If DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 Then If DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 Then
@@ -8237,6 +8250,13 @@ Partial Class Ventas
End If End If
If Not EsModuloCotizacion Then If Not EsModuloCotizacion Then
LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva() LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(60) Then
LnkCotizaciones.Visible = False
LnkPedido2SinFacturar.Visible = False
LnkRemisiones.Visible = False
LnkOCs.Visible = False
End If
End If End If
End If End If
@@ -13869,10 +13889,21 @@ Partial Class Ventas
End If End If
End If End If
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}") Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal()
If CveClientesucursatTemp > 0 Then
'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
Dim drr As DataRow = Nothing
Dim ObjClientes As New ClsClientes
If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {CveClientesucursatTemp}")
End If
ObjClientes.Dispose()
If drr IsNot Nothing Then If drr IsNot Nothing Then
If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista
CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero
@@ -16760,6 +16791,7 @@ Partial Class Ventas
GVAnticipos.DataBind() GVAnticipos.DataBind()
End If End If
UpAnticipos.Update() UpAnticipos.Update()
UpPS.Update()
End Sub End Sub
Protected Sub GVAnticipos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowCreated Protected Sub GVAnticipos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowCreated
@@ -18266,6 +18298,15 @@ Partial Class Ventas
ImgAntiPend.Visible = True ImgAntiPend.Visible = True
End If End If
If ImgAntiPend.Visible Then
If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing Then
Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo IN('NC','RNC','IxC') ", "")}")
If DtMovtos.Rows.Count = 0 Then
ImgAntiPend.Visible = False
End If
End If
End If
TxtFechaPago.Text = NowADS().AddDays(PlazoCobranza).ToShortDateString TxtFechaPago.Text = NowADS().AddDays(PlazoCobranza).ToShortDateString
@@ -18301,6 +18342,15 @@ Partial Class Ventas
ImgAntiPend.Visible = True ImgAntiPend.Visible = True
End If End If
If ImgAntiPend.Visible Then
If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing Then
Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo IN('NC','RNC','IxC') ", "")}")
If DtMovtos.Rows.Count = 0 Then
ImgAntiPend.Visible = False
End If
End If
End If
MostrarOpcionesPaqueteria() MostrarOpcionesPaqueteria()
TrAtencionA.Visible = True TrAtencionA.Visible = True
@@ -25128,13 +25178,9 @@ Partial Class Ventas
Else Else
DdlPS_SelectedIndexChanged(Nothing, Nothing) DdlPS_SelectedIndexChanged(Nothing, Nothing)
End If Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
End Sub
Protected Sub OrdenarGvPS(ByVal sender As Object, ByVal e As EventArgs)
For Each row As GridViewRow In GvPS.Rows
TmpDT.Rows(row.RowIndex)("Orden") = row.FCTextBox("TxtOrden").Text.ToEntero() TmpDT.Rows(row.RowIndex)("Orden") = row.FCTextBox("TxtOrden").Text.ToEntero()
Next Next
Dim resultados = From OrdenDT In TmpDT Dim resultados = From OrdenDT In TmpDT
Order By OrdenDT("Orden").ToString().ToEntero() Order By OrdenDT("Orden").ToString().ToEntero()
@@ -37630,7 +37676,7 @@ Partial Class Ventas
Private Sub CargaDdlClientesSucursal() Private Sub CargaDdlClientesSucursal()
DdlClienteSucursal.DataSource = GlobalDTClientesTodosSucursales(UsuarioActual.CveEmpresa) DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
DdlClienteSucursal.DataBind() DdlClienteSucursal.DataBind()
DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -38132,7 +38178,16 @@ Partial Class Ventas
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
Dim drr As DataRow = Nothing
Dim ObjClientes As New ClsClientes
If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
End If
ObjClientes.Dispose()
If drr IsNot Nothing Then If drr IsNot Nothing Then
If RBLTipoVenta.SelectedValue.Contiene("6") Then If RBLTipoVenta.SelectedValue.Contiene("6") Then
tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero