285 lines
14 KiB
VB.net
285 lines
14 KiB
VB.net
Option Strict On
|
|
Imports System.Data
|
|
Imports System.Collections.Generic
|
|
Imports System.Linq
|
|
Imports System.Web
|
|
Imports System.Web.UI.WebControls
|
|
Imports Extensiones
|
|
Imports GemBox.Spreadsheet
|
|
|
|
Partial Class GPS_FacturasSims
|
|
Inherits ClsPaginas
|
|
|
|
#Region "Propiedades"
|
|
Private Property RcveGpsFacturaSim() As Int32
|
|
Get
|
|
Return If(IsNothing(ViewState("RcveGpsFacturaSim")), 0, CInt(ViewState("RcveGpsFacturaSim")))
|
|
End Get
|
|
Set
|
|
ViewState("RcveGpsFacturaSim") = Value
|
|
End Set
|
|
End Property
|
|
Private Property CcveGpsFacturaSim() As Int32
|
|
Get
|
|
Return If(IsNothing(ViewState("CcveGpsFacturaSim")), 0, CInt(ViewState("CcveGpsFacturaSim")))
|
|
End Get
|
|
Set
|
|
ViewState("CcveGpsFacturaSim") = Value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
|
|
CargaFacturasSims()
|
|
End If
|
|
End Sub
|
|
Protected Sub CargaFacturasSims()
|
|
Dim ObjFact As New ClsGPS()
|
|
Dim periodo As Integer = 0 ' DateTime.Now.ToString("yyyyMM").ToEntero()
|
|
TxtPeriodo.Text = TxtPeriodo.Text.Replace("_", "0")
|
|
If TxtPeriodo.Text.Trim().Length > 6 Then
|
|
periodo = String.Format("{1}{0}", TxtPeriodo.Text.Substring(0, 2), TxtPeriodo.Text.Substring(3, 4)).ToEntero()
|
|
'Alert(String.Format("{1}{0}", TxtPeriodo.Text.Substring(0, 2), TxtPeriodo.Text.Substring(3, 4)))
|
|
ElseIf TxtPeriodo.Text.Trim().Length > 5 Then
|
|
periodo = String.Format("{1}{0}", TxtPeriodo.Text.Substring(0, 2), TxtPeriodo.Text.Substring(2, 4)).ToEntero()
|
|
ElseIf TxtPeriodo.Text.Trim().Length > 4 Then
|
|
periodo = String.Format("0{1}0{0}", TxtPeriodo.Text.Substring(0, 1), TxtPeriodo.Text.Substring(1, 4)).ToEntero()
|
|
'Alert(String.Format("{1}0{0}", TxtPeriodo.Text.Substring(0, 1), TxtPeriodo.Text.Substring(1, 4)))
|
|
End If
|
|
ObjFact.GetFacturasSims(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, periodo)
|
|
GVFacturasSims.DataSource = ObjFact.DtResultados
|
|
ObjFact.Dispose()
|
|
GVFacturasSims.DataBind()
|
|
upDatosFact.Update()
|
|
End Sub
|
|
|
|
Protected Sub LnkAgregarFact_Click(sender As Object, e As EventArgs)
|
|
RegistraScript("$('#DModalFacturasSims').modal()")
|
|
BtnFactADD.Visible = True
|
|
UPModalFact.Update()
|
|
End Sub
|
|
Protected Sub BtnFactADD_Click(sender As Object, e As EventArgs)
|
|
|
|
Dim nTelefono As String = ""
|
|
Dim fechaCorte As String = ""
|
|
Dim cuentaPadre As Integer = 0
|
|
Dim cuentaHijo As Integer = 0
|
|
Dim nFactura As String = ""
|
|
Dim plan As String = ""
|
|
Dim importePlanySerContr As Decimal = 0
|
|
Dim importeConsuAdicNaci As Decimal = 0
|
|
Dim importeConsuAdicInternaci As Decimal = 0
|
|
Dim importeServCompl As Decimal = 0
|
|
Dim importeAjustes As Decimal = 0
|
|
Dim importeDescuentos As Decimal = 0
|
|
Dim importeServiciosSusc As Decimal = 0
|
|
Dim importeServiciosSuscTerceros As Decimal = 0
|
|
Dim importeEquipo As Decimal = 0
|
|
Dim importeServXCuentaTerc As Decimal = 0
|
|
Dim importeIVA As Decimal = 0
|
|
Dim importe As Decimal = 0
|
|
|
|
Dim cveGpsFacturaSim As Integer = 0
|
|
Dim detTipo As Integer = 0
|
|
Dim detConceptos As String = ""
|
|
Dim detincluidos As Decimal = 0
|
|
Dim detconsumidos As Decimal = 0
|
|
Dim detexcedentes As Decimal = 0
|
|
Dim dettotal As Decimal = 0
|
|
|
|
|
|
|
|
Dim excelfile As Archivo = TxtCalibracion.getfiles().Archivos(0)
|
|
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet())
|
|
Dim EF As GemBox.Spreadsheet.ExcelFile = GemBox.Spreadsheet.ExcelFile.Load(excelfile.FileUrl)
|
|
Dim TempEdcta As New DataTable
|
|
Dim Tempplanyserv As New DataTable()
|
|
Dim TempConsumoAdicional As New DataTable
|
|
Dim TempConsumoAdicionalintmundial As New DataTable
|
|
If True Then
|
|
Dim Hoja As ExcelWorksheet = EF.Worksheets(1)
|
|
Dim Opciones As New CreateDataTableOptions()
|
|
Opciones.ColumnHeaders = True
|
|
Opciones.StartRow = 5
|
|
Opciones.NumberOfColumns = 21
|
|
Opciones.NumberOfRows = Hoja.Rows.Count
|
|
Opciones.Resolution = ColumnTypeResolution.AutoPreferStringInvariantCulture
|
|
TempEdcta = Hoja.CreateDataTable(Opciones)
|
|
TempEdcta.Columns(4).ColumnName = "AdsTelefono"
|
|
End If
|
|
If True Then
|
|
Dim Hoja As ExcelWorksheet = EF.Worksheets(2)
|
|
Dim Opciones As New CreateDataTableOptions()
|
|
Opciones.ColumnHeaders = True
|
|
Opciones.StartRow = 1
|
|
Opciones.NumberOfColumns = 11
|
|
Opciones.NumberOfRows = Hoja.Rows.Count
|
|
Opciones.Resolution = ColumnTypeResolution.AutoPreferStringInvariantCulture
|
|
Tempplanyserv = Hoja.CreateDataTable(Opciones)
|
|
Tempplanyserv.Columns(4).ColumnName = "AdsTelefono"
|
|
Tempplanyserv.Columns(7).ColumnName = "AdsConceptos"
|
|
End If
|
|
If True Then
|
|
Dim Hoja As ExcelWorksheet = EF.Worksheets(3)
|
|
Dim Opciones As New CreateDataTableOptions()
|
|
Opciones.ColumnHeaders = True
|
|
Opciones.StartRow = 1
|
|
Opciones.NumberOfColumns = 13
|
|
Opciones.NumberOfRows = Hoja.Rows.Count
|
|
Opciones.Resolution = ColumnTypeResolution.AutoPreferStringInvariantCulture
|
|
TempConsumoAdicional = Hoja.CreateDataTable(Opciones)
|
|
TempConsumoAdicional.Columns(4).ColumnName = "AdsTelefono"
|
|
TempConsumoAdicional.Columns(7).ColumnName = "AdsConceptos"
|
|
End If
|
|
If True Then
|
|
Dim Hoja As ExcelWorksheet = EF.Worksheets(4)
|
|
Dim Opciones As New CreateDataTableOptions()
|
|
Opciones.ColumnHeaders = True
|
|
Opciones.StartRow = 1
|
|
Opciones.NumberOfColumns = 13
|
|
Opciones.NumberOfRows = Hoja.Rows.Count
|
|
Opciones.Resolution = ColumnTypeResolution.AutoPreferStringInvariantCulture
|
|
TempConsumoAdicionalintmundial = Hoja.CreateDataTable(Opciones)
|
|
TempConsumoAdicionalintmundial.Columns(4).ColumnName = "AdsTelefono"
|
|
TempConsumoAdicionalintmundial.Columns(7).ColumnName = "AdsConceptos"
|
|
End If
|
|
'Dim xs As New StringBuilder()
|
|
Dim ObjFact As New ClsGPS()
|
|
ObjFact.IniciaTransacSQL()
|
|
Dim Continuar As Boolean = True
|
|
For Each row As DataRow In TempEdcta.Rows
|
|
|
|
nTelefono = row(4).ToString()
|
|
If nTelefono.Length > 5 Then
|
|
|
|
fechaCorte = DateTime.ParseExact(row(6).ToString(), "dd/MM/yyyy", System.Globalization.CultureInfo.InvariantCulture).ToString("yyyy-MM-dd")
|
|
cuentaPadre = row(2).ToString().ToEntero()
|
|
cuentaHijo = row(3).ToString().ToEntero()
|
|
nFactura = row(7).ToString()
|
|
plan = row(8).ToString()
|
|
importePlanySerContr = row(9).ToString().ToDecimal()
|
|
importeConsuAdicNaci = row(10).ToString().ToDecimal()
|
|
importeConsuAdicInternaci = row(11).ToString().ToDecimal()
|
|
importeServCompl = row(12).ToString().ToDecimal()
|
|
importeAjustes = row(13).ToString().ToDecimal()
|
|
importeDescuentos = row(14).ToString().ToDecimal()
|
|
importeServiciosSusc = row(15).ToString().ToDecimal()
|
|
importeServiciosSuscTerceros = row(16).ToString().ToDecimal()
|
|
importeEquipo = row(17).ToString().ToDecimal()
|
|
importeServXCuentaTerc = row(18).ToString().ToDecimal()
|
|
importeIVA = row(19).ToString().ToDecimal()
|
|
importe = row(20).ToString().ToDecimal()
|
|
If Continuar Then Continuar = ObjFact.AddFacturasSims(nTelefono, fechaCorte, cuentaPadre, cuentaHijo, nFactura, plan, importePlanySerContr, importeConsuAdicNaci,
|
|
importeConsuAdicInternaci, importeServCompl, importeAjustes, importeDescuentos, importeServiciosSusc,
|
|
importeServiciosSuscTerceros, importeEquipo, importeServXCuentaTerc, importeIVA, importe)
|
|
If Continuar Then
|
|
cveGpsFacturaSim = ObjFact.DtResultados.Rows(0)("cveGpsFacturaSim").ToString.ToEntero()
|
|
If Continuar Then
|
|
For Each rowd As DataRow In Tempplanyserv.FiltraParametros(String.Format("AdsTelefono = '{0}' AND AdsConceptos<> '-'", nTelefono)).Rows
|
|
|
|
detTipo = 1
|
|
detConceptos = rowd(7).ToString()
|
|
detincluidos = rowd(8).ToString().ToDecimal()
|
|
detconsumidos = rowd(9).ToString().ToDecimal()
|
|
detexcedentes = 0
|
|
dettotal = rowd(10).ToString().ToDecimal()
|
|
Continuar = ObjFact.AddFacturasSimsDetalle(cveGpsFacturaSim, detTipo, detConceptos, detincluidos, detconsumidos, detexcedentes, dettotal)
|
|
Next
|
|
End If
|
|
If Continuar Then
|
|
For Each rowd As DataRow In TempConsumoAdicional.FiltraParametros(String.Format("AdsTelefono = '{0}' AND AdsConceptos<> '-'", nTelefono)).Rows
|
|
detTipo = 2
|
|
detConceptos = rowd(7).ToString()
|
|
detincluidos = rowd(9).ToString().ToDecimal()
|
|
detconsumidos = rowd(10).ToString().ToDecimal()
|
|
detexcedentes = rowd(11).ToString().ToDecimal()
|
|
dettotal = rowd(12).ToString().ToDecimal()
|
|
Continuar = ObjFact.AddFacturasSimsDetalle(cveGpsFacturaSim, detTipo, detConceptos, detincluidos, detconsumidos, detexcedentes, dettotal)
|
|
|
|
Next
|
|
End If
|
|
If Continuar Then
|
|
For Each rowd As DataRow In TempConsumoAdicionalintmundial.FiltraParametros(String.Format("AdsTelefono = '{0}' AND AdsConceptos<> '-'", nTelefono)).Rows
|
|
detTipo = 3
|
|
detConceptos = rowd(7).ToString()
|
|
detincluidos = rowd(9).ToString().ToDecimal()
|
|
detconsumidos = rowd(10).ToString().ToDecimal()
|
|
detexcedentes = rowd(11).ToString().ToDecimal()
|
|
dettotal = rowd(12).ToString().ToDecimal()
|
|
Continuar = ObjFact.AddFacturasSimsDetalle(cveGpsFacturaSim, detTipo, detConceptos, detincluidos, detconsumidos, detexcedentes, dettotal)
|
|
Next
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
'xs.Append("<br/> Tel. ")
|
|
'xs.Append(nTelefono)
|
|
Next
|
|
If Continuar Then
|
|
ObjFact.Commit()
|
|
Else
|
|
ObjFact.RollBack()
|
|
End If
|
|
'Alert(xs.ToString()) '
|
|
ObjFact.Dispose()
|
|
If (Continuar) Then
|
|
RegistraScript("$('#DModalFacturasSims').modal('hide')")
|
|
CargaFacturasSims()
|
|
UPModalFact.Update()
|
|
Alert("La Factura se ha agregado")
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub LnkOcultarDesglose_Click(sender As Object, e As EventArgs)
|
|
GVFacturasSims.CssClass = GVFacturasSims.CssClass.Replace(" mostrardesglose", "")
|
|
End Sub
|
|
Protected Sub LnkMostrarDesglose_Click(sender As Object, e As EventArgs)
|
|
GVFacturasSims.CssClass = String.Format("{0} mostrardesglose", GVFacturasSims.CssClass.Replace(" mostrardesglose", ""))
|
|
End Sub
|
|
Protected Sub LnkMostrarDRegistrados_Click(sender As Object, e As EventArgs)
|
|
GVFacturasSims.CssClass = String.Format("{0} MostrarDRegistrados", GVFacturasSims.CssClass.Replace(" MostrarDRegistrados", ""))
|
|
End Sub
|
|
Protected Sub LnkOcultarDRegistrados_Click(sender As Object, e As EventArgs)
|
|
GVFacturasSims.CssClass = GVFacturasSims.CssClass.Replace(" MostrarDRegistrados", "")
|
|
End Sub
|
|
Protected Sub LnkMostrarDTelcel_Click(sender As Object, e As EventArgs)
|
|
GVFacturasSims.CssClass = String.Format("{0} MostrarDTelcel", GVFacturasSims.CssClass.Replace(" MostrarDTelcel", ""))
|
|
End Sub
|
|
Protected Sub LnkOcultarDTelcel_Click(sender As Object, e As EventArgs)
|
|
GVFacturasSims.CssClass = GVFacturasSims.CssClass.Replace(" MostrarDTelcel", "")
|
|
End Sub
|
|
Protected Sub GVFacturasSims_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
Dim PlanImporte As Decimal = e.Row.DBCampo("PlanImporte").ToString().ToDecimal()
|
|
Dim Importe As Decimal = e.Row.DBCampo("Importe").ToString().ToDecimal()
|
|
If Importe > PlanImporte Then
|
|
e.Row.CssClass = "ImporteFail"
|
|
End If
|
|
End If
|
|
End Sub
|
|
Protected Sub LnkVerDEtalle_Click(sender As Object, e As EventArgs)
|
|
Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
LtlNumeroConceptos.Text = gvrow.DataKey("NTelefono")
|
|
Dim CveGpsFacturaSim As Integer = gvrow.DataKey("CveGpsFacturaSim").ToEntero()
|
|
Dim objgps As New ClsGPS()
|
|
objgps.GetFacturasSimsDetalle(CveGpsFacturaSim)
|
|
GVGetFacturasSimsDetalle.DataSource = objgps.DtResultados
|
|
objgps.Dispose()
|
|
GVGetFacturasSimsDetalle.DataBind()
|
|
RegistraScript("$('#DModalConceptos').modal();")
|
|
UpConceptos.Update()
|
|
End Sub
|
|
Protected Sub GVGetFacturasSimsDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.DBCampo("EsTitulo").ToString() = "1" Then
|
|
e.Row.CssClass = "Titulo"
|
|
End If
|
|
End If
|
|
End Sub
|
|
Protected Sub LnkConsultar_Click(sender As Object, e As EventArgs)
|
|
CargaFacturasSims()
|
|
End Sub
|
|
End Class
|