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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-06-18 09:51:00 -07:00
parent 49528aebf4 f3f9a0e187
commit 8b1e8e90f1
15 changed files with 442 additions and 178 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
App_Code/ClsPaginas.vb
View File

@@ -9986,14 +9986,14 @@ Public Class ClsPaginas
PaginaDict.Add("/Contabilidad/RepEstadoResultadosAnual.aspx".ToUpper(), 127) PaginaDict.Add("/Contabilidad/RepEstadoResultadosAnual.aspx".ToUpper(), 127)
PaginaDict.Add("/Contabilidad/FiltraPolizas.aspx".ToUpper(), 128) PaginaDict.Add("/Contabilidad/FiltraPolizas.aspx".ToUpper(), 128)
PaginaDict.Add("/Contabilidad/RepContabilidadDiaria.aspx".ToUpper(), 504) PaginaDict.Add("/Contabilidad/RepContabilidadDiaria.aspx".ToUpper(), 504)
PaginaDict.Add("/Contabilidad/CatCuentas.aspx".ToUpper(), 178) PaginaDict.Add("/Contabilidad/CatCuentas.aspx".ToUpper(), 596)
PaginaDict.Add("/Contabilidad/CatCuentasCI.aspx".ToUpper(), 178) PaginaDict.Add("/Contabilidad/CatCuentasCI.aspx".ToUpper(), 596)
PaginaDict.Add("/Contabilidad/RepOrigenAplicacion.aspx".ToUpper(), 354) PaginaDict.Add("/Contabilidad/RepOrigenAplicacion.aspx".ToUpper(), 354)
PaginaDict.Add("/Contabilidad/RepBalanceGeneralProForma.aspx".ToUpper(), 358) PaginaDict.Add("/Contabilidad/RepBalanceGeneralProForma.aspx".ToUpper(), 358)
PaginaDict.Add("/Contabilidad/RepEstadoResultadosProForma.aspx".ToUpper(), 359) PaginaDict.Add("/Contabilidad/RepEstadoResultadosProForma.aspx".ToUpper(), 359)
PaginaDict.Add("/Contabilidad/RepBalanceGeneral.aspx".ToUpper(), 362) PaginaDict.Add("/Contabilidad/RepBalanceGeneral.aspx".ToUpper(), 586)
PaginaDict.Add("/Contabilidad/RepBalanceGeneralCI.aspx".ToUpper(), 362) PaginaDict.Add("/Contabilidad/RepBalanceGeneralCI.aspx".ToUpper(), 586)
PaginaDict.Add("/Contabilidad/RepEstadoResultados.aspx".ToUpper(), 363) PaginaDict.Add("/Contabilidad/RepEstadoResultados.aspx".ToUpper(), 583)
PaginaDict.Add("/Contabilidad/RepIVADiferencias.aspx".ToUpper(), 127) PaginaDict.Add("/Contabilidad/RepIVADiferencias.aspx".ToUpper(), 127)
PaginaDict.Add("/Contabilidad/PolizasImpresion.aspx".ToUpper(), 380) PaginaDict.Add("/Contabilidad/PolizasImpresion.aspx".ToUpper(), 380)
PaginaDict.Add("/Contabilidad/RegPrePolizaS.aspx".ToUpper(), 398) PaginaDict.Add("/Contabilidad/RegPrePolizaS.aspx".ToUpper(), 398)
@@ -10015,12 +10015,12 @@ Public Class ClsPaginas
PaginaDict.Add("/Contabilidad/RepEstadoResultadosPorSegmento.aspx".ToUpper(), 1317) PaginaDict.Add("/Contabilidad/RepEstadoResultadosPorSegmento.aspx".ToUpper(), 1317)
PaginaDict.Add("/Contabilidad/RepAnexoCatalogoMes.aspx".ToUpper(), -1) PaginaDict.Add("/Contabilidad/RepAnexoCatalogoMes.aspx".ToUpper(), -1)
PaginaDict.Add("/Contabilidad/RepAnexoCatalogoSegmento.aspx".ToUpper(), -1) PaginaDict.Add("/Contabilidad/RepAnexoCatalogoSegmento.aspx".ToUpper(), -1)
PaginaDict.Add("/Contabilidad/RepAnexoCatalogo.aspx".ToUpper(), 341) PaginaDict.Add("/Contabilidad/RepAnexoCatalogo.aspx".ToUpper(), 580)
PaginaDict.Add("/Contabilidad/RepAnexoCatalogoCI.aspx".ToUpper(), 341) PaginaDict.Add("/Contabilidad/RepAnexoCatalogoCI.aspx".ToUpper(), 580)
PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 340) PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 587)
PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogoCI.aspx".ToUpper(), 340) PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogoCI.aspx".ToUpper(), 587)
PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 344) PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 582)
PaginaDict.Add("/Contabilidad/RepBalanzaComprobacionCI.aspx".ToUpper(), 344) PaginaDict.Add("/Contabilidad/RepBalanzaComprobacionCI.aspx".ToUpper(), 582)
PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714) PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714)
PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677) PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677)
PaginaDict.Add("/Contabilidad/CatClasificacionPorcentaje.aspx".ToUpper(), 752) PaginaDict.Add("/Contabilidad/CatClasificacionPorcentaje.aspx".ToUpper(), 752)
@@ -10028,7 +10028,7 @@ Public Class ClsPaginas
'PaginaDict.Add("/Contabilidad/RepAnexoCatalogo.aspx".ToUpper(), 580) 'PaginaDict.Add("/Contabilidad/RepAnexoCatalogo.aspx".ToUpper(), 580)
'PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 582) 'PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 582)
PaginaDict.Add("/Contabilidad/RepEstadoActividades.aspx".ToUpper(), 583) 'PaginaDict.Add("/Contabilidad/RepEstadoResultados.aspx".ToUpper(), 583)
'PaginaDict.Add("/Contabilidad/RepFlujoEfectivo.aspx".ToUpper(), 584) 'PaginaDict.Add("/Contabilidad/RepFlujoEfectivo.aspx".ToUpper(), 584)
PaginaDict.Add("/Contabilidad/RepCambiosSituacionFinanciera.aspx".ToUpper(), 585) PaginaDict.Add("/Contabilidad/RepCambiosSituacionFinanciera.aspx".ToUpper(), 585)
'PaginaDict.Add("/Contabilidad/RepSituacionFinanciera.aspx".ToUpper(), 586) 'PaginaDict.Add("/Contabilidad/RepSituacionFinanciera.aspx".ToUpper(), 586)

