Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git
This commit is contained in:
Antonio Gonzalez
396
Acumuladores/RepIndicadorDiario.aspx
Normal file
396
Acumuladores/RepIndicadorDiario.aspx
Normal file
@@ -0,0 +1,396 @@
|
|||||||
|
<%@ Page Title="Reporte de Compras Clasificación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepIndicadorDiario.aspx.vb" Inherits="ACumuladores_RepIndicadorDiario" %>
|
||||||
|
|
||||||
|
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||||
|
|
||||||
|
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkExportar" runat="server">
|
||||||
|
<i class="fa fa-ad-excel"></i> Exportar Excel
|
||||||
|
</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
|
||||||
|
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
|
||||||
|
Reporte Indicador Diario
|
||||||
|
</asp:Content>
|
||||||
|
|
||||||
|
<asp:Content ID="Content4" ContentPlaceHolderID="Css" runat="Server">
|
||||||
|
<style>
|
||||||
|
.Widthall {
|
||||||
|
width: 100% !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scrollHeadInner {
|
||||||
|
width: 100% !important;
|
||||||
|
background-color: #dddddd;
|
||||||
|
padding-left: 0px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scrollFoot {
|
||||||
|
display: none;
|
||||||
|
position: static;
|
||||||
|
}
|
||||||
|
|
||||||
|
.table-scrollable {
|
||||||
|
margin: 0px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scroll {
|
||||||
|
margin-bottom: 0px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.table.dataTable {
|
||||||
|
margin-top: 0px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scrollBody {
|
||||||
|
overflow: hidden !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scrollBody table th {
|
||||||
|
padding: 0px !important;
|
||||||
|
padding-right: 4px !important;
|
||||||
|
padding-left: 4px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* 31/05/2018 - ListBoxs */
|
||||||
|
.select2 .select2-selection__rendered {
|
||||||
|
line-height: 1;
|
||||||
|
color: #111;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2 .select2-selection--multiple {
|
||||||
|
box-sizing: border-box;
|
||||||
|
cursor: pointer;
|
||||||
|
display: block;
|
||||||
|
min-height: 20px;
|
||||||
|
user-select: none;
|
||||||
|
-webkit-user-select: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-container--default .select2-selection--multiple .select2-selection__choice {
|
||||||
|
margin-top: 10px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-selection__rendered {
|
||||||
|
margin-top: 0px;
|
||||||
|
height: 25px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-selection {
|
||||||
|
margin-top: 0px;
|
||||||
|
height: 31px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-container--default.select2-container--focus .select2-selection--multiple {
|
||||||
|
border: none;
|
||||||
|
outline: 0;
|
||||||
|
}
|
||||||
|
#chartdiv {
|
||||||
|
width: 100%;
|
||||||
|
height: 500px;
|
||||||
|
}
|
||||||
|
</style>
|
||||||
|
</asp:Content>
|
||||||
|
|
||||||
|
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
|
||||||
|
|
||||||
|
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
|
||||||
|
<div class="portlet-title portlet-filterT smalltitle">
|
||||||
|
<div class="tools">
|
||||||
|
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
|
||||||
|
<a href="javascript:;" class="expand"></a>
|
||||||
|
</div>
|
||||||
|
<div class="titlefiltros caption ">
|
||||||
|
<div class="row">
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<div class="col-md-1 truncate">
|
||||||
|
Fecha Inicio:
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1" style="min-width:115px">
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
|
||||||
|
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
|
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
|
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||||
|
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1 truncate">
|
||||||
|
Fecha Fin:
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1" style="min-width:115px">
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
|
||||||
|
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
|
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
|
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||||
|
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<%-- <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
|
||||||
|
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
|
||||||
|
</asp:DropDownList>--%>
|
||||||
|
<asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" Style="width: 100%;" runat="server"></asp:ListBox>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="portlet-body" style="display: none">
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
<br />
|
||||||
|
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<asp:GridView ID="GvDatos" runat="server" data-sort="true" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip=""
|
||||||
|
DataKeyNames="Tipo,Seccion,TipoCategoria,Ordernador2"
|
||||||
|
>
|
||||||
|
<Columns>
|
||||||
|
<asp:TemplateField ItemStyle-Width="60">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Concepto
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlTipo" runat="server" Text='<%# Eval("Tipo") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Acumulado
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlCantidadAcumulado" runat="server" Text='<%# Eval("CantidadAcumulado") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField ItemStyle-Width="20" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Importe Acumulado
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlImporteAcumulado" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField ItemStyle-Width="80" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Venta Diaria
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlCantidadAlDia" runat="server" Text='<%# Eval("CantidadAldia") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField ItemStyle-Width="80" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Importe Al Día
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlImporteAldia" runat="server" Text='<%# Eval("ImporteAlDia", "{0:N2}") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField ItemStyle-Width="60" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Cantidad Total
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlCantidadTotal" runat="server" Text='<%# Eval("CantidadTotal")%>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField ItemStyle-Width="80" ItemStyle-HorizontalAlign="Right" >
|
||||||
|
<HeaderTemplate>
|
||||||
|
Total
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Label ID="LtlTotal" style="margin-right:10px" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Label>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</Columns>
|
||||||
|
</asp:GridView>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
<asp:UpdatePanel runat="server" ID="UpTipoCambio" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div id="DivTipoCambio" class="modal fade" role="dialog">
|
||||||
|
<div class="modal-dialog">
|
||||||
|
<div class="modal-content">
|
||||||
|
<div class="modal-header">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">
|
||||||
|
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Cambiar Tipo Cambio de Dólares"></asp:Label></h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
<asp:UpdatePanel runat="server" ID="UpBodyTipoCambio" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
|
||||||
|
<asp:RadioButtonList runat="server" ID="RblTipoCambio" AutoPostBack="true">
|
||||||
|
<asp:ListItem Selected="true" Text="Moneda Original" Value="1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Dólares en Tipo Cambio de la Fecha Compra" Value="2"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Tipo Cambio Especifico" Value="3"></asp:ListItem>
|
||||||
|
</asp:RadioButtonList>
|
||||||
|
|
||||||
|
<div class="row" style="margin-left: 10px;" runat="server" id="LiEspecifico" visible="false">
|
||||||
|
Especifico:
|
||||||
|
<asp:TextBox ID="TxtEspecifico" runat="server" Width="55px" />
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="modal-footer">
|
||||||
|
<asp:Button ID="BtnTipoCambio" runat="server" Text="Aceptar" class="btn btn-primary" />
|
||||||
|
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
<div id="DivModalGrafica" class="modal ADS fade" role="dialog">
|
||||||
|
<asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UPModalProd" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="modal-content">
|
||||||
|
<div class="modal-header">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">
|
||||||
|
<asp:Label ID="LblTituloGrafica" runat="server" ClientIDMode="Static" Text=""></asp:Label>
|
||||||
|
</h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-2"></div>
|
||||||
|
<label class="col-md-1 truncate">Grafica:</label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<asp:DropDownList ID="DdlGrafica" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlGrafica_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||||
|
<asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Pastel" Value="2"></asp:ListItem>
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
<label class="col-md-1 truncate"> Ver:</label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<asp:DropDownList ID="DdlVer" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlVer_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||||
|
<asp:ListItem Selected="True" Text="Total" Value="1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="SubTotal" Value="2"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="IVA" Value="3"></asp:ListItem>
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
<div id="chartdiv"></div>
|
||||||
|
</div>
|
||||||
|
<div class="modal-footer">
|
||||||
|
<button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||||
|
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||||
|
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
|
||||||
|
<script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
|
||||||
|
<script src="https://www.amcharts.com/lib/3/serial.js"></script>
|
||||||
|
<script src="https://www.amcharts.com/lib/3/pie.js"></script>
|
||||||
|
<script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
|
||||||
|
<link rel="stylesheet" href="https://www.amcharts.com/lib/3/plugins/export/export.css" type="text/css" media="all" />
|
||||||
|
<script src="https://www.amcharts.com/lib/3/themes/light.js"></script>
|
||||||
|
<script>
|
||||||
|
|
||||||
|
function CargaGraficaBarras(data) {
|
||||||
|
|
||||||
|
var chart = AmCharts.makeChart("chartdiv", {
|
||||||
|
"type": "serial",
|
||||||
|
"theme": "light",
|
||||||
|
"dataProvider": data,
|
||||||
|
"startDuration": 2,
|
||||||
|
"valueAxes": [{
|
||||||
|
"position": "left",
|
||||||
|
"title": "Ventas"
|
||||||
|
}],
|
||||||
|
"graphs": [{
|
||||||
|
"balloonText": "[[category]]: <b>[[value]]</b> [[Moneda]]",
|
||||||
|
"colorField": "Color",
|
||||||
|
"fillAlphas": 1,
|
||||||
|
"lineAlpha": 0.1,
|
||||||
|
"type": "column",
|
||||||
|
"valueField": "Valor"
|
||||||
|
}],
|
||||||
|
"depth3D": 20,
|
||||||
|
"angle": 30,
|
||||||
|
"chartCursor": {
|
||||||
|
"categoryBalloonEnabled": false,
|
||||||
|
"cursorAlpha": 0,
|
||||||
|
"zoomable": false
|
||||||
|
},
|
||||||
|
"categoryField": "Texto",
|
||||||
|
"categoryAxis": {
|
||||||
|
"gridPosition": "start",
|
||||||
|
"labelRotation": 90
|
||||||
|
},
|
||||||
|
"export": {
|
||||||
|
"enabled": true
|
||||||
|
}
|
||||||
|
});
|
||||||
|
}
|
||||||
|
|
||||||
|
function CargaGraficaPastel(data) {
|
||||||
|
|
||||||
|
var chart = AmCharts.makeChart("chartdiv", {
|
||||||
|
"type": "pie",
|
||||||
|
"theme": "light",
|
||||||
|
"dataProvider":
|
||||||
|
data,
|
||||||
|
"valueField": "Valor",
|
||||||
|
"titleField": "Texto",
|
||||||
|
"outlineAlpha": 0.4,
|
||||||
|
"depth3D": 0,
|
||||||
|
"balloonText": "[[title]]<br><span style='font-size:14px'><b>[[value]]</b> ([[percents]]% [[Moneda]])</span>",
|
||||||
|
"angle": 0,
|
||||||
|
"export": {
|
||||||
|
"enabled": true
|
||||||
|
}
|
||||||
|
});
|
||||||
|
}
|
||||||
|
|
||||||
|
</script>
|
||||||
|
</asp:Content>
|
||||||
366
Acumuladores/RepIndicadorDiario.aspx.vb
Normal file
366
Acumuladores/RepIndicadorDiario.aspx.vb
Normal file
@@ -0,0 +1,366 @@
|
|||||||
|
Option Explicit On
|
||||||
|
Option Strict On
|
||||||
|
|
||||||
|
Imports Extensiones
|
||||||
|
Imports Microsoft.Reporting.WebForms
|
||||||
|
Imports System.Data
|
||||||
|
|
||||||
|
Partial Class ACumuladores_RepIndicadorDiario
|
||||||
|
Inherits ClsPaginas
|
||||||
|
|
||||||
|
#Region " PROPIEDADES "
|
||||||
|
Private Property DtDatos As DataTable
|
||||||
|
Get
|
||||||
|
DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
|
||||||
|
End Get
|
||||||
|
|
||||||
|
Set(ByVal value As DataTable)
|
||||||
|
ViewState("DtDatos") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Private Property NumeroRemesa As String
|
||||||
|
Get
|
||||||
|
NumeroRemesa = ViewState("NumeroRemesa").ToString
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("NumeroRemesa") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Private Property TCEspecifico As Double
|
||||||
|
Get
|
||||||
|
If ViewState("TCEspecifico") Is Nothing Then
|
||||||
|
Return -1
|
||||||
|
Else
|
||||||
|
Return DirectCast(ViewState("TCEspecifico"), Double)
|
||||||
|
End If
|
||||||
|
End Get
|
||||||
|
Set(value As Double)
|
||||||
|
ViewState("TCEspecifico") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property DtColor As DataTable
|
||||||
|
Get
|
||||||
|
Return DirectCast(ViewState("DtColor"), DataTable)
|
||||||
|
End Get
|
||||||
|
Set(value As DataTable)
|
||||||
|
ViewState("DtColor") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property Agrupador As String
|
||||||
|
Get
|
||||||
|
Return ViewState("Agrupador").ToString
|
||||||
|
End Get
|
||||||
|
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("Agrupador") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property CveMoneda As Integer
|
||||||
|
Get
|
||||||
|
CveMoneda = ViewState("CveMoneda").ToString.ToEntero
|
||||||
|
End Get
|
||||||
|
Set(value As Integer)
|
||||||
|
ViewState("CveMoneda") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||||
|
If Not IsPostBack Then
|
||||||
|
|
||||||
|
txtFechaI.Text = Now.FirstDayOfMonth().ToString("dd/MM/yyyy")
|
||||||
|
txtFechaF.Text = Now.ToString("dd/MM/yyyy")
|
||||||
|
|
||||||
|
CargaCombos()
|
||||||
|
|
||||||
|
CargaDatos()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#Region "CARGAS"
|
||||||
|
|
||||||
|
Private Sub CargaCombos()
|
||||||
|
|
||||||
|
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
|
||||||
|
DdlSubProyecto.DataBind()
|
||||||
|
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||||
|
DdlSubProyecto.SelectedValuesIfExist("-1")
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub CargaDatos()
|
||||||
|
|
||||||
|
Dim ObjAcum As New ClsAcumuladores()
|
||||||
|
|
||||||
|
Dim FechaI, FechaF As Date
|
||||||
|
FechaI = txtFechaI.Text.ToDate
|
||||||
|
FechaF = txtFechaF.Text.ToDate
|
||||||
|
|
||||||
|
If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
|
||||||
|
TCEspecifico = TxtEspecifico.Text.ToDouble
|
||||||
|
Else
|
||||||
|
TCEspecifico = -1
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ObjAcum.GetRepInicadorDiario(FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||||
|
GvDatos.DataSource = ObjAcum.DtResultados
|
||||||
|
DtDatos = ObjAcum.DtResultados
|
||||||
|
Else
|
||||||
|
GvDatos.DataSource = Nothing
|
||||||
|
End If
|
||||||
|
|
||||||
|
ObjAcum.Dispose()
|
||||||
|
GvDatos.DataBind()
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "SELECTED INDEX CHANGE"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
|
||||||
|
If RblTipoCambio.SelectedValue.ToEntero = 3 Then
|
||||||
|
Dim TipoCambio As Double
|
||||||
|
LiEspecifico.Visible = True
|
||||||
|
TipoCambio = GlobalTipoCambio(Now)
|
||||||
|
TxtEspecifico.Text = TipoCambio.ToString
|
||||||
|
Else
|
||||||
|
LiEspecifico.Visible = False
|
||||||
|
End If
|
||||||
|
UpBodyTipoCambio.Update()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "CONSULTAR"
|
||||||
|
|
||||||
|
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
|
||||||
|
CargaDatos()
|
||||||
|
UPDatos.Update()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "GRIDVIEW"
|
||||||
|
|
||||||
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||||
|
|
||||||
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
|
|
||||||
|
If e.Row.DataKey("Ordernador2").ToEntero = 100 Or e.Row.DataKey("Seccion").ToEntero = 3 And (e.Row.DataKey("TipoCategoria").ToEntero = 6 Or e.Row.DataKey("TipoCategoria").ToEntero = 7) Then
|
||||||
|
e.Row.Font.Bold = True
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region " IMPRIMIR "
|
||||||
|
|
||||||
|
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
|
||||||
|
'GvDatos.ExportToExcel("ReporteComprasClasificacion" & Now.ToShortDateString)
|
||||||
|
GenerarPDF("EXCEL")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
|
||||||
|
GenerarPDF("PDF")
|
||||||
|
End Sub
|
||||||
|
Private Sub GenerarPDF(Opcion As String)
|
||||||
|
Dim FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
|
||||||
|
Dim FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Dim FechaIn As String = $" <b>Fecha Inicio:</b> {txtFechaI.Text}"
|
||||||
|
Dim FechaFn As String = $" <b>Fecha Fin:</b> {txtFechaF.Text}"
|
||||||
|
If txtFechaI.Text = "" Then FechaIn = ""
|
||||||
|
If txtFechaF.Text = "" Then FechaFn = ""
|
||||||
|
|
||||||
|
|
||||||
|
Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $" <b>SubProyecto:</b> {DdlSubProyecto.GetSelectedText}")
|
||||||
|
|
||||||
|
|
||||||
|
Dim FechaIF, FechaFF As String
|
||||||
|
FechaIF = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
|
||||||
|
FechaFF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||||
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
|
Dim params As New List(Of ReportParameter)
|
||||||
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||||
|
params.Add(New ReportParameter("FechaInicio", FechaI))
|
||||||
|
params.Add(New ReportParameter("FechaFin", FechaF))
|
||||||
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
|
params.Add(New ReportParameter("FechaImpresion", Now.ToString))
|
||||||
|
params.Add(New ReportParameter("AgrupadoPor", $"<b>Filtros Por:</b> {FechaIn} {FechaFn} {SubProyecto} "))
|
||||||
|
|
||||||
|
If Imagen.Exists Then
|
||||||
|
params.Add(New ReportParameter("LogoPath", logouri))
|
||||||
|
Else
|
||||||
|
params.Add(New ReportParameter("LogoPath", ""))
|
||||||
|
End If
|
||||||
|
ImprimirPDF("Empresas/Grales/Formatos/RepIndicadorDiario.rdlc", DtDatos, params, $"RepIndicadorDiario_{Now.ToString("yyyyMMddhhmmss")}", Opcion)
|
||||||
|
Else
|
||||||
|
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "GRAFICA"
|
||||||
|
|
||||||
|
Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
|
||||||
|
If Not DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
|
||||||
|
Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
LblTituloGrafica.Text = $"Agrupado por: {Agrupador}"
|
||||||
|
RegistraScript("$('#DivModalGrafica').modal('show')")
|
||||||
|
CambioGrafica()
|
||||||
|
End Sub
|
||||||
|
Private Sub CreaDataTableColor()
|
||||||
|
DtColor = New DataTable
|
||||||
|
DtColor.Columns.Add("Color")
|
||||||
|
Dim RowColor As DataRow = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#FF0F00"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#FF6600"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#FF9E01"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#FCD202"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#F8FF01"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#B0DE09"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#04D215"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#0D8ECF"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#0D52D1"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#2A0CD0"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#8A0CCF"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#CD0D74"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#754DEB"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#DDDDDD"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#999999"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#333333"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#000000"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CambioGrafica()
|
||||||
|
Dim Dt As New DataTable()
|
||||||
|
Dt.Columns.Add("Texto")
|
||||||
|
Dt.Columns.Add("Valor")
|
||||||
|
Dt.Columns.Add("Color")
|
||||||
|
Dt.Columns.Add("Moneda")
|
||||||
|
Dim RowColorIndex As Integer = 0
|
||||||
|
For Each Dr As DataRow In DtDatos.Rows
|
||||||
|
If Not Dr("CveCompra").ToString.ToEntero > 0 Then
|
||||||
|
Dim Row As DataRow = Nothing
|
||||||
|
Row = Dt.NewRow()
|
||||||
|
Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {CveMoneda}").Rows(0)("Abreviatura").ToString}"
|
||||||
|
Select Case DdlVer.SelectedValue.ToEntero
|
||||||
|
Case 1
|
||||||
|
Row("Valor") = Dr("Total").ToString.FormatoNumero
|
||||||
|
Case 2
|
||||||
|
Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
|
||||||
|
Case 3
|
||||||
|
Row("Valor") = Dr("IVA").ToString.FormatoNumero
|
||||||
|
End Select
|
||||||
|
Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
|
||||||
|
Row("Moneda") = GlobalDTMonedas().FiltraParametros($"CveMoneda = {CveMoneda}").Rows(0)("Moneda").ToString
|
||||||
|
Dt.Rows.Add(Row)
|
||||||
|
RowColorIndex += 1
|
||||||
|
If RowColorIndex = 17 Then
|
||||||
|
RowColorIndex = 0
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
|
||||||
|
Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)
|
||||||
|
Select Case DdlGrafica.SelectedValue.ToEntero
|
||||||
|
Case 1
|
||||||
|
RegistraScript($"CargaGraficaBarras({json})", "22")
|
||||||
|
Case 2
|
||||||
|
RegistraScript($"CargaGraficaPastel({json})", "22")
|
||||||
|
End Select
|
||||||
|
UPModalProd.Update()
|
||||||
|
End Sub
|
||||||
|
Protected Sub DdlGrafica_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||||
|
CambioGrafica()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||||
|
CambioGrafica()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
@@ -703,7 +703,7 @@ Public Class ClsAcumuladores
|
|||||||
Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CvePS As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer,
|
Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CvePS As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer,
|
||||||
CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String,
|
CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String,
|
||||||
CveTipoDefecto As Integer, NumPoliza As String, Importe As Double,
|
CveTipoDefecto As Integer, NumPoliza As String, Importe As Double,
|
||||||
Consecutivo As String) As Boolean
|
Consecutivo As String, FechaAjuste As DateTime) As Boolean
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
SqlDataAdapter("PA_Acum_GarantiasDetalleAdd")
|
SqlDataAdapter("PA_Acum_GarantiasDetalleAdd")
|
||||||
With SqlAdapter.SelectCommand.Parameters
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
@@ -718,6 +718,7 @@ Public Class ClsAcumuladores
|
|||||||
.Add("@NumPoliza", SqlDbType.VarChar).Value = NumPoliza
|
.Add("@NumPoliza", SqlDbType.VarChar).Value = NumPoliza
|
||||||
.Add("@Importe", SqlDbType.Float).Value = Importe
|
.Add("@Importe", SqlDbType.Float).Value = Importe
|
||||||
.Add("@Consecutivo", SqlDbType.VarChar).Value = Consecutivo
|
.Add("@Consecutivo", SqlDbType.VarChar).Value = Consecutivo
|
||||||
|
.Add("@FechaAjuste", SqlDbType.DateTime).Value = FechaAjuste
|
||||||
End With
|
End With
|
||||||
Try
|
Try
|
||||||
SqlAdapter.Fill(Data)
|
SqlAdapter.Fill(Data)
|
||||||
@@ -898,12 +899,12 @@ Public Class ClsAcumuladores
|
|||||||
|
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
SqlDataAdapter("PA_Acum_RepInicadorDiarioGet")
|
SqlDataAdapter("PA_Acum_RepIndicadorDiarioGet")
|
||||||
|
|
||||||
With SqlAdapter.SelectCommand.Parameters
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
|
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
|
||||||
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
|
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
|
||||||
.Add("@CveSubProeycto", SqlDbType.Int).Value = CveSubProeycto
|
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProeycto
|
||||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
End With
|
End With
|
||||||
|
|
||||||
|
|||||||
@@ -27,6 +27,7 @@ Public Class ClsProductosServicios
|
|||||||
|
|
||||||
Public Property CvePS As Integer
|
Public Property CvePS As Integer
|
||||||
Public Property CveClasificacion As Integer
|
Public Property CveClasificacion As Integer
|
||||||
|
Public Property Clasificacion As String
|
||||||
Public Property CveUnidadMedida As Integer
|
Public Property CveUnidadMedida As Integer
|
||||||
Public Property CveSATPS As Integer
|
Public Property CveSATPS As Integer
|
||||||
Public Property SATClavePS As String
|
Public Property SATClavePS As String
|
||||||
@@ -226,6 +227,7 @@ Public Class ClsProductosServicios
|
|||||||
If Data.Rows.Count > 0 Then
|
If Data.Rows.Count > 0 Then
|
||||||
Me.CvePS = Data.Rows(0)("CvePS").ToString().ToEntero
|
Me.CvePS = Data.Rows(0)("CvePS").ToString().ToEntero
|
||||||
Me.CveClasificacion = Data.Rows(0)("CveClasificacion").ToString.ToEntero
|
Me.CveClasificacion = Data.Rows(0)("CveClasificacion").ToString.ToEntero
|
||||||
|
Me.Clasificacion = Data.Rows(0)("Clasificacion").ToString
|
||||||
CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero
|
CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero
|
||||||
CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero
|
CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero
|
||||||
Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString
|
Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString
|
||||||
|
|||||||
@@ -1349,7 +1349,7 @@ Namespace Modelos
|
|||||||
For Each Dr As DataRow In DtAjustes.Rows
|
For Each Dr As DataRow In DtAjustes.Rows
|
||||||
If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero,
|
If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero,
|
||||||
Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero,
|
Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero,
|
||||||
Dr("NumPoliza").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString) Then
|
Dr("NumPoliza").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString, Dr("FechaAjuste").ToString.ToDateTime()) Then
|
||||||
ErrorList.Add("Ocurrió un error al agregar la garantia detalle.")
|
ErrorList.Add("Ocurrió un error al agregar la garantia detalle.")
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|||||||
@@ -93,7 +93,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
|||||||
obj.sale_type = "01" 'PISO
|
obj.sale_type = "01" 'PISO
|
||||||
obj.sale_type_service = "01" 'PARTICULAR
|
obj.sale_type_service = "01" 'PARTICULAR
|
||||||
obj.sale_total = ObjFactura.Total
|
obj.sale_total = ObjFactura.Total
|
||||||
obj.sale_discount = ObjFactura.SubTotal
|
obj.sale_discount = 0 'ObjFactura.SubTotal
|
||||||
obj.sale_id = GuidGenerator.GenerateTimeBasedGuid().ToString()
|
obj.sale_id = GuidGenerator.GenerateTimeBasedGuid().ToString()
|
||||||
|
|
||||||
'Dim PS = ObjFactura.DtDetalle.Rows(0)
|
'Dim PS = ObjFactura.DtDetalle.Rows(0)
|
||||||
|
|||||||
@@ -6639,10 +6639,10 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
IdCtaContable = CtaProveedorExtranjera
|
IdCtaContable = CtaProveedorExtranjera
|
||||||
CveCuenta = CveCuentaProveedorExtranjera
|
CveCuenta = CveCuentaProveedorExtranjera
|
||||||
If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMovimientoNC, Referencia, 17, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
|
If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then
|
||||||
IdCtaContable = CtaProveedorComplementaria
|
IdCtaContable = CtaProveedorComplementaria
|
||||||
CveCuenta = CveCuentaProveedorComplementaria
|
CveCuenta = CveCuentaProveedorComplementaria
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMNNC - importeMovimientoNC, Referencia, 206, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMNNC - importeMovimientoNC, Referencia, 206, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then
|
||||||
ErrorPrepoliza = True
|
ErrorPrepoliza = True
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -681,7 +681,7 @@ Partial Class General_SaldosIniciales
|
|||||||
|
|
||||||
Dim CveTipoPS As Integer = If(TipoPS.ToUpper = "PRODUCTO", 2, 1)
|
Dim CveTipoPS As Integer = If(TipoPS.ToUpper = "PRODUCTO", 2, 1)
|
||||||
Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
|
Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
|
||||||
Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString.ToEntero
|
Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}' OR Abreviatura = '{UnidadMedida}'").ToString.ToEntero
|
||||||
Dim CveSATPS As Integer = GlobalDTPSATPS.FiltroPrimeroValor("CveSATPS", $"SATClavePS = '{SATClavePS}'").ToString.ToEntero
|
Dim CveSATPS As Integer = GlobalDTPSATPS.FiltroPrimeroValor("CveSATPS", $"SATClavePS = '{SATClavePS}'").ToString.ToEntero
|
||||||
Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}' AND CveEmpresa = {UsuarioActual.CveEmpresa}").ToString.ToEntero
|
Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}' AND CveEmpresa = {UsuarioActual.CveEmpresa}").ToString.ToEntero
|
||||||
Dim CveClasificacion2 As Integer = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero
|
Dim CveClasificacion2 As Integer = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero
|
||||||
|
|||||||
@@ -1886,14 +1886,18 @@ Partial Class Inventarios_RecepcionEntrega
|
|||||||
Dim CveConceptoMovimientoVirtual As Integer = -1
|
Dim CveConceptoMovimientoVirtual As Integer = -1
|
||||||
Dim CveAlmacenVirtual As Integer = -1
|
Dim CveAlmacenVirtual As Integer = -1
|
||||||
Dim CveMovimientoRelacionadoVirtual As Integer = -1
|
Dim CveMovimientoRelacionadoVirtual As Integer = -1
|
||||||
|
Dim ValidaVirtual As Boolean = False
|
||||||
|
|
||||||
If TipoMovimiento = 1 Then
|
If TipoMovimiento = 1 Then
|
||||||
For Each GvRow As GridViewRow In GvDatos.Rows
|
For Each GvRow As GridViewRow In GvDatos.Rows
|
||||||
If GvRow.RowType = DataControlRowType.DataRow Then
|
If GvRow.RowType = DataControlRowType.DataRow Then
|
||||||
|
|
||||||
For Each Tam As DataRow In DtTamanios.Rows
|
If GvRow.datakey("CveTamaño").tostring.toentero > 0 Then
|
||||||
If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then
|
ValidaVirtual = True ' si tiene tamaño, debe de tener virtual
|
||||||
Dim CvePSCargo = Tam("CvePSCargo").ToString().ToEntero()
|
Dim drr As DataRow = DtTamanios.FiltroPrimero(String.Format("CveTamaño={0}", GvRow.DataKey("CveTamaño")))
|
||||||
|
If drr IsNot Nothing Then
|
||||||
|
|
||||||
|
Dim CvePSCargo = drr("CvePSCargo").ToString().ToEntero()
|
||||||
Dim Row As DataRow = DtPSVirtual.NewRow()
|
Dim Row As DataRow = DtPSVirtual.NewRow()
|
||||||
Row("CvePS") = CvePSCargo
|
Row("CvePS") = CvePSCargo
|
||||||
Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal()
|
Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal()
|
||||||
@@ -1901,9 +1905,9 @@ Partial Class Inventarios_RecepcionEntrega
|
|||||||
Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
|
Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
|
||||||
|
|
||||||
DtPSVirtual.Rows.Add(Row)
|
DtPSVirtual.Rows.Add(Row)
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Next
|
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
@@ -1911,6 +1915,7 @@ Partial Class Inventarios_RecepcionEntrega
|
|||||||
CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
|
CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
|
||||||
|
|
||||||
ElseIf TipoMovimiento = 2 Then
|
ElseIf TipoMovimiento = 2 Then
|
||||||
|
ValidaVirtual = True
|
||||||
Dim CveMovimientoSalidaDev As Integer = -1
|
Dim CveMovimientoSalidaDev As Integer = -1
|
||||||
If ObjInventario.GetInv_Mov(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
|
If ObjInventario.GetInv_Mov(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
|
||||||
Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND CveTipoAlmacen = 24 AND CveConcepto = 3 AND CveVenta > 0")
|
Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND CveTipoAlmacen = 24 AND CveConcepto = 3 AND CveVenta > 0")
|
||||||
@@ -1919,6 +1924,7 @@ Partial Class Inventarios_RecepcionEntrega
|
|||||||
CveMovimientoRelacionadoVirtual = CveMovimientoSalidaDev
|
CveMovimientoRelacionadoVirtual = CveMovimientoSalidaDev
|
||||||
Else
|
Else
|
||||||
ErrorMovInv = True
|
ErrorMovInv = True
|
||||||
|
TextoError = "Ocurrió un error al procesar el movimiento. Por favor vuelva a intentar."
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'CARGA CONCEPTOS DEVUELTOS EN LA VENTA
|
'CARGA CONCEPTOS DEVUELTOS EN LA VENTA
|
||||||
@@ -1926,6 +1932,7 @@ Partial Class Inventarios_RecepcionEntrega
|
|||||||
DtPSVirtual = ObjInventario.DtResultados.Copy()
|
DtPSVirtual = ObjInventario.DtResultados.Copy()
|
||||||
Else
|
Else
|
||||||
ErrorMovInv = True
|
ErrorMovInv = True
|
||||||
|
TextoError = "Ocurrió un error al procesar los movimientos de devolución. Por favor vuelva a intentar."
|
||||||
End If
|
End If
|
||||||
CveConceptoMovimientoVirtual = 18
|
CveConceptoMovimientoVirtual = 18
|
||||||
End If
|
End If
|
||||||
@@ -1953,11 +1960,16 @@ Partial Class Inventarios_RecepcionEntrega
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
ErrorMovInv = True
|
If ValidaVirtual Then
|
||||||
|
ErrorMovInv = True
|
||||||
|
TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar."
|
||||||
|
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If DtPSVirtual.Rows.Count = 0 Then
|
If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then
|
||||||
ErrorMovInv = True
|
ErrorMovInv = True
|
||||||
|
TextoError = "No se tienen productos para el almacen virtual."
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|||||||
@@ -5587,9 +5587,8 @@ Partial Class PV
|
|||||||
|
|
||||||
Dim CveUnidadMedidaPSA As Integer = -1
|
Dim CveUnidadMedidaPSA As Integer = -1
|
||||||
Dim UnidadMedidaPSA As String = "Unidad"
|
Dim UnidadMedidaPSA As String = "Unidad"
|
||||||
Dim CveClacificacionPSA As Integer = -1
|
Dim CveClasificacionPSA As Integer = -1
|
||||||
|
Dim ClasificacionPSA As String = ""
|
||||||
Dim ClacificacionPSA As String = ""
|
|
||||||
|
|
||||||
Dim CveSubProyectoPSA As Integer = -1
|
Dim CveSubProyectoPSA As Integer = -1
|
||||||
Dim SubProyectoPSA As String = ""
|
Dim SubProyectoPSA As String = ""
|
||||||
@@ -5601,8 +5600,8 @@ Partial Class PV
|
|||||||
DTPSTemp.Columns.Add("Cantidad", GetType(Integer))
|
DTPSTemp.Columns.Add("Cantidad", GetType(Integer))
|
||||||
DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer))
|
DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer))
|
||||||
DTPSTemp.Columns.Add("UnidadMedida", GetType(String))
|
DTPSTemp.Columns.Add("UnidadMedida", GetType(String))
|
||||||
DTPSTemp.Columns.Add("CveClacificacion", GetType(Integer))
|
DTPSTemp.Columns.Add("CveClasificacion", GetType(Integer))
|
||||||
DTPSTemp.Columns.Add("Clacificacion", GetType(String))
|
DTPSTemp.Columns.Add("Clasificacion", GetType(String))
|
||||||
DTPSTemp.Columns.Add("CvePS", GetType(Integer))
|
DTPSTemp.Columns.Add("CvePS", GetType(Integer))
|
||||||
DTPSTemp.Columns.Add("PS", GetType(String))
|
DTPSTemp.Columns.Add("PS", GetType(String))
|
||||||
DTPSTemp.Columns.Add("PU", GetType(Decimal))
|
DTPSTemp.Columns.Add("PU", GetType(Decimal))
|
||||||
@@ -5626,21 +5625,14 @@ Partial Class PV
|
|||||||
|
|
||||||
If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then
|
If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then
|
||||||
CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida
|
CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida
|
||||||
CveClacificacionPSA = ObjProductosServicios.CveClasificacion
|
CveClasificacionPSA = ObjProductosServicios.CveClasificacion
|
||||||
|
ClasificacionPSA = ObjProductosServicios.Clasificacion
|
||||||
UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida")
|
UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida")
|
||||||
PSPSA = ObjProductosServicios.PS
|
PSPSA = ObjProductosServicios.PS
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.UsaAC Then
|
|
||||||
ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", " Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
|
|
||||||
Else
|
|
||||||
ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", Orderby:="Clasificacion")
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp }").ToDecimal
|
Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp }").ToDecimal
|
||||||
|
|
||||||
|
|
||||||
If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then
|
If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then
|
||||||
|
|
||||||
For Each dRowUpdate As DataRow In DTPSTemp.Rows
|
For Each dRowUpdate As DataRow In DTPSTemp.Rows
|
||||||
@@ -5660,8 +5652,8 @@ Partial Class PV
|
|||||||
dRowNuevo("PU") = Cargo
|
dRowNuevo("PU") = Cargo
|
||||||
dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA
|
dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA
|
||||||
dRowNuevo("UnidadMedida") = UnidadMedidaPSA
|
dRowNuevo("UnidadMedida") = UnidadMedidaPSA
|
||||||
dRowNuevo("CveClacificacion") = CveClacificacionPSA
|
dRowNuevo("CveClasificacion") = CveClasificacionPSA
|
||||||
dRowNuevo("Clacificacion") = ClacificacionPSA
|
dRowNuevo("Clasificacion") = ClasificacionPSA
|
||||||
dRowNuevo("CvePS") = CvePsTemp
|
dRowNuevo("CvePS") = CvePsTemp
|
||||||
dRowNuevo("PS") = PSPSA
|
dRowNuevo("PS") = PSPSA
|
||||||
|
|
||||||
@@ -5686,7 +5678,7 @@ Partial Class PV
|
|||||||
For Each drowPsTamaños As DataRow In DTPSTemp.Rows
|
For Each drowPsTamaños As DataRow In DTPSTemp.Rows
|
||||||
If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
|
If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
|
||||||
Dim Concec = AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
|
Dim Concec = AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
|
||||||
drowPsTamaños("CveClacificacion").ToString.ToEntero, drowPsTamaños("Clacificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
|
drowPsTamaños("CveClasificacion").ToString.ToEntero, drowPsTamaños("Clasificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
|
||||||
drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
|
drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
|
||||||
drowPsTamaños("SubProyecto").ToString, EsCargo:=True, ConsecPSPadre:=drowPsTamaños("ConsecPSPadre").ToString.ToEntero)
|
drowPsTamaños("SubProyecto").ToString, EsCargo:=True, ConsecPSPadre:=drowPsTamaños("ConsecPSPadre").ToString.ToEntero)
|
||||||
If Consec > 0 Then
|
If Consec > 0 Then
|
||||||
|
|||||||
@@ -6735,7 +6735,9 @@ Partial Class Ventas
|
|||||||
'ENVIAR POLIZA VIRTUAL
|
'ENVIAR POLIZA VIRTUAL
|
||||||
If ErrorList.Count = 0 Then
|
If ErrorList.Count = 0 Then
|
||||||
If UsuarioActual.Empresa.Funcionalidad(576) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(576) = "1" Then
|
||||||
GeneraPolizaVentaWS(ObjFactura)
|
If Not GeneraPolizaVentaWS(ObjVentas, ObjFactura) Then
|
||||||
|
ErrorList.Add("Ocurrió un error al registrar los movimientos de almacén del contrato de consignación")
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -23528,9 +23530,9 @@ Partial Class Ventas
|
|||||||
|
|
||||||
Dim CveUnidadMedidaPSA As Integer = -1
|
Dim CveUnidadMedidaPSA As Integer = -1
|
||||||
Dim UnidadMedidaPSA As String = "Unidad"
|
Dim UnidadMedidaPSA As String = "Unidad"
|
||||||
Dim CveClacificacionPSA As Integer = -1
|
Dim CveClasificacionPSA As Integer = -1
|
||||||
|
|
||||||
Dim ClacificacionPSA As String = ""
|
Dim ClasificacionPSA As String = ""
|
||||||
|
|
||||||
Dim CveSubProyectoPSA As Integer = -1
|
Dim CveSubProyectoPSA As Integer = -1
|
||||||
Dim SubProyectoPSA As String = ""
|
Dim SubProyectoPSA As String = ""
|
||||||
@@ -23538,12 +23540,12 @@ Partial Class Ventas
|
|||||||
Dim PSPSA As String = ""
|
Dim PSPSA As String = ""
|
||||||
|
|
||||||
Dim DTPSTemp As New DataTable '= TmpDT.Clone
|
Dim DTPSTemp As New DataTable '= TmpDT.Clone
|
||||||
'AgregarProductoServicio(1, CveUnidadMedidaPSA, UnidadMedidaPSA, CveClacificacionPSA, ClacificacionPSA, CvePSPSA, PSPSA, "", ImporteCargo, 0, -1, "", CveSubProyectoPSA, SubProyectoPSA)
|
|
||||||
DTPSTemp.Columns.Add("Cantidad", GetType(Integer))
|
DTPSTemp.Columns.Add("Cantidad", GetType(Integer))
|
||||||
DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer))
|
DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer))
|
||||||
DTPSTemp.Columns.Add("UnidadMedida", GetType(String))
|
DTPSTemp.Columns.Add("UnidadMedida", GetType(String))
|
||||||
DTPSTemp.Columns.Add("CveClacificacion", GetType(Integer))
|
DTPSTemp.Columns.Add("CveClasificacion", GetType(Integer))
|
||||||
DTPSTemp.Columns.Add("Clacificacion", GetType(String))
|
DTPSTemp.Columns.Add("Clasificacion", GetType(String))
|
||||||
DTPSTemp.Columns.Add("CvePS", GetType(Integer))
|
DTPSTemp.Columns.Add("CvePS", GetType(Integer))
|
||||||
DTPSTemp.Columns.Add("PS", GetType(String))
|
DTPSTemp.Columns.Add("PS", GetType(String))
|
||||||
DTPSTemp.Columns.Add("PU", GetType(Decimal))
|
DTPSTemp.Columns.Add("PU", GetType(Decimal))
|
||||||
@@ -23563,20 +23565,16 @@ Partial Class Ventas
|
|||||||
SubProyectoPSA = DrowPartidas("SubProyecto").ToString
|
SubProyectoPSA = DrowPartidas("SubProyecto").ToString
|
||||||
|
|
||||||
Dim ObjProductosServicios As New ClsProductosServicios()
|
Dim ObjProductosServicios As New ClsProductosServicios()
|
||||||
|
|
||||||
If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then
|
If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then
|
||||||
CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida
|
CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida
|
||||||
CveClacificacionPSA = ObjProductosServicios.CveClasificacion
|
CveClasificacionPSA = ObjProductosServicios.CveClasificacion
|
||||||
|
ClasificacionPSA = ObjProductosServicios.Clasificacion
|
||||||
UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida")
|
UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida")
|
||||||
PSPSA = ObjProductosServicios.PS
|
PSPSA = ObjProductosServicios.PS
|
||||||
End If
|
End If
|
||||||
ObjProductosServicios.Dispose()
|
ObjProductosServicios.Dispose()
|
||||||
|
|
||||||
If UsuarioActual.Empresa.UsaAC Then
|
|
||||||
ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", " Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
|
|
||||||
Else
|
|
||||||
ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", Orderby:="Clasificacion")
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp }").ToDecimal
|
Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp }").ToDecimal
|
||||||
|
|
||||||
|
|
||||||
@@ -23599,8 +23597,8 @@ Partial Class Ventas
|
|||||||
dRowNuevo("PU") = Cargo
|
dRowNuevo("PU") = Cargo
|
||||||
dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA
|
dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA
|
||||||
dRowNuevo("UnidadMedida") = UnidadMedidaPSA
|
dRowNuevo("UnidadMedida") = UnidadMedidaPSA
|
||||||
dRowNuevo("CveClacificacion") = CveClacificacionPSA
|
dRowNuevo("CveClasificacion") = CveClasificacionPSA
|
||||||
dRowNuevo("Clacificacion") = ClacificacionPSA
|
dRowNuevo("Clasificacion") = ClasificacionPSA
|
||||||
dRowNuevo("CvePS") = CvePsTemp
|
dRowNuevo("CvePS") = CvePsTemp
|
||||||
dRowNuevo("PS") = PSPSA
|
dRowNuevo("PS") = PSPSA
|
||||||
|
|
||||||
@@ -23619,7 +23617,7 @@ Partial Class Ventas
|
|||||||
Modalidad = "A"
|
Modalidad = "A"
|
||||||
If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
|
If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
|
||||||
AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
|
AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
|
||||||
drowPsTamaños("CveClacificacion").ToString.ToEntero, drowPsTamaños("Clacificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
|
drowPsTamaños("CveClasificacion").ToString.ToEntero, drowPsTamaños("Clasificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
|
||||||
drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
|
drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
|
||||||
drowPsTamaños("SubProyecto").ToString)
|
drowPsTamaños("SubProyecto").ToString)
|
||||||
End If
|
End If
|
||||||
@@ -23812,49 +23810,61 @@ Partial Class Ventas
|
|||||||
CargaRNC()
|
CargaRNC()
|
||||||
RegistraScript("$('#ModalAplicarRemisionesNC').modal({backdrop: 'static', keyboard: false });")
|
RegistraScript("$('#ModalAplicarRemisionesNC').modal({backdrop: 'static', keyboard: false });")
|
||||||
End Sub
|
End Sub
|
||||||
Protected Function GeneraPolizaVentaWS(ObjFactura As Modelos.Factura) As Boolean
|
Protected Function GeneraPolizaVentaWS(ByRef ObjVentas As ClsVentas, ObjFactura As Modelos.Factura) As Boolean
|
||||||
Dim obj As New Modelos.MPolizaVentaWS
|
Dim DtUsados As DataTable = Nothing
|
||||||
'DATOS DEL CLIENTE
|
|
||||||
obj.customer_name = ObjFactura.Cliente.Nombre
|
|
||||||
obj.customer_last_name1 = ""
|
|
||||||
obj.customer_last_name2 = ""
|
|
||||||
obj.customer_birthday = Nothing
|
|
||||||
obj.customer_phone = ObjFactura.Cliente.Telefono
|
|
||||||
obj.customer_email = ObjFactura.Cliente.Mail
|
|
||||||
obj.customer_gender = "03" 'OTRO GENERO
|
|
||||||
obj.customer_advertising = False
|
|
||||||
obj.customer_car_brand = "00"
|
|
||||||
obj.customer_car_model = "00"
|
|
||||||
obj.customer_car_year = ObjFactura.Fecha.Year
|
|
||||||
|
|
||||||
'DATOS DE VENTA
|
If ObjVentas.GetVentasUsadosDetalle(ObjFactura.CveVenta) Then
|
||||||
obj.sale_date = Now
|
DtUsados = ObjVentas.DtResultados.Copy()
|
||||||
obj.sale_paidby = "01"
|
End If
|
||||||
obj.sale_type = "01" 'PISO
|
|
||||||
obj.sale_type_service = "01" 'PARTICULAR
|
|
||||||
obj.sale_total = ObjFactura.Total
|
|
||||||
obj.sale_discount = ObjFactura.SubTotal
|
|
||||||
obj.sale_id = ObjFactura.CveVenta.ToString()
|
|
||||||
|
|
||||||
'DATOS DEL PRODUCTO
|
For Each Row As DataRow In DtUsados.Rows
|
||||||
obj.product_code = "174925"
|
Dim obj As New Modelos.MPolizaVentaWS
|
||||||
obj.product_unique_code = "65047187"
|
'DATOS DEL CLIENTE
|
||||||
obj.product_sale_type = "02" 'AJUSTE
|
obj.customer_name = ObjFactura.Cliente.Nombre
|
||||||
|
obj.customer_last_name1 = ""
|
||||||
|
obj.customer_last_name2 = ""
|
||||||
|
obj.customer_birthday = Nothing
|
||||||
|
obj.customer_phone = ObjFactura.Cliente.Telefono
|
||||||
|
obj.customer_email = ObjFactura.Cliente.Mail
|
||||||
|
obj.customer_gender = "03" 'OTRO GENERO
|
||||||
|
obj.customer_advertising = False
|
||||||
|
obj.customer_car_brand = "00"
|
||||||
|
obj.customer_car_model = "00"
|
||||||
|
obj.customer_car_year = ObjFactura.Fecha.Year
|
||||||
|
|
||||||
'DATOS DE USADO
|
'DATOS DE VENTA
|
||||||
obj.used_product = True
|
obj.sale_date = ObjFactura.Fecha
|
||||||
obj.used_brand = "01"
|
obj.sale_paidby = "01"
|
||||||
obj.used_bci = "25"
|
obj.sale_type = "01" 'PISO
|
||||||
obj.used_month = 1
|
obj.sale_type_service = "02" 'COMERCIAL
|
||||||
obj.used_year = 2015
|
obj.sale_total = ObjFactura.Total
|
||||||
obj.used_sale_date = ObjFactura.Fecha
|
obj.sale_discount = ObjFactura.Descuento
|
||||||
|
obj.sale_id = String.Format("{0}{1}{2}", ObjFactura.Serie, ObjFactura.Folio, ObjFactura.CveVenta)
|
||||||
|
|
||||||
Return False
|
'DATOS DEL PRODUCTO
|
||||||
'EnviarPolizaVentaWS(obj)
|
obj.product_code = Row("Codigo").ToString()
|
||||||
|
obj.product_unique_code = "" 'se indique el código único de la batería.
|
||||||
|
obj.product_sale_type = "01 " 'VENTA
|
||||||
|
|
||||||
|
Dim FechaUsado As DateTime = Row("FechaAjuste").ToString().ToDateTime()
|
||||||
|
|
||||||
|
'DATOS DE USADO
|
||||||
|
obj.used_product = True
|
||||||
|
obj.used_brand = Row("IdModelo").ToString() 'MARCAR DEL USADO
|
||||||
|
obj.used_bci = Row("CveBCIUsado").ToString() 'VALOR DEL BCI
|
||||||
|
obj.used_month = FechaUsado.Month
|
||||||
|
obj.used_year = FechaUsado.Year
|
||||||
|
obj.used_sale_date = FechaUsado
|
||||||
|
|
||||||
|
EnviarPolizaVentaWS(obj)
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return True
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Protected Sub EnviarPolizaVentaWS(obj As Modelos.MPolizaVentaWS)
|
Protected Sub EnviarPolizaVentaWS(obj As Modelos.MPolizaVentaWS)
|
||||||
Dim Retorno As String = "[]"
|
|
||||||
|
Dim Respuesta As String = "[]"
|
||||||
|
|
||||||
Dim User As String = "cslth.2809@jcilink.com"
|
Dim User As String = "cslth.2809@jcilink.com"
|
||||||
Dim Password As String = "ff31580a95f36b51ad27f970428b77a5a9245076"
|
Dim Password As String = "ff31580a95f36b51ad27f970428b77a5a9245076"
|
||||||
@@ -23898,14 +23908,12 @@ Partial Class Ventas
|
|||||||
Dim content As New FormUrlEncodedContent(Parametros)
|
Dim content As New FormUrlEncodedContent(Parametros)
|
||||||
Dim response = wc.PostAsync(Url, content).Result
|
Dim response = wc.PostAsync(Url, content).Result
|
||||||
|
|
||||||
Retorno = response.Content.ReadAsStringAsync().Result
|
Respuesta = response.Content.ReadAsStringAsync().Result
|
||||||
End Using
|
End Using
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
ex.GuardaLog(ex.Message)
|
ex.GuardaLog(ex.Message)
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
Reference in New Issue
Block a user