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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-02-20 09:36:38 -07:00
parent 2fabe91f86 d9b8c5bae6
commit 3a75f1a9f9
36 changed files with 9101 additions and 5437 deletions
Download Patch File Download Diff File Expand all files Collapse all files

259
Acumuladores/RepIndicadorDiarioDetalle.aspx Normal file
View File

@@ -0,0 +1,259 @@
<%@ Page Title="Indicador diario detalle" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepIndicadorDiarioDetalle.aspx.vb" Inherits="Acumuladores_RepIndicadorDiarioDetalle" %>
<%@ 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">
<style>
.select2 .select2-selection__rendered {
line-height: 1;
color: #111;
}
.select2 .select2-selection--multiple {
box-sizing: border-box;
cursor: pointer;
display: block;
min-height: 20px;
user-select: none;
-webkit-user-select: none;
}
.select2-container--default .select2-selection--multiple .select2-selection__choice {
margin-top: 10px;
}
.select2-selection__rendered {
margin-top: 0px;
height: 25px;
}
.select2-selection {
margin-top: 0px;
height: 31px;
}
.select2-container--default.select2-container--focus .select2-selection--multiple {
border: none;
outline: 0;
}
#chartdiv {
width: 100%;
height: 500px;
}
</style>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
<%-- <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
<ContentTemplate>
<div class="btn-group pull-right btn-separete">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-fit-height btnopaco" />
</div>
</ContentTemplate>
</asp:UpdatePanel>--%>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<li>
<asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar</asp:LinkButton>
</li>
<li>
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i> Personalizar</asp:HyperLink>
</li>
<li>
<asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i> Ver Dlls en pesos</asp:HyperLink>
</li>
<li>
<asp:LinkButton ID="ImgImprimir" runat="server" Enabled="true"> <i class="fa fa-print"></i> Imprimir</asp:LinkButton>
</li>
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Reporte de Productos Servicios
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row">
<label class="col-md-1">Tipo: </label>
<div class="col-md-2">
</div>
<div class="col-md-1 truncate">
Fecha Inicio:
</div>
<div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-1 truncate">
Fecha Fin:
</div>
<div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<label class="col-md-1 ">Grupo:</label>
<div class="col-md-2">
</div>
</div>
</div>
</div>
<div class="portlet-body" style="display: none">
<div class="row">
<label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
<div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" Width="99%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" DataKeyNames="TipoDocumento,SerieFolio">
<Columns>
<asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Suc. Ejec." DataField="SubProyectoEjecucion" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Suc. Cob." DataField="SubProyectoCobranza" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Código" DataField="CodigoProducto" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto/Servicio" DataField="PS" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Observación" DataField="Observaciones" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="PU" DataField="PU" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Desc" DataField="Descuento" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-Width="5%" Visible="false" />
<asp:BoundField HeaderText="Método de Pago" DataField="MetodoPago" ItemStyle-Width="5%" Visible="false" />
<asp:BoundField HeaderText="Forma de Pago" DataField="FormaPago" ItemStyle-Width="5%" Visible="false" />
</Columns>
<RowStyle CssClass="Texto" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
<script src="https://www.amcharts.com/lib/3/serial.js"></script>
<script src="https://www.amcharts.com/lib/3/pie.js"></script>
<script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
<link rel="stylesheet" href="https://www.amcharts.com/lib/3/plugins/export/export.css" type="text/css" media="all" />
<script src="https://www.amcharts.com/lib/3/themes/light.js"></script>
<script>
function CargaGraficaBarras(data) {
var chart = AmCharts.makeChart("chartdiv", {
"type": "serial",
"theme": "light",
"dataProvider": data,
"startDuration": 2,
"valueAxes": [{
"position": "left",
"title": "Ventas"
}],
"graphs": [{
"balloonText": "[[category]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"fillAlphas": 1,
"lineAlpha": 0.1,
"type": "column",
"valueField": "Valor"
}],
"depth3D": 20,
"angle": 30,
"chartCursor": {
"categoryBalloonEnabled": false,
"cursorAlpha": 0,
"zoomable": false
},
"categoryField": "Texto",
"categoryAxis": {
"gridPosition": "start",
"labelRotation": 90
},
"export": {
"enabled": true
}
});
}
function CargaGraficaPastel(data) {
var chart = AmCharts.makeChart("chartdiv", {
"type": "pie",
"theme": "light",
"dataProvider":
data,
"valueField": "Valor",
"titleField": "Texto",
"outlineAlpha": 0.4,
"depth3D": 0,
"balloonText": "[[title]]<br><span style='font-size:14px'><b>[[value]]</b> ([[percents]]% [[Moneda]])</span>",
"angle": 0,
"export": {
"enabled": true
}
});
}
</script>
</asp:Content>

67
Acumuladores/RepIndicadorDiarioDetalle.aspx.vb Normal file
View File