6
Contabilidad/RepBalanzaComprobacion.aspx
View File

@@ -197,6 +197,12 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" /> <ItemStyle Width="120" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Diferencia" Visible="false">
<ItemTemplate>
<asp:Literal ID="Lbdif" runat="server" Text='<%# Eval("diferenciaSAT", "{0:N2}")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle Width="100" HorizontalAlign="Right" />
</asp:TemplateField>
</Columns> </Columns>
<HeaderStyle Font-Bold="true" HorizontalAlign="Center" /> <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
</asp:GridView> </asp:GridView>

11
Contabilidad/RepBalanzaComprobacion.aspx.vb
View File

@@ -123,7 +123,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
If TipoReporte = 1 Then If DdlVista.SelectedValue = "1" Then
'mostrar cuales son las cuentas que no tienen asignado el agrupador que sean afectables 'mostrar cuales son las cuentas que no tienen asignado el agrupador que sean afectables
If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
@@ -133,7 +133,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
For Each dr As DataRow In dtt.Rows For Each dr As DataRow In dtt.Rows
str.AppendFormat(" - {0} </br>", dr("CtaCodigo")) str.AppendFormat(" - {0} </br>", dr("CtaCodigo"))
Next Next
Alert(str.ToString) Alert("Cuentas sin clasificador SAT asignado: <br/>" & str.ToString)
End If End If
End If End If
@@ -145,8 +145,13 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
DtDatos = Nothing DtDatos = Nothing
Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError) Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)
End If End If
ObjConta.Dispose() ObjConta.Dispose()
If DdlVista.SelectedValue = "1" Then
GvDatos.Columns(6).Visible = True
Else
GvDatos.Columns(6).Visible = False
End If
CargaGrid() CargaGrid()
End Sub End Sub
Private Sub CargaGrid() Private Sub CargaGrid()

2
Empresas/Grales/Formatos/OC.rdlc
View File

@@ -1960,7 +1960,7 @@
<Width>6.2308cm</Width> <Width>6.2308cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
<Visibility> <Visibility>
<Hidden>=IIF(Parameters!EntregaDirecta.Value &lt;&gt; "False",FALSE,TRUE)</Hidden> <Hidden>true</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>

244
General/SaldosMenores.aspx
View File

