Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git
This commit is contained in:
Rakcsle Supertramp
82
AF/CatActividades.aspx
Normal file
82
AF/CatActividades.aspx
Normal file
@@ -0,0 +1,82 @@
|
|||||||
|
<%@ Page Title="AF - Catálogo de Actividades" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatActividades.aspx.cs" Inherits="AF_CatActividades" %>
|
||||||
|
|
||||||
|
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||||
|
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||||
|
Catálogo de Actividadedes
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||||
|
<asp:UpdatePanel runat="server" ID="UpAgregar">
|
||||||
|
<ContentTemplate>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton runat="server" ID="BtnAgregarActividadD" OnClick="BtnAgregarActividadD_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Actividad"></asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||||
|
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveActividad, Nombre, CvePuesto, Cantidad, CveUsuario, CveEmpresa" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
|
||||||
|
<Columns>
|
||||||
|
<asp:BoundField HeaderText="Nombre" DataField="Nombre" />
|
||||||
|
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
|
||||||
|
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
</Columns>
|
||||||
|
</asp:GridView>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
<div id="DivAgregarActividadD" class="modal ADS fade" role="dialog">
|
||||||
|
<div class="modal-dialog" style="width: 450px;">
|
||||||
|
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="modal-header ">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">
|
||||||
|
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Tipo de Servicio</asp:Literal></h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox ID="TxtNombre" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
|
||||||
|
<asp:RequiredFieldValidator ID="RfvTxtNombre" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
|
||||||
|
<label for="TxtNombre">Nombre:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList ID="DdlPuesto" DataTextField="Puesto" DataValueField="CvePuesto" CausesValidation="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
|
||||||
|
<label for="<%= DdlPuesto.ClientID.ToString()%>">Puesto:</label>
|
||||||
|
<asp:RequiredFieldValidator ID="RfvPuesto" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlPuesto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario." InitialValue="-1" ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox ID="TxtCantidad" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
|
||||||
|
<asp:RequiredFieldValidator ID="RfvCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
|
||||||
|
<label for="TxtCantidad">Cantidad:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
<div class="modal-footer">
|
||||||
|
<asp:Button ID="BtnAgregarActividad" OnClick="BtnAgregarActividad_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
|
||||||
|
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
110
AF/CatActividades.aspx.cs
Normal file
110
AF/CatActividades.aspx.cs
Normal file
@@ -0,0 +1,110 @@
|
|||||||
|
using System;
|
||||||
|
using System.Collections.Generic;
|
||||||
|
using System.Linq;
|
||||||
|
using System.Web;
|
||||||
|
using System.Web.UI;
|
||||||
|
using System.Web.UI.WebControls;
|
||||||
|
using Extensiones;
|
||||||
|
using System.Data;
|
||||||
|
|
||||||
|
public partial class AF_CatActividades : ClsPaginas
|
||||||
|
{
|
||||||
|
private int CveActividad
|
||||||
|
{
|
||||||
|
get
|
||||||
|
{
|
||||||
|
return ViewState["CveActividad"].ToString().ToEntero();
|
||||||
|
}
|
||||||
|
|
||||||
|
set
|
||||||
|
{
|
||||||
|
ViewState["CveActividad"] = value;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void Page_Load(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
if (!IsPostBack)
|
||||||
|
{
|
||||||
|
CargaDatos();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
private void CargaDatos()
|
||||||
|
{
|
||||||
|
ClsAF ObjAF = new ClsAF();
|
||||||
|
if (ObjAF.GetActividades(-1, -1, -1, UsuarioActual.CveEmpresa))
|
||||||
|
{
|
||||||
|
GvDatos.DataSource = ObjAF.DtResultados;
|
||||||
|
GvDatos.DataBind();
|
||||||
|
}
|
||||||
|
DdlPuesto.DataSource = get_GlobalDTRHPuestos(UsuarioActual.CveEmpresa);
|
||||||
|
DdlPuesto.DataBind();
|
||||||
|
DdlPuesto.Items.Insert(0,new ListItem("-1","Seleccione"));
|
||||||
|
ObjAF.Dispose();
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void BtnAgregarActividadD_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
BtnAgregarActividad.Text = "Agregar";
|
||||||
|
TxtNombre.Text = "";
|
||||||
|
DdlPuesto.SelectedValueExist(-1);
|
||||||
|
TxtCantidad.Text = "";
|
||||||
|
UpModalTiposD.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarActividadD"));
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void LnkEditar_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
BtnAgregarActividad.Text = "Actualizar";
|
||||||
|
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
|
||||||
|
CveActividad = GvRow.DataKey("CveActividad").ToEntero();
|
||||||
|
TxtNombre.Text = GvRow.DataKey("Nombre");
|
||||||
|
DdlPuesto.SelectedValueExist(GvRow.DataKey("CvePuesto"));
|
||||||
|
TxtCantidad.Text = GvRow.DataKey("Cantidad");
|
||||||
|
UpModalTiposD.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarActividadD"));
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void LnkEliminar_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
|
||||||
|
CveActividad = GvRow.DataKey("CveActividad").ToEntero();
|
||||||
|
ClsAF ObjAF = new ClsAF();
|
||||||
|
if (ObjAF.DeleteActividades(CveActividad))
|
||||||
|
{
|
||||||
|
CargaDatos();
|
||||||
|
UpDatos.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarActividadD"));
|
||||||
|
Alert("Se eliminó la Actividad correctamente");
|
||||||
|
}
|
||||||
|
ObjAF.Dispose();
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void BtnAgregarActividad_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
ClsAF ObjAF = new ClsAF();
|
||||||
|
if (BtnAgregarActividad.Text == "Agregar")
|
||||||
|
{
|
||||||
|
if (ObjAF.AddActividades(TxtNombre.Text, DdlPuesto.SelectedValue.ToEntero(),TxtCantidad.Text.ToDecimal(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
|
||||||
|
{
|
||||||
|
CargaDatos();
|
||||||
|
UpDatos.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarActividadD"));
|
||||||
|
Alert("Se agregó la Actividad correctamente");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (ObjAF.UpdateActividades(CveActividad,TxtNombre.Text, DdlPuesto.SelectedValue.ToEntero(), TxtCantidad.Text.ToDecimal(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
|
||||||
|
{
|
||||||
|
CargaDatos();
|
||||||
|
UpDatos.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarActividadD"));
|
||||||
|
Alert("Se actualizó la Actividad correctamente");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
ObjAF.Dispose();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarActividadD"));
|
||||||
|
}
|
||||||
|
}
|
||||||
70
AF/CatCheckListActividadesGrupos.aspx
Normal file
70
AF/CatCheckListActividadesGrupos.aspx
Normal file
@@ -0,0 +1,70 @@
|
|||||||
|
<%@ Page Title="AF - Catálogo de Grupos de CheckLists" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatCheckListActividadesGrupos.aspx.cs" Inherits="AF_CatCheckListActividadesGrupos" %>
|
||||||
|
|
||||||
|
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||||
|
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||||
|
Catálogo de Grupos de CheckLists
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||||
|
<asp:UpdatePanel runat="server" ID="UpAgregar">
|
||||||
|
<ContentTemplate>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton runat="server" ID="BtnAgregarGrupoCheckListD" OnClick="BtnAgregarGrupoCheckListD_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Grupo CheckList"></asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||||
|
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCheckListActividadGrupo, CheckListActividadGrupo" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
|
||||||
|
<Columns>
|
||||||
|
<asp:BoundField HeaderText="Grupo de CheckList" DataField="CheckListActividadGrupo" />
|
||||||
|
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
|
||||||
|
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
</Columns>
|
||||||
|
</asp:GridView>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
<div id="DivAgregarGrupoCheckListD" class="modal ADS fade" role="dialog">
|
||||||
|
<div class="modal-dialog" style="width: 450px;">
|
||||||
|
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="modal-header ">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">
|
||||||
|
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Grupo de CheckList</asp:Literal></h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox ID="TxtGrupoCheckList" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
|
||||||
|
<asp:RequiredFieldValidator ID="RfvTxtGrupoCheckList" runat="server" ControlToValidate="TxtGrupoCheckList" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Grupo CheckList''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
|
||||||
|
<label for="LblNombre">Nombre:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
<div class="modal-footer">
|
||||||
|
<asp:Button ID="BtnAgregarGrupoCheckList" OnClick="BtnAgregarGrupoCheckList_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
|
||||||
|
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
100
AF/CatCheckListActividadesGrupos.aspx.cs
Normal file
100
AF/CatCheckListActividadesGrupos.aspx.cs
Normal file
@@ -0,0 +1,100 @@
|
|||||||
|
using System;
|
||||||
|
using System.Collections.Generic;
|
||||||
|
using System.Linq;
|
||||||
|
using System.Web;
|
||||||
|
using System.Web.UI;
|
||||||
|
using System.Web.UI.WebControls;
|
||||||
|
using Extensiones;
|
||||||
|
using System.Data;
|
||||||
|
|
||||||
|
public partial class AF_CatCheckListActividadesGrupos : ClsPaginas
|
||||||
|
{
|
||||||
|
private int CveCheckListActividadGrupo
|
||||||
|
{
|
||||||
|
get
|
||||||
|
{
|
||||||
|
return ViewState["CveCheckListActividadGrupo"].ToString().ToEntero();
|
||||||
|
}
|
||||||
|
|
||||||
|
set
|
||||||
|
{
|
||||||
|
ViewState["CveCheckListActividadGrupo"] = value;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void Page_Load(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
if (!IsPostBack)
|
||||||
|
{
|
||||||
|
CargaDatos();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
private void CargaDatos()
|
||||||
|
{
|
||||||
|
ClsAF ObjAF = new ClsAF();
|
||||||
|
if (ObjAF.GetCheckListActividadGrupo(-1))
|
||||||
|
{
|
||||||
|
GvDatos.DataSource = ObjAF.DtResultados;
|
||||||
|
GvDatos.DataBind();
|
||||||
|
}
|
||||||
|
|
||||||
|
ObjAF.Dispose();
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void BtnAgregarGrupoCheckListD_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
BtnAgregarGrupoCheckList.Text = "Agregar";
|
||||||
|
TxtGrupoCheckList.Text = "";
|
||||||
|
UpModalTiposD.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarGrupoCheckListD"));
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void LnkEditar_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
BtnAgregarGrupoCheckList.Text = "Actualizar";
|
||||||
|
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
|
||||||
|
CveCheckListActividadGrupo = GvRow.DataKey("CveCheckListActividadGrupo").ToEntero();
|
||||||
|
TxtGrupoCheckList.Text = GvRow.DataKey("CheckListActividadGrupo");
|
||||||
|
UpModalTiposD.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarGrupoCheckListD"));
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void LnkEliminar_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
|
||||||
|
CveCheckListActividadGrupo = GvRow.DataKey("CveCheckListActividadGrupo").ToEntero();
|
||||||
|
ClsAF ObjAF = new ClsAF();
|
||||||
|
if (ObjAF.DeleteCheckListActividadGrupo(CveCheckListActividadGrupo))
|
||||||
|
{
|
||||||
|
CargaDatos();
|
||||||
|
UpDatos.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGrupoCheckListD"));
|
||||||
|
Alert("Se eliminó el Grupo de CheckList correctamente");
|
||||||
|
}
|
||||||
|
ObjAF.Dispose();
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void BtnAgregarGrupoCheckList_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
ClsAF ObjAF = new ClsAF();
|
||||||
|
if (BtnAgregarGrupoCheckList.Text == "Agregar")
|
||||||
|
{
|
||||||
|
if (ObjAF.AddCheckListActividadGrupo(TxtGrupoCheckList.Text))
|
||||||
|
{
|
||||||
|
Alert("Se agregó el Grupo de CheckList correctamente");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (ObjAF.UpdateCheckListActividadGrupo(CveCheckListActividadGrupo, TxtGrupoCheckList.Text))
|
||||||
|
{
|
||||||
|
Alert("Se actualizó el Grupo de CheckList correctamente");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
ObjAF.Dispose();
|
||||||
|
CargaDatos();
|
||||||
|
UpDatos.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGrupoCheckListD"));
|
||||||
|
}
|
||||||
|
}
|
||||||
70
AF/CatCheckListTipo.aspx
Normal file
70
AF/CatCheckListTipo.aspx
Normal file
@@ -0,0 +1,70 @@
|
|||||||
|
<%@ Page Title="AF - Catálogo de Tipos de CheckLists" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatCheckListTipo.aspx.cs" Inherits="AF_CatCheckListTipo" %>
|
||||||
|
|
||||||
|
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||||
|
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||||
|
Catálogo de Tipos de CheckLists
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||||
|
<asp:UpdatePanel runat="server" ID="UpAgregar">
|
||||||
|
<ContentTemplate>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton runat="server" ID="BtnAgregarTipoCheckListD" OnClick="BtnAgregarTipoCheckListD_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Tipo CheckList"></asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||||
|
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCheckListTipo, CheckListTipo" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
|
||||||
|
<Columns>
|
||||||
|
<asp:BoundField HeaderText="Tipos de CheckList" DataField="CheckListTipo" />
|
||||||
|
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
|
||||||
|
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
</Columns>
|
||||||
|
</asp:GridView>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
<div id="DivAgregarGrupoCheckListD" class="modal ADS fade" role="dialog">
|
||||||
|
<div class="modal-dialog" style="width: 450px;">
|
||||||
|
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="modal-header ">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">
|
||||||
|
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Grupo de CheckList</asp:Literal></h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox ID="TxtTipoCheckList" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
|
||||||
|
<asp:RequiredFieldValidator ID="RfvTxtTipoCheckList" runat="server" ControlToValidate="TxtTipoCheckList" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Grupo CheckList''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
|
||||||
|
<label for="TxtTipoCheckList">Tipo:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
<div class="modal-footer">
|
||||||
|
<asp:Button ID="BtnAgregarTipoCheckList" OnClick="BtnAgregarTipoCheckList_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
|
||||||
|
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
100
AF/CatCheckListTipo.aspx.cs
Normal file
100
AF/CatCheckListTipo.aspx.cs
Normal file
@@ -0,0 +1,100 @@
|
|||||||
|
using System;
|
||||||
|
using System.Collections.Generic;
|
||||||
|
using System.Linq;
|
||||||
|
using System.Web;
|
||||||
|
using System.Web.UI;
|
||||||
|
using System.Web.UI.WebControls;
|
||||||
|
using Extensiones;
|
||||||
|
using System.Data;
|
||||||
|
|
||||||
|
public partial class AF_CatCheckListTipo : ClsPaginas
|
||||||
|
{
|
||||||
|
private int CveCheckListTipo
|
||||||
|
{
|
||||||
|
get
|
||||||
|
{
|
||||||
|
return ViewState["CveCheckListTipo"].ToString().ToEntero();
|
||||||
|
}
|
||||||
|
|
||||||
|
set
|
||||||
|
{
|
||||||
|
ViewState["CveCheckListTipo"] = value;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void Page_Load(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
if (!IsPostBack)
|
||||||
|
{
|
||||||
|
CargaDatos();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
private void CargaDatos()
|
||||||
|
{
|
||||||
|
ClsAF ObjAF = new ClsAF();
|
||||||
|
if (ObjAF.GetCheckListTipo(-1))
|
||||||
|
{
|
||||||
|
GvDatos.DataSource = ObjAF.DtResultados;
|
||||||
|
GvDatos.DataBind();
|
||||||
|
}
|
||||||
|
|
||||||
|
ObjAF.Dispose();
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void BtnAgregarTipoCheckListD_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
BtnAgregarTipoCheckList.Text = "Agregar";
|
||||||
|
TxtTipoCheckList.Text = "";
|
||||||
|
UpModalTiposD.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarGrupoCheckListD"));
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void LnkEditar_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
BtnAgregarTipoCheckList.Text = "Actualizar";
|
||||||
|
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
|
||||||
|
CveCheckListTipo = GvRow.DataKey("CveCheckListTipo").ToEntero();
|
||||||
|
TxtTipoCheckList.Text = GvRow.DataKey("CheckListTipo");
|
||||||
|
UpModalTiposD.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarGrupoCheckListD"));
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void LnkEliminar_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
|
||||||
|
CveCheckListTipo = GvRow.DataKey("CveCheckListTipo").ToEntero();
|
||||||
|
ClsAF ObjAF = new ClsAF();
|
||||||
|
if (ObjAF.DeleteCheckListTipo(CveCheckListTipo))
|
||||||
|
{
|
||||||
|
CargaDatos();
|
||||||
|
UpDatos.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGrupoCheckListD"));
|
||||||
|
Alert("Se eliminó el Grupo de CheckList correctamente");
|
||||||
|
}
|
||||||
|
ObjAF.Dispose();
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void BtnAgregarTipoCheckList_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
ClsAF ObjAF = new ClsAF();
|
||||||
|
if (BtnAgregarTipoCheckList.Text == "Agregar")
|
||||||
|
{
|
||||||
|
if (ObjAF.AddCheckListTipo(TxtTipoCheckList.Text))
|
||||||
|
{
|
||||||
|
Alert("Se agregó el Tipo de CheckList correctamente");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (ObjAF.UpdateCheckListTipo(CveCheckListTipo, TxtTipoCheckList.Text))
|
||||||
|
{
|
||||||
|
Alert("Se actualizó el Tipo de CheckList correctamente");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
ObjAF.Dispose();
|
||||||
|
CargaDatos();
|
||||||
|
UpDatos.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGrupoCheckListD"));
|
||||||
|
}
|
||||||
|
}
|
||||||
@@ -3785,6 +3785,226 @@ Public Class ClsAF
|
|||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
Public Function AddActividades(Nombre As String, CvePuesto As Integer, Cantidad As Decimal, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_AF_ActividadesAdd")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
|
||||||
|
.Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto
|
||||||
|
.Add("@Cantidad", SqlDbType.SmallMoney).Value = Cantidad
|
||||||
|
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||||
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al agregar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function UpdateActividades(CveActividad As Integer, Nombre As String, CvePuesto As Integer, Cantidad As Decimal, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_AF_ActividadesUpdate")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveActividad", SqlDbType.Int).Value = CveActividad
|
||||||
|
.Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
|
||||||
|
.Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto
|
||||||
|
.Add("@Cantidad", SqlDbType.SmallMoney).Value = Cantidad
|
||||||
|
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||||
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al actualizar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function DeleteActividades(CveActividad As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_AF_ActividadesDelete")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveActividad", SqlDbType.Int).Value = CveActividad
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al eliminar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function GetCheckListActividadGrupo(CveCheckListActividadGrupo As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_AF_CheckListGrupoGet")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al obtener el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function AddCheckListActividadGrupo(CheckListActividadGrupo As String) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_AF_CheckListGrupoAdd")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CheckListActividadGrupo", SqlDbType.NVarChar).Value = CheckListActividadGrupo
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al agregar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function UpdateCheckListActividadGrupo(CveCheckListActividadGrupo As Integer, CheckListActividadGrupo As String) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_AF_CheckListGrupoUpdate")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
|
||||||
|
.Add("@CheckListActividadGrupo", SqlDbType.NVarChar).Value = CheckListActividadGrupo
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al actualizar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function DeleteCheckListActividadGrupo(CveCheckListActividadGrupo As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_AF_CheckListGrupoDelete")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al eliminar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function GetCheckListTipo(CveCheckListTipo As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_AF_CheckListTipoGet")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al obtener el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function AddCheckListTipo(CheckListTipo As String) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_AF_CheckListTipoAdd")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CheckListTipo", SqlDbType.NVarChar).Value = CheckListTipo
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al agregar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function UpdateCheckListTipo(CveCheckListTipo As Integer, CheckListTipo As String) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_AF_CheckListTipoUpdate")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
|
||||||
|
.Add("@CheckListTipo", SqlDbType.NVarChar).Value = CheckListTipo
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al actualizar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function DeleteCheckListTipo(CveCheckListTipo As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_AF_CheckListTipoDelete")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al eliminar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -3955,6 +3955,9 @@ Public Class ClsPaginas
|
|||||||
PaginaDict.Add("/AF/CatTiposServicios.aspx".ToUpper(), 765)
|
PaginaDict.Add("/AF/CatTiposServicios.aspx".ToUpper(), 765)
|
||||||
PaginaDict.Add("/AF/CatTiposServiciosActividades.aspx".ToUpper(), 766)
|
PaginaDict.Add("/AF/CatTiposServiciosActividades.aspx".ToUpper(), 766)
|
||||||
PaginaDict.Add("/AF/CatTiposServiciosMateriales.aspx".ToUpper(), 767)
|
PaginaDict.Add("/AF/CatTiposServiciosMateriales.aspx".ToUpper(), 767)
|
||||||
|
PaginaDict.Add("/AF/CatActividades.aspx".ToUpper(), 768)
|
||||||
|
PaginaDict.Add("/AF/CatCheckListActividadesGrupos.aspx".ToUpper(), 769)
|
||||||
|
PaginaDict.Add("/AF/CatCheckListTipo.aspx".ToUpper(), 770)
|
||||||
|
|
||||||
PaginaDict.Add("/AF/TipoOrdenTrabajo.aspx".ToUpper(), -1)
|
PaginaDict.Add("/AF/TipoOrdenTrabajo.aspx".ToUpper(), -1)
|
||||||
PaginaDict.Add("/AF/OrdenTrabajo.aspx".ToUpper(), -1)
|
PaginaDict.Add("/AF/OrdenTrabajo.aspx".ToUpper(), -1)
|
||||||
|
|||||||
@@ -235,6 +235,24 @@
|
|||||||
<xs:element name="CveVenta" msprop:Generator_ColumnVarNameInTable="columnCveVenta" msprop:Generator_ColumnPropNameInRow="CveVenta" msprop:Generator_ColumnPropNameInTable="CveVentaColumn" msprop:Generator_UserColumnName="CveVenta" type="xs:short" minOccurs="0" />
|
<xs:element name="CveVenta" msprop:Generator_ColumnVarNameInTable="columnCveVenta" msprop:Generator_ColumnPropNameInRow="CveVenta" msprop:Generator_ColumnPropNameInTable="CveVentaColumn" msprop:Generator_UserColumnName="CveVenta" type="xs:short" minOccurs="0" />
|
||||||
<xs:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:string" minOccurs="0" />
|
<xs:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:string" minOccurs="0" />
|
||||||
<xs:element name="RetIVAServicios" msprop:Generator_ColumnVarNameInTable="columnRetIVAServicios" msprop:Generator_ColumnPropNameInRow="RetIVAServicios" msprop:Generator_ColumnPropNameInTable="RetIVAServiciosColumn" msprop:Generator_UserColumnName="RetIVAServicios" type="xs:double" minOccurs="0" />
|
<xs:element name="RetIVAServicios" msprop:Generator_ColumnVarNameInTable="columnRetIVAServicios" msprop:Generator_ColumnPropNameInRow="RetIVAServicios" msprop:Generator_ColumnPropNameInTable="RetIVAServiciosColumn" msprop:Generator_UserColumnName="RetIVAServicios" type="xs:double" minOccurs="0" />
|
||||||
|
<xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:string" minOccurs="0" />
|
||||||
|
<xs:element name="FolioFiscal" msprop:Generator_ColumnVarNameInTable="columnFolioFiscal" msprop:Generator_ColumnPropNameInRow="FolioFiscal" msprop:Generator_ColumnPropNameInTable="FolioFiscalColumn" msprop:Generator_UserColumnName="FolioFiscal" type="xs:string" minOccurs="0" />
|
||||||
|
</xs:sequence>
|
||||||
|
</xs:complexType>
|
||||||
|
</xs:element>
|
||||||
|
<xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_RowClassName="DtVentaDetalleRow" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent">
|
||||||
|
<xs:complexType>
|
||||||
|
<xs:sequence>
|
||||||
|
<xs:element name="Cantidad" msprop:Generator_ColumnVarNameInTable="columnCantidad" msprop:Generator_ColumnPropNameInRow="Cantidad" msprop:Generator_ColumnPropNameInTable="CantidadColumn" msprop:Generator_UserColumnName="Cantidad" type="xs:string" minOccurs="0" />
|
||||||
|
<xs:element name="UM" msprop:Generator_ColumnVarNameInTable="columnUM" msprop:Generator_ColumnPropNameInRow="UM" msprop:Generator_ColumnPropNameInTable="UMColumn" msprop:Generator_UserColumnName="UM" type="xs:string" minOccurs="0" />
|
||||||
|
<xs:element name="SATClaveProdServ" msprop:Generator_ColumnVarNameInTable="columnSATClaveProdServ" msprop:Generator_ColumnPropNameInRow="SATClaveProdServ" msprop:Generator_ColumnPropNameInTable="SATClaveProdServColumn" msprop:Generator_UserColumnName="SATClaveProdServ" type="xs:string" minOccurs="0" />
|
||||||
|
<xs:element name="SATClaveUM" msprop:Generator_ColumnVarNameInTable="columnSATClaveUM" msprop:Generator_ColumnPropNameInRow="SATClaveUM" msprop:Generator_ColumnPropNameInTable="SATClaveUMColumn" msprop:Generator_UserColumnName="SATClaveUM" type="xs:string" minOccurs="0" />
|
||||||
|
<xs:element name="PS" msprop:Generator_ColumnVarNameInTable="columnPS" msprop:Generator_ColumnPropNameInRow="PS" msprop:Generator_ColumnPropNameInTable="PSColumn" msprop:Generator_UserColumnName="PS" type="xs:string" minOccurs="0" />
|
||||||
|
<xs:element name="Obs" msprop:Generator_ColumnVarNameInTable="columnObs" msprop:Generator_ColumnPropNameInRow="Obs" msprop:Generator_ColumnPropNameInTable="ObsColumn" msprop:Generator_UserColumnName="Obs" type="xs:string" minOccurs="0" />
|
||||||
|
<xs:element name="PU" msprop:Generator_ColumnVarNameInTable="columnPU" msprop:Generator_ColumnPropNameInRow="PU" msprop:Generator_ColumnPropNameInTable="PUColumn" msprop:Generator_UserColumnName="PU" type="xs:string" minOccurs="0" />
|
||||||
|
<xs:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:string" minOccurs="0" />
|
||||||
|
<xs:element name="Descuento" msprop:Generator_ColumnVarNameInTable="columnDescuento" msprop:Generator_ColumnPropNameInRow="Descuento" msprop:Generator_ColumnPropNameInTable="DescuentoColumn" msprop:Generator_UserColumnName="Descuento" type="xs:string" minOccurs="0" />
|
||||||
|
<xs:element name="CveClasificacion" msprop:Generator_ColumnVarNameInTable="columnCveClasificacion" msprop:Generator_ColumnPropNameInRow="CveClasificacion" msprop:Generator_ColumnPropNameInTable="CveClasificacionColumn" msprop:Generator_UserColumnName="CveClasificacion" type="xs:string" minOccurs="0" />
|
||||||
</xs:sequence>
|
</xs:sequence>
|
||||||
</xs:complexType>
|
</xs:complexType>
|
||||||
</xs:element>
|
</xs:element>
|
||||||
@@ -271,22 +289,8 @@
|
|||||||
<xs:element name="valorActosImp8" msprop:Generator_ColumnVarNameInTable="columnvalorActosImp8" msprop:Generator_ColumnPropNameInRow="valorActosImp8" msprop:Generator_ColumnPropNameInTable="valorActosImp8Column" msprop:Generator_UserColumnName="valorActosImp8" type="xs:double" minOccurs="0" />
|
<xs:element name="valorActosImp8" msprop:Generator_ColumnVarNameInTable="columnvalorActosImp8" msprop:Generator_ColumnPropNameInRow="valorActosImp8" msprop:Generator_ColumnPropNameInTable="valorActosImp8Column" msprop:Generator_UserColumnName="valorActosImp8" type="xs:double" minOccurs="0" />
|
||||||
<xs:element name="valorActosImp0" msprop:Generator_ColumnVarNameInTable="columnvalorActosImp0" msprop:Generator_ColumnPropNameInRow="valorActosImp0" msprop:Generator_ColumnPropNameInTable="valorActosImp0Column" msprop:Generator_UserColumnName="valorActosImp0" type="xs:double" minOccurs="0" />
|
<xs:element name="valorActosImp0" msprop:Generator_ColumnVarNameInTable="columnvalorActosImp0" msprop:Generator_ColumnPropNameInRow="valorActosImp0" msprop:Generator_ColumnPropNameInTable="valorActosImp0Column" msprop:Generator_UserColumnName="valorActosImp0" type="xs:double" minOccurs="0" />
|
||||||
<xs:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:double" minOccurs="0" />
|
<xs:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:double" minOccurs="0" />
|
||||||
</xs:sequence>
|
<xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:dateTime" minOccurs="0" />
|
||||||
</xs:complexType>
|
<xs:element name="FolioFiscal" msprop:Generator_ColumnVarNameInTable="columnFolioFiscal" msprop:Generator_ColumnPropNameInRow="FolioFiscal" msprop:Generator_ColumnPropNameInTable="FolioFiscalColumn" msprop:Generator_UserColumnName="FolioFiscal" type="xs:string" minOccurs="0" />
|
||||||
</xs:element>
|
|
||||||
<xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_RowClassName="DtVentaDetalleRow" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent">
|
|
||||||
<xs:complexType>
|
|
||||||
<xs:sequence>
|
|
||||||
<xs:element name="Cantidad" msprop:Generator_ColumnVarNameInTable="columnCantidad" msprop:Generator_ColumnPropNameInRow="Cantidad" msprop:Generator_ColumnPropNameInTable="CantidadColumn" msprop:Generator_UserColumnName="Cantidad" type="xs:string" minOccurs="0" />
|
|
||||||
<xs:element name="UM" msprop:Generator_ColumnVarNameInTable="columnUM" msprop:Generator_ColumnPropNameInRow="UM" msprop:Generator_ColumnPropNameInTable="UMColumn" msprop:Generator_UserColumnName="UM" type="xs:string" minOccurs="0" />
|
|
||||||
<xs:element name="SATClaveProdServ" msprop:Generator_ColumnVarNameInTable="columnSATClaveProdServ" msprop:Generator_ColumnPropNameInRow="SATClaveProdServ" msprop:Generator_ColumnPropNameInTable="SATClaveProdServColumn" msprop:Generator_UserColumnName="SATClaveProdServ" type="xs:string" minOccurs="0" />
|
|
||||||
<xs:element name="SATClaveUM" msprop:Generator_ColumnVarNameInTable="columnSATClaveUM" msprop:Generator_ColumnPropNameInRow="SATClaveUM" msprop:Generator_ColumnPropNameInTable="SATClaveUMColumn" msprop:Generator_UserColumnName="SATClaveUM" type="xs:string" minOccurs="0" />
|
|
||||||
<xs:element name="PS" msprop:Generator_ColumnVarNameInTable="columnPS" msprop:Generator_ColumnPropNameInRow="PS" msprop:Generator_ColumnPropNameInTable="PSColumn" msprop:Generator_UserColumnName="PS" type="xs:string" minOccurs="0" />
|
|
||||||
<xs:element name="Obs" msprop:Generator_ColumnVarNameInTable="columnObs" msprop:Generator_ColumnPropNameInRow="Obs" msprop:Generator_ColumnPropNameInTable="ObsColumn" msprop:Generator_UserColumnName="Obs" type="xs:string" minOccurs="0" />
|
|
||||||
<xs:element name="PU" msprop:Generator_ColumnVarNameInTable="columnPU" msprop:Generator_ColumnPropNameInRow="PU" msprop:Generator_ColumnPropNameInTable="PUColumn" msprop:Generator_UserColumnName="PU" type="xs:string" minOccurs="0" />
|
|
||||||
<xs:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:string" minOccurs="0" />
|
|
||||||
<xs:element name="Descuento" msprop:Generator_ColumnVarNameInTable="columnDescuento" msprop:Generator_ColumnPropNameInRow="Descuento" msprop:Generator_ColumnPropNameInTable="DescuentoColumn" msprop:Generator_UserColumnName="Descuento" type="xs:string" minOccurs="0" />
|
|
||||||
<xs:element name="CveClasificacion" msprop:Generator_ColumnVarNameInTable="columnCveClasificacion" msprop:Generator_ColumnPropNameInRow="CveClasificacion" msprop:Generator_ColumnPropNameInTable="CveClasificacionColumn" msprop:Generator_UserColumnName="CveClasificacion" type="xs:string" minOccurs="0" />
|
|
||||||
</xs:sequence>
|
</xs:sequence>
|
||||||
</xs:complexType>
|
</xs:complexType>
|
||||||
</xs:element>
|
</xs:element>
|
||||||
|
|||||||
@@ -4,7 +4,7 @@
|
|||||||
Changes to this file may cause incorrect behavior and will be lost if
|
Changes to this file may cause incorrect behavior and will be lost if
|
||||||
the code is regenerated.
|
the code is regenerated.
|
||||||
</autogenerated>-->
|
</autogenerated>-->
|
||||||
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="7" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
|
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="191" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
|
||||||
<Shapes>
|
<Shapes>
|
||||||
<Shape ID="DesignTable:DataTable1" ZOrder="13" X="511" Y="201" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
|
<Shape ID="DesignTable:DataTable1" ZOrder="13" X="511" Y="201" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
|
||||||
<Shape ID="DesignTable:VentaUtilidadDetalle" ZOrder="12" X="679" Y="199" Height="257" Width="187" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
<Shape ID="DesignTable:VentaUtilidadDetalle" ZOrder="12" X="679" Y="199" Height="257" Width="187" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||||
@@ -16,9 +16,9 @@
|
|||||||
<Shape ID="DesignTable:RepProveedorCxP" ZOrder="6" X="63" Y="251" Height="238" Width="170" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="234" />
|
<Shape ID="DesignTable:RepProveedorCxP" ZOrder="6" X="63" Y="251" Height="238" Width="170" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="234" />
|
||||||
<Shape ID="DesignTable:ResumenNC" ZOrder="5" X="697" Y="496" Height="86" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="82" />
|
<Shape ID="DesignTable:ResumenNC" ZOrder="5" X="697" Y="496" Height="86" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="82" />
|
||||||
<Shape ID="DesignTable:ProgramarRecursos" ZOrder="4" X="484" Y="563" Height="257" Width="206" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
<Shape ID="DesignTable:ProgramarRecursos" ZOrder="4" X="484" Y="563" Height="257" Width="206" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||||
<Shape ID="DesignTable:RepIVA" ZOrder="3" X="315" Y="564" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
<Shape ID="DesignTable:RepIVA" ZOrder="3" X="315" Y="564" Height="296" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
|
||||||
<Shape ID="DesignTable:RepIVAAcreditable" ZOrder="2" X="91" Y="567" Height="257" Width="175" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
<Shape ID="DesignTable:DtVentaDetalle" ZOrder="2" X="280" Y="34" Height="219" Width="154" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="215" />
|
||||||
<Shape ID="DesignTable:DtVentaDetalle" ZOrder="1" X="280" Y="34" Height="219" Width="154" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="215" />
|
<Shape ID="DesignTable:RepIVAAcreditable" ZOrder="1" X="94" Y="508" Height="256" Width="175" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
|
||||||
</Shapes>
|
</Shapes>
|
||||||
<Connectors />
|
<Connectors />
|
||||||
</DiagramLayout>
|
</DiagramLayout>
|
||||||
@@ -9,22 +9,26 @@ Imports Extensiones
|
|||||||
Imports System.IO
|
Imports System.IO
|
||||||
Imports Microsoft.Reporting.WebForms
|
Imports Microsoft.Reporting.WebForms
|
||||||
|
|
||||||
|
Imports ADSistemaLibrary.SatXml
|
||||||
|
Imports ADSistemaLibrary.SatXml.XmlSatCFDI
|
||||||
|
|
||||||
Public Class GenerarPDFFactura : Implements IHttpHandler
|
Public Class GenerarPDFFactura : Implements IHttpHandler
|
||||||
|
|
||||||
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
|
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
|
||||||
Get
|
Get
|
||||||
Return False
|
Return False
|
||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Public ReadOnly Property EsProduccion As Boolean
|
Public ReadOnly Property EsProduccion As Boolean
|
||||||
Get
|
Get
|
||||||
If IsNothing(System.Configuration.ConfigurationManager.AppSettings("EsProduccion")) Then
|
Return False
|
||||||
Return False
|
'If IsNothing(System.Configuration.ConfigurationManager.AppSettings("EsProduccion")) Then
|
||||||
Else
|
' Return False
|
||||||
Return (System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString() = "1")
|
'Else
|
||||||
End If
|
' Return (System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString() = "1")
|
||||||
End Get
|
'End If
|
||||||
|
End Get
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
|
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
|
||||||
@@ -46,96 +50,211 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
|
|||||||
|
|
||||||
Dim Formato As String = ""
|
Dim Formato As String = ""
|
||||||
|
|
||||||
If datos.API_SALI Then
|
Dim Xml = New System.Xml.XmlDocument()
|
||||||
Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPISali.rdlc"
|
Xml.LoadXml(datos.XML)
|
||||||
Else
|
Dim ArchivoXML = $"{context.Server.MapPath("/")}/Temp/{DateTime.UtcNow.Ticks}_{datos.Factura.Serie}-{datos.Factura.Folio}.xml"
|
||||||
Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPI.rdlc"
|
Xml.Save(ArchivoXML)
|
||||||
End If
|
|
||||||
|
|
||||||
Parametros.Add(New ReportParameter("Empresa", datos.Empresa.Empresa))
|
ImprimirbytesPDF(context, GenerarCFDi(context, ArchivoXML, datos), "Factura")
|
||||||
Parametros.Add(New ReportParameter("RFC", datos.Empresa.RFC))
|
|
||||||
Parametros.Add(New ReportParameter("DomicilioExpedicion", datos.Empresa.DomicilioFiscal))
|
|
||||||
Parametros.Add(New ReportParameter("Serie", datos.Factura.Serie))
|
|
||||||
Parametros.Add(New ReportParameter("Folio", datos.Factura.Folio))
|
|
||||||
Parametros.Add(New ReportParameter("Fecha", datos.Factura.Fecha))
|
|
||||||
Parametros.Add(New ReportParameter("ClienteNombre", datos.Cliente.NombreComercial))
|
|
||||||
Parametros.Add(New ReportParameter("ClienteDireccion", datos.Cliente.Calle + " Colonia " + datos.Cliente.Colonia + " " + datos.Cliente.Ciudad + ", " + datos.Cliente.Estado))
|
|
||||||
Parametros.Add(New ReportParameter("ClienteLugar", datos.Cliente.Ciudad))
|
|
||||||
Parametros.Add(New ReportParameter("ClienteRFC", datos.Cliente.RFC))
|
|
||||||
Parametros.Add(New ReportParameter("ImporteLetra", datos.Factura.Total.Texto2Letras()))
|
|
||||||
Parametros.Add(New ReportParameter("FormaPago", datos.Factura.FormaPago))
|
|
||||||
Parametros.Add(New ReportParameter("MetodoPago", datos.Factura.MetodoPago))
|
|
||||||
Parametros.Add(New ReportParameter("SelloCFDI", datos.Timbrado.SelloCFDI))
|
|
||||||
Parametros.Add(New ReportParameter("SelloSAT", datos.Timbrado.SelloSAT))
|
|
||||||
Parametros.Add(New ReportParameter("CadenaOriginal", datos.Timbrado.CadenaOriginal))
|
|
||||||
Parametros.Add(New ReportParameter("FolioFiscal", datos.Factura.UUID))
|
|
||||||
Parametros.Add(New ReportParameter("SerieCertificadoSAT", datos.Timbrado.SerieCertificadoSAT))
|
|
||||||
Parametros.Add(New ReportParameter("FechaCertificado", datos.Timbrado.FechaCertificado))
|
|
||||||
Parametros.Add(New ReportParameter("CertificadoContribuyente", datos.Timbrado.CertificadoContribuyente))
|
|
||||||
Parametros.Add(New ReportParameter("UsoCFDI", datos.Factura.UsoCFDI))
|
|
||||||
Parametros.Add(New ReportParameter("Vencimiento", datos.Factura.FechaVencimiento))
|
|
||||||
Parametros.Add(New ReportParameter("SubTotal", datos.Factura.SubTotal))
|
|
||||||
Parametros.Add(New ReportParameter("Descuentos", datos.Factura.Descuentos))
|
|
||||||
Parametros.Add(New ReportParameter("IVA", datos.Factura.IVA))
|
|
||||||
Parametros.Add(New ReportParameter("IEPS", datos.Factura.IEPS))
|
|
||||||
Parametros.Add(New ReportParameter("Total", datos.Factura.Total))
|
|
||||||
Parametros.Add(New ReportParameter("QR", datos.Timbrado.QR))
|
|
||||||
|
|
||||||
Dim DtDatos As New DataTable
|
'If datos.API_SALI Then
|
||||||
DtDatos.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
|
' Dim Xml = New System.Xml.XmlDocument()
|
||||||
DtDatos.Columns.Add(New DataColumn("UnidadMedida", GetType(String)))
|
' Xml.LoadXml(datos.XML)
|
||||||
DtDatos.Columns.Add(New DataColumn("PS", GetType(String)))
|
' Dim ArchivoXML = $"{context.Server.MapPath("/")}/Temp/{DateTime.UtcNow.Ticks}_{datos.Factura.Serie}-{datos.Factura.Folio}.xml"
|
||||||
DtDatos.Columns.Add(New DataColumn("PU", GetType(Decimal)))
|
' Xml.Save(ArchivoXML)
|
||||||
DtDatos.Columns.Add(New DataColumn("IVA", GetType(Decimal)))
|
|
||||||
DtDatos.Columns.Add(New DataColumn("IEPS", GetType(Decimal)))
|
|
||||||
DtDatos.Columns.Add(New DataColumn("Descuento", GetType(Decimal)))
|
|
||||||
DtDatos.Columns.Add(New DataColumn("Total", GetType(Decimal)))
|
|
||||||
|
|
||||||
Dim DtImpuestos As New DataTable
|
' ImprimirbytesPDF(context, GenerarCFDi(context, ArchivoXML, datos), "Factura")
|
||||||
DtImpuestos.Columns.Add(New DataColumn("Impuesto", GetType(String)))
|
'Else
|
||||||
DtImpuestos.Columns.Add(New DataColumn("Tipo", GetType(String)))
|
' Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPI.rdlc"
|
||||||
DtImpuestos.Columns.Add(New DataColumn("Base", GetType(Decimal)))
|
|
||||||
DtImpuestos.Columns.Add(New DataColumn("TipoFactor", GetType(String)))
|
|
||||||
DtImpuestos.Columns.Add(New DataColumn("TasaOCuota", GetType(String)))
|
|
||||||
DtImpuestos.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
|
|
||||||
|
|
||||||
For Each PS In datos.Factura.ListaProductos
|
' Parametros.Add(New ReportParameter("Empresa", datos.Empresa.Empresa))
|
||||||
Dim Row = DtDatos.NewRow()
|
' Parametros.Add(New ReportParameter("RFC", datos.Empresa.RFC))
|
||||||
Row("Cantidad") = PS.Cantidad
|
' Parametros.Add(New ReportParameter("DomicilioExpedicion", datos.Empresa.DomicilioFiscal))
|
||||||
Row("UnidadMedida") = PS.UnidadMedida
|
' Parametros.Add(New ReportParameter("Serie", datos.Factura.Serie))
|
||||||
Row("PS") = PS.CodigoPS
|
' Parametros.Add(New ReportParameter("Folio", datos.Factura.Folio))
|
||||||
Row("PU") = PS.PU
|
' Parametros.Add(New ReportParameter("Fecha", datos.Factura.Fecha))
|
||||||
Row("IVA") = PS.IVA
|
' Parametros.Add(New ReportParameter("ClienteNombre", datos.Cliente.NombreComercial))
|
||||||
Row("IEPS") = PS.IEPS
|
' Parametros.Add(New ReportParameter("ClienteDireccion", datos.Cliente.Calle + " Colonia " + datos.Cliente.Colonia + " " + datos.Cliente.Ciudad + ", " + datos.Cliente.Estado))
|
||||||
Row("Descuento") = PS.Descuento
|
' Parametros.Add(New ReportParameter("ClienteLugar", datos.Cliente.Ciudad))
|
||||||
Row("Total") = (PS.Cantidad * PS.PU) + PS.IVA + PS.IEPS
|
' Parametros.Add(New ReportParameter("ClienteRFC", datos.Cliente.RFC))
|
||||||
|
' Parametros.Add(New ReportParameter("ImporteLetra", datos.Factura.Total.Texto2Letras()))
|
||||||
|
' Parametros.Add(New ReportParameter("FormaPago", datos.Factura.FormaPago))
|
||||||
|
' Parametros.Add(New ReportParameter("MetodoPago", datos.Factura.MetodoPago))
|
||||||
|
' Parametros.Add(New ReportParameter("SelloCFDI", datos.Timbrado.SelloCFDI))
|
||||||
|
' Parametros.Add(New ReportParameter("SelloSAT", datos.Timbrado.SelloSAT))
|
||||||
|
' Parametros.Add(New ReportParameter("CadenaOriginal", datos.Timbrado.CadenaOriginal))
|
||||||
|
' Parametros.Add(New ReportParameter("FolioFiscal", datos.Factura.UUID))
|
||||||
|
' Parametros.Add(New ReportParameter("SerieCertificadoSAT", datos.Timbrado.SerieCertificadoSAT))
|
||||||
|
' Parametros.Add(New ReportParameter("FechaCertificado", datos.Timbrado.FechaCertificado))
|
||||||
|
' Parametros.Add(New ReportParameter("CertificadoContribuyente", datos.Timbrado.CertificadoContribuyente))
|
||||||
|
' Parametros.Add(New ReportParameter("UsoCFDI", datos.Factura.UsoCFDI))
|
||||||
|
' Parametros.Add(New ReportParameter("Vencimiento", datos.Factura.FechaVencimiento))
|
||||||
|
' Parametros.Add(New ReportParameter("SubTotal", datos.Factura.SubTotal))
|
||||||
|
' Parametros.Add(New ReportParameter("Descuentos", datos.Factura.Descuentos))
|
||||||
|
' Parametros.Add(New ReportParameter("IVA", datos.Factura.IVA))
|
||||||
|
' Parametros.Add(New ReportParameter("IEPS", datos.Factura.IEPS))
|
||||||
|
' Parametros.Add(New ReportParameter("Total", datos.Factura.Total))
|
||||||
|
' Parametros.Add(New ReportParameter("QR", datos.Timbrado.QR))
|
||||||
|
|
||||||
DtDatos.Rows.Add(Row)
|
' Dim DtDatos As New DataTable
|
||||||
Next
|
' DtDatos.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
|
||||||
|
' DtDatos.Columns.Add(New DataColumn("UnidadMedida", GetType(String)))
|
||||||
|
' DtDatos.Columns.Add(New DataColumn("PS", GetType(String)))
|
||||||
|
' DtDatos.Columns.Add(New DataColumn("PU", GetType(Decimal)))
|
||||||
|
' DtDatos.Columns.Add(New DataColumn("IVA", GetType(Decimal)))
|
||||||
|
' DtDatos.Columns.Add(New DataColumn("IEPS", GetType(Decimal)))
|
||||||
|
' DtDatos.Columns.Add(New DataColumn("Descuento", GetType(Decimal)))
|
||||||
|
' DtDatos.Columns.Add(New DataColumn("Total", GetType(Decimal)))
|
||||||
|
|
||||||
Dim RowImpuesto = DtImpuestos.NewRow()
|
' Dim DtImpuestos As New DataTable
|
||||||
RowImpuesto("Impuesto") = "IVA"
|
' DtImpuestos.Columns.Add(New DataColumn("Impuesto", GetType(String)))
|
||||||
RowImpuesto("Tipo") = "Traslado"
|
' DtImpuestos.Columns.Add(New DataColumn("Tipo", GetType(String)))
|
||||||
RowImpuesto("Base") = datos.Factura.SubTotal
|
' DtImpuestos.Columns.Add(New DataColumn("Base", GetType(Decimal)))
|
||||||
RowImpuesto("TipoFactor") = "Tasa"
|
' DtImpuestos.Columns.Add(New DataColumn("TipoFactor", GetType(String)))
|
||||||
RowImpuesto("TasaOCuota") = "16%"
|
' DtImpuestos.Columns.Add(New DataColumn("TasaOCuota", GetType(String)))
|
||||||
RowImpuesto("Importe") = datos.Factura.IVA
|
' DtImpuestos.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
|
||||||
|
|
||||||
DtImpuestos.Rows.Add(RowImpuesto)
|
' For Each PS In datos.Factura.ListaProductos
|
||||||
|
' Dim Row = DtDatos.NewRow()
|
||||||
|
' Row("Cantidad") = PS.Cantidad
|
||||||
|
' Row("UnidadMedida") = PS.UnidadMedida
|
||||||
|
' Row("PS") = PS.CodigoPS
|
||||||
|
' Row("PU") = PS.PU
|
||||||
|
' Row("IVA") = PS.IVA
|
||||||
|
' Row("IEPS") = PS.IEPS
|
||||||
|
' Row("Descuento") = PS.Descuento
|
||||||
|
' Row("Total") = (PS.Cantidad * PS.PU) + PS.IVA + PS.IEPS
|
||||||
|
|
||||||
ListaDS.Add(New ReportDataSource("DsProductos", DtDatos))
|
' DtDatos.Rows.Add(Row)
|
||||||
ListaDS.Add(New ReportDataSource("DsImpuestos", DtImpuestos))
|
' Next
|
||||||
|
|
||||||
ImprimirbytesPDF(context, StreamPDF(context, Formato, ListaDS, Parametros), "Factura")
|
' Dim RowImpuesto = DtImpuestos.NewRow()
|
||||||
|
' RowImpuesto("Impuesto") = "IVA"
|
||||||
|
' RowImpuesto("Tipo") = "Traslado"
|
||||||
|
' RowImpuesto("Base") = datos.Factura.SubTotal
|
||||||
|
' RowImpuesto("TipoFactor") = "Tasa"
|
||||||
|
' RowImpuesto("TasaOCuota") = "16%"
|
||||||
|
' RowImpuesto("Importe") = datos.Factura.IVA
|
||||||
|
|
||||||
|
' DtImpuestos.Rows.Add(RowImpuesto)
|
||||||
|
|
||||||
|
' ListaDS.Add(New ReportDataSource("DsProductos", DtDatos))
|
||||||
|
' ListaDS.Add(New ReportDataSource("DsImpuestos", DtImpuestos))
|
||||||
|
|
||||||
|
' ImprimirbytesPDF(context, StreamPDF(context, Formato, ListaDS, Parametros), "Factura")
|
||||||
|
'End If
|
||||||
|
Else
|
||||||
|
retorno = "no hay datossss"
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
|
retorno = ex.ToString()
|
||||||
ex.GuardaLog(ex.ToString())
|
ex.GuardaLog(ex.ToString())
|
||||||
context.Response.Write(retorno)
|
context.Response.Write(retorno)
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Function GenerarCFDi(ByVal context As HttpContext, RutaXml As String, datos As ParametroWS) As Byte()
|
||||||
|
Dim bytes As Byte() = Nothing
|
||||||
|
|
||||||
|
Dim objxml As XmlSatCFDI = XmlSatCFDI.readXML(RutaXml)
|
||||||
|
|
||||||
|
Dim rutaReporte As String = "\Empresas\Grales\Formatos\FacturaSALI.rdlc"
|
||||||
|
|
||||||
|
Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar()
|
||||||
|
Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID)
|
||||||
|
Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)()
|
||||||
|
parametros.Add(New ReportParameter("comprobante_Certificado", objxml.comprobante.Certificado))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_CondicionesDePago", objxml.comprobante.CondicionesDePago))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_Confirmacion", objxml.comprobante.Confirmacion))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_Fecha", objxml.comprobante.Fecha))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_Serie", objxml.comprobante.Serie))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_Folio", objxml.comprobante.Folio))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_Descuento", objxml.comprobante.Descuento.ToString("N2")))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_SubTotal", objxml.comprobante.SubTotal.ToString("N2")))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_Total", objxml.comprobante.Total.ToString("N2")))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_Version", objxml.comprobante.Version))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_TipoDeComprobante", objxml.comprobante.TipoDeComprobanteTexto))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_FormaPago", objxml.comprobante.FormaPagoTexto))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_LugarExpedicion", objxml.comprobante.LugarExpedicion))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_NoCertificado", objxml.comprobante.NoCertificado))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_Sello", objxml.comprobante.Sello))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_Moneda", objxml.comprobante.Moneda))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_TipoCambio", objxml.comprobante.TipoCambio.ToString("N2")))
|
||||||
|
parametros.Add(New ReportParameter("comprobante_MetodoPago", objxml.comprobante.MetodoPagoTexto))
|
||||||
|
parametros.Add(New ReportParameter("emisor_Rfc", objxml.emisor.Rfc))
|
||||||
|
parametros.Add(New ReportParameter("emisor_Nombre", objxml.emisor.Nombre))
|
||||||
|
parametros.Add(New ReportParameter("emisor_RegimenFiscal", objxml.emisor.RegimenFiscalTexto))
|
||||||
|
parametros.Add(New ReportParameter("emisor_Direccion", datos.Empresa.DomicilioFiscal))
|
||||||
|
parametros.Add(New ReportParameter("receptor_Rfc", objxml.receptor.Rfc))
|
||||||
|
parametros.Add(New ReportParameter("receptor_Nombre", objxml.receptor.Nombre))
|
||||||
|
parametros.Add(New ReportParameter("receptor_NumRegIdTrib", objxml.receptor.NumRegIdTrib))
|
||||||
|
parametros.Add(New ReportParameter("receptor_ResidenciaFiscal", objxml.receptor.ResidenciaFiscal))
|
||||||
|
parametros.Add(New ReportParameter("receptor_UsoCFDI", objxml.receptor.UsoCFDITexto))
|
||||||
|
parametros.Add(New ReportParameter("complemento_FechaTimbrado", objxml.complemento.FechaTimbrado))
|
||||||
|
parametros.Add(New ReportParameter("complemento_NoCertificadoSAT", objxml.complemento.NoCertificadoSAT))
|
||||||
|
parametros.Add(New ReportParameter("complemento_RfcProvCertif", objxml.complemento.RfcProvCertif))
|
||||||
|
parametros.Add(New ReportParameter("complemento_SelloCFD", objxml.complemento.SelloCFD))
|
||||||
|
parametros.Add(New ReportParameter("complemento_SelloSAT", objxml.complemento.SelloSAT))
|
||||||
|
parametros.Add(New ReportParameter("complemento_UUID", objxml.complemento.UUID))
|
||||||
|
parametros.Add(New ReportParameter("complemento_CadenaOriginal", objxml.complemento.CadenaOriginal))
|
||||||
|
|
||||||
|
|
||||||
|
Dim ds As New List(Of ReportDataSource)
|
||||||
|
|
||||||
|
Dim rdsTotales As ReportDataSource = New ReportDataSource()
|
||||||
|
Dim ltotales As List(Of utilValores) = New List(Of utilValores)()
|
||||||
|
ltotales.Add(New utilValores("Subtotal", objxml.comprobante.SubTotal.ToString("N2")))
|
||||||
|
|
||||||
|
If objxml.comprobante.Descuento > 0 Then
|
||||||
|
ltotales.Add(New utilValores("Descuento", objxml.comprobante.Descuento.ToString("N2")))
|
||||||
|
End If
|
||||||
|
|
||||||
|
For Each item As CFDIImpuesto In objxml.Impuestos
|
||||||
|
|
||||||
|
If item.Importe > 0 Then
|
||||||
|
Dim TasaOCuota As Decimal = 0
|
||||||
|
Decimal.TryParse(item.TasaOCuota, TasaOCuota)
|
||||||
|
ltotales.Add(New utilValores($"Impuestos {item.Tipo} {item.ImpuestoTexto} {(If(item.TipoFactor = "Tasa", (TasaOCuota * 100).ToString("N4"), item.TasaOCuota))} {(If(item.TipoFactor = "Tasa", "%", ""))}", item.Importe.ToString("N2")))
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
ltotales.Add(New utilValores("Total", objxml.comprobante.Total.ToString("N2")))
|
||||||
|
rdsTotales.Name = "dsTotales"
|
||||||
|
rdsTotales.Value = ltotales
|
||||||
|
ds.Add(rdsTotales)
|
||||||
|
|
||||||
|
Dim rds2 As ReportDataSource = New ReportDataSource()
|
||||||
|
Dim limagenes As List(Of utilImage) = New List(Of utilImage)()
|
||||||
|
limagenes.Add(New utilImage(cQr))
|
||||||
|
rds2.Name = "dsImagenes"
|
||||||
|
rds2.Value = limagenes
|
||||||
|
ds.Add(rds2)
|
||||||
|
|
||||||
|
Dim rdsrelacionados As ReportDataSource = New ReportDataSource()
|
||||||
|
rdsrelacionados.Name = "dsRelacionados"
|
||||||
|
rdsrelacionados.Value = objxml.cFDIRelacionados
|
||||||
|
ds.Add(rdsrelacionados)
|
||||||
|
|
||||||
|
Dim rds1 As ReportDataSource = New ReportDataSource()
|
||||||
|
rds1.Name = "dsConceptos"
|
||||||
|
rds1.Value = objxml.GetConceptosforpdf()
|
||||||
|
|
||||||
|
ds.Add(rds1)
|
||||||
|
|
||||||
|
Try
|
||||||
|
bytes = StreamPDF(context, rutaReporte, ds, parametros)
|
||||||
|
|
||||||
|
System.IO.File.Delete(RutaXml)
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return bytes
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
Public Function StreamPDF(ByVal context As HttpContext, RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing) As Byte()
|
Public Function StreamPDF(ByVal context As HttpContext, RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing) As Byte()
|
||||||
'limpio ReportViwer
|
'limpio ReportViwer
|
||||||
Dim sw As New System.Diagnostics.Stopwatch()
|
Dim sw As New System.Diagnostics.Stopwatch()
|
||||||
@@ -150,8 +269,8 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
|
|||||||
|
|
||||||
If EsProduccion Then
|
If EsProduccion Then
|
||||||
|
|
||||||
Dim CveUsuario As Integer = 0
|
Dim CveUsuario As Integer = -1
|
||||||
Dim CveEmpresa As Integer = 0
|
Dim CveEmpresa As Integer = -1
|
||||||
|
|
||||||
Dim wsreport As New WSRDLC.WebServiceSoapClient
|
Dim wsreport As New WSRDLC.WebServiceSoapClient
|
||||||
Dim params As New List(Of WSRDLC.ReportParameter)
|
Dim params As New List(Of WSRDLC.ReportParameter)
|
||||||
@@ -175,6 +294,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
|
|||||||
Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
|
Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
|
||||||
wsreport = Nothing
|
wsreport = Nothing
|
||||||
params = Nothing
|
params = Nothing
|
||||||
|
|
||||||
Else
|
Else
|
||||||
If IsNothing(MR) Then MR = New ReportViewer
|
If IsNothing(MR) Then MR = New ReportViewer
|
||||||
Try
|
Try
|
||||||
@@ -364,8 +484,10 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
|
|||||||
Public Property Factura As FacturaWS
|
Public Property Factura As FacturaWS
|
||||||
Public Property Cliente As ClienteWS
|
Public Property Cliente As ClienteWS
|
||||||
Public Property Empresa As EmpresaWS
|
Public Property Empresa As EmpresaWS
|
||||||
Public Property Timbrado As DatosSATWS
|
|
||||||
Public Property API_SALI As Boolean
|
Public Property API_SALI As Boolean
|
||||||
|
Public Property Timbrado As DatosSATWS
|
||||||
|
|
||||||
|
Public Property XML As String
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -471,7 +471,7 @@
|
|||||||
<asp:ListItem Text="Costo Indirecto" Value="2" Enabled="false"></asp:ListItem>
|
<asp:ListItem Text="Costo Indirecto" Value="2" Enabled="false"></asp:ListItem>
|
||||||
<asp:ListItem Text="Almacen" Value="3"></asp:ListItem>
|
<asp:ListItem Text="Almacen" Value="3"></asp:ListItem>
|
||||||
<asp:ListItem Text="Almacen con costo indirecto" Value="8"></asp:ListItem>
|
<asp:ListItem Text="Almacen con costo indirecto" Value="8"></asp:ListItem>
|
||||||
<asp:ListItem Text="Flete" Value="4"></asp:ListItem>
|
<asp:ListItem Text="Costo Indirecto" Value="4"></asp:ListItem>
|
||||||
<asp:ListItem Text="Importación" Value="5"></asp:ListItem>
|
<asp:ListItem Text="Importación" Value="5"></asp:ListItem>
|
||||||
<asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
|
<asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
|
||||||
<asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
|
<asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
|
||||||
@@ -650,7 +650,7 @@
|
|||||||
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpReclasificarSubProyecto">
|
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpReclasificarSubProyecto">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-1" style="width:100%">
|
<div class="col-md-1" style="width: 100%">
|
||||||
<asp:DropDownList ID="DdlAsignarProyecto" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
|
<asp:DropDownList ID="DdlAsignarProyecto" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
|
||||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
@@ -658,7 +658,7 @@
|
|||||||
<%--<br runat="server" id="brProyectoSubProyecto" style="display:none"/>--%>
|
<%--<br runat="server" id="brProyectoSubProyecto" style="display:none"/>--%>
|
||||||
</div>
|
</div>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-1" style="width:100%">
|
<div class="col-md-1" style="width: 100%">
|
||||||
<asp:DropDownList ID="DdlAsignaSubProyecto" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlAsignaSubProyecto_SelectedIndexChanged" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
|
<asp:DropDownList ID="DdlAsignaSubProyecto" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlAsignaSubProyecto_SelectedIndexChanged" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
|
||||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
@@ -1232,7 +1232,7 @@
|
|||||||
<asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
|
<asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
<asp:TemplateField HeaderText="Serie" Visible="false" >
|
<asp:TemplateField HeaderText="Serie" Visible="false">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:Literal ID="LtlSerie" Text='<%# Eval("Serie") %>' runat="server" />
|
<asp:Literal ID="LtlSerie" Text='<%# Eval("Serie") %>' runat="server" />
|
||||||
<asp:TextBox ID="TxtSerie" AutoPostBack="false" Text='<%# Eval("Serie") %>' Visible="false" runat="server" />
|
<asp:TextBox ID="TxtSerie" AutoPostBack="false" Text='<%# Eval("Serie") %>' Visible="false" runat="server" />
|
||||||
@@ -2559,11 +2559,11 @@
|
|||||||
<asp:UpdatePanel ID="UpFacturar" runat="server" UpdateMode="Conditional">
|
<asp:UpdatePanel ID="UpFacturar" runat="server" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
|
|
||||||
<asp:Button ID="BtnGuardar" CssClass="btn btn-primary " runat="server" ValidationGroup="GrpGuardar" data-toggle="confirmation" data-popout="true" data-original-title="<b>Verifique los datos para continuar</b>. <br/><br/> <center>¿Seguro de registrar el documento con la información actual?</center>" data-btn-ok-label="si" Text="Registrar Compra" />
|
<asp:Button ID="BtnGuardar" CssClass="btn btn-primary " runat="server" ValidationGroup="GrpGuardar" data-toggle="confirmation" data-popout="true" data-original-title="<b>Verifique los datos para continuar</b>. <br/><br/> <center>¿Seguro de registrar el documento con la información actual?</center>" data-btn-ok-label="si" Text="Registrar Compra" />
|
||||||
<asp:Button ID="BtnActualizar" CssClass="btn btn-success" runat="server" Text="Actualizar Compra" ValidationGroup="GrpGuardar" Visible="False" />
|
<asp:Button ID="BtnActualizar" CssClass="btn btn-success" runat="server" Text="Actualizar Compra" ValidationGroup="GrpGuardar" Visible="False" />
|
||||||
<br />
|
<br />
|
||||||
<br />
|
<br />
|
||||||
|
|
||||||
<asp:Button ID="BtnEliminarCompra" CssClass="btn btn-danger" Visible="False" runat="server" Text="Eliminar Compra" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la compra?" data-btn-ok-label="si" />
|
<asp:Button ID="BtnEliminarCompra" CssClass="btn btn-danger" Visible="False" runat="server" Text="Eliminar Compra" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la compra?" data-btn-ok-label="si" />
|
||||||
<br />
|
<br />
|
||||||
<br />
|
<br />
|
||||||
@@ -3303,7 +3303,7 @@
|
|||||||
<div class="modal-content" style="width: 600px;">
|
<div class="modal-content" style="width: 600px;">
|
||||||
<div class="modal-header">
|
<div class="modal-header">
|
||||||
<button type="button" class="close" data-dismiss="modal" aria-hidden="true"></button>
|
<button type="button" class="close" data-dismiss="modal" aria-hidden="true"></button>
|
||||||
<h3 class="modal-title" runat="server" id="headeralias">Vincular Fletes y Servicios </h3>
|
<h3 class="modal-title" runat="server" id="headeralias">Vincular Costo indirectos </h3>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -3895,9 +3895,9 @@
|
|||||||
</h4>
|
</h4>
|
||||||
</div>
|
</div>
|
||||||
<div class="modal-body">
|
<div class="modal-body">
|
||||||
<div style="border: 1px solid black; width: 85%;">
|
<div style="border: 1px solid black; width: 85%;margin-left: 7.5%;display:block">
|
||||||
<asp:Panel ID="PnlContado" runat="server" Visible="False">
|
<asp:Panel ID="PnlContado" runat="server" Visible="False">
|
||||||
<asp:RadioButtonList ID="RBLContado" runat="server" RepeatDirection="Horizontal" AutoPostBack="True" RepeatColumns="3">
|
<asp:RadioButtonList ID="RBLContado" runat="server" RepeatDirection="Horizontal" Style="margin:auto" AutoPostBack="True" RepeatColumns="3">
|
||||||
<asp:ListItem Value="1" Selected="True">Bancos</asp:ListItem>
|
<asp:ListItem Value="1" Selected="True">Bancos</asp:ListItem>
|
||||||
<asp:ListItem Value="3">Créditos</asp:ListItem>
|
<asp:ListItem Value="3">Créditos</asp:ListItem>
|
||||||
<asp:ListItem Value="5">Acreedores</asp:ListItem>
|
<asp:ListItem Value="5">Acreedores</asp:ListItem>
|
||||||
@@ -3909,14 +3909,14 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
<br />
|
<br />
|
||||||
|
<div style="text-align:center">
|
||||||
|
<asp:CheckBox runat="server" ID="ChkCreditoMultiple" AutoPostBack="true" Text="Multiple Crédito" />
|
||||||
|
</div>
|
||||||
|
|
||||||
<asp:CheckBox runat="server" ID="ChkCreditoMultiple" AutoPostBack="true" Text="Multiple Crédito" />
|
|
||||||
|
|
||||||
<br />
|
|
||||||
<br />
|
<br />
|
||||||
|
|
||||||
<div runat="server" id="DivReembolso">
|
<div runat="server" id="DivReembolso">
|
||||||
<asp:Panel ID="Panel1" CssClass="chequesie text-small" runat="server" Width="470px" Visible="true">
|
<asp:Panel ID="Panel1" CssClass="text-small" runat="server" Width="100%" Visible="true" BorderStyle="Solid" BorderColor="#6A92AD" BorderWidth="2px">
|
||||||
<div class="chequesie1">
|
<div class="chequesie1">
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-2" style="width: 90%; margin-left: 5%; margin-right: 5%; text-align: left">
|
<div class="col-md-2" style="width: 90%; margin-left: 5%; margin-right: 5%; text-align: left">
|
||||||
@@ -3926,15 +3926,16 @@
|
|||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-2" style="width: 90%; margin-left: 5%; margin-right: 5%; text-align: left">
|
<div class="col-md-2" style="width: 90%; margin-left: 5%; margin-right: 5%; text-align: left">
|
||||||
<asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" />
|
<asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" />
|
||||||
<%-- <asp:RequiredFieldValidator ID="RFVNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero de Reembolsoxx''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
<%-- <asp:RequiredFieldValidator ID="RFVNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero de Reembolsoxx''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="VCENumeroReembolso" runat="server" HighlightCssClass="vco" TargetControlID="RFVNumeroReembolso" Width="300px"></ajax:ValidatorCalloutExtender>--%>
|
<ajax:ValidatorCalloutExtender ID="VCENumeroReembolso" runat="server" HighlightCssClass="vco" TargetControlID="RFVNumeroReembolso" Width="300px"></ajax:ValidatorCalloutExtender>--%>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
<br />
|
||||||
</div>
|
</div>
|
||||||
<div class="chequesie2">
|
<div class="chequesie2">
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-2" style="width: 90%; margin-left: 4%; margin-right: 5%; text-align: left">
|
<div class="col-md-2" style="width: 90%; margin-left: 4%; margin-right: 5%; text-align: left">
|
||||||
<label>Caja Chica:</label>
|
<asp:Label runat="server" ID="LblCheq">Caja Chica:</asp:Label>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div id="DivPersonalReembolso" runat="server" visible="false" class="row">
|
<div id="DivPersonalReembolso" runat="server" visible="false" class="row">
|
||||||
@@ -3952,6 +3953,7 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
<br/>
|
||||||
</div>
|
</div>
|
||||||
</asp:Panel>
|
</asp:Panel>
|
||||||
<table>
|
<table>
|
||||||
@@ -4204,8 +4206,8 @@
|
|||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
</Columns>
|
</Columns>
|
||||||
<%--<RowStyle CssClass="TextoAlterno" />
|
<%--<RowStyle CssClass="TextoAlterno" />
|
||||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||||
<HeaderStyle CssClass="Titulos" />--%>
|
<HeaderStyle CssClass="Titulos" />--%>
|
||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
<asp:HiddenField ID="HiddenField2" runat="server" ClientIDMode="Static" Value="0" />
|
<asp:HiddenField ID="HiddenField2" runat="server" ClientIDMode="Static" Value="0" />
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
@@ -4260,7 +4262,7 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
<asp:RequiredFieldValidator ID="RFVCreditoDetalle" runat="server" ControlToValidate="DdlCreditoDetalle" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Crédito''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
|
<asp:RequiredFieldValidator ID="RFVCreditoDetalle" runat="server" ControlToValidate="DdlCreditoDetalle" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Crédito''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="VCECreditoDetalle" runat="server" HighlightCssClass="vco" TargetControlID="RFVCreditoDetalle" Width="300px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="VCECreditoDetalle" runat="server" HighlightCssClass="vco" TargetControlID="RFVCreditoDetalle" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -4452,11 +4452,11 @@ Partial Class Compras_Compras
|
|||||||
If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then
|
If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then
|
||||||
CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
|
CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
|
||||||
End If
|
End If
|
||||||
If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) Then
|
If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido
|
||||||
CveConceptoContableAlmacen = 205
|
CveConceptoContableAlmacen = 205
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
CveConceptoContableAlmacen = 225
|
CveConceptoContableAlmacen = 225
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen
|
'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen
|
||||||
|
|||||||
@@ -140,16 +140,16 @@ Partial Class PopUpVerFactura
|
|||||||
'HttpContext.Current.Response.Flush()
|
'HttpContext.Current.Response.Flush()
|
||||||
HttpContext.Current.Response.End()
|
HttpContext.Current.Response.End()
|
||||||
End If
|
End If
|
||||||
Archivo = Nothing
|
Archivo = Nothing
|
||||||
|
|
||||||
ElseIf Request("File") IsNot Nothing AndAlso Request("TipoDocto") IsNot Nothing AndAlso Request("TipoArchivo") IsNot Nothing Then
|
ElseIf Request("File") IsNot Nothing AndAlso Request("TipoDocto") IsNot Nothing AndAlso Request("TipoArchivo") IsNot Nothing Then
|
||||||
Dim Path As String = "" ' String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV"))
|
Dim Path As String = "" ' String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV"))
|
||||||
|
|
||||||
Select Case Request("TipoArchivo")
|
Select Case Request("TipoArchivo")
|
||||||
Case "PDF"
|
Case "PDF"
|
||||||
Path = String.Format("{0}PDF\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
|
Path = String.Format("{0}PDF\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
|
||||||
Case "XML"
|
Case "XML"
|
||||||
Path = String.Format("{0}XML\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
|
Path = String.Format("{0}XML\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
Dim Archivo As New System.IO.FileInfo(Path)
|
Dim Archivo As New System.IO.FileInfo(Path)
|
||||||
@@ -186,10 +186,10 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
If Request("REPORTE") IsNot Nothing Then
|
If Request("REPORTE") IsNot Nothing Then
|
||||||
CType(Session("DTPDF"), HtmlTable).ExportToPDF("Reporte")
|
CType(Session("DTPDF"), HtmlTable).ExportToPDF("Reporte")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'OPCIONES
|
'OPCIONES
|
||||||
|
|
||||||
If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then
|
If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then
|
||||||
Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
|
Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
|
||||||
If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
|
If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
|
||||||
@@ -199,10 +199,10 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "U S U A R I O - T O K E N"
|
#Region "U S U A R I O - T O K E N"
|
||||||
|
|
||||||
Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
|
Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
|
||||||
|
|
||||||
Dim UsuarioToken As Usuario = Nothing
|
Dim UsuarioToken As Usuario = Nothing
|
||||||
@@ -239,9 +239,9 @@ Partial Class PopUpVerFactura
|
|||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Private Sub SeleccionaReporte(UrlParametros As Hashtable)
|
Private Sub SeleccionaReporte(UrlParametros As Hashtable)
|
||||||
|
|
||||||
'DESCARGA COMPROBANTE
|
'DESCARGA COMPROBANTE
|
||||||
If UrlParametros("OP").ToString = "IEComprobante" Then
|
If UrlParametros("OP").ToString = "IEComprobante" Then
|
||||||
DescargaComprobante(UrlParametros)
|
DescargaComprobante(UrlParametros)
|
||||||
End If
|
End If
|
||||||
@@ -473,10 +473,10 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'IMPRIME ENTREGAS POR REALIZAR
|
'IMPRIME ENTREGAS POR REALIZAR
|
||||||
If UrlParametros("OP").ToString = "ENTREGAS" Then
|
If UrlParametros("OP").ToString = "ENTREGAS" Then
|
||||||
If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
|
If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
|
||||||
ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
|
ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
@@ -493,10 +493,10 @@ Partial Class PopUpVerFactura
|
|||||||
URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
|
URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
|
||||||
Next
|
Next
|
||||||
Return URLParametros
|
Return URLParametros
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
#Region "OP = CORT - IMPRIMIR CORTE"
|
#Region "OP = CORT - IMPRIMIR CORTE"
|
||||||
|
|
||||||
Private Sub ImprimeCorte(CveCorte As Integer, Formato As String)
|
Private Sub ImprimeCorte(CveCorte As Integer, Formato As String)
|
||||||
Dim ObjVenta As New ClsVentas
|
Dim ObjVenta As New ClsVentas
|
||||||
Dim ObjPuntoVenta As New ClsPuntoVenta
|
Dim ObjPuntoVenta As New ClsPuntoVenta
|
||||||
@@ -547,8 +547,8 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
#Region " OP = FACTURA - IMPRIME COMPRA"
|
#Region " OP = FACTURA - IMPRIME COMPRA"
|
||||||
Private Sub DescargaComprobante(Parametros As Hashtable)
|
Private Sub DescargaComprobante(Parametros As Hashtable)
|
||||||
If Parametros("COMPROBANTE") IsNot Nothing Then
|
If Parametros("COMPROBANTE") IsNot Nothing Then
|
||||||
|
|
||||||
Dim Path As String = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, Parametros("COMPROBANTE"))
|
Dim Path As String = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, Parametros("COMPROBANTE"))
|
||||||
Dim Archivo As New System.IO.FileInfo(Path)
|
Dim Archivo As New System.IO.FileInfo(Path)
|
||||||
|
|
||||||
@@ -583,9 +583,9 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
Archivo = Nothing
|
Archivo = Nothing
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP DesXmlVIA- DESCARGAR XML DE VIATICOS"
|
#Region "OP DesXmlVIA- DESCARGAR XML DE VIATICOS"
|
||||||
Private Sub DescargaXMLViaticos(Parametros As Hashtable)
|
Private Sub DescargaXMLViaticos(Parametros As Hashtable)
|
||||||
If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
|
If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
|
||||||
@@ -605,10 +605,10 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
Archivo = Nothing
|
Archivo = Nothing
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP DesXmlNom- DESCARGAR XML DE UTILIDADES"
|
#Region "OP DesXmlNom- DESCARGAR XML DE UTILIDADES"
|
||||||
Private Sub DescargaXMLUtilidades(Parametros As Hashtable)
|
Private Sub DescargaXMLUtilidades(Parametros As Hashtable)
|
||||||
If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
|
If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
|
||||||
@@ -628,9 +628,9 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
Archivo = Nothing
|
Archivo = Nothing
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
|
#Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
|
||||||
Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
|
Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
|
||||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||||
@@ -672,10 +672,10 @@ Partial Class PopUpVerFactura
|
|||||||
params.Add(New ReportParameter("LogoPath", ""))
|
params.Add(New ReportParameter("LogoPath", ""))
|
||||||
End If
|
End If
|
||||||
ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
|
ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
#Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA"
|
#Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA"
|
||||||
Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer)
|
Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer)
|
||||||
If CveVenta > 0 Then
|
If CveVenta > 0 Then
|
||||||
@@ -712,10 +712,10 @@ Partial Class PopUpVerFactura
|
|||||||
ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
|
ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE"
|
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE"
|
||||||
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
|
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
|
||||||
If CveMovimiento > 0 Then
|
If CveMovimiento > 0 Then
|
||||||
@@ -840,12 +840,12 @@ Partial Class PopUpVerFactura
|
|||||||
ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
|
ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO"
|
#Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO"
|
||||||
|
|
||||||
Private Sub DescargaXMLTraslado(Parametros As Hashtable)
|
Private Sub DescargaXMLTraslado(Parametros As Hashtable)
|
||||||
If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
|
If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
|
||||||
Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
|
Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
|
||||||
@@ -864,12 +864,12 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
Archivo = Nothing
|
Archivo = Nothing
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'DesPdfTra' - IMPRIME PDF TRASLADO"
|
#Region "OP = 'DesPdfTra' - IMPRIME PDF TRASLADO"
|
||||||
|
|
||||||
Private Sub DescargaPDFTraslado(Parametros As Hashtable)
|
Private Sub DescargaPDFTraslado(Parametros As Hashtable)
|
||||||
If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
|
If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
|
||||||
Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
|
Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
|
||||||
@@ -888,10 +888,10 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
Archivo = Nothing
|
Archivo = Nothing
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region " OP = 'Vta,Fact' - IMPRIME PDF VENTAS"
|
#Region " OP = 'Vta,Fact' - IMPRIME PDF VENTAS"
|
||||||
Private Sub DescargaFacturaVenta(Parametros As Hashtable)
|
Private Sub DescargaFacturaVenta(Parametros As Hashtable)
|
||||||
If Parametros("CVEVENTA") IsNot Nothing AndAlso Parametros("CVEVENTA").ToString.ToEntero > 0 Then
|
If Parametros("CVEVENTA") IsNot Nothing AndAlso Parametros("CVEVENTA").ToString.ToEntero > 0 Then
|
||||||
@@ -1198,11 +1198,11 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
|
#Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
|
||||||
|
|
||||||
Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer)
|
Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer)
|
||||||
Dim ObjInventarios As New ClsInventarios
|
Dim ObjInventarios As New ClsInventarios
|
||||||
|
|
||||||
@@ -1444,9 +1444,9 @@ Partial Class PopUpVerFactura
|
|||||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||||
params.Add(New ReportParameter("Concepto", ConceptoFormato))
|
params.Add(New ReportParameter("Concepto", ConceptoFormato))
|
||||||
params.Add(New ReportParameter("Almacen", Almacen))
|
params.Add(New ReportParameter("Almacen", Almacen))
|
||||||
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
||||||
|
|
||||||
|
|
||||||
params.Add(New ReportParameter("Folio", Folio))
|
params.Add(New ReportParameter("Folio", Folio))
|
||||||
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
|
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
|
||||||
|
|
||||||
@@ -1456,8 +1456,8 @@ Partial Class PopUpVerFactura
|
|||||||
params.Add(New ReportParameter("Fecha", Fecha))
|
params.Add(New ReportParameter("Fecha", Fecha))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If UsuarioActual.CveEmpresa = 72 Then
|
If UsuarioActual.CveEmpresa = 72 Then
|
||||||
params.Add(New ReportParameter("CveTipoAlmacen", CveTipoAlmacen.ToString()))
|
params.Add(New ReportParameter("CveTipoAlmacen", CveTipoAlmacen.ToString()))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
params.Add(New ReportParameter("Observaciones", Observaciones))
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
||||||
@@ -3198,10 +3198,10 @@ Partial Class PopUpVerFactura
|
|||||||
ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
|
ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'VAL' - IMPRIME PDF VAL"
|
#Region "OP = 'VAL' - IMPRIME PDF VAL"
|
||||||
Private Sub GenerarPDFVale(CveVale As Integer)
|
Private Sub GenerarPDFVale(CveVale As Integer)
|
||||||
|
|
||||||
@@ -3231,9 +3231,9 @@ Partial Class PopUpVerFactura
|
|||||||
'End If
|
'End If
|
||||||
End If
|
End If
|
||||||
ObjAF.Dispose()
|
ObjAF.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'OS' - IMPRIMIR PDF OS"
|
#Region "OP = 'OS' - IMPRIMIR PDF OS"
|
||||||
Private Sub GenerarPDFOS(CveOS As Integer)
|
Private Sub GenerarPDFOS(CveOS As Integer)
|
||||||
Dim ObjOS As New ClsOS()
|
Dim ObjOS As New ClsOS()
|
||||||
@@ -3352,9 +3352,9 @@ Partial Class PopUpVerFactura
|
|||||||
TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String))
|
TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String))
|
||||||
TmpDTMaterialesOS.Columns.Add("PS", GetType(String))
|
TmpDTMaterialesOS.Columns.Add("PS", GetType(String))
|
||||||
TmpDTMaterialesOS.Columns.Add("UM", GetType(String))
|
TmpDTMaterialesOS.Columns.Add("UM", GetType(String))
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'OI' - Crear Archivo "
|
#Region "OP = 'OI' - Crear Archivo "
|
||||||
Private Sub CrearArchivo(Archivo As String)
|
Private Sub CrearArchivo(Archivo As String)
|
||||||
Dim ObjEventos As New ClsOIEventos
|
Dim ObjEventos As New ClsOIEventos
|
||||||
@@ -3363,11 +3363,11 @@ Partial Class PopUpVerFactura
|
|||||||
Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server
|
Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server
|
||||||
|
|
||||||
DescargarArchivo(file)
|
DescargarArchivo(file)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'Contratos' - Crear Archivo "
|
#Region "OP = 'Contratos' - Crear Archivo "
|
||||||
Private Sub CrearArchivoContratos(Archivo As String)
|
Private Sub CrearArchivoContratos(Archivo As String)
|
||||||
|
|
||||||
@@ -3375,11 +3375,11 @@ Partial Class PopUpVerFactura
|
|||||||
Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server
|
Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server
|
||||||
|
|
||||||
DescargarArchivo(file)
|
DescargarArchivo(file)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'OI' - Descargar Archivo "
|
#Region "OP = 'OI' - Descargar Archivo "
|
||||||
Private Sub DescargarArchivo(File As System.IO.FileInfo)
|
Private Sub DescargarArchivo(File As System.IO.FileInfo)
|
||||||
If File.Exists Then 'set appropriate headers
|
If File.Exists Then 'set appropriate headers
|
||||||
@@ -3409,11 +3409,11 @@ Partial Class PopUpVerFactura
|
|||||||
Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()")
|
Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()")
|
||||||
|
|
||||||
End If 'nothing in the URL as HTTP GET
|
End If 'nothing in the URL as HTTP GET
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'AFR' - AF"
|
#Region "OP = 'AFR' - AF"
|
||||||
|
|
||||||
Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer)
|
Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer)
|
||||||
Dim ObjAF As New ClsAF
|
Dim ObjAF As New ClsAF
|
||||||
'Dim ObjSubProyecto As New ClsSubProyectos
|
'Dim ObjSubProyecto As New ClsSubProyectos
|
||||||
@@ -3600,9 +3600,9 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'POL' "
|
#Region "OP = 'POL' "
|
||||||
Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
|
Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
|
||||||
'Dim ObjConta As New ClsContabilidad
|
'Dim ObjConta As New ClsContabilidad
|
||||||
@@ -3641,9 +3641,9 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
ObjPoliza.Dispose()
|
ObjPoliza.Dispose()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'CAN' - CANCELACION"
|
#Region "OP = 'CAN' - CANCELACION"
|
||||||
Public Sub ImprimeCancelacion(CveVenta As Integer)
|
Public Sub ImprimeCancelacion(CveVenta As Integer)
|
||||||
Dim ObjVentas As New ClsVentas
|
Dim ObjVentas As New ClsVentas
|
||||||
@@ -3668,9 +3668,9 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
ObjVentas.Dispose()
|
ObjVentas.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'DC' - DEPOSITOS CAJA"
|
#Region "OP = 'DC' - DEPOSITOS CAJA"
|
||||||
Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String)
|
Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String)
|
||||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta))
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta))
|
||||||
@@ -3697,11 +3697,11 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
ObjIE.Dispose()
|
ObjIE.Dispose()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "I E C H E Q U E S"
|
#Region "I E C H E Q U E S"
|
||||||
|
|
||||||
Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer)
|
Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer)
|
||||||
Dim CveTipoTransaccion = -1
|
Dim CveTipoTransaccion = -1
|
||||||
Dim ObjIE As New ClsBancos()
|
Dim ObjIE As New ClsBancos()
|
||||||
@@ -3947,167 +3947,167 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
ObjIE.Dispose()
|
ObjIE.Dispose()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ImprimeMov(CveIE As Integer)
|
Private Sub ImprimeMov(CveIE As Integer)
|
||||||
Dim ObjIE As New ClsBancos()
|
Dim ObjIE As New ClsBancos()
|
||||||
Dim DtGvRH As New DataTable
|
Dim DtGvRH As New DataTable
|
||||||
Dim DtComprobacion As New DataTable
|
Dim DtComprobacion As New DataTable
|
||||||
Dim ParamComprobacion As New DataTable
|
Dim ParamComprobacion As New DataTable
|
||||||
|
|
||||||
'Movimientos Relacionados de Comprobacion - Hijo
|
'Movimientos Relacionados de Comprobacion - Hijo
|
||||||
If ObjIE.GetBancosIEMovimientosHijo(CveIE, UsuarioActual.CveEmpresa) Then
|
If ObjIE.GetBancosIEMovimientosHijo(CveIE, UsuarioActual.CveEmpresa) Then
|
||||||
DtGvRH = ObjIE.DtResultados
|
DtGvRH = ObjIE.DtResultados
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If DtGvRH IsNot Nothing AndAlso DtGvRH.Rows.Count > 0 Then
|
If DtGvRH IsNot Nothing AndAlso DtGvRH.Rows.Count > 0 Then
|
||||||
|
|
||||||
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
|
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
|
||||||
ParamComprobacion = ObjIE.DtResultados
|
ParamComprobacion = ObjIE.DtResultados
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim ObjMov As New ClsMovimientos
|
Dim ObjMov As New ClsMovimientos
|
||||||
For Each dr As DataRow In DtGvRH.Rows
|
For Each dr As DataRow In DtGvRH.Rows
|
||||||
If ObjMov.GetPersonalCajaChica(UsuarioActual.CveEmpresa, dr("CveCompra").ToString.ToEntero) Then
|
If ObjMov.GetPersonalCajaChica(UsuarioActual.CveEmpresa, dr("CveCompra").ToString.ToEntero) Then
|
||||||
DtComprobacion.Merge(ObjMov.DtResultados.FiltraParametros("CveCompra =" + dr("CveCompra").ToString))
|
DtComprobacion.Merge(ObjMov.DtResultados.FiltraParametros("CveCompra =" + dr("CveCompra").ToString))
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
ObjMov.Dispose()
|
ObjMov.Dispose()
|
||||||
|
|
||||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
|
||||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
|
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 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)
|
Dim params As New List(Of ReportParameter)
|
||||||
|
|
||||||
If Archivo.Exists Then
|
If Archivo.Exists Then
|
||||||
|
|
||||||
If UsuarioActual.CveEmpresa = 72 Then
|
If UsuarioActual.CveEmpresa = 72 Then
|
||||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
|
||||||
params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString))
|
params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString))
|
||||||
params.Add(New ReportParameter("CveFyE", "0")) '
|
params.Add(New ReportParameter("CveFyE", "0")) '
|
||||||
|
|
||||||
params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
||||||
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
||||||
params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
|
params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
|
||||||
params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
|
params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
|
||||||
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
|
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
|
||||||
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
|
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
|
||||||
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
|
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
|
||||||
|
|
||||||
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
|
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
|
||||||
Else
|
Else
|
||||||
params.Add(New ReportParameter("Numero", "")) '
|
params.Add(New ReportParameter("Numero", "")) '
|
||||||
params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
|
params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
|
||||||
params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto")))
|
params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto")))
|
||||||
params.Add(New ReportParameter("Fecha", Now.Date.ToString))
|
params.Add(New ReportParameter("Fecha", Now.Date.ToString))
|
||||||
params.Add(New ReportParameter("Elaboro", ""))
|
params.Add(New ReportParameter("Elaboro", ""))
|
||||||
params.Add(New ReportParameter("Autorizo", ""))
|
params.Add(New ReportParameter("Autorizo", ""))
|
||||||
params.Add(New ReportParameter("ElaboroPuesto", ""))
|
params.Add(New ReportParameter("ElaboroPuesto", ""))
|
||||||
params.Add(New ReportParameter("AutorizoPuesto", ""))
|
params.Add(New ReportParameter("AutorizoPuesto", ""))
|
||||||
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion.FiltraParametros("CveCompra > 0"), params, String.Format("IE{0}", CveIE), RDSName:="DsCompras")
|
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion.FiltraParametros("CveCompra > 0"), params, String.Format("IE{0}", CveIE), RDSName:="DsCompras")
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
|
||||||
|
|
||||||
params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
||||||
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
||||||
params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
|
params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
|
||||||
params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
|
params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
|
||||||
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
|
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
|
||||||
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
|
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
|
||||||
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
|
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
|
||||||
|
|
||||||
If Imagen.Exists Then
|
If Imagen.Exists Then
|
||||||
params.Add(New ReportParameter("LogoPath", logouri))
|
params.Add(New ReportParameter("LogoPath", logouri))
|
||||||
Else
|
Else
|
||||||
params.Add(New ReportParameter("LogoPath", ""))
|
params.Add(New ReportParameter("LogoPath", ""))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
|
ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
|
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
|
||||||
If ObjIE.DtResultados.Rows.Count > 0 Then
|
If ObjIE.DtResultados.Rows.Count > 0 Then
|
||||||
|
|
||||||
Dim reportDataSetsList As New List(Of ReportDataSource)
|
Dim reportDataSetsList As New List(Of ReportDataSource)
|
||||||
|
|
||||||
Dim dtMovs As New DataTable
|
Dim dtMovs As New DataTable
|
||||||
Dim Mov As New ClsContabilidad
|
Dim Mov As New ClsContabilidad
|
||||||
If Mov.GetPrePolizasDetalle(-1, CveIE) Then
|
If Mov.GetPrePolizasDetalle(-1, CveIE) Then
|
||||||
|
|
||||||
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,312)")
|
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,312)")
|
||||||
|
|
||||||
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||||
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
|
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
|
||||||
For Each Dr As DataRow In dtMovs.Rows
|
For Each Dr As DataRow In dtMovs.Rows
|
||||||
Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal
|
Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal
|
||||||
Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
||||||
Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
||||||
Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Mov.Dispose()
|
Mov.Dispose()
|
||||||
Dim rds = New ReportDataSource("DataSet1", dtMovs)
|
Dim rds = New ReportDataSource("DataSet1", dtMovs)
|
||||||
reportDataSetsList.Add(rds)
|
reportDataSetsList.Add(rds)
|
||||||
|
|
||||||
Dim dtnc As New DataTable
|
Dim dtnc As New DataTable
|
||||||
Dim ObjCompra As New ClsCompras()
|
Dim ObjCompra As New ClsCompras()
|
||||||
If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then
|
If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then
|
||||||
dtnc = ObjCompra.DtResultados
|
dtnc = ObjCompra.DtResultados
|
||||||
End If
|
End If
|
||||||
ObjCompra.Dispose()
|
ObjCompra.Dispose()
|
||||||
Dim rds2 = New ReportDataSource("DataSet2", dtnc)
|
Dim rds2 = New ReportDataSource("DataSet2", dtnc)
|
||||||
reportDataSetsList.Add(rds2)
|
reportDataSetsList.Add(rds2)
|
||||||
dtnc.Dispose()
|
dtnc.Dispose()
|
||||||
|
|
||||||
Dim paramList As New List(Of ReportParameter)
|
Dim paramList As New List(Of ReportParameter)
|
||||||
With paramList
|
With paramList
|
||||||
'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
'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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
|
Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
|
||||||
Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
|
Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
|
||||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
|
||||||
.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||||
.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||||
.Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True))
|
.Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True))
|
||||||
.Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True))
|
.Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True))
|
||||||
.Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True))
|
.Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True))
|
||||||
.Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True))
|
.Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True))
|
||||||
.Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True))
|
.Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True))
|
||||||
.Add(New ReportParameter("Folio", ObjIE.Folio, True))
|
.Add(New ReportParameter("Folio", ObjIE.Folio, True))
|
||||||
.Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
|
.Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
|
||||||
|
|
||||||
|
|
||||||
If Imagen.Exists Then
|
If Imagen.Exists Then
|
||||||
.Add(New ReportParameter("LogoPath", logouri))
|
.Add(New ReportParameter("LogoPath", logouri))
|
||||||
Else
|
Else
|
||||||
.Add(New ReportParameter("LogoPath", ""))
|
.Add(New ReportParameter("LogoPath", ""))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End With
|
End With
|
||||||
dtMovs.Dispose()
|
dtMovs.Dispose()
|
||||||
|
|
||||||
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
|
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
DtGvRH.Dispose()
|
DtGvRH.Dispose()
|
||||||
DtComprobacion.Dispose()
|
DtComprobacion.Dispose()
|
||||||
ParamComprobacion.Dispose()
|
ParamComprobacion.Dispose()
|
||||||
|
|
||||||
ObjIE.Dispose()
|
ObjIE.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
@@ -4117,12 +4117,12 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
PDFReciboDePagos(CveVenta, CveIE, -1)
|
PDFReciboDePagos(CveVenta, CveIE, -1)
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = VTA - PyME"
|
#Region "OP = VTA - PyME"
|
||||||
|
|
||||||
' 04/05/2018 - Pruebas de impresion de factura PyME
|
' 04/05/2018 - Pruebas de impresion de factura PyME
|
||||||
Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF")
|
Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF")
|
||||||
Dim Directorio1 As String = String.Format("{0}Empresas\{1}\Formatos\Factura.mrt", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
|
Dim Directorio1 As String = String.Format("{0}Empresas\{1}\Formatos\Factura.mrt", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
|
||||||
Dim File As FileInfo = New FileInfo(Directorio1)
|
Dim File As FileInfo = New FileInfo(Directorio1)
|
||||||
@@ -4180,26 +4180,26 @@ Partial Class PopUpVerFactura
|
|||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = ENTREGAS - Entregas por realizar"
|
#Region "OP = ENTREGAS - Entregas por realizar"
|
||||||
Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
|
Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
|
||||||
Dim Correcto As Boolean = False
|
Dim Correcto As Boolean = False
|
||||||
Dim DtPaqueteriasGuias As DataTable = Nothing
|
Dim DtPaqueteriasGuias As DataTable = Nothing
|
||||||
Dim ObjGeneral As New ClsGenerales
|
Dim ObjGeneral As New ClsGenerales
|
||||||
If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then
|
If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then
|
||||||
DtPaqueteriasGuias = ObjGeneral.DtResultados
|
DtPaqueteriasGuias = ObjGeneral.DtResultados
|
||||||
Correcto = True
|
Correcto = True
|
||||||
End If
|
End If
|
||||||
ObjGeneral.Dispose()
|
ObjGeneral.Dispose()
|
||||||
If Correcto Then
|
If Correcto Then
|
||||||
Dim RepParams As New List(Of ReportParameter)
|
Dim RepParams As New List(Of ReportParameter)
|
||||||
RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString()))
|
RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString()))
|
||||||
RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
|
RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
|
||||||
RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
|
|
||||||
ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
|
ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -6112,7 +6112,7 @@ Partial Class Compras_Proveedores
|
|||||||
Dim ObjFolios As New ClsGralFolios()
|
Dim ObjFolios As New ClsGralFolios()
|
||||||
Dim CveSubProyectoMatriz As Integer
|
Dim CveSubProyectoMatriz As Integer
|
||||||
|
|
||||||
If ObjSub.GetSubProyectos() Then
|
If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then
|
||||||
CveSubProyectoMatriz = ObjSub.DtResultados.FiltroPrimeroValor("CveSubProyecto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND TipoSucursal = 1").ToEntero
|
CveSubProyectoMatriz = ObjSub.DtResultados.FiltroPrimeroValor("CveSubProyecto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND TipoSucursal = 1").ToEntero
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
@@ -2444,7 +2444,7 @@ Partial Class Inventarios_EntregaAlmacen
|
|||||||
Else
|
Else
|
||||||
If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
|
If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
|
||||||
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
|
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
|
||||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, EsInterno:=EsInterno, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero()) Then
|
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=-3, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, EsInterno:=EsInterno, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero()) Then
|
||||||
ErrorMovInv = True
|
ErrorMovInv = True
|
||||||
TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de entrada")
|
TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de entrada")
|
||||||
Exit For
|
Exit For
|
||||||
|
|||||||
@@ -8,6 +8,9 @@
|
|||||||
Costo Indirecto
|
Costo Indirecto
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
|
||||||
|
</li>
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
|
|||||||
@@ -3,6 +3,8 @@ Option Strict On
|
|||||||
|
|
||||||
Imports System.Data
|
Imports System.Data
|
||||||
Imports Extensiones
|
Imports Extensiones
|
||||||
|
Imports Microsoft.Reporting.WebForms
|
||||||
|
|
||||||
Partial Class Compras_Fletes
|
Partial Class Compras_Fletes
|
||||||
Inherits ClsPaginas
|
Inherits ClsPaginas
|
||||||
|
|
||||||
@@ -402,6 +404,30 @@ Partial Class Compras_Fletes
|
|||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Fletes.rdlc", UsuarioActual.Empresa.Ruta))
|
||||||
|
|
||||||
|
If Archivo.Exists Then
|
||||||
|
Dim ImporteGrid As Double = DtCompras.SUM("SubTotal")
|
||||||
|
Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
|
||||||
|
Dim ImporteData As Double = ImporteStr.ToDouble()
|
||||||
|
|
||||||
|
Dim params As New List(Of ReportParameter)
|
||||||
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
|
params.Add(New ReportParameter("Folio", LblFolio.Text))
|
||||||
|
params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text))
|
||||||
|
params.Add(New ReportParameter("Fecha", TxtFecha.Text))
|
||||||
|
params.Add(New ReportParameter("Modalidad", If(DdlModalidad.SelectedValue = "-1", "Por Orden de Compra", "Factura de Compra")))
|
||||||
|
params.Add(New ReportParameter("Proveedor", LbOCProveedor.Text))
|
||||||
|
params.Add(New ReportParameter("FolioModalidad", HLOCFolio.Text))
|
||||||
|
params.Add(New ReportParameter("Importe", (ImporteGrid + ImporteData).ToString()))
|
||||||
|
|
||||||
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Fletes.rdlc", DtCompras, params, String.Format("Costo Indirecto - {0}", LblFolio.Text), RDSName:="DataSet1")
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -81,7 +81,7 @@
|
|||||||
<table class="table Widthall ">
|
<table class="table Widthall ">
|
||||||
<tr>
|
<tr>
|
||||||
<td style="font-size: 14px; width: 20%; border-right: 3px solid white;"></td>
|
<td style="font-size: 14px; width: 20%; border-right: 3px solid white;"></td>
|
||||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Flete</td>
|
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Facturas de Costo Indirecto</td>
|
||||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td>
|
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td>
|
||||||
</tr>
|
</tr>
|
||||||
</table>
|
</table>
|
||||||
|
|||||||
@@ -16,9 +16,6 @@
|
|||||||
<li>
|
<li>
|
||||||
<asp:LinkButton runat="server" ID="LkbNuevaVersion" OnClick="LkbNuevaVersion_Click" data-toggle="tooltip" data-placement="left" title="Agregar una nueva versión de este documento" Text="<i class='fa fa-plus'></i>Crear Nueva Versión"></asp:LinkButton>
|
<asp:LinkButton runat="server" ID="LkbNuevaVersion" OnClick="LkbNuevaVersion_Click" data-toggle="tooltip" data-placement="left" title="Agregar una nueva versión de este documento" Text="<i class='fa fa-plus'></i>Crear Nueva Versión"></asp:LinkButton>
|
||||||
</li>
|
</li>
|
||||||
<li>
|
|
||||||
<asp:LinkButton runat="server" ID="LbPruebas" OnClick="LbPruebas_Click" data-toggle="tooltip" data-placement="left" title="Agregar una nueva versión de este documento" Text="<i class='fa fa-plus'></i>Pruebas"></asp:LinkButton>
|
|
||||||
</li>
|
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
|
|||||||
@@ -192,8 +192,9 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
|||||||
TxtResponsable.Text = UsuarioActual.Nombre;
|
TxtResponsable.Text = UsuarioActual.Nombre;
|
||||||
}
|
}
|
||||||
|
|
||||||
private void CargarDocumentoYaExistente()
|
private bool CargarDocumentoYaExistente()
|
||||||
{
|
{
|
||||||
|
bool SeCargoInfo = false;
|
||||||
ClsOIEventos ObjOI = new ClsOIEventos();
|
ClsOIEventos ObjOI = new ClsOIEventos();
|
||||||
if (ObjOI.GetDocumento(this.CveDocumento, UsuarioActual.CveEmpresa))
|
if (ObjOI.GetDocumento(this.CveDocumento, UsuarioActual.CveEmpresa))
|
||||||
{
|
{
|
||||||
@@ -214,9 +215,15 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
|||||||
ArchivoAdjuntoNombre = Documento["ArchivoFisico"].ToString();
|
ArchivoAdjuntoNombre = Documento["ArchivoFisico"].ToString();
|
||||||
LkbDescargarArchivo.Text = ArchivoAdjuntoNombre;
|
LkbDescargarArchivo.Text = ArchivoAdjuntoNombre;
|
||||||
DivDescargarArchivo.Visible = true;
|
DivDescargarArchivo.Visible = true;
|
||||||
|
|
||||||
|
SeCargoInfo = true;
|
||||||
|
}else
|
||||||
|
{
|
||||||
|
this.CveDocumento = -1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
ObjOI.Dispose();
|
ObjOI.Dispose();
|
||||||
|
return SeCargoInfo;
|
||||||
}
|
}
|
||||||
|
|
||||||
private void CargarUsuariosAutorizo()
|
private void CargarUsuariosAutorizo()
|
||||||
@@ -320,13 +327,15 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
|||||||
if (this.CveDocumento > 0)
|
if (this.CveDocumento > 0)
|
||||||
{
|
{
|
||||||
EstatusMostrar(true);
|
EstatusMostrar(true);
|
||||||
CargarDocumentoYaExistente();
|
if (CargarDocumentoYaExistente())
|
||||||
CargarUsuariosParticipantes();
|
{
|
||||||
CargarUsuariosAutorizo();
|
CargarUsuariosParticipantes();
|
||||||
ConfiguracionActualizar();
|
CargarUsuariosAutorizo();
|
||||||
ConfigurarGridUsuariosParticipantes();
|
ConfiguracionActualizar();
|
||||||
ConfigurarCamposDetalleSegunUsuario();
|
ConfigurarGridUsuariosParticipantes();
|
||||||
CargarMensajeNuevoEditado();
|
ConfigurarCamposDetalleSegunUsuario();
|
||||||
|
CargarMensajeNuevoEditado();
|
||||||
|
}
|
||||||
}
|
}
|
||||||
ConfigurarSegunEstatus();
|
ConfigurarSegunEstatus();
|
||||||
}
|
}
|
||||||
@@ -766,11 +775,4 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
|||||||
UpCliente.Update();
|
UpCliente.Update();
|
||||||
}
|
}
|
||||||
#endregion
|
#endregion
|
||||||
|
|
||||||
protected void LbPruebas_Click(object sender,EventArgs e)
|
|
||||||
{
|
|
||||||
Cargar();
|
|
||||||
UpCliente.Update();
|
|
||||||
Alert("Documento actualizado");
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
@@ -43,17 +43,24 @@ public partial class OI_Documentos : ClsPaginas
|
|||||||
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
|
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
|
||||||
|
|
||||||
string ArchivoFisico = GvRow.DataKey("ArchivoFisico");
|
string ArchivoFisico = GvRow.DataKey("ArchivoFisico");
|
||||||
string NombreArchivo = ArchivoFisico.Split('_')[1];
|
string CveDocumento = GvRow.DataKey("CveDocumento");
|
||||||
|
//string NombreArchivo = ArchivoFisico.Split('_')[1];
|
||||||
|
|
||||||
string Ruta = string.Format("{0}Empresas/{1}/DocumentosRepo/{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ArchivoFisico);
|
string Ruta = string.Format("{0}Empresas/{1}/DocumentosRepo/{2}/{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CveDocumento, ArchivoFisico);
|
||||||
byte[] archivoBytes = File.ReadAllBytes(Ruta);
|
if (File.Exists(Ruta))
|
||||||
|
{
|
||||||
|
byte[] archivoBytes = File.ReadAllBytes(Ruta);
|
||||||
|
|
||||||
HttpContext.Current.Response.Clear();
|
HttpContext.Current.Response.Clear();
|
||||||
HttpContext.Current.Response.ClearContent();
|
HttpContext.Current.Response.ClearContent();
|
||||||
HttpContext.Current.Response.ContentType = "application/octet-stream";
|
HttpContext.Current.Response.ContentType = "application/octet-stream";
|
||||||
HttpContext.Current.Response.AddHeader("Content-Disposition", String.Format("attachment;filename={0}", NombreArchivo));
|
HttpContext.Current.Response.AddHeader("Content-Disposition", String.Format("attachment;filename={0}", ArchivoFisico));
|
||||||
HttpContext.Current.Response.AddHeader("Content-Length", archivoBytes.Length.ToString());
|
HttpContext.Current.Response.AddHeader("Content-Length", archivoBytes.Length.ToString());
|
||||||
HttpContext.Current.Response.OutputStream.Write(archivoBytes, 0, archivoBytes.Length);
|
HttpContext.Current.Response.OutputStream.Write(archivoBytes, 0, archivoBytes.Length);
|
||||||
HttpContext.Current.Response.End();
|
HttpContext.Current.Response.End();
|
||||||
|
}else
|
||||||
|
{
|
||||||
|
Alert("No se ha cargado Documento",ModExtensiones.TipoMensaje.MsgAdvertencia);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -151,7 +151,7 @@
|
|||||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False"
|
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False"
|
||||||
EmptyDataText="No se encontraron registros" data-sort="true" Width="99%"
|
EmptyDataText="No se encontraron registros" data-sort="true" Width="99%"
|
||||||
DataKeyNames="CveCliente,CveMoneda,Saldo,Folio,CveVenta,NombreComercial,CveVentaAmortizacion,SerieFolioAmortizacion,SerieFolio,Total,
|
DataKeyNames="CveCliente,CveMoneda,Saldo,Folio,CveVenta,NombreComercial,CveVentaAmortizacion,SerieFolioAmortizacion,SerieFolio,Total,
|
||||||
Fecha,FechaAmortizacion,SubTotal,SubTotalAmortizacion,ImporteAmortizacion,CveIE,Tipo,SaldoAcumulativo">
|
Fecha,FechaAmortizacion,SubTotal,SubTotalAmortizacion,ImporteAmortizacion,CveIE,Tipo,SaldoAcumulativo,CveSubProyecto">
|
||||||
<Columns>
|
<Columns>
|
||||||
<asp:TemplateField>
|
<asp:TemplateField>
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
|
|||||||
@@ -358,17 +358,23 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
|
|||||||
CveCuenta = ObjConta.DtResultados.Rows[0]["CveCuentaCliente"].ToString().ToEntero();
|
CveCuenta = ObjConta.DtResultados.Rows[0]["CveCuentaCliente"].ToString().ToEntero();
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
break;
|
||||||
}
|
}
|
||||||
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 6, Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("CveMoneda").ToEntero(), TxtFecha.Text.ToDate(), "Saldo de NC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
|
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 6, Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("CveMoneda").ToEntero(), TxtFecha.Text.ToDate(), "Saldo de NC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
|
||||||
|
|
||||||
if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Saldo, Gv.DataKey("Folio").ToString(), ConceptoContable2, TxtConcepto.Text, TxtFecha.Text.ToDate(), IdCtaContable, -1, CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteMX: Saldo, CveCuenta: CveCuenta))
|
if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Saldo, Gv.DataKey("Folio").ToString(), ConceptoContable2, TxtConcepto.Text, TxtFecha.Text.ToDate(), IdCtaContable, -1, CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteMX: Saldo, CveCuenta: CveCuenta))
|
||||||
{
|
{
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento";
|
MsgError = "Ocurrio un error al saldar el movimiento";
|
||||||
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Folio").ToString(), 78, TxtConcepto.Text, TxtFecha.Text.ToDate(), UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE, CveVenta, ImporteMX: Gv.DataKey("Saldo").ToDecimal(), CveCuenta: -1))
|
if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Folio").ToString(), 78, TxtConcepto.Text, TxtFecha.Text.ToDate(), UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE, CveVenta, ImporteMX: Gv.DataKey("Saldo").ToDecimal(), CveCuenta: -1, CveSubProyecto: Gv.DataKey("CveSubProyecto").ToEntero()))
|
||||||
{
|
{
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento";
|
MsgError = "Ocurrio un error al saldar el movimiento";
|
||||||
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -3771,6 +3771,7 @@ Partial Class Ventas
|
|||||||
InicializaDTAnticiposAmortizacion()
|
InicializaDTAnticiposAmortizacion()
|
||||||
ChkAplicaNCAnticipo.Enabled = False
|
ChkAplicaNCAnticipo.Enabled = False
|
||||||
Else
|
Else
|
||||||
|
ChkAplicaNCAnticipo.Enabled = False
|
||||||
ChkAplicaNCAnticipo.Checked = False
|
ChkAplicaNCAnticipo.Checked = False
|
||||||
End If
|
End If
|
||||||
'If DbRowVenta("SaldoAnticipo").ToString().ToDouble <= 0 Then ChkAplicaNCAnticipo.Checked = False : ChkAplicaNCAnticipo.Enabled = False
|
'If DbRowVenta("SaldoAnticipo").ToString().ToDouble <= 0 Then ChkAplicaNCAnticipo.Checked = False : ChkAplicaNCAnticipo.Enabled = False
|
||||||
@@ -16656,6 +16657,7 @@ Partial Class Ventas
|
|||||||
' End If
|
' End If
|
||||||
'End If
|
'End If
|
||||||
'Creamos el movimiento
|
'Creamos el movimiento
|
||||||
|
|
||||||
Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1,
|
Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1,
|
||||||
CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Vta/E4")
|
CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Vta/E4")
|
||||||
|
|
||||||
@@ -16680,7 +16682,7 @@ Partial Class Ventas
|
|||||||
Dim Serie As String = MovDet("Serie").ToString()
|
Dim Serie As String = MovDet("Serie").ToString()
|
||||||
Dim Lote As String = MovDet("Lote").ToString()
|
Dim Lote As String = MovDet("Lote").ToString()
|
||||||
Dim FechaCaducidad As Date = MovDet("FechaCaducidad").ToString.ToDate
|
Dim FechaCaducidad As Date = MovDet("FechaCaducidad").ToString.ToDate
|
||||||
Dim CveSeccionAlmacen As Integer = MovDet("CveSeccionAlmacen").ToString.ToEntero
|
Dim CveSeccionAlmacen As Integer = -3 'SE DEBE CALCULAR LA SECCION EL EN TRIGGER DE INVENTARIOS
|
||||||
Dim Consec As Integer = DtRemisionesTmpDT.FiltroPrimeroValor("Consec", $"CveVentaDetalle = {MovDet("CveVentaDetalle").ToString()}").ToEntero()
|
Dim Consec As Integer = DtRemisionesTmpDT.FiltroPrimeroValor("Consec", $"CveVentaDetalle = {MovDet("CveVentaDetalle").ToString()}").ToEntero()
|
||||||
|
|
||||||
'COMIENZA: VENTADETALLE
|
'COMIENZA: VENTADETALLE
|
||||||
@@ -22703,7 +22705,6 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Function CargaDtImpuestosNC(CveVentaNC As Integer, Importe As Decimal, Optional NCDescuento As Boolean = False, Optional AplicaImpuestosLocales As Boolean = True, Optional NivelTotal As Integer = 1) As DataTable
|
Private Function CargaDtImpuestosNC(CveVentaNC As Integer, Importe As Decimal, Optional NCDescuento As Boolean = False, Optional AplicaImpuestosLocales As Boolean = True, Optional NivelTotal As Integer = 1) As DataTable
|
||||||
Dim Total As Decimal = 0, SubTotal As Decimal = 0, Saldo As Decimal = 0
|
Dim Total As Decimal = 0, SubTotal As Decimal = 0, Saldo As Decimal = 0
|
||||||
|
|
||||||
@@ -22750,9 +22751,13 @@ Partial Class Ventas
|
|||||||
Dim Porcentaje As Decimal = ((Importe * 100) / ImporteReferencia) / 100
|
Dim Porcentaje As Decimal = ((Importe * 100) / ImporteReferencia) / 100
|
||||||
Dim FiltroStr As String = ""
|
Dim FiltroStr As String = ""
|
||||||
Dim importePuTemp As Decimal = 0
|
Dim importePuTemp As Decimal = 0
|
||||||
Dim TotalImpuestosLocales As Decimal = 0
|
Dim TotalImpuestosLocalesVentaOriginal As Decimal = 0
|
||||||
|
Dim TotalImpuestosLocalesRecalculado As Decimal = 0
|
||||||
|
|
||||||
|
'CALCULA LO EQUIVALENTE EN IMPUSTOS LOCALES
|
||||||
If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.Rows.Count > 0 Then
|
If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.Rows.Count > 0 Then
|
||||||
TotalImpuestosLocales = TmpDTImpuestos.SUM("Importe").ToDecimal()
|
TotalImpuestosLocalesVentaOriginal = TmpDTImpuestos.SUM("Importe").ToDecimal()
|
||||||
|
TotalImpuestosLocalesRecalculado = TotalImpuestosLocalesVentaOriginal * Porcentaje
|
||||||
End If
|
End If
|
||||||
|
|
||||||
For Each Dr As DataRow In DtImpuestosLocal.Rows
|
For Each Dr As DataRow In DtImpuestosLocal.Rows
|
||||||
@@ -22760,7 +22765,7 @@ Partial Class Ventas
|
|||||||
importePuTemp = (Porcentaje * (TmpDT.SUM("TotalImporte", FiltroStr).ToDecimal() - TmpDT.SUM("Descuento", FiltroStr).ToDecimal()))
|
importePuTemp = (Porcentaje * (TmpDT.SUM("TotalImporte", FiltroStr).ToDecimal() - TmpDT.SUM("Descuento", FiltroStr).ToDecimal()))
|
||||||
|
|
||||||
If Not AplicaImpuestosLocales Then
|
If Not AplicaImpuestosLocales Then
|
||||||
importePuTemp = importePuTemp - TotalImpuestosLocales
|
importePuTemp = importePuTemp - TotalImpuestosLocalesVentaOriginal
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dr("ImporteTotal") = importePuTemp.RoundSQL(2)
|
Dr("ImporteTotal") = importePuTemp.RoundSQL(2)
|
||||||
@@ -22780,9 +22785,11 @@ Partial Class Ventas
|
|||||||
Next
|
Next
|
||||||
|
|
||||||
Dim importeNC = (DtImpuestosLocal.SUMD("ImporteTotal") + DtImpuestosLocal.SUMD("ImporteIVA") + DtImpuestosLocal.SUMD("ImporteIEPS") - DtImpuestosLocal.SUMD("ImporteRetIVA") - DtImpuestosLocal.SUMD("ImporteRetISR"))
|
Dim importeNC = (DtImpuestosLocal.SUMD("ImporteTotal") + DtImpuestosLocal.SUMD("ImporteIVA") + DtImpuestosLocal.SUMD("ImporteIEPS") - DtImpuestosLocal.SUMD("ImporteRetIVA") - DtImpuestosLocal.SUMD("ImporteRetISR"))
|
||||||
|
|
||||||
If AplicaImpuestosLocales Then
|
If AplicaImpuestosLocales Then
|
||||||
Importe = Importe + TotalImpuestosLocales
|
Importe = Importe + TotalImpuestosLocalesRecalculado
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'codigo para ajuste de centavo, si el importe total no cuadra con los totales
|
'codigo para ajuste de centavo, si el importe total no cuadra con los totales
|
||||||
Dim difTmp As Decimal = Importe - importeNC
|
Dim difTmp As Decimal = Importe - importeNC
|
||||||
|
|
||||||
@@ -22800,7 +22807,6 @@ Partial Class Ventas
|
|||||||
'CargaNCDT(CveVentaNC, Importe.ToDecimal)
|
'CargaNCDT(CveVentaNC, Importe.ToDecimal)
|
||||||
Return DtImpuestosLocal
|
Return DtImpuestosLocal
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Sub AgregaTempDT(ByRef TmpDT As DataTable, CvePS As Integer, PS As String, Codigo As String, CodigoPS As String, CveTipoPS As Integer, CveTipoInvPS As Integer, CveUM As Integer, UM As String,
|
Private Sub AgregaTempDT(ByRef TmpDT As DataTable, CvePS As Integer, PS As String, Codigo As String, CodigoPS As String, CveTipoPS As Integer, CveTipoInvPS As Integer, CveUM As Integer, UM As String,
|
||||||
CveClasificacion As Integer, Clasificacion As String, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String,
|
CveClasificacion As Integer, Clasificacion As String, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String,
|
||||||
Obs As String, Cantidad As Double, PU As Double, PorcentajeIVA As Double, ImporteIVA As Double, PorcentajeRetIVA As Double, ImporteRetIVA As Double,
|
Obs As String, Cantidad As Double, PU As Double, PorcentajeIVA As Double, ImporteIVA As Double, PorcentajeRetIVA As Double, ImporteRetIVA As Double,
|
||||||
@@ -25932,39 +25938,39 @@ Partial Class Ventas
|
|||||||
If CveVenta <= 0 OrElse EsCreaApartirDe Then
|
If CveVenta <= 0 OrElse EsCreaApartirDe Then
|
||||||
|
|
||||||
If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
|
If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
|
||||||
For Each RowServicio As DataRow In TmpDT.Rows
|
For Each RowServicio As DataRow In TmpDT.Rows
|
||||||
Dim tClienteRetIVA = ClienteRetIVA
|
Dim tClienteRetIVA = ClienteRetIVA
|
||||||
If tClienteRetIVA <= 0 Then
|
If tClienteRetIVA <= 0 Then
|
||||||
If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
|
If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
|
||||||
tClienteRetIVA = 0.106667D
|
tClienteRetIVA = 0.106667D
|
||||||
ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
|
ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
|
||||||
tClienteRetIVA = 0.04D
|
tClienteRetIVA = 0.04D
|
||||||
ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(RowServicio("EsOutSourcing").ToString()) Then
|
ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(RowServicio("EsOutSourcing").ToString()) Then
|
||||||
tClienteRetIVA = 0.06D
|
tClienteRetIVA = 0.06D
|
||||||
End If
|
|
||||||
ViewState("ClienteRetIVA") = tClienteRetIVA
|
|
||||||
End If
|
End If
|
||||||
|
ViewState("ClienteRetIVA") = tClienteRetIVA
|
||||||
Dim TotalCalculableImpuestos As Decimal = (RowServicio("Cantidad").ToString().ToDecimal() * RowServicio("PU").ToString().ToDecimal()) - RowServicio("Descuento").ToString().ToDecimal()
|
|
||||||
RowServicio("ImporteRetIVA") = (TotalCalculableImpuestos * ClienteRetIVA).RoundSQL()
|
|
||||||
RowServicio("PorcentajeRetIVA") = ClienteRetIVA
|
|
||||||
|
|
||||||
Next
|
|
||||||
TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal().FormatoNumero(2)
|
|
||||||
Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
|
|
||||||
LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
|
|
||||||
If PorcentajeRetIVA > 0 Then
|
|
||||||
TrRetIVA.Style.Add("display", "")
|
|
||||||
UsuarioActual.Empresa.MostrarRetIVA = True
|
|
||||||
DdlTipoRetencion.Visible = True
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
GvPS.DataSource = TmpDT
|
Dim TotalCalculableImpuestos As Decimal = (RowServicio("Cantidad").ToString().ToDecimal() * RowServicio("PU").ToString().ToDecimal()) - RowServicio("Descuento").ToString().ToDecimal()
|
||||||
GvPS.DataBind()
|
RowServicio("ImporteRetIVA") = (TotalCalculableImpuestos * ClienteRetIVA).RoundSQL()
|
||||||
|
RowServicio("PorcentajeRetIVA") = ClienteRetIVA
|
||||||
|
|
||||||
|
Next
|
||||||
|
TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal().FormatoNumero(2)
|
||||||
|
Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
|
||||||
|
LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
|
||||||
|
If PorcentajeRetIVA > 0 Then
|
||||||
|
TrRetIVA.Style.Add("display", "")
|
||||||
|
UsuarioActual.Empresa.MostrarRetIVA = True
|
||||||
|
DdlTipoRetencion.Visible = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
GvPS.DataSource = TmpDT
|
||||||
|
GvPS.DataBind()
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
UpPS.Update()
|
UpPS.Update()
|
||||||
@@ -26161,7 +26167,7 @@ Partial Class Ventas
|
|||||||
Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer)
|
Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer)
|
||||||
Dim ObjMovtos As New ClsMovimientos()
|
Dim ObjMovtos As New ClsMovimientos()
|
||||||
If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveVenta) Then
|
If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveVenta) Then
|
||||||
DtDatos = ObjMovtos.DtResultados
|
DTDatos = ObjMovtos.DtResultados
|
||||||
GVAuxiliar.DataSource = ObjMovtos.DtResultados
|
GVAuxiliar.DataSource = ObjMovtos.DtResultados
|
||||||
Else
|
Else
|
||||||
GVAuxiliar.DataSource = Nothing
|
GVAuxiliar.DataSource = Nothing
|
||||||
|
|||||||
Reference in New Issue
Block a user