@@ -0,0 +1,67 @@
Option Explicit On
Option Strict On
Imports System.Data
Imports System.IO
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports System.IO.Compression
Partial Class Acumuladores_RepIndicadorDiarioDetalle
Inherits ClsPaginas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
CargaParametrosDetalle()
End If
End Sub
#Region " CARGA DATOS INICIALES "
Private Sub CargaParametrosDetalle()
Dim Opcion As Integer = If(Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToEntero() > 0, Request("Opcion").ToEntero(), -1)
Dim CveSubProyecto As Integer = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1)
End Sub
#End Region
#Region " CARGA DATOS "
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos()
UPDatos.Update()
End Sub
Private Sub CargaDatos()
Dim ObjAcum As New ClsAcumuladores()
Dim FechaI, FechaF As Date
FechaI = txtFechaI.Text.ToDate
FechaF = txtFechaF.Text.ToDate
If ObjAcum.GetRepIndicadorDiarioDetalle(FechaI, FechaF, 1, -1, UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjAcum.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjAcum.Dispose()
GvDatos.DataBind()
End Sub
#End Region
End Class

32
App_Code/ClsAcumuladores.vb
View File

@@ -1135,7 +1135,7 @@ Public Class ClsAcumuladores
End Function End Function
Public Function GetRepIndicadorDiario(FechaInicio As Date, FechaFin As Date, CveSubProeycto As Integer, CveEmpresa As Integer) As Boolean Public Function GetRepIndicadorDiario(FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -1144,7 +1144,35 @@ Public Class ClsAcumuladores
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProeycto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As SqlException
OnError("Ocurrió un error al consultar los datos. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetRepIndicadorDiarioDetalle(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_Acum_RepIndicadorDiarioDetalleGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With

30
App_Code/ClsContabilidad.vb
View File

@@ -6081,7 +6081,7 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function End Function
Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As String, FechaF As String, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1, Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1,
Optional FolioF As Integer = -1, Optional CveUsuario As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional FolioF As Integer = -1, Optional CveUsuario As Integer = -1, Optional CveSubProyecto As Integer = -1,
Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveTipoProveedor As Integer = -1) As Boolean Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveTipoProveedor As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -6601,6 +6601,34 @@ Public Class ClsContabilidad
#End Region #End Region
Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Respuesta As Boolean = False
DataAdapter("PA_Conta_FiltraPolizasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
.Add("@Periodo", SqlDbType.Int).Value = Periodo
.Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Respuesta = True
Catch ex As Exception
Me.OnError("Ocurrió un error al obtener las Prepolizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Respuesta
End Function
#Region "IDisposable Support" #Region "IDisposable Support"
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)

4
App_Code/ClsGenerales.vb
View File

@@ -4012,7 +4012,7 @@ Public Class ClsGenerales
End Function End Function
Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, Optional CveTimbre As Integer = -1) As Boolean Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -4027,7 +4027,7 @@ Public Class ClsGenerales
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
.Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With End With
Try Try

3
App_Code/ClsInventarios.vb
View File

@@ -2298,7 +2298,7 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function End Function
Public Function GetInventarioFisico(CveInventarioFisico As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Estado As Integer) As Boolean Public Function GetInventarioFisico(CveInventarioFisico As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Estado As Integer, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_InventarioFisicoGet") DataAdapter("PA_Inv_InventarioFisicoGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -2306,6 +2306,7 @@ Public Class ClsInventarios
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@Estado", SqlDbType.Int).Value = Estado .Add("@Estado", SqlDbType.Int).Value = Estado
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

14
App_Code/ClsPaginas.vb
View File

@@ -2036,7 +2036,7 @@ Public Class ClsPaginas
End Set End Set
End Property End Property
'Variables para Ventas 'Variables para Ventas
Property GlobalDTVendedores(CveEmpresa As Integer, Optional Estatus As Boolean = True, Optional VendedorTipo As Integer = 1) As DataTable Property GlobalDTVendedores(CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional VendedorTipo As Integer = 1) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTVendedores-{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTVendedores-{0}", CveEmpresa)
'sino existe, recarga los datos 'sino existe, recarga los datos
@@ -2047,10 +2047,15 @@ Public Class ClsPaginas
End If End If
If CveEmpresa <> -1 Then If CveEmpresa <> -1 Then
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0} AND CveEstatus = {1} AND VendedorTipo = {2}", CveEmpresa, If(Estatus, 1, 0), VendedorTipo), "", DataViewRowState.CurrentRows) Dim StrSQL As New StringBuilder
StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa)
If VendedorTipo >= 0 Then StrSQL.AppendFormat(" AND VendedorTipo = {0} ", VendedorTipo)
If Estatus >= 0 Then StrSQL.AppendFormat(" AND CveEstatus = {0} ", If(Estatus = 1, True, False))
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
GlobalDTVendedores = Dv.ToTable GlobalDTVendedores = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTVendedores = DirectCast(Application(AppNombre), DataTable) GlobalDTVendedores = DirectCast(Application(AppNombre), DataTable)
End If End If
@@ -5633,7 +5638,8 @@ Public Class ClsPaginas
PaginaDict.Add("/Acumuladores/CatTiposUso.aspx".ToUpper(), 1034) PaginaDict.Add("/Acumuladores/CatTiposUso.aspx".ToUpper(), 1034)
PaginaDict.Add("/Acumuladores/CatFoliosGarantia.aspx".ToUpper(), 1035) PaginaDict.Add("/Acumuladores/CatFoliosGarantia.aspx".ToUpper(), 1035)
PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036) PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036)
PaginaDict.Add("/Acumuladores/RepIndicadorDiario.aspx".ToUpper(), 2055) PaginaDict.Add("/Acumuladores/RepIndicadorDiario.aspx".ToUpper(), 730)
PaginaDict.Add("/Acumuladores/RepIndicadorDiarioDetalle.aspx".ToUpper(), 730)
PaginaDict.Add("/Acumuladores/RepEntradasUsadosClientes.aspx".ToUpper(), 543) PaginaDict.Add("/Acumuladores/RepEntradasUsadosClientes.aspx".ToUpper(), 543)
PaginaDict.Add("/Acumuladores/EntradasUsadosResumenRep.aspx".ToUpper(), 1032) PaginaDict.Add("/Acumuladores/EntradasUsadosResumenRep.aspx".ToUpper(), 1032)
@@ -7075,7 +7081,7 @@ Public Class ClsPaginas
'Si no tiene CBB, SE GENERA 'Si no tiene CBB, SE GENERA
If Not ImagenCBB.Exists AndAlso Vta.CveCliente.ToEntero > 0 Then If Not ImagenCBB.Exists AndAlso Vta.CveCliente.ToEntero > 0 Then
Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
CBB.GenerarCBB(UsuarioActual.Empresa.RFC, RFCReceptor, Vta.Total.ToString.ToDecimal, Vta.FolioFiscal, RutaCBB) CBB.GenerarCBB(UsuarioActual.Empresa.RFC, RFCReceptor, Vta.Total, Vta.FolioFiscal, RutaCBB)
End If End If
'ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme.Replace("https", "http"), Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio) 'ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme.Replace("https", "http"), Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio)

12
Bancos/FluctuacionCambiaria.aspx
View File

@@ -456,7 +456,7 @@
<asp:GridView ID="GvVentas" Width="99%" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvVentas" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto" EmptyDataText="No se Encontraron Cuentas Bancarias." DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto" EmptyDataText="No se Encontraron Cuentas Bancarias."
ToolTip="Listado de Cuentas Bancarias" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None"> ToolTip="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
<asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" /> <asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
<asp:HyperLinkField DataTextField="SerieFolio" HeaderText="SerieFolio" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" /> <asp:HyperLinkField DataTextField="SerieFolio" HeaderText="SerieFolio" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" />
@@ -566,7 +566,7 @@
<asp:GridView ID="GvClientesAnt" Width="99%" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvClientesAnt" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto" EmptyDataText="No se Encontraron Cuentas Bancarias." DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto" EmptyDataText="No se Encontraron Cuentas Bancarias."
ToolTip="Listado de Cuentas Bancarias" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None"> ToolTip="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
<asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" /> <asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
<asp:HyperLinkField DataTextField="SerieFolio" HeaderText="SerieFolio" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" /> <asp:HyperLinkField DataTextField="SerieFolio" HeaderText="SerieFolio" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" />
@@ -683,7 +683,7 @@
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel runat="server" ID="TabCuentasBancarias" HeaderText="Cuentas Bancarias"> <ajax:TabPanel runat="server" ID="TabCuentasBancarias" HeaderText="Bancos">
<ContentTemplate> <ContentTemplate>
<br /> <br />
<div class="row"> <div class="row">
@@ -715,7 +715,7 @@
<asp:GridView ID="GvCuentas" Width="99%" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvCuentas" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="IdCtaAfectable,IdCtaContable,IdCtaContableComplementaria,TipoCambio,Fluctuacion, DataKeyNames="IdCtaAfectable,IdCtaContable,IdCtaContableComplementaria,TipoCambio,Fluctuacion,
Banco,NumCuenta,CveCuentaComplementaria,Saldo" Banco,NumCuenta,CveCuentaComplementaria,Saldo"
EmptyDataText="No se Encontraron Cuentas Bancarias." ToolTip="Listado de Cuentas Bancarias" EmptyDataText="No se Encontraron Cuentas Bancarias." ToolTip=""
CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None"> CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
<asp:TemplateField ItemStyle-Width="50"> <asp:TemplateField ItemStyle-Width="50">
@@ -770,7 +770,7 @@
<asp:GridView ID="GvFiliales" Width="99%" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvFiliales" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="IdCtaAfectable,TipoCambio,Fluctuacion,RazonSocial,CveIE,Folio" DataKeyNames="IdCtaAfectable,TipoCambio,Fluctuacion,RazonSocial,CveIE,Folio"
EmptyDataText="No se Encontraron Cuentas Bancarias." ToolTip="Listado de Cuentas Bancarias" EmptyDataText="No se Encontraron" ToolTip=""
CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None"> CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Acreedor" DataField="RazonSocial" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Acreedor" DataField="RazonSocial" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
@@ -816,7 +816,7 @@
<br /> <br />
<asp:GridView ID="GvDeudores" Width="99%" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvDeudores" Width="99%" runat="server" AutoGenerateColumns="False"
DataKeyNames="IdCtaAfectable,TipoCambio,Fluctuacion,RazonSocial,CveIE" DataKeyNames="IdCtaAfectable,TipoCambio,Fluctuacion,RazonSocial,CveIE"
EmptyDataText="No se Encontraron Cuentas Bancarias." ToolTip="Listado de Cuentas Bancarias" EmptyDataText="No se Encontraron" ToolTip=""
CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None"> CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Deudor" DataField="RazonSocial" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Deudor" DataField="RazonSocial" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />

