This commit is contained in:
2023-02-28 17:18:59 -07:00
24 changed files with 1048 additions and 681 deletions

View File

@@ -531,10 +531,27 @@ Public Class ClsGPS
OnError("Ocurrió un error al obtener las coordenadas del equipo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function DispositivoComentarioupdate(CveDispositivo As Integer, comentario As String, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_GPS_DispositivoComentarioupdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
.Add("@Comentarios", SqlDbType.VarChar).Value = comentario
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener las coordenadas del equipo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UltimaPosicionEquipoGet(CveDispositivos As String, CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_GPS_UltimaPosicionTGet")
@@ -3072,7 +3089,7 @@ Public Class ClsGPS
#Region "Dispositivos"
Public Function DispositivoAdd(TipoDispositivo As Integer, NumTelefono As String, CveModelo As Integer, CveProveedorComunicacionCuenta As Integer, CveCliente As Integer, IMEI As String, Serie As String, CveEstatus As Integer, SerieVehiculo As String, ColorVehiculo As String,
NombreVehiculo As String, NoEconomico As String, devID As String, devPort As Integer, ModeloVehiculo As String, AñoVehiculo As String, ClaseVehiculo As String, PlacasVehiculo As String, LimiteVelocidad As Boolean, VelocidadMaxima As Double,
DetallesVehiculo As String, Rendimiento As Double, Icono As String, ColorTrazo As String, CveUsuario As Integer) As Boolean
DetallesVehiculo As String, Rendimiento As Double, Icono As String, ColorTrazo As String, CveUsuario As Integer, AsignadoEn As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_GPS_DispositivosAdd")
With SqlAdapter.SelectCommand.Parameters
@@ -3102,6 +3119,7 @@ Public Class ClsGPS
.Add("@Icono", SqlDbType.VarChar).Value = Icono
.Add("@ColorTrazo", SqlDbType.VarChar).Value = ColorTrazo
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@AsignadoEn", SqlDbType.VarChar).Value = AsignadoEn
End With
@@ -3283,7 +3301,7 @@ Public Class ClsGPS
Public Function DispositivosUpdate(TipoDispositivo As Integer, NumTelefono As String, CveDispositivo As Integer, CveModelo As Integer, CveProveedorComunicacionCuenta As Integer, CveCliente As Integer, IMEI As String, Serie As String, CveEstatus As Integer,
SerieVehiculo As String, ColorVehiculo As String, NombreVehiculo As String, NoEconomico As String, devID As String, devPort As Integer, ModeloVehiculo As String, AñoVehiculo As String, ClaseVehiculo As String, PlacasVehiculo As String, LimiteVelocidad As Boolean, VelocidadMaxima As Double,
DetallesVehiculo As String, Rendimiento As Double, Icono As String, ColorTrazo As String, CveUsuario As Integer) As Boolean
DetallesVehiculo As String, Rendimiento As Double, Icono As String, ColorTrazo As String, CveUsuario As Integer, AsignadoEn As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_GPS_DispositivosUpdate")
With SqlAdapter.SelectCommand.Parameters
@@ -3313,6 +3331,7 @@ Public Class ClsGPS
.Add("@Icono", SqlDbType.VarChar).Value = Icono
.Add("@ColorTrazo", SqlDbType.VarChar).Value = ColorTrazo
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@AsignadoEn", SqlDbType.VarChar).Value = AsignadoEn
End With
Try
SqlAdapter.Fill(Data)

View File

@@ -2397,11 +2397,39 @@ Namespace Extensiones
excel.Worksheets.AddCopy(NombreTabla, worksheetDTExtra)
excel.Worksheets(0).Name = Titulo
End If
Dim indexRow As Integer = 8
Dim indexRowGV As Integer = 0
Dim cssClassRow As String = ""
For indexRow = 8 To worksheet.Rows.Count - 4
Try
cssClassRow = GridView.Rows(indexRowGV).CssClass.Trim()
Select Case cssClassRow
Case "SubTotales2"
worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#c0c0c0"))
worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000
worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#000077")
Case "SubTotales"
worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#dddddd"))
worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000
worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#67809F")
Case Else
End Select
Catch ex As Exception
End Try
indexRowGV += 1
Next
End If
excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx")

BIN
Bin/GoPdf.dll Normal file

Binary file not shown.

View File

@@ -3,9 +3,30 @@
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.ocultar {
display: none;
}
.page-bar .page-breadcrumb{
display: none !important;
}
.portlet-title .font-green, .portlet-title .font-green a {
color: #3598dc !important;
}
.GvEmpaque th {
text-align: left !important;
}
.GvEmpaque th.centerclass {
text-align: center !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Catalogo de Empaques
Catalogo de Empaque Destino
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
@@ -15,67 +36,87 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkAgregarTiposEtiqueta" OnClick="LnkAgregarTipo_Click" runat="server"><i class="fa fa-plus"></i>Agregar Empaque</asp:LinkButton></li>
<asp:LinkButton ID="LnkAgregarTiposEtiqueta" OnClick="LnkAgregarTipo_Click" runat="server"><i class="fa fa-plus"></i>Agregar</asp:LinkButton></li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="upDatosTipo" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
<ContentTemplate>
<div class="portlet light bordered" style="margin-bottom: 0px; padding: 0px;" id="form_wizard_1">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject font-green bold uppercase">Información
<asp:Literal ID="LtlPeriodoseleccionado" runat="server"></asp:Literal></span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<%--<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>--%>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div style="float: right;">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEmpaque.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEmpaque.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<asp:GridView ID="GvEmpaque" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
</div>
</div>
<div class="portlet-body form">
<asp:GridView ID="GvEmpaque" runat="server" GridLines="None" CssClass="table table-hover table-striped GvEmpaque ScrollAD mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
DataKeyNames="CveEmpaque,Empaque,Estatus,FechaIng,CveUsuario,Usuario,CveEmpresa,Empresa,CostoXTonelada,CostoPreEnfriado,Lleno,Sencillo,TermoLleno,TermoSencillo">
<Columns>
<asp:TemplateField HeaderText="Empaque" ItemStyle-HorizontalAlign="Left">
<asp:TemplateField HeaderText="Empaque" ItemStyle-HorizontalAlign="Left" Visible="true">
<ItemTemplate>
<asp:Label ID="lbltipoEtiqueta" runat="server" Text='<%# Eval("Empaque")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Costo X Tonelada" ItemStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="Costo X Tonelada" ItemStyle-HorizontalAlign="Right" Visible="false">
<ItemTemplate>
<asp:Label ID="LblCostoXTonelada" runat="server" Text='<%# Eval("CostoXTonelada")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Costo PreEnfriado" ItemStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="Costo PreEnfriado" ItemStyle-HorizontalAlign="Right" Visible="false">
<ItemTemplate>
<asp:Label ID="LblCostoPreEnfriado" runat="server" Text='<%# Eval("CostoPreEnfriado")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Full" ItemStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="Full" ItemStyle-HorizontalAlign="Right" Visible="false">
<ItemTemplate>
<asp:Label ID="LblFull" runat="server" Text='<%# Eval("Lleno")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sencillo" ItemStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="Sencillo" ItemStyle-HorizontalAlign="Right" Visible="false">
<ItemTemplate>
<asp:Label ID="LblSencillo" runat="server" Text='<%# Eval("Sencillo")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="TermoFull" ItemStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="TermoFull" ItemStyle-HorizontalAlign="Right" Visible="false">
<ItemTemplate>
<asp:Label ID="LblTermoFull" runat="server" Text='<%# Eval("TermoLleno")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="TermoSencillo" ItemStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="TermoSencillo" ItemStyle-HorizontalAlign="Right" Visible="false">
<ItemTemplate>
<asp:Label ID="LblTermoSencillo" runat="server" Text='<%# Eval("TermoSencillo")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="100px" >
<ItemTemplate>
<asp:Label ID="lblestatus" runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="FechaIng" ItemStyle-Width="15%" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left">
<asp:BoundField DataField="FechaIng" ItemStyle-CssClass="centerclass" ItemStyle-Width="100px" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:TemplateField HeaderText="Usuario" ItemStyle-Width="200px" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblusuario" runat="server" Text='<%# Eval("Usuario")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px" HeaderText="Comandos">
<ItemTemplate>
<asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarTipo_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
<asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarTipo_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el TiposEtiqueta?" data-btn-ok-label="si" />
@@ -83,6 +124,8 @@
</asp:TemplateField>
</Columns>
</asp:GridView>
</div></div>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DModalTiposEtiqueta" class="modal ADS fade" role="dialog">
@@ -98,46 +141,46 @@
<asp:TextBox ID="TxtEmpaque" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvEmpaque" runat="server" ControlToValidate="TxtEmpaque" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Etiqueta''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcoEmpaque" runat="server" HighlightCssClass="vco" TargetControlID="RfvEmpaque"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtEmpaque.ClientID.ToString()%>">Empaque:</label>
<label for="<%= TxtEmpaque.ClientID.ToString()%>">Empaque Destino:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright ocultar">
<asp:TextBox ID="TxtCostoXTonelada" CssClass="form-control" runat="server"></asp:TextBox>
<%-- <asp:RequiredFieldValidator ID="RFVCostoXTonelada" runat="server" ControlToValidate="TxtCostoXTonelada" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Costo X Tonelada''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<%-- <asp:RequiredFieldValidator ID="RFVCostoXTonelada" runat="server" ControlToValidate="TxtCostoXTonelada" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Costo X Tonelada''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCECostoXTonelada" runat="server" HighlightCssClass="vco" TargetControlID="RFVCostoXTonelada"></ajax:ValidatorCalloutExtender>--%>
<ajax:FilteredTextBoxExtender ID="FIETCostoXToneladae" TargetControlID="TxtCostoXTonelada" FilterType="Numbers,Custom" ValidChars="." runat="server" />
<label for="<%= TxtCostoXTonelada.ClientID.ToString()%>">CostoXTonelada:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright ocultar">
<asp:TextBox ID="TxtCostoPreEnfriado" CssClass="form-control" runat="server"></asp:TextBox>
<%-- <asp:RequiredFieldValidator ID="RFVViaje" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<%-- <asp:RequiredFieldValidator ID="RFVViaje" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEViaje" runat="server" HighlightCssClass="vco" TargetControlID="RFVViaje"></ajax:ValidatorCalloutExtender>--%>
<ajax:FilteredTextBoxExtender ID="FTBECostoPreEnfriado" TargetControlID="TxtCostoPreEnfriado" FilterType="Numbers,Custom" ValidChars="." runat="server" />
<label for="<%= TxtCostoPreEnfriado.ClientID.ToString()%>">CostoPreEnfriado:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright ocultar">
<asp:TextBox ID="TxtFull" CssClass="form-control" runat="server"></asp:TextBox>
<%-- <asp:RequiredFieldValidator ID="RFVFull" runat="server" ControlToValidate="TxtFull" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Full''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<%-- <asp:RequiredFieldValidator ID="RFVFull" runat="server" ControlToValidate="TxtFull" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Full''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEFull" runat="server" HighlightCssClass="vco" TargetControlID="RFVFull"></ajax:ValidatorCalloutExtender>--%>
<ajax:FilteredTextBoxExtender ID="FTBEFull" TargetControlID="TxtFull" FilterType="Numbers,Custom" ValidChars="." runat="server" />
<label for="<%= TxtFull.ClientID.ToString()%>">Full:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright ocultar">
<asp:TextBox ID="TxtSencillo" CssClass="form-control" runat="server"></asp:TextBox>
<%-- <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<%-- <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RFVViaje"></ajax:ValidatorCalloutExtender>--%>
<ajax:FilteredTextBoxExtender ID="FTBESencillo" TargetControlID="TxtSencillo" FilterType="Numbers,Custom" ValidChars="." runat="server" />
<label for="<%= TxtSencillo.ClientID.ToString()%>">Sencillo:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright ocultar">
<asp:TextBox ID="TxtTermoFull" CssClass="form-control" runat="server"></asp:TextBox>
<%-- <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<%-- <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="RFVViaje"></ajax:ValidatorCalloutExtender>--%>
<ajax:FilteredTextBoxExtender ID="FTBETermoFull" TargetControlID="TxtTermoFull" FilterType="Numbers,Custom" ValidChars="." runat="server" />
<label for="<%= TxtTermoFull.ClientID.ToString()%>">TermoFull:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright ocultar">
<asp:TextBox ID="TxtTermoSencillo" CssClass="form-control" runat="server"></asp:TextBox>
<%-- <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<%-- <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="RFVViaje"></ajax:ValidatorCalloutExtender>--%>
<ajax:FilteredTextBoxExtender ID="FTBETermoSencillo" TargetControlID="TxtTermoSencillo" FilterType="Numbers,Custom" ValidChars="." runat="server" />
<label for="<%= TxtTermoSencillo.ClientID.ToString()%>">TermoSencillo:</label>

View File

@@ -1,12 +1,6 @@
Option Strict On
Imports System.Data
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI.WebControls
Imports Extensiones
Partial Class CATTiposEtiqueta
Imports System.Linq
Imports System.Web
Imports System.Web.UI.WebControls
@@ -28,9 +22,9 @@
End Property

View File

@@ -3,9 +3,18 @@
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.ocultar {
display: none;
}
.page-bar .page-breadcrumb{
display: none !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Catalogo de Huerta
Catalogo de Productor
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
@@ -15,17 +24,37 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkAgregarHuerta" OnClick="LnkAgregarHuer_Click" runat="server"><i class="fa fa-plus"></i>Agregar Huerta</asp:LinkButton></li>
<asp:LinkButton ID="LnkAgregarHuerta" OnClick="LnkAgregarHuer_Click" runat="server"><i class="fa fa-plus"></i>Agregar</asp:LinkButton></li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="upDatosHuer" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
<div class="portlet light" style="margin-bottom: 0px; padding: 0px;" id="form_wizard_1">
<div class="portlet-title">
<div class="caption ">
<i class="fa fa-bookmark font-green"></i>
<span class="caption-subject font-green bold uppercase">Información
<asp:Literal ID="LtlPeriodoseleccionado" runat="server"></asp:Literal></span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<%--<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>--%>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div style="float: right;">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVHuerta.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVHuerta.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
<div class="portlet-body form">
<asp:GridView ID="GVHuerta" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
DataKeyNames="CveHuerta,Huerta,CveProveedor,RazonSocial,FechaIng,Estatus,CveUsuario,Usuario,CveEmpresa,Empresa,TipoCobro,Importe,CostoXTonelada" OnRowDataBound="GvHuerta_RowDataBound">
<Columns>
@@ -34,27 +63,27 @@
<asp:Label ID="lblhuerta" runat="server" Text='<%# Eval("Huerta")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left">
<asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left" Visible="false">
<ItemTemplate>
<asp:Label ID="lblrazonsocial" runat="server" Text='<%# Eval("RazonSocial")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Cobro" ItemStyle-HorizontalAlign="Left">
<asp:TemplateField HeaderText="Tipo Cobro" ItemStyle-HorizontalAlign="Left" Visible="false">
<ItemTemplate>
<asp:Label ID="LblTipoCobro" runat="server" Text='<%# Eval("TipoCobro")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right" Visible="false">
<ItemTemplate>
<asp:Label ID="LblImporte" runat="server" Text='<%# Eval("Importe")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Costo X Tonelada E.M.P." ItemStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="Costo X Tonelada E.M.P." ItemStyle-HorizontalAlign="Right" Visible="false">
<ItemTemplate>
<asp:Label ID="LblCostoXTonelada" runat="server" Text='<%# Eval("CostoXTonelada")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="FechaIng" ItemStyle-Width="15%" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:BoundField DataField="FechaIng" ItemStyle-Width="15%" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="lblestatus" runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
@@ -72,7 +101,7 @@
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</asp:GridView></div></div>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DModalHuerta" class="modal ADS fade" role="dialog">
@@ -81,20 +110,20 @@
<div class="modal-content">
<div class="modal-header ">
<h4 class="modal-title">
<asp:Literal ID="ltlHuertitulo" runat="server" Text="Huerta"></asp:Literal></h4>
<asp:Literal ID="ltlHuertitulo" runat="server" Text="Productor"></asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtHuerhuerta" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvHuerhuerta" runat="server" ControlToValidate="TxtHuerhuerta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Huerta''</b> es necesario, por favor ingréselo." ValidationGroup="VGMHuer"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcoHuerhuerta" runat="server" HighlightCssClass="vco" TargetControlID="RfvHuerhuerta"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtHuerhuerta.ClientID.ToString()%>">Huerta:</label>
<label for="<%= TxtHuerhuerta.ClientID.ToString()%>">Productor:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright ocultar">
<asp:DropDownList ID="DdlProveedor" CssClass="form-control select2me " runat="server" DataTextField="RazonSocial" AppendDataBoundItems="true" DataValueField="CveProveedor" Style="width: 100%"></asp:DropDownList>
<label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright ocultar">
<asp:DropDownList ID="DdlTipoCobro" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Style="width: 100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Text="Costo X Tonelada" Value="1"></asp:ListItem>
@@ -102,17 +131,17 @@
</asp:DropDownList>
<label for="<%= DdlTipoCobro.ClientID.ToString()%>">Tipo de Cobro Flete Huerta Empaque:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright ocultar">
<asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVImporte" runat="server" ControlToValidate="TxtImporte" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="VGMHuer"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEImporte" runat="server" HighlightCssClass="vco" TargetControlID="RFVImporte"></ajax:ValidatorCalloutExtender>
<%--<asp:RequiredFieldValidator ID="RFVImporte" runat="server" ControlToValidate="TxtImporte" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="VGMHuer"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEImporte" runat="server" HighlightCssClass="vco" TargetControlID="RFVImporte"></ajax:ValidatorCalloutExtender>--%>
<ajax:FilteredTextBoxExtender ID="FIETTImporte" TargetControlID="TxtImporte" FilterType="Numbers,Custom" ValidChars="." runat="server" />
<label for="<%= TxtImporte.ClientID.ToString()%>">Importe:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright ocultar">
<asp:TextBox ID="TxtCostoXTonelada" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVCostoXTonelada" runat="server" ControlToValidate="TxtCostoXTonelada" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Costo X Tonelada E.M.P.''</b> es necesario, por favor ingréselo." ValidationGroup="VGMHuer"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCECostoXTonelada" runat="server" HighlightCssClass="vco" TargetControlID="RFVCostoXTonelada"></ajax:ValidatorCalloutExtender>
<%--<asp:RequiredFieldValidator ID="RFVCostoXTonelada" runat="server" ControlToValidate="TxtCostoXTonelada" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Costo X Tonelada E.M.P.''</b> es necesario, por favor ingréselo." ValidationGroup="VGMHuer"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCECostoXTonelada" runat="server" HighlightCssClass="vco" TargetControlID="RFVCostoXTonelada"></ajax:ValidatorCalloutExtender>--%>
<ajax:FilteredTextBoxExtender ID="FTBECostoXTonelada" TargetControlID="TxtCostoXTonelada" FilterType="Numbers,Custom" ValidChars="." runat="server" />
<label for="<%= TxtCostoXTonelada.ClientID.ToString()%>">Costo X Tonelada E.M.P.:</label>
</div>

View File

@@ -8,13 +8,21 @@
public partial class CATHuerta :ClsPaginas
{
#region Propiedades
private int CveHuerta
{
get{return (ViewState["CveHuerta"] == null) ? 0 : Convert.ToInt32(ViewState["CveHuerta"]);}
set{ViewState["CveHuerta"] =value;}
}
#endregion
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack){
CargaProveedor();
set{ViewState["CveHuerta"] =value;}
}
CargaHuerta();
}
}
protected void CargaHuerta()
{

View File

@@ -3,6 +3,23 @@
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.page-bar .page-breadcrumb {
display: none !important;
}
.GVProductos th {
text-align: left !important;
}
.GVProductos th.centerclass {
text-align: center !important;
}
.portlet-title .font-green, .portlet-title .font-green a {
color: #3598dc !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Catalogo de Frutos
@@ -15,40 +32,69 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkAgregarProductos" OnClick="LnkAgregarProd_Click" runat="server"><i class="fa fa-plus"></i>Agregar Producto</asp:LinkButton></li>
<asp:LinkButton ID="LnkAgregarProductos" OnClick="LnkAgregarProd_Click" runat="server"><i class="fa fa-plus"></i>Agregar </asp:LinkButton></li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="upDatosProd" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVProductos" runat="server" OnRowDataBound="GVProductos_RowDataBound" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="100%" AutoGenerateColumns="False"
DataKeyNames="CvePS,PS,FechaIng,Estatus,CveUsuario,Usuario,CveEmpresa,Empresa">
<Columns>
<asp:TemplateField HeaderText="Fruto" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblpS" runat="server" Text='<%# Eval("PS")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="lblestatus" runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="FechaIng" ItemStyle-Width="15%" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblusuario" runat="server" Text='<%# Eval("Usuario")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
<ItemTemplate>
<asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarProd_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
<asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarProd_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el Productos?" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
<div class="portlet light portlet bordered " style="margin-bottom: 0px; padding: 0px;" id="form_wizard_1">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject font-green bold uppercase">Información
<asp:Literal ID="LtlPeriodoseleccionado" runat="server"></asp:Literal></span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<%--<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>--%>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div style="float: right;">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVProductos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVProductos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
<div class="portlet-body form">
<asp:GridView ID="GVProductos" runat="server" OnRowDataBound="GVProductos_RowDataBound" GridLines="None" CssClass="table GVProductos table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="100%" AutoGenerateColumns="False"
DataKeyNames="CvePS,PS,FechaIng,Estatus,CveUsuario,Usuario,CveEmpresa,Empresa">
<Columns>
<asp:TemplateField HeaderText="Fruto" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblpS" runat="server" Text='<%# Eval("PS")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="100px" >
<ItemTemplate>
<asp:Label ID="lblestatus" runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="FechaIng" HeaderStyle-CssClass="centerclass" ItemStyle-Width="100px" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="200px">
<ItemTemplate>
<asp:Label ID="lblusuario" runat="server" Text='<%# Eval("Usuario")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px" HeaderText="Comandos">
<ItemTemplate>
<asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarProd_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
<asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarProd_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el Productos?" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DModalProductos" class="modal ADS fade" role="dialog">

View File

@@ -3,6 +3,23 @@
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.page-bar .page-breadcrumb {
display: none !important;
}
.portlet-title .font-green, .portlet-title .font-green a {
color: #3598dc !important;
}
.GVCGame_TipoMaduracion th {
text-align: left !important;
}
.GVCGame_TipoMaduracion th.centerclass {
text-align: center !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Catálogo de Variedad
@@ -13,7 +30,7 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkAgregarCGame_TipoMaduracion" OnClick="LnkAgregarCGam_Click" runat="server"><i class="fa fa-plus"></i> Agregar Tipo de Maduración</asp:LinkButton></li>
<asp:LinkButton ID="LnkAgregarCGame_TipoMaduracion" OnClick="LnkAgregarCGam_Click" runat="server"><i class="fa fa-plus"></i> Agregar</asp:LinkButton></li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
@@ -23,38 +40,66 @@
<asp:UpdatePanel ID="upDatosCGam" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVCGame_TipoMaduracion.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVCGame_TipoMaduracion.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
<div class="portlet light bordered" style="margin-bottom: 0px; padding: 0px;" id="form_wizard_1">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject font-green bold uppercase">Información
<asp:Literal ID="LtlPeriodoseleccionado" runat="server"></asp:Literal></span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<%--<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>--%>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div style="float: right;">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVCGame_TipoMaduracion.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVCGame_TipoMaduracion.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
<div class="portlet-body form">
<asp:GridView ID="GVCGame_TipoMaduracion" EmptyDataText="No hay tipos de maduración registrados." runat="server" GridLines="None"
CssClass="table table-hover table-striped ScrollAD GVCGame_TipoMaduracion mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
DataKeyNames="CveTipoMaduracion,TipoMaduracion,Estatus,FechaIng,CveUsuario,Usuario,CveEmpresa,Empresa,CvePS">
<Columns>
<asp:TemplateField HeaderText="Variedad" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblcliente" runat="server" Text='<%# Eval("TipoMaduracion")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Producto" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="100px" >
<ItemTemplate>
<asp:Label ID="lblestatus" runat="server" Text='<%# If(CBool(Eval("Estatus")), "Activo", "Inactivo")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Fecha Ingreso" ItemStyle-CssClass="centerclass" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" />
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="200px">
<ItemTemplate>
<asp:Label ID="lblusuario" runat="server" Text='<%# Eval("Usuario")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px" HeaderText="Comandos">
<ItemTemplate>
<asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarCGam_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
<asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarCGam_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el tipo de maduracion?" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
<asp:GridView ID="GVCGame_TipoMaduracion" EmptyDataText="No hay tipos de maduración registrados." runat="server" GridLines="None"
CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
DataKeyNames="CveTipoMaduracion,TipoMaduracion,Estatus,FechaIng,CveUsuario,Usuario,CveEmpresa,Empresa,CvePS">
<Columns>
<asp:TemplateField HeaderText="Variedad" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblcliente" runat="server" Text='<%# Eval("TipoMaduracion")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Producto" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="lblestatus" runat="server" Text='<%# If(CBool(Eval("Estatus")), "Activo", "Inactivo")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Fecha Ingreso" ItemStyle-HorizontalAlign="Center" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
<ItemTemplate>
<asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarCGam_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
<asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarCGam_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el tipo de maduracion?" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DModalCGame_TipoMaduracion" class="modal ADS fade" role="dialog">
@@ -64,7 +109,7 @@
<div class="modal-header ">
<h4 class="modal-title">
<asp:Literal ID="ltlCGamtitulo" Text="Agregar Tipo Maduracion" runat="server"> </asp:Literal></h4>
<asp:Literal ID="ltlCGamtitulo" Text="Agregar Variedad" runat="server"> </asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
@@ -75,7 +120,7 @@
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPS" CssClass="form-control select2me " runat="server" DataTextField="PS" DataValueField="CvePS" Style="width: 50%"></asp:DropDownList>
<label for="<%= DdlPS.ClientID.ToString()%>">Producto:</label>
<label for="<%= DdlPS.ClientID.ToString()%>">Fruto:</label>
</div>
<div class="form-group form-md-line-input input-iconright" id="DivEstatus" runat="server">
<label for="<%= ChkCGamestatus.ClientID.ToString()%>">Estatus:</label>

View File

@@ -79,7 +79,7 @@ Partial Class CGame_CatTipoMaduracion
UPModalCGam.Update()
End Sub
Protected Sub LnkEditarCGam_Click(sender As Object, e As EventArgs)
ltlCGamtitulo.Text = "Editar Tipo de Maduración"
ltlCGamtitulo.Text = "Editar Variedad"
LimpiaCGame_TipoMaduracion()
divEstatus.Visible = True
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
@@ -100,7 +100,7 @@ Partial Class CGame_CatTipoMaduracion
End Sub
Protected Sub LnkAgregarCGam_Click(sender As Object, e As EventArgs)
divEstatus.Visible = False
ltlCGamtitulo.Text = "Agregar Tipo de Maduración"
ltlCGamtitulo.Text = "Agregar Variedad"
RegistraScript("$('#DModalCGame_TipoMaduracion').modal('show')")
LimpiaCGame_TipoMaduracion()
BtnCGamADD.Visible = True

View File

@@ -4247,132 +4247,172 @@ Partial Class Compras_eFacturas
Protected Sub LnkRegenerarPdfnew_Click(sender As Object, e As EventArgs)
Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim objxml As XmlSatCFDI = XmlSatCFDI.readXML(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML")))
If Not IsNothing(objxml) Then
Dim rutaReporte As String = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3.rdlc")
If Not IsNothing(objxml.complemento.Pagos) Then
rutaReporte = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3Pago.rdlc")
Dim XmlRutaArchivo As String = File.ReadAllText(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML")))
Dim PDFRutaArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF"))
Dim RutaRDLC = String.Format("{0}{1}", DirectorioBaseEmpresas, "Empresas\Grales\Formatos\ReciboDePagoGOPDF.rdlc")
'ModExtensiones.GuardaLog(" '--------PDF GenGoPdf Inicia ")
Dim Respuesta As Boolean = False
Dim Inicio As DateTime = DateTime.Now
Dim goPdf As GoPdf.GoPdf = New GoPdf.GoPdf()
Dim logotipo As Byte() = Nothing
Try
Dim result = goPdf.ExportarPdf(XmlRutaArchivo, logotipo, "", RutaRDLC, New GoPdf.Modelos.DatosAdicionales() With {
.DomicilioReceptor = ""
})
Dim Fin As DateTime = DateTime.Now
If result IsNot Nothing Then
File.WriteAllBytes(PDFRutaArchivo, result)
Respuesta = True
Alert($"PDF Generado")
Else
Alert($"PDF Error se genero nulo", TipoMensaje.MsgAdvertencia)
End If
Dim NombreArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF"))
Catch ex As Exception
Alert($"PDF Error {ex.Message} -- > {ex.StackTrace}", TipoMensaje.MsgAdvertencia)
End Try
Alert("PDF Finaliza", TipoMensaje.MsgAdvertencia)
Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar()
Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, If(IsNothing(objxml.complemento.Pagos), objxml.comprobante.Total, objxml.complemento.Pagos.Monto), 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("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))
If Not IsNothing(objxml.complemento.Pagos) Then
parametros.Add(New ReportParameter("CPFechaPago", objxml.complemento.Pagos.FechaPago))
parametros.Add(New ReportParameter("CPFormaDePagoP", objxml.complemento.Pagos.FormaDePagoP))
parametros.Add(New ReportParameter("CPFormaDePagoPText", objxml.complemento.Pagos.FormaDePagoPText))
parametros.Add(New ReportParameter("CPMonedaP", objxml.complemento.Pagos.MonedaP))
parametros.Add(New ReportParameter("CPMonto", objxml.complemento.Pagos.Monto.ToString()))
parametros.Add(New ReportParameter("CPTipoCambioP", objxml.complemento.Pagos.TipoCambioP.ToString()))
parametros.Add(New ReportParameter("CPNumOperacion", objxml.complemento.Pagos.NumOperacion))
parametros.Add(New ReportParameter("CPNomBancoOrdExt", objxml.complemento.Pagos.NomBancoOrdExt))
parametros.Add(New ReportParameter("CPRfcEmisorCtaOrd", objxml.complemento.Pagos.RfcEmisorCtaOrd))
parametros.Add(New ReportParameter("CPCtaOrdenante", objxml.complemento.Pagos.CtaOrdenante))
parametros.Add(New ReportParameter("CPRfcEmisorCtaBen", objxml.complemento.Pagos.RfcEmisorCtaBen))
parametros.Add(New ReportParameter("CPCtaBeneficiario", objxml.complemento.Pagos.CtaBeneficiario))
End If
Using MR As ReportViewer = New ReportViewer()
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
'If Not IsNothing(objxml) Then
' Dim rutaReporte As String = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3.rdlc")
' If Not IsNothing(objxml.complemento.Pagos) Then
' rutaReporte = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3Pago.rdlc")
' End If
' Dim NombreArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF"))
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
' Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar()
' Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, If(IsNothing(objxml.complemento.Pagos), objxml.comprobante.Total, objxml.complemento.Pagos.Monto), 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("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))
' If Not IsNothing(objxml.complemento.Pagos) Then
' parametros.Add(New ReportParameter("CPFechaPago", objxml.complemento.Pagos.FechaPago))
' parametros.Add(New ReportParameter("CPFormaDePagoP", objxml.complemento.Pagos.FormaDePagoP))
' parametros.Add(New ReportParameter("CPFormaDePagoPText", objxml.complemento.Pagos.FormaDePagoPText))
' parametros.Add(New ReportParameter("CPMonedaP", objxml.complemento.Pagos.MonedaP))
' parametros.Add(New ReportParameter("CPMonto", objxml.complemento.Pagos.Monto.ToString()))
' parametros.Add(New ReportParameter("CPTipoCambioP", objxml.complemento.Pagos.TipoCambioP.ToString()))
' parametros.Add(New ReportParameter("CPNumOperacion", objxml.complemento.Pagos.NumOperacion))
' parametros.Add(New ReportParameter("CPNomBancoOrdExt", objxml.complemento.Pagos.NomBancoOrdExt))
' parametros.Add(New ReportParameter("CPRfcEmisorCtaOrd", objxml.complemento.Pagos.RfcEmisorCtaOrd))
' parametros.Add(New ReportParameter("CPCtaOrdenante", objxml.complemento.Pagos.CtaOrdenante))
' parametros.Add(New ReportParameter("CPRfcEmisorCtaBen", objxml.complemento.Pagos.RfcEmisorCtaBen))
' parametros.Add(New ReportParameter("CPCtaBeneficiario", objxml.complemento.Pagos.CtaBeneficiario))
ltotales.Add(New utilValores("Total", objxml.comprobante.Total.ToString("N2")))
rdsTotales.Name = "dsTotales"
rdsTotales.Value = ltotales
MR.LocalReport.DataSources.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
MR.LocalReport.DataSources.Add(rds2)
Dim rdsrelacionados As ReportDataSource = New ReportDataSource()
rdsrelacionados.Name = "dsRelacionados"
rdsrelacionados.Value = objxml.cFDIRelacionados
MR.LocalReport.DataSources.Add(rdsrelacionados)
Dim rds1 As ReportDataSource = New ReportDataSource()
rds1.Name = "dsConceptos"
rds1.Value = objxml.GetConceptosforpdf()
MR.LocalReport.DataSources.Add(rds1)
' End If
' Using MR As ReportViewer = New ReportViewer()
' 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 Not IsNothing(objxml.complemento.Pagos) Then
' If objxml.comprobante.Descuento > 0 Then
' ltotales.Add(New utilValores("Descuento", objxml.comprobante.Descuento.ToString("N2")))
' End If
Dim rdsp As ReportDataSource = New ReportDataSource()
rdsp.Name = "dsPagos"
rdsp.Value = objxml.complemento.Pagos.doctosRelacionados
MR.LocalReport.DataSources.Add(rdsp)
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
' MR.LocalReport.DataSources.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
' MR.LocalReport.DataSources.Add(rds2)
' Dim rdsrelacionados As ReportDataSource = New ReportDataSource()
' rdsrelacionados.Name = "dsRelacionados"
' rdsrelacionados.Value = objxml.cFDIRelacionados
' MR.LocalReport.DataSources.Add(rdsrelacionados)
' Dim rds1 As ReportDataSource = New ReportDataSource()
' rds1.Name = "dsConceptos"
' rds1.Value = objxml.GetConceptosforpdf()
' MR.LocalReport.DataSources.Add(rds1)
' If Not IsNothing(objxml.complemento.Pagos) Then
' Dim rdsp As ReportDataSource = New ReportDataSource()
' rdsp.Name = "dsPagos"
' rdsp.Value = objxml.complemento.Pagos.doctosRelacionados
' MR.LocalReport.DataSources.Add(rdsp)
' End If
' MR.LocalReport.ReportPath = rutaReporte
' MR.ProcessingMode = ProcessingMode.Local
' MR.LocalReport.EnableExternalImages = True
' MR.LocalReport.SetParameters(parametros)
' MR.LocalReport.Refresh()
' Dim warnings As Warning() = Nothing
' Dim streamids As String() = Nothing
' Dim mimeType As String = Nothing
' Dim encoding As String = Nothing
' Dim extension As String = Nothing
' Dim bytes As Byte() = Nothing
' bytes = MR.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
' Using fs As FileStream = New FileStream(NombreArchivo, FileMode.Create)
' fs.Write(bytes, 0, bytes.Length)
' fs.Close()
' End Using
' End Using
' Alert("PDF Generado!")
'Else
' Alert("no se pudo procesar el archivo xml")
'End If
MR.LocalReport.ReportPath = rutaReporte
MR.ProcessingMode = ProcessingMode.Local
MR.LocalReport.EnableExternalImages = True
MR.LocalReport.SetParameters(parametros)
MR.LocalReport.Refresh()
Dim warnings As Warning() = Nothing
Dim streamids As String() = Nothing
Dim mimeType As String = Nothing
Dim encoding As String = Nothing
Dim extension As String = Nothing
Dim bytes As Byte() = Nothing
bytes = MR.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
Using fs As FileStream = New FileStream(NombreArchivo, FileMode.Create)
fs.Write(bytes, 0, bytes.Length)
fs.Close()
End Using
End Using
Alert("PDF Generado!")
Else
Alert("no se pudo procesar el archivo xml")
End If
End Sub
Private Sub VinculacionMasivaComplementos()

View File

@@ -2399,6 +2399,18 @@ Celular: </Value>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RegimenFiscalCodigo">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<EmbeddedImages>
<EmbeddedImage Name="VISTAPREVIA22">

View File

@@ -237,6 +237,10 @@
<asp:TextBox ID="TxtPlacas" runat="server" CssClass="form-control" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:Label runat="server" Text="Placas Vehículo:" AssociatedControlID="TxtPlacas"></asp:Label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAsignadoEn" runat="server" CssClass="form-control" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:Label runat="server" Text="Asignación en:" AssociatedControlID="TxtAsignadoEn"></asp:Label>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>

View File

@@ -232,6 +232,7 @@ public partial class GPS_WizardDispositivos : ClsPaginas
TxtModeloV.Text = drow["ModeloVehiculo"].ToString();
TxtAñoV.Text = drow["AñoVehiculo"].ToString();
TxtPlacas.Text = drow["PlacasVehiculo"].ToString();
TxtAsignadoEn.Text = drow["AsignadoEn"].ToString();
ChkTipoLinea.Checked = drow["CveProveedorComunicacionCuenta"].ToString().ToEntero() <= 0;
}
@@ -346,6 +347,7 @@ public partial class GPS_WizardDispositivos : ClsPaginas
string AñoV = TxtAñoV.Text;
string ClaseVehiculo = "";//TxtClaseVehiculo.Text;
string Placas = TxtPlacas.Text;
string AsignadoEn = TxtAsignadoEn.Text;
bool LimiteVelocidad = false;
double LimiteVelocidadV = 0;//chkLimiteVelocidad.Checked ? TxtLimiteVelocidad.Text.ToDouble : 0
string Detalles = "";//TxtDetalles.Text;
@@ -365,12 +367,12 @@ public partial class GPS_WizardDispositivos : ClsPaginas
if (CveDispositivo > 0)
{
continuar = ObjGPS.DispositivosUpdate(TipoDispositivo,NumTelefono, CveDispositivo, modelo, LineaTelefonica, CveCliente, IMEI, Serie, 1, SerieV, ColorV, NombreV, NoEconomico, DevId, puerto,
ModeloV, AñoV, ClaseVehiculo, Placas, LimiteVelocidad, LimiteVelocidadV, Detalles, Rendimiento, icono, Color,UsuarioActual.CveUsuario);
ModeloV, AñoV, ClaseVehiculo, Placas, LimiteVelocidad, LimiteVelocidadV, Detalles, Rendimiento, icono, Color,UsuarioActual.CveUsuario, AsignadoEn);
}
else
{
continuar = ObjGPS.DispositivoAdd(TipoDispositivo, NumTelefono, modelo, LineaTelefonica, CveCliente, IMEI, Serie, 1, SerieV, ColorV, NombreV, NoEconomico, DevId, puerto,
ModeloV, AñoV, ClaseVehiculo, Placas, LimiteVelocidad, LimiteVelocidadV, Detalles, Rendimiento, icono, Color, UsuarioActual.CveUsuario);
ModeloV, AñoV, ClaseVehiculo, Placas, LimiteVelocidad, LimiteVelocidadV, Detalles, Rendimiento, icono, Color, UsuarioActual.CveUsuario, AsignadoEn);
CveDispositivo = ObjGPS.CveDispositivo;
}
if (continuar)

View File

@@ -636,9 +636,7 @@ Partial Class Inventarios_EntregaAlmacen
'filtra los Almacenes de domicilio
If DtDatos.Rows(0)("ServicioDomicilio").ToString() = "True" Then
StrAlmacenes = String.Format("{0} AND Almacen like '%Domicilio%' ", StrAlmacenes)
Else
StrAlmacenes = String.Format("{0} AND NOT (Almacen like '%Domicilio%') ", StrAlmacenes)
StrAlmacenes = "CveTipoAlmacen = 29"
End If
trObsGral.Visible = drE("Observaciones").ToString() <> ""

View File

@@ -3368,6 +3368,8 @@ Partial Class Inventarios_RecepcionUsados
End Sub
Protected Sub BtnAgregarProductoAjuste_Click(sender As Object, e As EventArgs)
Dim ErrorAjuste As Boolean = False
Dim CvePS As Integer = DdlPSAjuste.SelectedValue.ToEntero
Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(CvePS, DdlFolioGarantia.SelectedValue.ToEntero())
@@ -3418,15 +3420,20 @@ Partial Class Inventarios_RecepcionUsados
"", "-1", "-1", "-1", "", "", -1, "", "", CveTamaño)
End If
Else
ErrorAjuste = True
Alert("No se pudo cargar el producto", TipoMensaje.MsgError)
End If
Catch ex As Exception
ErrorAjuste = True
OnError("Ocurrió un error al agregar el producto", ex)
End Try
ObjPS.Dispose()
GuardaAjuste()
If Not ErrorAjuste Then
GuardaAjuste()
End If
'If TmpDTPolizaVirtual Is Nothing Then
' CreaDTmpDTPolizaVirtual()

View File

@@ -2888,7 +2888,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
TxtCCSysSalarioMinimo.Text = "";
TxtCCSysUMA.Text = "$96.22";
//TxtCCSysUMA.Text = "$96.22";
if (drow != null)
{
TxtCCSysSalarioMinimo.Text = string.Format("${0:N2}", drow["SalarioMinimo"]);
@@ -2984,6 +2984,18 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (drow != null)
{
decimal UMA = 96.22M;
using (ClsClaseBase objbase = new ClsClaseBase())
{
if (objbase.runQuerystr($"SELECT Valor UMA FROM [dbo].[RH_TablasValores] WHERE Tipo =1 AND CveEmpresa ={UsuarioActual.CveEmpresa} AND Fecha<'{DateTime.Now:yyyy/MM/dd}' ORDER BY Fecha DESC"))
{
if (objbase.DtResultados.Rows.Count > 0)
{
UMA = objbase.DtResultados.Rows[0]["UMA"].ToString().ToDecimal();
}
}
}
TxtCCSysUMA.Text = $"{UMA:N2}";
decimal HorasDobles = drow["HorasDobles"].ToString().ToDecimal();
decimal HorasTriples = drow["HorasTriples"].ToString().ToDecimal();
decimal ImporteHora = drow["SalarioDiario"].ToString().ToDecimal() / 8;

View File

@@ -128,6 +128,43 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>--%>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="divComentarios" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title" id="myModalLabelComenta">Comentarios para vehículo: </h4>
</div>
<div class="modal-body">
<asp:UpdatePanel ID="UpdatePanel2" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<asp:Button runat="server" ID="BtnCargaComentarios" Style="display: none" />
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtComentarios" runat="server" Text="--" TextMode="MultiLine" Rows="4" CausesValidation="True" CssClass="form-control"></asp:TextBox>
<asp:Label runat="server" Text="Comentario: " style="padding-bottom: 92px;" AssociatedControlID="TxtComentarios"></asp:Label>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel ID="UpdatePanel3" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<button id="BtnModalBancosLayoutCerrar" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
<asp:Button Text="Guardar" ID="BtnGuardarComentario" OnClick="BtnGuardarComentario_Click" CssClass="btn btn-primary" ValidationGroup="grpEditarcomentario" runat="server" />
</ContentTemplate>
</asp:UpdatePanel>
</div>
</ContentTemplate>
</asp:UpdatePanel>
@@ -245,6 +282,17 @@
$("#divComandos").modal()
$("#C_BtnCargaComandos").click()
}
function EditarComentario(Vehiculo, Comentario, CveDispositivo) {
$("#HdnCveDipositivo").val(CveDispositivo)
// if (open) { FNShowDiv(); }
$("#myModalLabelComenta").text("Comentarios para vehículo: " + Vehiculo)
closeLastOpenedInfoWindow();
$("#divComentarios").modal();
$("#C_TxtComentarios").val(Comentario)
$("#C_BtnCargaComentarios").click()
}
function ControlLabels(controlDiv, map) {
@@ -337,7 +385,7 @@
});
}
}
}
</script>
<script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>

View File

@@ -229,23 +229,37 @@ Partial Class GPS_PruebaMaster
Public Function InfoWindowCombustible(Header As String, ExtraBody As String, CveDispositivo As Integer, row As DataRow, Optional PermisoComandos As Boolean = True) As String
Dim SBuilder As New StringBuilder
SBuilder.Clear()
SBuilder.Append($"<div>")
SBuilder.Append($"<div class=\'row\'><div class=\'col-md-6\'>")
SBuilder.Append($"<div><h5><a target=\'_blank\' href=\'/GPS/Vehiculos.aspx?CveDispositivo={CveDispositivo}\'><b>{Header}</b></a></h5></div>")
SBuilder.Append($"<div><table>")
SBuilder.Append($"<tr><td>Fecha : {row("FechaTrama")} </td></tr>")
SBuilder.Append($"<tr><td>Conductor : {row("Conductor").ToString}</td></tr>")
SBuilder.Append($"<tr><td>Conductor : {row("Conductor")}</td></tr>")
SBuilder.Append($"<tr><td>Combustible : {IfNull(row("Combustible"), "NO DISPONIBLE", $"{row("Combustible").ToString.FormatoNumero} lts").ToString}</td></tr>")
If row("SPD").ToString <> "-1" Then
SBuilder.Append($"<tr><td>Velocidad : {row("SPD").ToString} KM/H </td></tr>")
SBuilder.Append($"<tr><td>Velocidad : {row("SPD")} KM/H </td></tr>")
End If
If ExtraBody <> "" AndAlso ExtraBody <> "-1" Then
SBuilder.Append(ExtraBody)
End If
If PermisoComandos Then
SBuilder.Append($"<tr><td><a href=""javascript:;"" onclick=""CargaComandos(\'{row("Vehiculo").ToString}\',{CveDispositivo});"">Comandos</a></td></tr>")
SBuilder.Append($"<tr><td><a href=""javascript:;"" onclick=""CargaComandos(\'{row("Vehiculo")}\',{CveDispositivo});"">Comandos</a></td></tr>")
End If
SBuilder.AppendFormat("<tr><td><a target=\'_blank\' href=\'https://www.google.com/maps/search/{0},{1}/\'>Ver en google maps</a></td></tr>", row("Lat").ToString, row("Lng").ToString)
SBuilder.Append($"</table></div><div></div></div>")
SBuilder.Append("</table></div><div></div></div><div class=\'col-md-6\'>")
SBuilder.Append("Comentario:<br />")
SBuilder.Append($"{row("Comentarios")}<br /><a href=""javascript:;"" onclick=""EditarComentario(\'{row("Vehiculo")}\',\'{row("Comentarios")}\',{CveDispositivo});"">Editar</a>")
SBuilder.Append("</div></div>")
Return SBuilder.ToString
End Function
Protected Sub BtnGuardarComentario_Click(sender As Object, e As EventArgs)
Dim CveDispositivo As Integer = HdnCveDipositivo.Value.ToEntero()
Dim comentario As String = TxtComentarios.Text
Using objgps As New ClsGPS
objgps.DispositivoComentarioupdate(CveDispositivo, comentario, UsuarioActual.CveUsuario)
RegistraScript("$(""#divComentarios"").modal('hide');")
End Using
BtnCargar_Click(Nothing, Nothing)
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -131,8 +131,7 @@
<asp:HyperLinkField DataTextField="Agrupador" HeaderText="Agrupador" />
<asp:BoundField DataField="LineaAdicional" HeaderText="PO" />
<asp:BoundField DataField="Importe" HeaderText="Importe PO" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="Abreviatura" HeaderText="Mon" />
<asp:BoundField DataField="Abreviatura" HeaderText="Mon" />
<asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" />
<asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="DiasVencimiento" HeaderText="D.Plazo" ItemStyle-HorizontalAlign="Right" />

View File

@@ -3,6 +3,16 @@ using System.Collections.Generic;
using Extensiones;
using System.Data;
using static Extensiones.ModExtensiones;
using System.Collections.Generic;
using System.IO;
using ListItem = System.Web.UI.WebControls.ListItem;
using System.Web.UI;
using Microsoft.AspNet.SignalR;
using System.Activities.Expressions;
using System.EnterpriseServices.Internal;
using iTextSharp.text.pdf;
using GemBox.Spreadsheet;
using System.Linq;
using System.Text.RegularExpressions;
using System.Web;
using AjaxControlToolkit;
@@ -309,15 +319,18 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
protected void LnkDescargaExcel_Click(object sender, EventArgs e)
{
{
if(TipoLinea == 1)
{
GridView gvTemp = GvLineasAdicionales;
//gvTemp.ExportToExcelX("RepLineasAdicionales" + DateTime.Now.ToShortDateString());
gvTemp.ExportToExcelGembox("RepLineasAdicionales", UsuarioActual, "Rep Lineas Adicionales", AnchoImagen: 150);
}
else if(TipoLinea == 2)
{
}
else if(TipoLinea == 2)
{
GridView gvTemp = GvLAPO;
gvTemp.Columns[12].Visible = false;
//gvTemp.ExportToExcelX("ReportePO" + DateTime.Now.ToShortDateString());
gvTemp.ExportToExcelGembox( "ReportePO", UsuarioActual, "Reporte PO ", AnchoImagen:150);
}
@@ -409,4 +422,10 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
objVentas.Dispose();
if (!errorCambioEstatus)
{
CargaDatos();
}
}
}
public override void VerifyRenderingInServerForm(Control control ) { }

View File

@@ -2596,7 +2596,7 @@
<asp:BoundField DataField="CodigoPS" HeaderText="Producto ó Servicio" />
<asp:TemplateField HeaderText="Valor Unitario">
<ItemTemplate>
<asp:TextBox ID="TxtValorUnitario" runat="server" Text='<%# Eval("PU", "{0:N2}") %>' Width="60px"></asp:TextBox>
<asp:TextBox ID="TxtValorUnitario" runat="server" Text='<%# Eval("PU") %>' Width="60px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="ClaveSATFraccionArancelariaDescripcion" HeaderText="Fracción Arancelaria" />

View File

@@ -8921,7 +8921,7 @@ Partial Class Ventas
Exit Sub
End If
If DdlLineaAdicional.SelectedValue.ToEntero() > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
If DdlLineaAdicional.SelectedValue.ToEntero() > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Egs", "Dev") Then
Alert("No se puede seleccionar una linea adicional de crédito si no se genera una remisón.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If