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

Ventas Correcion sucursales - Almacenes, auxiliar correciones UI

Browse Source
This commit is contained in:
rakcsle
2024-07-01 19:30:03 -07:00
parent 5e788afd3e
commit 1ec803786e
3 changed files with 150 additions and 104 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

46
Ventas/Ventas.aspx.vb
View File

@@ -7079,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"))
@@ -13881,10 +13888,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
@@ -37662,7 +37680,14 @@ Partial Class Ventas
Private Sub CargaDdlClientesSucursal() Private Sub CargaDdlClientesSucursal()
DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa) 'DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
Dim ObjClientes As New ClsClientes
If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
DdlClienteSucursal.DataSource = ObjClientes.DtResultados.Copy()
End If
ObjClientes.Dispose()
DdlClienteSucursal.DataBind() DdlClienteSucursal.DataBind()
DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -38169,7 +38194,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