18
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -445,7 +445,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnGeneraCompras.Visible = False BtnGeneraCompras.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
Alert("Error al generar la fluctuación", TipoMensaje.MsgError) Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
@@ -525,7 +525,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnGeneraComprasAnt.Visible = False BtnGeneraComprasAnt.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
Alert("Error al generar la fluctuación", TipoMensaje.MsgError) Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
@@ -624,7 +624,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnGeneraVentas.Visible = False BtnGeneraVentas.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
@@ -721,7 +721,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnClientesAnticipos.Visible = False BtnClientesAnticipos.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
@@ -804,7 +804,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnGeneraAcreedores.Visible = False BtnGeneraAcreedores.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
Alert("Error al generar la fluctuación", TipoMensaje.MsgError) Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
@@ -879,7 +879,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnGeneraAcreedoresAnt.Visible = False BtnGeneraAcreedoresAnt.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
Alert("Error al generar la fluctuación", TipoMensaje.MsgError) Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
@@ -970,7 +970,7 @@ Partial Class Bancos_FluctuacionCambiaria
Conta.Commit() Conta.Commit()
ObjContPaq.Commit() ObjContPaq.Commit()
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
CargaDatosCuentas() CargaDatosCuentas()
Else Else
Conta.RollBack() Conta.RollBack()
@@ -1045,7 +1045,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
End If End If
@@ -1138,7 +1138,7 @@ Partial Class Bancos_FluctuacionCambiaria
'Fin autoconta 'Fin autoconta
Conta.Commit() Conta.Commit()
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
ObjContPaq.RollBack() ObjContPaq.RollBack()

10
Bancos/PopIEVentas.aspx.vb
View File

@@ -728,10 +728,6 @@ Partial Class Bancos_PopIEVentas
TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
If UsuarioActual.CveEmpresa = 140 Then 'codigo temporal. RMF permite cargar el corte
CveCorte = dr("CveCorte").ToString.ToEntero
End If
LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }" LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
'Configuración de Modalidad Update 'Configuración de Modalidad Update
@@ -745,8 +741,6 @@ Partial Class Bancos_PopIEVentas
End If End If
End If End If
MovimientoPagar = New IEMovimiento MovimientoPagar = New IEMovimiento
MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal
@@ -788,6 +782,10 @@ Partial Class Bancos_PopIEVentas
CargaCorteCaja() CargaCorteCaja()
End If End If
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'toma como proridad el que viene de
CveCorte = dr("CveCorte").ToString.ToEntero
End If
If RFCCliente.ToUpper <> "XAXX010101000" Then If RFCCliente.ToUpper <> "XAXX010101000" Then
Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero

BIN
Bin/roslyn/csc.exe
View File

Binary file not shown.

4
Compras/PopUpVerFactura.aspx.vb
View File

@@ -431,10 +431,10 @@ Partial Class PopUpVerFactura
Dim bcode As New BarcodeLib.Barcode() Dim bcode As New BarcodeLib.Barcode()
Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100) ' Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
Dim barcodebyte As Byte() Dim barcodebyte As Byte()
Using ms = New MemoryStream() Using ms = New MemoryStream()
img.Save(ms, System.Drawing.Imaging.ImageFormat.Png) ' img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
barcodebyte = ms.ToArray() barcodebyte = ms.ToArray()
End Using End Using
rowqr("ImagenByte") = barcodebyte rowqr("ImagenByte") = barcodebyte

4
Contabilidad/FiltraPolizas.aspx
View File

@@ -157,7 +157,9 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="Hpl" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("Id", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>' runat="server" Text='<%# Eval("Folio")%>'></asp:HyperLink>
<asp:HyperLink ID="Hpl" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("Id", " ")%>' runat="server" Text='<%# Eval("Folio")%>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="50px"></ItemStyle> <ItemStyle Width="50px"></ItemStyle>
</asp:TemplateField> </asp:TemplateField>

160
Contabilidad/FiltraPolizas.aspx.vb
View File

@@ -15,6 +15,7 @@ Partial Class Contabilidad_FiltraPolizas
ViewState("DtDatos") = value ViewState("DtDatos") = value
End Set End Set
End Property End Property
Public Property Tick As String Public Property Tick As String
Get Get
Return CType(ViewState("Tick"), String) Return CType(ViewState("Tick"), String)
@@ -23,20 +24,47 @@ Partial Class Contabilidad_FiltraPolizas
ViewState("Tick") = value ViewState("Tick") = value
End Set End Set
End Property End Property
Public Property ContabilidadSIG As Boolean
Get
If ViewState("ContabilidadSIG") Is Nothing Then
ViewState("ContabilidadSIG") = False
End If
Return Boolean.Parse(ViewState("ContabilidadSIG").ToString)
End Get
Set(value As Boolean)
ViewState("ContabilidadSIG") = value
End Set
End Property
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
ViewState("Orden") = "" ViewState("Orden") = ""
DdlPeriodo.SelectedValue = Now.Month.ToString DdlPeriodo.SelectedValue = Now.Month.ToString
TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
If UsuarioActual.Empresa.UsaContabilidad Then
If UsuarioActual.Empresa.UsaContabilidad Or ContabilidadSIG Then
CargaSegmentoNeg() CargaSegmentoNeg()
CargaEjercicios() CargaEjercicios()
CargaDatos() 'CargaDatos()
CargaGvBitacora() CargaGvBitacora()
Else Else
Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia) Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
BtnConsultar.Enabled = False BtnConsultar.Enabled = False
@@ -55,50 +83,110 @@ Partial Class Contabilidad_FiltraPolizas
End If End If
End Sub End Sub
Public Sub CargaDatos() Public Sub CargaDatos()
Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero() Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero() Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
DtDatos = ObjConta.DtResultados
Gv.DataSource = ObjConta.DtResultados
'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then If ContabilidadSIG Then
' ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
' DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'") Dim ObjConta As New ClsContabilidad
'Else
' ViewState("DTPolizas") = ObjConta.DtResultados If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
' DtDatos = ObjConta.DtResultados DtDatos = ObjConta.DtResultados
'End If Gv.DataSource = ObjConta.DtResultados
Else
Gv.DataSource = Nothing
End If
ObjConta.Dispose()
Else
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
DtDatos = ObjConta.DtResultados
Gv.DataSource = ObjConta.DtResultados
'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
' ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
' DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
'Else
' ViewState("DTPolizas") = ObjConta.DtResultados
' DtDatos = ObjConta.DtResultados
'End If
Else
Gv.DataSource = Nothing
End If
ObjConta.Dispose()
End If End If
Gv.DataBind()
ObjConta.Dispose()
Gv.DataBind()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
Private Sub CargaSegmentoNeg() Private Sub CargaSegmentoNeg()
Dim ObjContPAQ As New ClsContPAQi(UsuarioActual.Empresa)
If ObjContPAQ.GetSegmentosNegocio(-1, "-1") Then DdlSegmentoNeg.Items.Clear()
DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
DdlSegmentoNeg.DataBind() If ContabilidadSIG Then
DdlSegmentoNeg.DataValueField = "CveSubProyecto"
DdlSegmentoNeg.DataTextField = "SubProyecto"
DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
Else
DdlSegmentoNeg.DataValueField = "Id"
DdlSegmentoNeg.DataTextField = "Nombre"
Dim ObjContPAQ As New ClsContPAQi(UsuarioActual.Empresa)
If ObjContPAQ.GetSegmentosNegocio(-1, "-1") Then
DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
End If
ObjContPAQ.Dispose()
End If End If
ObjContPAQ.Dispose()
DdlSegmentoNeg.DataBind()
DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1")) DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Private Sub CargaEjercicios() Private Sub CargaEjercicios()
Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
If ClsConta.GetEjercicios() Then
DdlEjercicio.DataSource = ClsConta.DtResultados
Else
DdlEjercicio.DataSource = Nothing
End If
ClsConta.Dispose()
DdlEjercicio.DataBind()
DdlEjercicio.Items.Clear()
If ContabilidadSIG Then
Dim ObjConta As New ClsContabilidad
If ObjConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
DdlEjercicio.DataSource = ObjConta.DtResultados
Else
DdlEjercicio.DataSource = Nothing
End If
ObjConta.Dispose()
Else
Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
If ClsConta.GetEjercicios() Then
DdlEjercicio.DataSource = ClsConta.DtResultados
Else
DdlEjercicio.DataSource = Nothing
End If
ClsConta.Dispose()
End If
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
End Sub End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -526,12 +614,18 @@ Partial Class Contabilidad_FiltraPolizas
End Function End Function
Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles Gv.RowDataBound Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles Gv.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
'If e.Row.DataKey("Comprobante").ToString <> "" AndAlso e.Row.DataKey("Comprobante").ToString IsNot Nothing Then
' e.Row.FCCheckBox("ChkPoliza").Enabled = True If ContabilidadSIG Then
'Else
' e.Row.FCCheckBox("ChkPoliza").ToolTip = "No se tiene cargado comprobante de pago" e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
'End If e.Row.Cells(6).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank'><i class='fa fa-arrow-right' style='color:#686868;'></i></a>"
End If
End If End If
End Sub End Sub