@@ -10,7 +10,7 @@
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li> <%-- <li>
<asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton> <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
</li> </li>
<li> <li>
@@ -18,17 +18,8 @@
</li> </li>
<li> <li>
<asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i> Ver Dlls en pesos</asp:HyperLink> <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i> Ver Dlls en pesos</asp:HyperLink>
</li> </li>--%>
<%-- <asp:UpdatePanel ID="UpLnkAgregar" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkHabilitarSaldar" OnClick="LnkHabilitarSaldar_Click" runat="server">Otros Ingresos</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkSaldar" Visible="false" OnClick="LnkSaldar_Click" runat="server">Saldar</asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>--%>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content> </asp:Content>
@@ -44,11 +35,7 @@
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row" style="margin-left: 10px;"> <div class="row" style="margin-left: 10px;">
<%--<label class="col-md-1 " id="LblDdlSucursal" runat="server">Sucursal:</label>
<div class="col-md-2" id="DivDdlSucursal" runat="server">
<asp:DropDownList ID="DdlSucursal" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
</asp:DropDownList>
</div>--%>
<div class="col-md-1" style="">Fecha Ini Doc:</div> <div class="col-md-1" style="">Fecha Ini Doc:</div>
<div class="col-md-1"> <div class="col-md-1">
@@ -96,57 +83,6 @@
</div> </div>
<div class="portlet-body" style="display: none;"> <div class="portlet-body" style="display: none;">
<div class="row" style="margin-left: 10px;"> <div class="row" style="margin-left: 10px;">
<%-- <div class="col-md-1">Tipo:</div>
<div class="col-md-2">
<asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlTipo" runat="server" Width="100%" Class="table-group-action-input form-control input-inline input-small input-sm">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Anticipos" Value="1"></asp:ListItem>
<asp:ListItem Selected="True" Text="NC X Aplicar" Value="2"></asp:ListItem>
<asp:ListItem Text="Ingresos X Comprobar" Value="3"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1" style="width: 5%">Con Saldo:</div>
<div class="col-md-2" style="display:flex; width:20%">
<asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlConSaldo" runat="server" Width="15%" Class="table-group-action-input form-control input-inline input-small input-sm">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Selected="True" Text="Si" Value="1"></asp:ListItem>
<asp:ListItem Text="No" Value="0"></asp:ListItem>
</asp:DropDownList>
<div style="width:30%;text-align:center">Vendedor:</div>
<div id="DivDdlVendedor" runat="server" style="width:55%;display:flex">
<asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
</asp:DropDownList>
</div>
</div>--%>
<%-- <div class="col-md-1">Fecha Ini. Ap:</div>
<div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
<asp:TextBox ID="TxtFechaICorte" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaICorte" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaICorte" runat="server" TargetControlID="TxtFechaICorte" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaICorte" TargetControlID="TxtFechaICorte" PopupButtonID="LnkFechaICorte" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="CVFechaICorte" runat="server" ControlToValidate="TxtFechaICorte" Display="None" ErrorMessage="El campo <b>''Fecha Inicial Corte''</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="VCEFechaICorte2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaICorte" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-1" style="margin-left: 20px">Fecha Fin Ap:</div>
<div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
<asp:TextBox ID="TxtFechaFCorte" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaFCorte" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaFCorte" runat="server" TargetControlID="TxtFechaFCorte" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaFCorte" TargetControlID="TxtFechaFCorte" PopupButtonID="LnkFechaFCorte" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="CVFechaFCorte" runat="server" ControlToValidate="TxtFechaFCorte" Display="None" ErrorMessage="El campo <b>''Fecha Final Corte''</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="VCEFechaFCorte2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFCorte" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>--%>
</div> </div>
</div> </div>
</div> </div>
@@ -200,14 +136,18 @@
<ajax:TabContainer runat="server" ID="Tabs"> <ajax:TabContainer runat="server" ID="Tabs">
<ajax:TabPanel ID="TabIXC" runat="server" HeaderText="IXC" ClientIDMode="Static"> <ajax:TabPanel ID="TabIXC" runat="server" HeaderText="IXC" ClientIDMode="Static">
<ContentTemplate> <ContentTemplate>
<div class="row">
<div class="row" style="margin-left: 0px; margin-top: 15px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
<input type="text" id="TxtBusquedaIXC" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaIXC','{0}')", GvDatosIXC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <div class="row" style="margin-left: 0px; margin-top: 15px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaIXC','{0}')", GvDatosIXC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <div class="col-md-6">
</div> <input type="text" id="TxtBusquedaIXC" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaIXC','{0}')", GvDatosIXC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaIXC','{0}')", GvDatosIXC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
<div class="row">
<div class="col-md-6"> <div class="col-md-6">
@@ -244,6 +184,164 @@
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabNCEXC" runat="server" HeaderText="NC-EXC" ClientIDMode="Static">
<ContentTemplate>
<div class="row" style="margin-left: 0px; margin-top: 15px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
<div class="col-md-6">
<input type="text" id="TxtBusquedaNCEXC" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaNCEXC','{0}')", GvDatosNCEXC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaNCEXC','{0}')", GvDatosNCEXC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
<div class="row">
<div class="col-md-6">
<asp:UpdatePanel ID="UpDatosNCEXC" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatosNCEXC" runat="server" OnRowDataBound="GvDatosIXC_RowDataBound" GridLines="None"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False"
EmptyDataText="No se encontraron registros" data-sort="true" Width="99%"
DataKeyNames="CveCliente,CveMoneda,Saldo,CveVenta,NombreComercial,CveVentaAmortizacion,SerieFolioAmortizacion,SerieFolio,Total,TipoCambio,
Fecha,FechaAmortizacion,SubTotal,SubTotalAmortizacion,ImporteAmortizacion,CveIE,Tipo,SaldoAcumulativo,CveSubProyecto">
<Columns>
<asp:TemplateField>
<ItemTemplate>
<asp:CheckBox ID="chk" Checked="false" Visible="false" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="TipoColumna" HeaderText="" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="SerieFolio" HeaderText="Cliente/Folio" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Fecha" ItemStyle-Width="10%" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="SubTotal" ItemStyle-Width="10%" HeaderText="Importe" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" />
<asp:BoundField DataField="ImporteAmortizacion" ItemStyle-Width="10%" HeaderText="Aplicado" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" Visible="false" />
<asp:BoundField DataField="Saldo" ItemStyle-Width="10%" HeaderText="Saldo" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" />
<asp:BoundField DataField="Abreviatura" ItemStyle-Width="5%" HeaderText="Moneda" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="Center" Visible="false" />
<asp:BoundField DataField="Costo" ItemStyle-Width="10%" HeaderText="Costo" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="Center" Visible="false" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabVentas" runat="server" HeaderText="Ventas" ClientIDMode="Static">
<ContentTemplate>
<div class="row" style="margin-left: 0px; margin-top: 15px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
<div class="col-md-6">
<input type="text" id="TxtBusquedaVentas" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaVentas','{0}')", GvCxC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaVentas','{0}')", GvCxC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
<div class="row">
<div class="col-md-6">
<asp:UpdatePanel ID="UPVentas" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Cobrar Pendientes"
DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA,DescuentoProntoPago,CveTipoRetencion,Descuento,ClaveMetodoPagoSAT"
CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None" HeaderStyle-CssClass="ADtr">
<Columns>
<asp:TemplateField>
<HeaderTemplate>
<input type="checkbox" id="ChkAll" onclick="CheckAll();" />
</HeaderTemplate>
<ItemTemplate>
<asp:CheckBox ID="Chk" CssClass="chkgv" runat="server"></asp:CheckBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>Venta</HeaderTemplate>
<ItemTemplate>
<asp:HyperLink ID="HplF" CssClass="Texto" NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>' Text='<%# Eval("SerieFolio")%>' runat="server"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
<HeaderTemplate>
Tipo<br>
Docto
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlTipoDocto" runat="server" Text='<%# Eval("TipoDocto") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
<HeaderTemplate>
Fecha<br>
Venta
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
<HeaderTemplate>
Moneda
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlMoneda" runat="server" Text='<%# Eval("Moneda" ) %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
Monto
<br>
Venta
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>Saldo</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabCompras" runat="server" HeaderText="Compras" ClientIDMode="Static">
<ContentTemplate>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer> </ajax:TabContainer>