4
Contabilidad/PolizasImpresion.aspx
View File

@@ -73,7 +73,9 @@
<div class="col-md-2 "> <div class="col-md-2 ">
<asp:DropDownList ID="DdlUsuarioRegistro" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList> <asp:DropDownList ID="DdlUsuarioRegistro" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
</div> </div>
<label class="col-md-1 truncate" data-toggle="tooltip" data-placement="top" title="Segmento de Negocio">Segmento de Neg.:</label> <asp:Label runat="server" ID="LblSegmentoNegocio" class="col-md-1 truncate" data-toggle="tooltip" data-placement="top" title="Segmento de Negocio">
Segmento de Neg.:
</asp:Label>
<div class="col-md-2 "> <div class="col-md-2 ">
<asp:DropDownList ID="DdlSegmentoNeg" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList> <asp:DropDownList ID="DdlSegmentoNeg" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
</div> </div>

167
Contabilidad/PolizasImpresion.aspx.vb
View File

@@ -10,19 +10,173 @@ Partial Class Contabilidad_PolizasImpresion
Inherits ClsPaginas Inherits ClsPaginas
Public Property ContabilidadSIG As Boolean
Get
If ViewState("ContabilidadSIG") Is Nothing Then
ViewState("ContabilidadSIG") = False
End If
Return Boolean.Parse(ViewState("ContabilidadSIG").ToString)
End Get
Set(value As Boolean)
ViewState("ContabilidadSIG") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete
If Not IsPostBack Then If Not IsPostBack Then
ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString
TxtFechaFin.Text = Now.ToShortDateString TxtFechaFin.Text = Now.ToShortDateString
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
cargaddlpolizas()
CargaSegmentoNeg()
cargaCuentas() If ContabilidadSIG Then
cargaddlpolizasSIG()
CargaSubProyectosSIG()
CargaCuentasSIG()
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSegmentoNegocio)
LblSegmentoNegocio.Attributes.Add("title", LblSegmentoNegocio.Text)
Else
cargaddlpolizas()
CargaSegmentoNeg()
CargaCuentas()
End If
End If End If
End Sub End Sub
Private Sub BtnConsultar_click(sender As Object, args As EventArgs) Handles BtnConsultar.Click Private Sub BtnConsultar_click(sender As Object, args As EventArgs) Handles BtnConsultar.Click
If ContabilidadSIG Then
ConsultaSIIG()
Else
ConsultaCONTPAQi()
End If
End Sub
#Region "SIIG"
Private Sub ConsultaSIIG()
Dim foli As Integer = -1
Dim folf As Integer = -1
If Not FolioInicio.Text = "" Then
foli = FolioInicio.Text.ToEntero()
End If
If Not FolioFin.Text = "" Then
folf = FolioFin.Text.ToEntero()
End If
Dim ArchivoReporte As String = "Empresas/Grales/Formatos/Polizas.rdlc"
If IO.File.Exists(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) Then
ArchivoReporte = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)
End If
Dim ObjConta As New ClsContabilidad
If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSegmentoNeg.SelectedValue.ToEntero,
CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
If ObjConta.DtResultados.Rows.Count < 10000 Then
If ObjConta.DtResultados.Rows.Count > 0 Then
Dim dr As DataRow
dr = ObjConta.DtResultados.Rows(0)
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text))
params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
params.Add(New ReportParameter("Numero", dr("Folio").ToString))
params.Add(New ReportParameter("Moneda", ""))
params.Add(New ReportParameter("CodigoPostal", ""))
If UsuarioActual.CveEmpresa = 119 Then
params.Add(New ReportParameter("UsuarioRegistro", dr("NombreUsuario").ToString))
End If
ImprimirPDF(ArchivoReporte, ObjConta.DtResultados, params)
Else
Alert("Los Filtros Actuales no contienen datos")
End If
Else
Alert("Los Filtros Actuales contienen muchos datos")
End If
End If
ObjConta.Dispose()
End Sub
Private Sub cargaddlpolizasSIG()
Dim objcont As New ClsContabilidad
If objcont.GetTiposPoliza(-1, "-1", UsuarioActual.CveEmpresa) Then
ddlTipoPoliza.DataSource = objcont.DtResultados
ddlTipoPoliza.DataBind()
ddlTipoPoliza.Items.Insert(0, New ListItem("Todos", "-1"))
End If
objcont.Dispose()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaSubProyectosSIG()
DdlSegmentoNeg.DataValueField = "CveSubProyecto"
DdlSegmentoNeg.DataTextField = "SubProyecto"
DdlSegmentoNeg.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
DdlSegmentoNeg.DataBind()
DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSegmentoNeg.Items.Insert(1, New ListItem("Sin Asignar", "-2"))
End Sub
Private Sub CargaCuentasSIG()
DdlCuenta.DataValueField = "CveCuenta"
DdlCuenta.DataTextField = "CtaCodigo"
Dim objconta As New ClsContabilidad
If objconta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
DdlCuenta.DataSource = objconta.DtResultados
End If
objconta.Dispose()
DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
#End Region
#Region "CONTPAQi"
Private Sub ConsultaCONTPAQi()
Dim foli As Integer = -1 Dim foli As Integer = -1
Dim folf As Integer = -1 Dim folf As Integer = -1
If Not FolioInicio.Text = "" Then If Not FolioInicio.Text = "" Then
@@ -73,8 +227,8 @@ Partial Class Contabilidad_PolizasImpresion
End If End If
End If End If
objcont.Dispose() objcont.Dispose()
End Sub End Sub
Private Sub cargaddlpolizas() Private Sub cargaddlpolizas()
Dim objcont As New ClsContPAQi(UsuarioActual.Empresa) Dim objcont As New ClsContPAQi(UsuarioActual.Empresa)
If objcont.GetTiposPoliza(-1, "-1") Then If objcont.GetTiposPoliza(-1, "-1") Then
@@ -119,5 +273,10 @@ Partial Class Contabilidad_PolizasImpresion
DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
End If End If
End Sub End Sub
#End Region
End Class End Class

37
Contabilidad/RegPoliza.aspx
View File

@@ -56,24 +56,29 @@
Pólizas Pólizas
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li>
<%--<asp:LinkButton ID="LBImprimir" OnClick="LBImprimir_Click" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>--%>
<asp:HyperLink ID="HLImprimir" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-print" style="color: #686868;"></i> Imprimir</asp:HyperLink>
</li>
<li>
<asp:LinkButton ID="LBDevIVA" OnClick="LBDevIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Agregar movtos de IVA</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LBCauIVA" OnClick="LBCauIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Causaciones IVA</asp:LinkButton>
</li>
<li> <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional" >
<asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Movimientos</asp:HyperLink> <ContentTemplate>
</li> <li>
<asp:HyperLink ID="HLImprimir" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-print" style="color: #686868;"></i> Imprimir</asp:HyperLink>
</li>
<li>
<asp:LinkButton ID="LBDevIVA" OnClick="LBDevIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Agregar movtos de IVA</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LBCauIVA" OnClick="LBCauIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Causaciones IVA</asp:LinkButton>
</li>
<li>
<asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Movimientos</asp:HyperLink>
</li>
</ContentTemplate>
</asp:UpdatePanel>
<li>
<asp:Button ID="Button1" runat="server" Text="Button" Visible="False" />
</li>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">

3
Contabilidad/RegPoliza.aspx.vb
View File

@@ -937,7 +937,7 @@ Partial Class RegPoliza
Dim dr As DataRow = DT.Rows(0) Dim dr As DataRow = DT.Rows(0)
HLImprimir.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta($"OP=POL&CvePoliza={dr("IdPoliza").ToString.ToEntero}")) HLImprimir.PostBackUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta($"OP=POL&CvePoliza={dr("IdPoliza").ToString.ToEntero}"))
HLImprimir.Visible = True HLImprimir.Visible = True
TxtFechaPoliza.Text = dr("FechaPol").ToString.ToDate.ToShortDateString TxtFechaPoliza.Text = dr("FechaPol").ToString.ToDate.ToShortDateString
@@ -1012,6 +1012,7 @@ Partial Class RegPoliza
CargaGrid() CargaGrid()
upTitulos.Update() upTitulos.Update()
upDatos.Update() upDatos.Update()
UpAcciones.Update()
If DT IsNot Nothing Then DT.Dispose() If DT IsNot Nothing Then DT.Dispose()
End Sub End Sub

6
Contabilidad/RegPrePolizaS.aspx
View File

@@ -232,10 +232,6 @@
<div class="col-md-2"> <div class="col-md-2">
<asp:HyperLink ID="HplContabilizada" runat="server" Target="_blank">Si</asp:HyperLink> <asp:HyperLink ID="HplContabilizada" runat="server" Target="_blank">Si</asp:HyperLink>
</div> </div>
<label class="col-md-1">Folio:</label>
<div class="col-md-1">
<asp:Label ID="LblFolio" Font-Bold="true" Font-Size="Large" runat="server"></asp:Label>
</div>
</div> </div>
<div class="row" visible="false" runat="server" id="DivTipoGasto"> <div class="row" visible="false" runat="server" id="DivTipoGasto">
@@ -713,7 +709,7 @@
<asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" /> <asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
<asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" /> <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
<asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" /> <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" />
<%--<asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" />--%> <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" />
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</td> </td>