231
General/SaldosMenores.aspx.vb
View File

@@ -11,10 +11,28 @@ Partial Public Class General_SaldosMenores
#Region "PROPIEDADES" #Region "PROPIEDADES"
Private Property DtDatosIXC As DataTable Private Property DtDatosIXC As DataTable
Get Get
Return DirectCast(ViewState("DtDatos"), DataTable) Return DirectCast(ViewState("DtDatosIXC"), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
ViewState("DtDatos") = value ViewState("DtDatosIXC") = value
End Set
End Property
Private Property DtDatosNCEXC As DataTable
Get
Return DirectCast(ViewState("DtDatosNCEXC"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtDatosNCEXC") = value
End Set
End Property
Private Property DtDatosVentas As DataTable
Get
Return DirectCast(ViewState("DtDatosVentas"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtDatosVentas") = value
End Set End Set
End Property End Property
@@ -64,6 +82,9 @@ Partial Public Class General_SaldosMenores
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
DvSaldar.Visible = False DvSaldar.Visible = False
DtDatosIXC = New DataTable
DtDatosNCEXC = New DataTable
DtDatosVentas = New DataTable
If Tabs.ActiveTab Is TabIXC Then If Tabs.ActiveTab Is TabIXC Then
CargaDatosIXC() CargaDatosIXC()
@@ -72,6 +93,15 @@ Partial Public Class General_SaldosMenores
End If End If
End If End If
If Tabs.ActiveTab Is TabVentas Then
CargaDatosVentas()
If DtDatosVentas.Rows.Count > 0 Then
DvSaldar.Visible = True
End If
End If
Upsaldar.Update() Upsaldar.Update()
End Sub End Sub
@@ -165,6 +195,11 @@ Partial Public Class General_SaldosMenores
End If End If
If Tabs.ActiveTab Is TabVentas Then
End If
TxtFecha.Text = DateTime.Today.ToString() TxtFecha.Text = DateTime.Today.ToString()
Upsaldar.Update() Upsaldar.Update()
End Sub End Sub
@@ -207,25 +242,9 @@ Partial Public Class General_SaldosMenores
DdlSubProyectoSaldar.DataBind() DdlSubProyectoSaldar.DataBind()
End Sub End Sub
Protected Sub CargaDatosIXC() Protected Sub CargaDatosIXC()
'If TipoCambio = 3 AndAlso TxtEspecifico.Text <> "" Then
' TCEspecifico = TxtEspecifico.Text.ToDouble()
'Else
' TCEspecifico = -1
'End If
'If TipoCambio <> 1 Then
' CveMoneda = -1
'End If
Dim FechaICorte As DateTime = MinFecha Dim FechaICorte As DateTime = MinFecha
Dim FechaFCorte As DateTime = MaxFecha Dim FechaFCorte As DateTime = MaxFecha
@@ -250,17 +269,6 @@ Partial Public Class General_SaldosMenores
End Sub End Sub
Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
'GenerarPDF("EXCEL")
End Sub
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
'GenerarPDF("PDF")
End Sub
Protected Sub GvDatosIXC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosIXC.RowDataBound Protected Sub GvDatosIXC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosIXC.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
Dim Css As String = "Texto" Dim Css As String = "Texto"
@@ -321,42 +329,147 @@ Partial Public Class General_SaldosMenores
End If End If
End Sub End Sub
#Region "SALDAR"
'Private Sub HabilitarCheckbox()
' For Each Gv As GridViewRow In GvDatosIXC.Rows
' If (Gv.DataKey("CveVenta").ToEntero() > 0 OrElse Gv.DataKey("CveIE").ToEntero() > 0) AndAlso (Gv.DataKey("CveVentaAmortizacion").ToEntero() < 1) Then
' Gv.FCCheckBox("Chk").Visible = True
' End If
' Next
'End Sub
'Protected Sub LnkHabilitarSaldar_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldar.Click
' HabilitarCheckbox()
' LnkSaldar.Visible = True
' LnkHabilitarSaldar.Visible = False
' UpLnkAgregar.Update()
' UpDatos.Update()
'End Sub
Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs) 'Handles LnkSaldar.Click
If Tipo = 1 Then #End Region
TxtConcepto.Text = "Cancelación de Anticipos"
ElseIf Tipo = 2 Then #Region "N C E X C"
TxtConcepto.Text = "Cancelación de Saldo de Nota de crédito"
ElseIf Tipo = 3 Then '/Compras/RepAnt-NC-EXCDetalle.aspx
TxtConcepto.Text = "Cancelación de Ingresos por Comprobar"
Protected Sub CargaDatosNCEXC()
Dim FechaICorte As DateTime = MinFecha
Dim FechaFCorte As DateTime = MaxFecha
Dim ObjVenta As New ClsVentas()
Dim CveCliente As Integer = -1
If ObjVenta.GetRepAnticiposNCIXCDetalle(CveCliente, -1, txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa, 1, -1, CveMoneda, FechaICorte, FechaFCorte, TipoCambio, TCEspecifico,
SaldoMayorA:=TxtSaldoMayorA.Text.ToDecimal, SaldoMenorA:=TxtSaldoMenorA.Text.ToDecimal) Then
GvDatosNCEXC.DataSource = ObjVenta.DtResultados
DtDatosNCEXC = ObjVenta.DtResultados
End If End If
Upsaldar.Update()
RegistraScript("$('#DivModalSaldar').modal();") ObjVenta.Dispose()
GvDatosIXC.DataBind()
UpDatos.Update()
End Sub
Protected Sub GvDatosNCEXC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosNCEXC.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim Css As String = "Texto"
Dim Liga As String = ""
If e.Row.DataKey("Tipo").ToEntero() < 1 Then
e.Row.CssClass = "SubTotales3"
e.Row.Cells(2).Text = e.Row.DBCampo("Moneda").ToString()
ElseIf e.Row.DataKey("CveCliente").ToEntero() < 1 Then
e.Row.CssClass = "SubTotales2"
Select Case e.Row.DataKey("Tipo").ToEntero()
Case 1
e.Row.Cells(2).Text = "Anticipos"
Case 2
e.Row.Cells(2).Text = "NC X Aplicar"
Case 3
e.Row.Cells(2).Text = "Ingresos X Comprobar"
End Select
ElseIf e.Row.DataKey("CveVentaAmortizacion").ToEntero() < 1 AndAlso e.Row.DataKey("CveVenta").ToEntero() < 1 AndAlso e.Row.DataKey("CveIE").ToEntero() < 1 Then
e.Row.CssClass = "Totales"
e.Row.Cells(2).Text = e.Row.DataKey("NombreComercial")
e.Row.Cells(7).Text = ""
ElseIf e.Row.DataKey("CveVentaAmortizacion").ToEntero() < 1 AndAlso e.Row.DataKey("CveVenta").ToEntero() > 0 Then
e.Row.CssClass = "SubTotales"
e.Row.Cells(2).Text = e.Row.DataKey("SerieFolio")
e.Row.Cells(3).Text = e.Row.DataKey("Fecha").ToDate().ToShortDateString()
Liga = $"/Ventas/Ventas.aspx?&CveVenta={e.Row.DataKey("CveVenta")}"
e.Row.Cells(2).Text = $"<a class=""{Css}"" href=""{Liga}"">{e.Row.Cells(2).Text}</a>"
ElseIf e.Row.DataKey("CveIE").ToEntero() > 0 AndAlso e.Row.DataKey("CveVentaAmortizacion").ToEntero() < 1 Then
e.Row.CssClass = "SubTotales"
e.Row.Cells(2).Text = e.Row.DataKey("SerieFolio")
e.Row.Cells(3).Text = e.Row.DataKey("Fecha").ToDate().ToShortDateString()
e.Row.Cells(4).Text = "$" & e.Row.DataKey("Total").FormatoNumero()
Liga = $"/Bancos/IE.aspx?&CveIE={e.Row.DataKey("CveIE")}"
e.Row.Cells(2).Text = $"<a class=""{Css}"" href=""{Liga}"">{e.Row.Cells(2).Text}</a>"
Else
e.Row.Cells(2).Text = e.Row.DataKey("SerieFolioAmortizacion")
e.Row.Cells(3).Text = e.Row.DataKey("FechaAmortizacion").ToDate().ToShortDateString()
e.Row.Cells(4).Text = "$" & e.Row.DataKey("ImporteAmortizacion").FormatoNumero()
e.Row.Cells(5).Text = "$" & e.Row.DataKey("ImporteAmortizacion").FormatoNumero()
e.Row.Cells(6).Text = "$" & e.Row.DataKey("SaldoAcumulativo").FormatoNumero()
Liga = $"/Ventas/Ventas.aspx?&CveVenta={e.Row.DataKey("CveVentaAmortizacion")}"
e.Row.Cells(2).Text = $"<a class=""{Css}"" href=""{Liga}"">{e.Row.Cells(2).Text}</a>"
End If
If (e.Row.DataKey("CveVenta").ToEntero() > 0 OrElse e.Row.DataKey("CveIE").ToEntero() > 0) AndAlso (e.Row.DataKey("CveVentaAmortizacion").ToEntero() < 1) Then
e.Row.FCCheckBox("Chk").Visible = True
End If
End If
End Sub
#End Region
#Region "V E N T A S"
'/Compras/RepAnt-NC-EXCDetalle.aspx
Protected Sub CargaDatosVentas()
Dim Mov As New ClsMovimientos
Dim FechaI As String = txtFechaI.Text
Dim FechaF As String = txtFechaF.Text
Dim FechaCorte As Date = NowADS().AddYears(1).ToShortDateString.ToString.ToDate
Dim SumDescuentoProntoPago As Double = 0.0
If Mov.GetCxCClienteDetalle(-1, FechaI, FechaF, -1, -1, UsuarioActual.CveEmpresa, -1, FechaCorte:=FechaCorte) Then
DtDatosVentas = Mov.DtResultados.FiltraParametros($"Saldo > {TxtSaldoMayorA.Text.ToDecimal} AND Saldo < {TxtSaldoMenorA.Text.ToDecimal} ", "Fecha,SerieFolio").AsEnumerable().Take(51).CopyToDataTable()
'Dim TmpCxCAux As DataTable
'TmpCxCAux = Mov.DtResultados.FiltraParametros($"Saldo > {TxtSaldoMayorA.Text.ToDecimal} AND Saldo < {TxtSaldoMenorA.Text.ToDecimal} ", "Fecha,SerieFolio").AsEnumerable().Take(51).CopyToDataTable()
SumDescuentoProntoPago = DtDatosVentas.SUM("DescuentoProntoPago")
GvCxC.DataSource = DtDatosVentas
End If
Mov.Dispose()
GvCxC.DataBind()
If SumDescuentoProntoPago > 0.0 Then
GvCxC.Columns(14).Visible = True 'MOSTRAR DESCUENTO PRONTO PAGO
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
GvCxC.Columns(15).Visible = True 'HABILITAR NC
End If
End If
UPVentas.Update()
End Sub
Protected Sub GvCxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCxC.RowDataBound
End Sub End Sub
#End Region #End Region
#End Region
End Class End Class

6
Metronic/assets/admin/layout/css/custom.css
View File

@@ -2294,7 +2294,7 @@ select.input-sm {
.contabilidadbody .page-bar .page-breadcrumb > li > a, .contabilidadbody .page-bar .page-breadcrumb > li > a,
.contabilidadbody .page-bar .page-breadcrumb > li > span, .contabilidadbody .page-bar .page-breadcrumb > li > span,
.contabilidadbody .page-bar .page-breadcrumb > li > i { .contabilidadbody .page-bar .page-breadcrumb > li > i {
color: white; color: #888;
} }
.contabilidadbody .page-sidebar-closed.page-sidebar-fixed .page-sidebar:hover .page-sidebar-menu > li.active > a:hover, .contabilidadbody .page-sidebar-closed.page-sidebar-fixed .page-sidebar:hover .page-sidebar-menu > li.active > a:hover,
@@ -2310,12 +2310,12 @@ select.input-sm {
.contabilidadbody .page-sidebar .page-sidebar-menu > li.active > a:hover, .contabilidadbody .page-sidebar .page-sidebar-menu > li.active > a:hover,
.contabilidadbody .page-sidebar .page-sidebar-menu > li.active.open > a:hover, .contabilidadbody .page-sidebar .page-sidebar-menu > li.active.open > a:hover,
.contabilidadbody .page-bar { .contabilidadbody .page-bar {
background-color: #F08886; background-color: #F7F7F7;
} }
.contabilidadbody .portlet-title .font-green, .contabilidadbody .portlet-title .font-green,
.contabilidadbody .portlet-title .font-green a { .contabilidadbody .portlet-title .font-green a {
color: #F08886 !important; color: #F7F7F7 !important;
} }
/*RH recursos humanos*/ /*RH recursos humanos*/
.rhumanosbody .page-bar .page-breadcrumb > li > a, .rhumanosbody .page-bar .page-breadcrumb > li > a,

10
Ventas/ProductosServicios.aspx
View File

@@ -475,7 +475,7 @@
</div> </div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
<asp:LinkButton ID="BtnAgregarPSAdicionalesModal" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar Producto/Servicio Adicional." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton> <asp:LinkButton ID="BtnAgregarPSAdicionalesModal" runat="server" data-toggle="tooltip" data-placement="top" title="Agregar Producto/Servicio Adicional." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
</div> </div>
</div> </div>
</div> </div>
@@ -2341,9 +2341,11 @@
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPSAdicional" Width="100%" runat="server" CssClass="form-control select2me" DataValueField="CvePS" DataTextField="PS"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVPSAdicional" runat="server" ControlToValidate="DdlPSAdicional" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto/Servicio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator> <ADS:Dropdownlost runat="server" ID="DdlPSAdicional" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me" CssStyle="width:100%" DataTextField="PSCodigo" DataValueField="CvePS" />
<label for="<%= DdlPSAdicional.ClientID.ToString()%>">Producto/Servicio:</label> <label for="<%= DdlPSAdicional.ClientID.ToString()%>" >Producto/Servicio:</label>
</div> </div>
</div> </div>
<div class="col-md-6" id="DivTipoAdicional" runat="server" visible="false"> <div class="col-md-6" id="DivTipoAdicional" runat="server" visible="false">

60
Ventas/ProductosServicios.aspx.vb
View File

@@ -1982,10 +1982,12 @@ Partial Class ProductosyServicios
BtnAgregarPSAdicional.Text = "Agregar" BtnAgregarPSAdicional.Text = "Agregar"
CvePSAdicional = -1 CvePSAdicional = -1
DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa) CargaPSAdicional(DdlPSAdicional)
DdlPSAdicional.DataBind()
DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1")) 'DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
UpAddPSAdicional.Update() 'DdlPSAdicional.DataBind()
'DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1"))
DdlPSAdicional.SelectedValue = "-1" DdlPSAdicional.SelectedValue = "-1"
TxtCantidadPSAdicional.Text = "" TxtCantidadPSAdicional.Text = ""
@@ -1993,9 +1995,36 @@ Partial Class ProductosyServicios
RBLCantidad.SelectedValue = "1" RBLCantidad.SelectedValue = "1"
RblTipoAdicional.SelectedValue = "1" RblTipoAdicional.SelectedValue = "1"
UpAddPSAdicional.Update()
RegistraScript("$('#divAddPSAdicional').modal();") RegistraScript("$('#divAddPSAdicional').modal();")
End Sub End Sub
Private Sub CargaPSAdicional(Objeto As ADServerControl.Dropdownlost, Optional AplicaParaVenta As Boolean = True)
Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1")
If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then
Objeto.ddl.Items.Clear()
Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1, Estatus:=1, AplicaParaVenta:=If(AplicaParaVenta, 1, -1))
Objeto.ddl.DataBind()
Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
Else
Objeto.SelectedValue = " - 1"
Objeto.txtText.Value = ""
Objeto.txtValue.Value = ""
End If
End Sub
Private Sub BtnAgregarPSAdicional_Click(sender As Object, e As EventArgs) Handles BtnAgregarPSAdicional.Click Private Sub BtnAgregarPSAdicional_Click(sender As Object, e As EventArgs) Handles BtnAgregarPSAdicional.Click
If DdlPSAdicional.SelectedValue.ToEntero <= 0 Then
Alert("Debe seleccionar un producto", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim ObjProductosServicios As New ClsProductosServicios() Dim ObjProductosServicios As New ClsProductosServicios()
ObjProductosServicios.IniciaTransacSQL() ObjProductosServicios.IniciaTransacSQL()
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
@@ -2017,7 +2046,7 @@ Partial Class ProductosyServicios
End If End If
If TieneError Then If TieneError Then
Alert("Ocurrio un error al agregar/actualizar el Producto/Servicio Adicional.", TipoMensaje.MsgError) Alert("Ocurrio un Error al agregar/actualizar el Producto/Servicio Adicional.", TipoMensaje.MsgError)
ObjProductosServicios.RollBack() ObjProductosServicios.RollBack()
Else Else
ObjProductosServicios.Commit() ObjProductosServicios.Commit()
@@ -2032,6 +2061,8 @@ Partial Class ProductosyServicios
Protected Sub Edit_Click(sender As Object, e As EventArgs) Protected Sub Edit_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
BtnAgregarPSAdicional.Text = "Guardar" BtnAgregarPSAdicional.Text = "Guardar"
TxtCantidadPSAdicional.Text = GvRow.DataKey("Cantidad") TxtCantidadPSAdicional.Text = GvRow.DataKey("Cantidad")
PSAdicionalAnterior = GvRow.DataKey("PS").ToString PSAdicionalAnterior = GvRow.DataKey("PS").ToString
@@ -2044,17 +2075,24 @@ Partial Class ProductosyServicios
UpCantidad.Visible = True UpCantidad.Visible = True
RBLCantidad.SelectedValue = "2" RBLCantidad.SelectedValue = "2"
End If End If
UpAddPSAdicional.Update()
DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
DdlPSAdicional.DataBind()
DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1"))
UpAddPSAdicional.Update()
CvePSAdicional = GvRow.DataKey("CvePSAdicional").ToEntero CvePSAdicional = GvRow.DataKey("CvePSAdicional").ToEntero
CargaPSAdicional(DdlPSAdicional)
DdlPSAdicional.txtValue.Value = GvRow.DataKey("CvePSAdicional")
DdlPSAdicional.txtText.Value = GvRow.DataKey("CodigoPS")
DdlPSAdicional.SelectedValue = GvRow.DataKey("CvePSAdicional") DdlPSAdicional.SelectedValue = GvRow.DataKey("CvePSAdicional")
DdlPSAdicional.SelectedText = GvRow.DataKey("CodigoPS")
UpBodyDireccion.Update()
UpAddPSAdicional.Update()
RegistraScript("$('#divAddPSAdicional').modal();") RegistraScript("$('#divAddPSAdicional').modal();")
End Sub End Sub
Protected Sub RBLCantidad_SelectedIndexChanged1(sender As Object, e As EventArgs) Protected Sub RBLCantidad_SelectedIndexChanged1(sender As Object, e As EventArgs)
@@ -3261,7 +3299,7 @@ Partial Class ProductosyServicios
Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x)) Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x))
For Each Franquicia As Integer In EmpresasFranquicia For Each Franquicia As Integer In EmpresasFranquicia
Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero
Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.SelectedItem.Text)).ToEntero Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.txtText.Value)).ToEntero
If CvePSPagina <= 0 Then If CvePSPagina <= 0 Then
Alert(String.Format("El producto de la página no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia) Alert(String.Format("El producto de la página no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)

2
Ventas/RepComisionesSMS.aspx
View File

@@ -156,7 +156,7 @@
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveVenta,SerieFolio,Hospital,Medico,Especialidad,FechaCirugia,Procedimiento,Codigo,PU,Cantidad,Total,CveVendedor,Vendedor,Nombre,ComisionMedico,ComisionVendedor,ComisionTecnico" DataKeyNames="CveVenta,SerieFolio,Hospital,Medico,Especialidad,FechaCirugia,Procedimiento,Codigo,PU,Cantidad,Total,CveVendedor,Vendedor,Nombre,ComisionMedico,ComisionVendedor,ComisionTecnico"
data-sort="true" data-sort="true"
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> EmptyDataText="No se encontraron Registrados" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
<asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" DatatextField="SerieFolio" ItemStyle-HorizontalAlign="Left" /> <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" DatatextField="SerieFolio" ItemStyle-HorizontalAlign="Left" />

1
Ventas/RepComisionesSMS.aspx.vb
View File

@@ -375,6 +375,7 @@ Partial Class Ventas_RepComisionesSMS
If e.Row.DBCampo("SerieFolio") = "" Then If e.Row.DBCampo("SerieFolio") = "" Then
e.Row.CssClass = "SubTotales" e.Row.CssClass = "SubTotales"
End If End If
e.Row.Cells(4).Attributes.Add("data-order", e.Row.DBCampo("FechaCirugia").ToDate.ToString("yyyyMMddHHmmss"))
End If End If
End Sub End Sub

1
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -219,6 +219,7 @@ Partial Class RepVentaDetalle
DdlServicioDomicilio.SelectedValue = If(Request("ServicioDomicilio") IsNot Nothing, Request("ServicioDomicilio").ToString, "-1").ToString DdlServicioDomicilio.SelectedValue = If(Request("ServicioDomicilio") IsNot Nothing, Request("ServicioDomicilio").ToString, "-1").ToString
DdlFacturaGlobal.SelectedValue = If(Request("EsFacturaGlobal") IsNot Nothing, Request("EsFacturaGlobal").ToString, "-1").ToString DdlFacturaGlobal.SelectedValue = If(Request("EsFacturaGlobal") IsNot Nothing, Request("EsFacturaGlobal").ToString, "-1").ToString
DdlFilial.SelectedValue = IfNull(Request("EsFilial"), "-1").ToString
UPFiltros.Update() UPFiltros.Update()

14
Ventas/RepVentas.aspx
View File

@@ -334,13 +334,6 @@
<asp:ListItem Text="No Distribuidor" Value="0"></asp:ListItem> <asp:ListItem Text="No Distribuidor" Value="0"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="col-md-1 truncate">Relación:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlTipoRelacion" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SATTipoRelacion" DataValueField="CveTipoRelacion">
</asp:DropDownList>
</div>
<asp:Label runat="server" ID="LblServicioDomicilioFiltro" class="col-md-1 truncate" Visible="false">Servicio Domicilio:</asp:Label> <asp:Label runat="server" ID="LblServicioDomicilioFiltro" class="col-md-1 truncate" Visible="false">Servicio Domicilio:</asp:Label>
<div class="col-md-2" runat="server" id="DVServicioDomicilio" Visible="false"> <div class="col-md-2" runat="server" id="DVServicioDomicilio" Visible="false">
<asp:DropDownList ID="DdlServicioDomicilio" CssClass=" form-control input-sm select2me" runat="server" Width="100%" > <asp:DropDownList ID="DdlServicioDomicilio" CssClass=" form-control input-sm select2me" runat="server" Width="100%" >
@@ -358,6 +351,13 @@
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div> </div>
<div class="row">
<label class="col-md-1 truncate">Relación:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlTipoRelacion" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SATTipoRelacion" DataValueField="CveTipoRelacion">
</asp:DropDownList>
</div>
</div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>

2
Ventas/RepVentas.aspx.vb
View File

@@ -486,7 +486,7 @@ Partial Class Ventas_RepVentas
'LIGA A DETALLE 'LIGA A DETALLE
Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}" Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}"
e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>" e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"

2
asmx/WS_PuntoVenta.asmx
View File

@@ -1184,7 +1184,7 @@ Public Class WS_PuntoVenta
Dim objPV As New ClsPuntoVenta() Dim objPV As New ClsPuntoVenta()
Dim CveCorte As Integer Dim CveCorte As Integer
If objPV.AddVtaCortes(FechaInicial, ImporteInicial, CveUsuario, Descripcion, CveEmpresa) Then If objPV.AddVtaCortes(FechaInicial, ImporteInicial, CveUsuario, Descripcion, -1, CveEmpresa) Then
CveCorte = objPV.CveCorte CveCorte = objPV.CveCorte
End If End If