67
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -531,14 +531,13 @@ Partial Class ContabilidadC_RegPrePolizaS
End If End If
If UsuarioActual.CveEmpresa = 119 Then If dr("FolioPoliza").ToString = "" Then
' BtnContabilizar.Visible = True BtnContabilizar.Visible = True
End If End If
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
If dr("FolioPoliza").ToString.ToEntero > 0 Then If dr("FolioPoliza").ToString.ToEntero > 0 Then
divContabilizada.Visible = True divContabilizada.Visible = True
LblFolio.Text = dr("FolioPoliza").ToString
Folio = dr("FolioPoliza").ToString Folio = dr("FolioPoliza").ToString
End If End If
@@ -2390,6 +2389,7 @@ Partial Class ContabilidadC_RegPrePolizaS
ObjConta.IniciaTransacSQL() ObjConta.IniciaTransacSQL()
Try Try
Dim ContadorRegistros As Integer = 2
For Each Row As DataRow In dt.FiltraParametros("ConceptoAdministrativo <> ''").Rows For Each Row As DataRow In dt.FiltraParametros("ConceptoAdministrativo <> ''").Rows
@@ -2406,6 +2406,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim ObjConta2 As New ClsContabilidad Dim ObjConta2 As New ClsContabilidad
Dim FolioExcel As Long = -1 Dim FolioExcel As Long = -1
Dim TipoMov As Integer = -1 Dim TipoMov As Integer = -1
Dim TipoNaturalesa As String = ""
Dim CveBancoCuenta As Integer = -1 Dim CveBancoCuenta As Integer = -1
If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then
CveCuentaExcel = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero CveCuentaExcel = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
@@ -2438,6 +2439,8 @@ Partial Class ContabilidadC_RegPrePolizaS
End If End If
TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
TipoNaturalesa = GlobalDTTipoTransacciones.FiltroPrimeroValor("Tipo", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
FolioExcel = Row("Folio").ToString.ToEntero FolioExcel = Row("Folio").ToString.ToEntero
CveTipoTransaccion = TipoMov CveTipoTransaccion = TipoMov
CveCuenta = CveBancoCuenta CveCuenta = CveBancoCuenta
@@ -2451,13 +2454,29 @@ Partial Class ContabilidadC_RegPrePolizaS
ImporteDocumento = IIf(Row("Abono").ToString.ToDecimal > 0, Row("Abono").ToString.ToDecimal, Row("Cargo").ToString.ToDecimal) ImporteDocumento = IIf(Row("Abono").ToString.ToDecimal > 0, Row("Abono").ToString.ToDecimal, Row("Cargo").ToString.ToDecimal)
Observaciones = Row("Referencia").ToString Observaciones = Row("Referencia").ToString
Beneficiario = Row("Concepto").ToString Beneficiario = Row("Concepto").ToString
If Not TipoMov > 0 Then If Not TipoMov > 0 Then
Alert(String.Format("El Tipo de Transferencia no fue encontrado: <br/> <b>Tipo Transferencia: <b/> {0} <br/> <b>Folio: <b/> {1} <br/> <b>Importe: <b/> {2} ", Row("TipoTransferencia").ToString(), FolioExcel, ImporteDocumento), TipoMensaje.MsgAdvertencia) Alert(String.Format("El Tipo de Transferencia no fue encontrado: <br/> <b>Tipo Transferencia: <b/> {0} <br/> <b>Folio: <b/> {1} <br/> <b>Importe: <b/> {2} ", Row("TipoTransferencia").ToString(), FolioExcel, ImporteDocumento), TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
If Row("Abono").ToString.ToDecimal > 0 And TipoNaturalesa = "Ing" Or Row("Cargo").ToString.ToDecimal > 0 And TipoNaturalesa = "Egs" Then
Alert($"El movimiento con cuenta: {NombreCuenta} , importe: {ImporteDocumento.ToString("###,###,###.00")} (registro {ContadorRegistros}), no tiene la naturaleza correcta", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If End If
If CveConceptoContable = 30 AndAlso Row("TipoTransferencia").ToString = "" Then
Alert($" El registro {ContadorRegistros} es movimiento bancario y no se especifica el tipo de transferencia , importe: {ImporteDocumento.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'sino viene el cveconcepto, busca por le nombre del concepto 'sino viene el cveconcepto, busca por le nombre del concepto
If CveConceptoContable = 0 Then If CveConceptoContable = 0 Then
Alert(String.Format("El concepto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo"))) Alert(String.Format("El concepto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo")))
@@ -2515,6 +2534,9 @@ Partial Class ContabilidadC_RegPrePolizaS
DtMovimientos.Rows.Add(dr) DtMovimientos.Rows.Add(dr)
DtMovimientos.AcceptChanges() DtMovimientos.AcceptChanges()
End If End If
ContadorRegistros = ContadorRegistros + 1
Next Next
TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
@@ -2549,7 +2571,7 @@ Partial Class ContabilidadC_RegPrePolizaS
End If End If
Return CType(ViewState("ArregloCuentasFolios"), DataTable) Return CType(ViewState("ArregloCuentasFolios"), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
ViewState("ArregloCuentasFolios") = value ViewState("ArregloCuentasFolios") = value
End Set End Set
@@ -2588,29 +2610,29 @@ Partial Class ContabilidadC_RegPrePolizaS
End Function End Function
#End Region #End Region
'Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
' Contabilizar() Contabilizar()
'End Sub End Sub
'Private Sub Contabilizar() Private Sub Contabilizar()
' Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
' If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
' ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
' End If End If
' If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then
' Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion) Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
' Else Else
' Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia) Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
' End If End If
' ObjConta.Dispose() ObjConta.Dispose()
'End Sub End Sub
#Region "Paquete Egresos" #Region "Paquete Egresos"
@@ -2772,16 +2794,9 @@ Partial Class ContabilidadC_RegPrePolizaS
LnkComplementoPago.Visible = True LnkComplementoPago.Visible = True
End If End If
If UsuarioActual.CveEmpresa = 119 Then
' BtnContabilizar.Visible = True
End If
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
If dr("FolioPoliza").ToString.ToEntero > 0 Then If dr("FolioPoliza").ToString.ToEntero > 0 Then
divContabilizada.Visible = True divContabilizada.Visible = True
LblFolio.Text = dr("FolioPoliza").ToString
Folio = dr("FolioPoliza").ToString Folio = dr("FolioPoliza").ToString
End If End If

2
Contabilidad2/CatContaEjercicios.aspx.vb
View File

@@ -72,7 +72,7 @@ Partial Class Contabilidad2_CatContaEjercicios
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
Dim errorString As String = "" Dim errorString As String = ""
If LbAgregar.Text = "Agregar" Then If LbAgregar.Text = "Agregar" Then
If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CvePersonal, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text, If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
errorString = "Error al agregar" errorString = "Error al agregar"
End If End If

2
Contabilidad2/PolizasImpresion.aspx.vb
View File

@@ -39,7 +39,7 @@ Partial Class Contabilidad2_PolizasImpresion
End If End If
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text, TxtFechaFin.Text, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli, If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero,
CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero, CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then

2
Contratos/ContratoObraAutorizacion.aspx.vb
View File

@@ -221,7 +221,7 @@ Partial Class Contratos_ContratoObraAutorizacion
If DTEstimaciones.Rows.Count > 0 Then If DTEstimaciones.Rows.Count > 0 Then
GvEstimaciones.DataSource = DTEstimaciones GvEstimaciones.DataSource = DTEstimaciones
' BtnGuardarEstimacion.Visible = True 'BtnGuardarEstimacion.Visible = True
BtnAutoriza.Visible = True BtnAutoriza.Visible = True
Else Else
GvEstimaciones.DataSource = Nothing GvEstimaciones.DataSource = Nothing

9788
Empresas/1/Formatos/Factura.rdlc
View File

File diff suppressed because it is too large Load Diff

22
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1345,7 +1345,7 @@ Partial Class Inventarios_EntradasSalidas
tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
End If End If
If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
FechaCaducidadVal = MinFecha FechaCaducidadVal = MinFecha
FechaCaducidad = MinFecha FechaCaducidad = MinFecha
Lote = "" Lote = ""
@@ -2116,8 +2116,6 @@ Partial Class Inventarios_EntradasSalidas
filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString
Else Else
filtro = String.Format("{0} AND CveTipoAlmacen = {1}", IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80, 4, 7, 11, 12, 135), "CveConcepto NOT IN (4,5,10)", filtro).ToString, CveTipoAlmacen) filtro = String.Format("{0} AND CveTipoAlmacen = {1}", IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80, 4, 7, 11, 12, 135), "CveConcepto NOT IN (4,5,10)", filtro).ToString, CveTipoAlmacen)
End If End If
@@ -2160,6 +2158,14 @@ Partial Class Inventarios_EntradasSalidas
DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 1, 1, 0), New ListItem(" Salida por Ajuste ", "34")) DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 1, 1, 0), New ListItem(" Salida por Ajuste ", "34"))
End If End If
' RECEPCION USADOS
If CveTipoAlmacen = 22 Then
If DdlConcepto.Items.FindByValue("3") Is Nothing Then
DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 2, 2, DdlConcepto.Items.Count), New ListItem("Salida Almacen ", "3"))
End If
End If
'[IPP]: PARCHE PARA JAM '[IPP]: PARCHE PARA JAM
If UsuarioActual.CveEmpresa = 119 And CveTipoAlmacen.Contiene(4, 8, 16) Then If UsuarioActual.CveEmpresa = 119 And CveTipoAlmacen.Contiene(4, 8, 16) Then
If DdlConcepto.Items.FindByValue("2") Is Nothing Then If DdlConcepto.Items.FindByValue("2") Is Nothing Then
@@ -2212,20 +2218,14 @@ Partial Class Inventarios_EntradasSalidas
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("35")) DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("35"))
End If End If
End If End If
If UsuarioActual.CveUsuario.Contiene(2185, 100) Then If UsuarioActual.CveUsuario.Contiene(2185, 100) Then
DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32")) DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34")) DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
End If End If
DdlConcepto.SelectedValue = "-1" DdlConcepto.SelectedValue = "-1"
ddlConcepto_SelectedIndexChanged(DdlConcepto, EventArgs.Empty) ddlConcepto_SelectedIndexChanged(DdlConcepto, EventArgs.Empty)
@@ -4475,7 +4475,7 @@ Partial Class Inventarios_EntradasSalidas
Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
AplicaLote = False AplicaLote = False
AplicaCaducidad = False AplicaCaducidad = False
End If End If
@@ -4517,7 +4517,7 @@ Partial Class Inventarios_EntradasSalidas
Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
AplicaLote = False AplicaLote = False
AplicaCaducidad = False AplicaCaducidad = False
End If End If

17
Inventarios/EntregaAlmacen.aspx
View File

@@ -345,8 +345,16 @@
<div class="portlet light xspadding bordered"> <div class="portlet light xspadding bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Ventas por surtir</span> <i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Ventas por surtir</span>
<code style="font-family: Menlo,Monaco,Consolas,'Courier New',monospace; font-size: 10px">
<asp:Literal Text="" runat="server" ID="LtActualizado" />
</code>
&nbsp
</div> </div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
@@ -355,10 +363,7 @@
<div class="tools"> <div class="tools">
<asp:Panel runat="server" DefaultButton="BtnConsultarPendientes"> <asp:Panel runat="server" DefaultButton="BtnConsultarPendientes">
<code>
<asp:Literal Text="" runat="server" ID="LtActualizado" />
</code>
&nbsp
<input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GVPendientes.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 70px;" /> <input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GVPendientes.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 70px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GVPendientes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GVPendientes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
&nbsp &nbsp

2
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -670,7 +670,7 @@ Partial Class Inventarios_EntregaAlmacen
If UsuarioActual.CveEmpresa = 119 Then If UsuarioActual.CveEmpresa = 119 Then
Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto", "").ToEntero Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
If CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then If CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
ValidaLoteCaducidad = True ValidaLoteCaducidad = True
Else Else
ValidaLoteCaducidad = False ValidaLoteCaducidad = False

2
Inventarios/InventarioFisico.aspx.vb
View File

@@ -104,7 +104,7 @@ Partial Class Inventarios_InventarioFisico
Dim Inventario As New ClsInventarios Dim Inventario As New ClsInventarios
Dim dt As New DataTable Dim dt As New DataTable
If Inventario.GetInventarioFisico(-1, CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue.ToEntero) Then If Inventario.GetInventarioFisico(-1, CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
dt = Inventario.DtResultados dt = Inventario.DtResultados
End If End If
Inventario.Dispose() Inventario.Dispose()

2
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -559,7 +559,7 @@ Partial Class Inventarios_RecepcionAlmacen
Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
'RMF condición temporal 'RMF condición temporal
If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
ValidaLoteCaducidad = True ValidaLoteCaducidad = True
Else Else
ValidaLoteCaducidad = False ValidaLoteCaducidad = False

2
Inventarios/RepEntregaAlmacenRuta.aspx
View File

@@ -99,7 +99,7 @@
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
<asp:GridView ID="GVDatos" runat="server" <asp:GridView ID="GVDatos" runat="server"
DataKeyNames="CveEntregaAlmacen,Estatus,CveCliente,CveDireccionOrigen,CveDireccionDestino,CveCamion,CveChofer,FechaEntrega,CveAlmacen,Tipo,AplicaCP,RFCReceptor,RFCEmisor,CveTimbre,CvePAC,FolioFiscal,TimbreTipoDocto,CveMovimiento,FechaLlegada,CveCamionRemolque1,CveCamionRemolque2,Distancia,ConfigCartaPorte,SerieFolio,DireccionOrigen,Direccion" DataKeyNames="CveSubProyecto, CveEntregaAlmacen,Estatus,CveCliente,CveDireccionOrigen,CveDireccionDestino,CveCamion,CveChofer,FechaEntrega,CveAlmacen,Tipo,AplicaCP,RFCReceptor,RFCEmisor,CveTimbre,CvePAC,FolioFiscal,TimbreTipoDocto,CveMovimiento,FechaLlegada,CveCamionRemolque1,CveCamionRemolque2,Distancia,ConfigCartaPorte,SerieFolio,DireccionOrigen,Direccion"
AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None"
EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound"> EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound">
<Columns> <Columns>

34
Inventarios/RepEntregaAlmacenRuta.aspx.cs
View File

@@ -512,9 +512,12 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
string RFCReceptor = GvRow.DataKey("RFCReceptor").ToString(); string RFCReceptor = GvRow.DataKey("RFCReceptor").ToString();
string RFCEmisor = GvRow.DataKey("RFCEmisor").ToString(); string RFCEmisor = GvRow.DataKey("RFCEmisor").ToString();
int CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero(); int CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero();
int CveSubProyecto = GvRow.DataKey("CveSubProyecto").ToEntero();
int CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero();
Timbrado ObjCancelacion = new Timbrado(); Timbrado ObjCancelacion = new Timbrado();
ClsGenerales ObjGenerales = new ClsGenerales(); ClsGenerales ObjGenerales = new ClsGenerales();
ObjGenerales.IniciaTransacSQL ();
if (EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptor)) if (EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptor))
{ {
@@ -528,22 +531,27 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, ObjCancelacion.CancelacionAcuse, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, ObjCancelacion.CancelacionAcuse, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{ {
Alert("El complemento se cancelo correctamente."); //regenero el tmbre
CveTimbre = ObjGenerales.AddGralTimbre("Tra", CveSubProyecto, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen : CveEntregaAlmacen, AplicaCP: true);
ProcesoOK = true; ProcesoOK = true;
} }
} }
else
{
Alert("Se presento un error al cancelar el Folio Fiscal", ModExtensiones.TipoMensaje.MsgAdvertencia);
}
} }
ObjGenerales.Dispose();
if (ProcesoOK) if (ProcesoOK)
{ {
CargaDatos(); ObjGenerales.Commit();
Alert("El complemento se cancelo correctamente.");
} }
else
{
ObjGenerales.RollBack();
Alert("Se presento un error al cancelar el Folio Fiscal", ModExtensiones.TipoMensaje.MsgAdvertencia);
}
ObjGenerales.Dispose();
} }
@@ -622,11 +630,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
LnkTimbrar.Visible = true; LnkTimbrar.Visible = true;
} }
if (e.Row.DataKey("TimbreTipoDocto") == "Man") //if (e.Row.DataKey("TimbreTipoDocto") == "Man")
{ //{
e.Row.FCLinkButton("LnkEditarDirOrigen").Visible = true; // e.Row.FCLinkButton("LnkEditarDirOrigen").Visible = true;
e.Row.FCLinkButton("LnkEditarDirDestino").Visible = true; // e.Row.FCLinkButton("LnkEditarDirDestino").Visible = true;
} //}
if (e.Row.DataKey("Estatus").ToEntero() == 1) if (e.Row.DataKey("Estatus").ToEntero() == 1)
{ {

2
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -1126,7 +1126,7 @@ Partial Class Inventarios_ResguardoMaterial
Private Sub DdlAlmacenDestinoLiberacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestinoLiberacion.SelectedIndexChanged Private Sub DdlAlmacenDestinoLiberacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestinoLiberacion.SelectedIndexChanged
Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestinoLiberacion.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestinoLiberacion.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
'RMF condición temporal 'RMF condición temporal
If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
ValidaLoteCaducidad = True ValidaLoteCaducidad = True
Else Else
ValidaLoteCaducidad = False ValidaLoteCaducidad = False

8
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -593,14 +593,14 @@ Partial Class Inventarios_TraspasoAlmacen
'codigo provisional. 'codigo provisional.
Dim CveSubP As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero Dim CveSubP As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
If DrPS("AplicaCaducidad").ToString = "True" AndAlso CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then If DrPS("AplicaCaducidad").ToString = "True" AndAlso CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
If Not ChkSugiereFechaCaducidad.Checked AndAlso (TxtnFechaCaducidad.Text = "" OrElse TxtnLote.Text = "") Then If Not ChkSugiereFechaCaducidad.Checked AndAlso (TxtnFechaCaducidad.Text = "" OrElse TxtnLote.Text = "") Then
Alert("Falta Especificar lote/Fecha del producto", TipoMensaje.MsgAdvertencia) Alert("Falta Especificar lote/Fecha del producto", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
End If End If
If DrPS("AplicaCaducidad").ToString = "True" AndAlso ChkSugiereFechaCaducidad.Checked And CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then If DrPS("AplicaCaducidad").ToString = "True" AndAlso ChkSugiereFechaCaducidad.Checked And CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetExistenciasCaducidad(CveProducto, DdlAlmacenOrigen.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue) Then If ObjInventarios.GetExistenciasCaducidad(CveProducto, DdlAlmacenOrigen.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue) Then
@@ -637,7 +637,7 @@ Partial Class Inventarios_TraspasoAlmacen
tLote = If(TxtnLote.Visible, TxtnLote.Text, "-1") tLote = If(TxtnLote.Visible, TxtnLote.Text, "-1")
tCaducidad = If(TxtnFechaCaducidad.Visible, TxtnFechaCaducidad.Text.ToDate, MinFecha) tCaducidad = If(TxtnFechaCaducidad.Visible, TxtnFechaCaducidad.Text.ToDate, MinFecha)
If Not CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then If Not CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
tLote = "-1" tLote = "-1"
tCaducidad = MinFecha tCaducidad = MinFecha
End If End If
@@ -2163,7 +2163,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim tSerie As String = gvr.FCTextBox("TxtSerie").Text 'gvr.DataKey("Serie").ToString Dim tSerie As String = gvr.FCTextBox("TxtSerie").Text 'gvr.DataKey("Serie").ToString
Dim tFechaCaducidad As Date = gvr.DataKey("FechaCaducidad").ToDate Dim tFechaCaducidad As Date = gvr.DataKey("FechaCaducidad").ToDate
If CveSubProyectoRecibe.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then If CveSubProyectoRecibe.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
tLote = gvr.FCTextBox("TxtLote").Text tLote = gvr.FCTextBox("TxtLote").Text
tFechaCaducidad = gvr.FCTextBox("TxtCaducidad").Text.ToDate tFechaCaducidad = gvr.FCTextBox("TxtCaducidad").Text.ToDate
End If End If

6
OC/CatEstatus.aspx.vb
View File

@@ -603,7 +603,7 @@ Partial Class OC_CatEstatus
'Guardado masivo cuando sea SubProyecto "Todos" 'Guardado masivo cuando sea SubProyecto "Todos"
If CveSubProyecto = -2 Then If CveSubProyecto = -2 Then
For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows
If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True) Then If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
HuboErrores = True HuboErrores = True
Exit For Exit For
End If End If
@@ -669,7 +669,7 @@ Partial Class OC_CatEstatus
'Guardado masivo cuando sea SubProyecto "Todos" 'Guardado masivo cuando sea SubProyecto "Todos"
If CveSubProyecto = -2 Then If CveSubProyecto = -2 Then
For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows
If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True) Then If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
HuboErrores = True HuboErrores = True
Exit For Exit For
End If End If
@@ -680,7 +680,7 @@ Partial Class OC_CatEstatus
'Insertar el nuevo registro 'Insertar el nuevo registro
Else Else
If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, CveSubProyecto, Row.DataKey("CveUsuario").ToString.ToEntero, True) Then If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, CveSubProyecto, Row.DataKey("CveUsuario").ToString.ToEntero, True, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
HuboErrores = True HuboErrores = True
Exit For Exit For
End If End If

14
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1558,21 +1558,21 @@ Partial Class Ventas_ClientesAbonar
Dim CveConceptoLiquidacion As Integer = 51 Dim CveConceptoLiquidacion As Integer = 51
If ImporteLiquidacion1 <> 0 Then If ImporteLiquidacion1 <> 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion1, "Liquidacion Col 1", CveConceptoLiquidacion, "Liquidacion Col 2", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion1 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol1) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion1, "Liquidacion Col 1", CveConceptoLiquidacion, "Liquidacion Col 1", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion1 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol1, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
Exit For Exit For
End If End If
End If End If
If ImporteLiquidacion2 <> 0 Then If ImporteLiquidacion2 <> 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion2, "Liquidacion Col 2", CveConceptoLiquidacion, "Liquidacion Col 2", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion2 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol2) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion2, "Liquidacion Col 2", CveConceptoLiquidacion, "Liquidacion Col 2", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion2 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol2, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
Exit For Exit For
End If End If
End If End If
If ImporteLiquidacion3 <> 0 Then If ImporteLiquidacion3 <> 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion3, "Liquidacion Col 4", CveConceptoLiquidacion, "Liquidacion Col 3", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion3 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol3) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion3, "Liquidacion Col 4", CveConceptoLiquidacion, "Liquidacion Col 3", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion3 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol3, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
Exit For Exit For
End If End If
@@ -1580,7 +1580,7 @@ Partial Class Ventas_ClientesAbonar
If ImporteLiquidacion4 <> 0 Then If ImporteLiquidacion4 <> 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion4, "Liquidacion Col 4", CveConceptoLiquidacion, "Liquidacion Col 4", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion4 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol4) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion4, "Liquidacion Col 4", CveConceptoLiquidacion, "Liquidacion Col 4", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion4 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol4, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
Exit For Exit For
End If End If
@@ -1589,21 +1589,21 @@ Partial Class Ventas_ClientesAbonar
If ImporteLiquidacion5 <> 0 Then If ImporteLiquidacion5 <> 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion5, "Liquidacion Col 5", CveConceptoLiquidacion, "Liquidacion Col 5", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion5 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol5) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion5, "Liquidacion Col 5", CveConceptoLiquidacion, "Liquidacion Col 5", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion5 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol5, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
Exit For Exit For
End If End If
End If End If
If ImporteLiquidacion6 <> 0 Then If ImporteLiquidacion6 <> 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion6, "Liquidacion Col 6", CveConceptoLiquidacion, "Liquidacion Col 6", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion6 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol6) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion6, "Liquidacion Col 6", CveConceptoLiquidacion, "Liquidacion Col 6", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion6 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol6, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
Exit For Exit For
End If End If
End If End If
If ImporteLiquidacion7 <> 0 Then If ImporteLiquidacion7 <> 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion7, "Liquidacion Col 7", CveConceptoLiquidacion, "Liquidacion Col 7", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion7 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol7) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion7, "Liquidacion Col 7", CveConceptoLiquidacion, "Liquidacion Col 7", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion7 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol7, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
Exit For Exit For
End If End If