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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:04:25 -07:00
parent 3bc4f72658
commit e5c000432f
28 changed files with 192 additions and 279 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
AC/RegDevengadoIngresos.aspx.vb
View File

@@ -73,7 +73,7 @@ Partial Class AC_RegDevengadoIngresos
End Sub End Sub
Private Sub Limpiar() Private Sub Limpiar()
CboPresupuesto.SelectedValue = -1 CboPresupuesto.SelectedValue = "-1"
TxtImporte.Text = "" TxtImporte.Text = ""
TxtFecha.Text = "__/__/____" TxtFecha.Text = "__/__/____"
ChkDevengar.Checked = False ChkDevengar.Checked = False

14
AF/CatCargasCombustible.aspx.vb
View File

@@ -18,10 +18,10 @@ Partial Class AF_CatCargasCombustible
Dim ObjAF As New ClsAF() Dim ObjAF As New ClsAF()
Dim AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString Dim AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
Dim CveProveedor = If(Request("CveProveedor") IsNot Nothing AndAlso Request("CveProveedor").ToEntero() > 0, Request("CveProveedor").ToEntero(), -1).ToString Dim CveProveedor As Integer = If(Request("CveProveedor") IsNot Nothing AndAlso Request("CveProveedor").ToEntero() > 0, Request("CveProveedor").ToEntero(), -1).ToString.ToEntero
Dim CveSubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1).ToString Dim CveSubProyecto As Integer = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1).ToString.ToEntero
Dim CveTipoAF = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF").ToEntero() > 0, Request("CveTipoAF").ToEntero(), -1).ToString Dim CveTipoAF As Integer = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF").ToEntero() > 0, Request("CveTipoAF").ToEntero(), -1).ToString.ToEntero
Dim CveAF = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString Dim CveAF As Integer = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString.ToEntero
Dim FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString Dim FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString
Dim FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString Dim FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString
@@ -39,7 +39,7 @@ Partial Class AF_CatCargasCombustible
If AnioMes <> "-1" Then If AnioMes <> "-1" Then
FechaI = String.Format("01/{0}/{1}", sMes, sAnio) FechaI = String.Format("01/{0}/{1}", sMes, sAnio)
FechaF = FechaI.ToDate.LastDayOfMonth FechaF = FechaI.ToDate.LastDayOfMonth.ToShortDateString
End If End If
If ObjAF.GetCargasCombustible(CveAF, CveProveedor, CveTipoAF, CveSubProyecto, FechaI, FechaF, UsuarioActual.CveEmpresa, CveCargaCombustible:=-1) Then If ObjAF.GetCargasCombustible(CveAF, CveProveedor, CveTipoAF, CveSubProyecto, FechaI, FechaF, UsuarioActual.CveEmpresa, CveCargaCombustible:=-1) Then
@@ -75,7 +75,7 @@ Partial Class AF_CatCargasCombustible
Dim ObjAF As New ClsAF() Dim ObjAF As New ClsAF()
DdlActivoFijo.Items.Clear() DdlActivoFijo.Items.Clear()
If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, "-1", -1) Then If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "-1", -1) Then
DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlActivoFijo.DataSource = ObjAF.DtResultados DdlActivoFijo.DataSource = ObjAF.DtResultados
DdlActivoFijo.DataBind() DdlActivoFijo.DataBind()
@@ -110,7 +110,7 @@ Partial Class AF_CatCargasCombustible
FechaCarga = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtFecha.Text, TimeSelector.Hour, TimeSelector.Minute, TimeSelector.AmPm)) FechaCarga = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtFecha.Text, TimeSelector.Hour, TimeSelector.Minute, TimeSelector.AmPm))
If ObjAF.AddCargaCombustible(DdlCombustible.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, TxtFolio.Text.Trim, FechaCarga, CkhTanque.Checked, TxtCantidad.Text.ToDouble, TxtCosto.Text.ToDouble, If ObjAF.AddCargaCombustible(DdlCombustible.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, TxtFolio.Text.Trim, FechaCarga, If(CkhTanque.Checked, 1, 0), TxtCantidad.Text.ToDouble, TxtCosto.Text.ToDouble,
TxtOdometro.Text.ToDouble, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then TxtOdometro.Text.ToDouble, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Alert("Se registró la carga correctamente.", TipoMensaje.MsgInformacion) Alert("Se registró la carga correctamente.", TipoMensaje.MsgInformacion)
End If End If

34
Acumuladores/CatFoliosGarantia.aspx.vb
View File

@@ -82,27 +82,8 @@ Partial Class Acumuladores_CatFoliosGarantia
UPGvFolioGarantia.DataBind() UPGvFolioGarantia.DataBind()
UpGral.Update() UpGral.Update()
'CargaGvTamanioBitacora()
End Sub End Sub
'Private Sub CargaGvTamanioBitacora()
' Dim objAcum As New ClsAcumuladores
' If objAcum.TamañoBitacoraGet(UsuarioActual.Empresa.CveEmpresa) Then
' GvBitacora.DataSource = objAcum.DtResultados
' Else
' GvBitacora.DataSource = Nothing
' End If
' objAcum.Dispose()
' UpGvBitacora.DataBind()
' UpGral.Update()
'End Sub
Protected Sub BtnAgregarFolioGarantia_Click(sender As Object, e As EventArgs) Handles BtnAgregarFolioGarantia.Click Protected Sub BtnAgregarFolioGarantia_Click(sender As Object, e As EventArgs) Handles BtnAgregarFolioGarantia.Click
LtlTituloModalFolioGarantia.Text = "Agregar Folio Garantía" LtlTituloModalFolioGarantia.Text = "Agregar Folio Garantía"
BtnAgregarFolioGarantiaModal.Text = "Agregar" BtnAgregarFolioGarantiaModal.Text = "Agregar"
@@ -180,8 +161,7 @@ Partial Class Acumuladores_CatFoliosGarantia
Public Sub Remove_ClickFolioGarantia(sender As Object, e As EventArgs) Public Sub Remove_ClickFolioGarantia(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0 Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia").ToEntero
Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia")
Dim objAcum As New ClsAcumuladores Dim objAcum As New ClsAcumuladores
If objAcum.FoliosGarantiaRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then If objAcum.FoliosGarantiaRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
@@ -199,12 +179,9 @@ Partial Class Acumuladores_CatFoliosGarantia
Public Sub Edit_ClickFolioGarantia(sender As Object, e As EventArgs) Public Sub Edit_ClickFolioGarantia(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
LtlTituloModalFolioGarantia.Text = "Editar Folio Garantía" LtlTituloModalFolioGarantia.Text = "Editar Folio Garantía"
Actualizar = True Actualizar = True
CveFolioGarantia = GvRow.DataKey("CveFolioGarantia").ToEntero
CveFolioGarantia = GvRow.DataKey("CveFolioGarantia")
TxtFolioGarantia.Text = GvRow.DataKey("FolioGarantia") TxtFolioGarantia.Text = GvRow.DataKey("FolioGarantia")
DdlEstatusEditar.SelectedValueExist(GvRow.DataKey("CveEstatus")) DdlEstatusEditar.SelectedValueExist(GvRow.DataKey("CveEstatus"))
@@ -233,8 +210,8 @@ Partial Class Acumuladores_CatFoliosGarantia
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveFolioGarantia = GvRow.DataKey("CveFolioGarantia") CveFolioGarantia = GvRow.DataKey("CveFolioGarantia").ToEntero
CveMovimiento = IIf(GvRow.DataKey("CveMovimiento") <> "", GvRow.DataKey("CveMovimiento"), -1) CveMovimiento = If(GvRow.DataKey("CveMovimiento") <> "", GvRow.DataKey("CveMovimiento").ToEntero, -1)
LblFolio.Text = GvRow.DataKey("FolioGarantia") LblFolio.Text = GvRow.DataKey("FolioGarantia")
Using ObjAcum As New ClsAcumuladores Using ObjAcum As New ClsAcumuladores
@@ -252,9 +229,6 @@ Partial Class Acumuladores_CatFoliosGarantia
End Sub End Sub
#End Region #End Region
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)

15
Acumuladores/CatGarantiasMeses.aspx.vb
View File

@@ -91,10 +91,10 @@ Partial Class Acumuladores_CatFoliosGarantia
BtnAgregarFolioGarantiaModal.Text = "Agregar" BtnAgregarFolioGarantiaModal.Text = "Agregar"
CargaCombosModal() CargaCombosModal()
If DdlMarca.SelectedValue <> -1 Then DdlMarcaM.SelectedValueExist(DdlMarca.SelectedValue.ToEntero) If DdlMarca.SelectedValue <> "-1" Then DdlMarcaM.SelectedValueExist(DdlMarca.SelectedValue.ToEntero)
If DdlTipoUso.SelectedValue <> -1 Then DdlTipoUsoM.SelectedValueExist(DdlTipoUso.SelectedValue.ToEntero) If DdlTipoUso.SelectedValue <> "-1" Then DdlTipoUsoM.SelectedValueExist(DdlTipoUso.SelectedValue.ToEntero)
TxtMes.Text = TxtMes.Text.ToEntero + 1 TxtMes.Text = (TxtMes.Text.ToEntero + 1).ToString
TxtValor.Text = "" TxtValor.Text = ""
TxtMes.Focus() TxtMes.Focus()
@@ -128,7 +128,7 @@ Partial Class Acumuladores_CatFoliosGarantia
If Not Actualizar Then If Not Actualizar Then
If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TxtMes.Text = TxtMes.Text.ToEntero + 1 TxtMes.Text = (TxtMes.Text.ToEntero + 1).ToString
TxtValor.Text = "" TxtValor.Text = ""
TxtMes.Focus() TxtMes.Focus()
@@ -180,8 +180,7 @@ Partial Class Acumuladores_CatFoliosGarantia
Dim objAcum As New ClsAcumuladores Dim objAcum As New ClsAcumuladores
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0 Dim CveCapacitador As Integer = GvRow.DataKey("CveGarantiaMes").ToEntero
Dim CveCapacitador As Integer = GvRow.DataKey("CveGarantiaMes")
If objAcum.GarantiasMesesRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then If objAcum.GarantiasMesesRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
CargadatosGvFolioGarantia() CargadatosGvFolioGarantia()
@@ -202,12 +201,10 @@ Partial Class Acumuladores_CatFoliosGarantia
Public Sub Edit_ClickFolioGarantia(sender As Object, e As EventArgs) Public Sub Edit_ClickFolioGarantia(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
LtlTituloModalFolioGarantia.Text = "Editar Garantía de Mes" LtlTituloModalFolioGarantia.Text = "Editar Garantía de Mes"
Actualizar = True Actualizar = True
CveGarantiaMes = GvRow.DataKey("CveGarantiaMes").ToEntero
CveGarantiaMes = GvRow.DataKey("CveGarantiaMes")
TxtMes.Text = GvRow.DataKey("Mes") TxtMes.Text = GvRow.DataKey("Mes")
TxtValor.Text = GvRow.DataKey("Valor") TxtValor.Text = GvRow.DataKey("Valor")

6
Acumuladores/CatTiposDefecto.aspx.vb
View File

@@ -169,8 +169,7 @@ Partial Class Acumuladores_CatTiposDefecto
Dim objAcum As New ClsAcumuladores Dim objAcum As New ClsAcumuladores
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0 Dim CveCapacitador As Integer = GvRow.DataKey("CveTipoDefecto").ToEntero
Dim CveCapacitador As Integer = GvRow.DataKey("CveTipoDefecto")
If objAcum.TiposDefectoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then If objAcum.TiposDefectoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
CargadatosGvTiposD() CargadatosGvTiposD()
@@ -192,12 +191,11 @@ Partial Class Acumuladores_CatTiposDefecto
Public Sub Edit_ClickTiposD(sender As Object, e As EventArgs) Public Sub Edit_ClickTiposD(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
LtlTituloModalTiposD.Text = "Editar Tipo Defecto" LtlTituloModalTiposD.Text = "Editar Tipo Defecto"
Actualizar = True Actualizar = True
CveTipoDefecto = GvRow.DataKey("CveTipoDefecto") CveTipoDefecto = GvRow.DataKey("CveTipoDefecto").ToEntero
TxtTiposD.Text = GvRow.DataKey("TipoDefecto") TxtTiposD.Text = GvRow.DataKey("TipoDefecto")
ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)

11
Acumuladores/CatTiposUso.aspx.vb
View File

@@ -170,8 +170,7 @@ Partial Class Acumuladores_CatTiposUso
Dim objAcum As New ClsAcumuladores Dim objAcum As New ClsAcumuladores
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0 Dim CveCapacitador As Integer = GvRow.DataKey("CveTipoUso").ToEntero
Dim CveCapacitador As Integer = GvRow.DataKey("CveTipoUso")
If objAcum.TiposUsoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then If objAcum.TiposUsoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
CargadatosGvTiposUso() CargadatosGvTiposUso()
@@ -193,12 +192,10 @@ Partial Class Acumuladores_CatTiposUso
Public Sub Edit_ClickTiposUso(sender As Object, e As EventArgs) Public Sub Edit_ClickTiposUso(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
LtlTituloModalTiposUso.Text = "Editar Tipo Uso" LtlTituloModalTiposUso.Text = "Editar Tipo Uso"
Actualizar = True Actualizar = True
CveTipoUso = GvRow.DataKey("CveTipoUso") CveTipoUso = GvRow.DataKey("CveTipoUso").ToEntero
TxtTiposUso.Text = GvRow.DataKey("TipoUso") TxtTiposUso.Text = GvRow.DataKey("TipoUso")
ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
@@ -216,10 +213,6 @@ Partial Class Acumuladores_CatTiposUso
End Sub End Sub
#End Region #End Region
End Class End Class

21
Acumuladores/EntradasUsadosResumenRep.aspx.vb
View File

@@ -22,8 +22,8 @@ Partial Class Acumuladores_RepEntradasUsados
Protected Sub Page_Load() Handles Me.Load Protected Sub Page_Load() Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
txtFechaI.Text = Today.AddDays((-1) * (Today.Day - 1)) txtFechaI.Text = Today.AddDays((-1) * (Today.Day - 1)).ToShortDateString
txtFechaF.Text = Today txtFechaF.Text = Today.ToShortDateString
CargarDatos() CargarDatos()
CargarCombos() CargarCombos()
End If End If
@@ -40,14 +40,14 @@ Partial Class Acumuladores_RepEntradasUsados
Dim i As Integer Dim i As Integer
If Cargado = 0 Then If Cargado = 0 Then
For i = Date.Now.Year.ToEntero To (fecha.Year.ToEntero - 5) Step -1 For i = Date.Now.Year.ToEntero To (fecha.Year.ToEntero - 5) Step -1
Años = New ListItem(i, i) Años = New ListItem(i.ToString, i.ToString)
DdlAño.Items.Add(Años) DdlAño.Items.Add(Años)
Next Next
End If End If
Cargado = 1 Cargado = 1
DdlAño.SelectedValue = fecha.Year.ToEntero DdlAño.SelectedValue = fecha.Year.ToString
DdlMes.SelectedValue = fecha.Month.ToEntero DdlMes.SelectedValue = fecha.Month.ToString
End Sub End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
@@ -55,7 +55,7 @@ Partial Class Acumuladores_RepEntradasUsados
BtnImprimir.Visible = False BtnImprimir.Visible = False
If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate) Then
GvAcum.DataSource = ObjAcum.DtResultados GvAcum.DataSource = ObjAcum.DtResultados
DatosEntradasUsados = ObjAcum.DtResultados DatosEntradasUsados = ObjAcum.DtResultados
@@ -115,10 +115,10 @@ Partial Class Acumuladores_RepEntradasUsados
Dim dt As DataTable Dim dt As DataTable
Dim NombreArchivo As String Dim NombreArchivo As String
Try Try
If DdlOpcion.SelectedValue = 1 Then If DdlOpcion.SelectedValue = "1" Then
ObjAcum.GetSabanaVenta(Fecha, 1, UsuarioActual.CveEmpresa) ObjAcum.GetSabanaVenta(Fecha, 1, UsuarioActual.CveEmpresa)
ElseIf DdlOpcion.SelectedValue = 2 Then ElseIf DdlOpcion.SelectedValue = "2" Then
ObjAcum.GetSabanaVenta(Fecha, 2, UsuarioActual.CveEmpresa) ObjAcum.GetSabanaVenta(Fecha, 2, UsuarioActual.CveEmpresa)
End If End If
@@ -151,12 +151,11 @@ Partial Class Acumuladores_RepEntradasUsados
If Mes.ToEntero < 10 Then If Mes.ToEntero < 10 Then
Mes = String.Format("0{0}", Mes) Mes = String.Format("0{0}", Mes)
End If End If
If DdlOpcion.SelectedValue = 1 Then If DdlOpcion.SelectedValue = "1" Then
NombreArchivo = String.Format("700415-{0}{1}-GE", Mes, Año) NombreArchivo = String.Format("700415-{0}{1}-GE", Mes, Año)
workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault) workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)
ElseIf DdlOpcion.SelectedValue = "2" Then
ElseIf DdlOpcion.SelectedValue = 2 Then
NombreArchivo = String.Format("700415-{0}{1}-CS", Mes, Año) NombreArchivo = String.Format("700415-{0}{1}-CS", Mes, Año)
workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault) workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)

6
Acumuladores/RepEntradasUsadosClientes.aspx.vb
View File

@@ -36,8 +36,8 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
DdlAlmacen.DataBind() DdlAlmacen.DataBind()
DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
TxtFechaI.text = now.Firstdayofmonth TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
txtfechaf.text = now.toshortdatestring TxtFechaF.text = now.toshortdatestring
End Sub End Sub
@@ -152,7 +152,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
LbTam.Text = renglon.DataKey("Codigo_Clientes") LbTam.Text = renglon.DataKey("Codigo_Clientes")
Dim CveAlmacen As Integer = -1 Dim CveAlmacen As Integer = -1
Dim ObjAcum As New ClsAcumuladores Dim ObjAcum As New ClsAcumuladores
If ObjAcum.EntradasUsadosClientesDetalleRep(renglon.DataKey("EsDistribuidor"), renglon.DataKey("CveCliente"), renglon.DataKey("CvePS"), TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, CveAlmacen, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjAcum.EntradasUsadosClientesDetalleRep(CBool(renglon.DataKey("EsDistribuidor")), renglon.DataKey("CveCliente").ToEntero, renglon.DataKey("CvePS").ToEntero, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, CveAlmacen, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
GvVentas.DataSource = ObjAcum.DtResultados GvVentas.DataSource = ObjAcum.DtResultados
End If End If
ObjAcum.Dispose() ObjAcum.Dispose()

10
Acumuladores/Tamaños.aspx.vb
View File

@@ -114,7 +114,6 @@ Partial Class Acumuladores_Tamaños
Protected Sub BtnAgregarTamanioModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarTamanioModal.Click Protected Sub BtnAgregarTamanioModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarTamanioModal.Click
Dim ObjAcum As New ClsAcumuladores Dim ObjAcum As New ClsAcumuladores
Dim Cargo, Bonificacion, Compra, Puntos As Decimal Dim Cargo, Bonificacion, Compra, Puntos As Decimal
Cargo = If(TxtCargo.Text.ToDecimal > 0, TxtCargo.Text.ToDecimal, -1) Cargo = If(TxtCargo.Text.ToDecimal > 0, TxtCargo.Text.ToDecimal, -1)
@@ -123,8 +122,6 @@ Partial Class Acumuladores_Tamaños
Puntos = If(TxtPuntos.Text.ToDecimal > 0, TxtPuntos.Text.ToDecimal, -1) Puntos = If(TxtPuntos.Text.ToDecimal > 0, TxtPuntos.Text.ToDecimal, -1)
If Not Actualizar Then If Not Actualizar Then
If ObjAcum.TamañoAdd(TxtTamanio.Text, Cargo, Bonificacion, Compra, Puntos, DdlPS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjAcum.TamañoAdd(TxtTamanio.Text, Cargo, Bonificacion, Compra, Puntos, DdlPS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
@@ -175,8 +172,8 @@ Partial Class Acumuladores_Tamaños
Dim objAcum As New ClsAcumuladores Dim objAcum As New ClsAcumuladores
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0 Dim activo As Boolean = False
Dim CveCapacitador As Integer = GvRow.DataKey("CveTamaño") Dim CveCapacitador As Integer = GvRow.DataKey("CveTamaño").ToEntero
If objAcum.TamañoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then If objAcum.TamañoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
CargadatosGvTamanio() CargadatosGvTamanio()
@@ -197,12 +194,11 @@ Partial Class Acumuladores_Tamaños
Public Sub Edit_ClickTamanio(sender As Object, e As EventArgs) Public Sub Edit_ClickTamanio(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
LtlTituloModalTamanio.Text = "Editar Tamaño" LtlTituloModalTamanio.Text = "Editar Tamaño"
Actualizar = True Actualizar = True
CveTamaño = GvRow.DataKey("CveTamaño") CveTamaño = GvRow.DataKey("CveTamaño").ToEntero
TxtTamanio.Text = GvRow.DataKey("Tamaño") TxtTamanio.Text = GvRow.DataKey("Tamaño")
TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00") TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00")

4
Agropecuaria/CierreCultivo.aspx.vb
View File

@@ -175,12 +175,12 @@ Partial Class Agrupecuaria_CierreCultivo
Dim CveConceptoTotal As Integer = 69 Dim CveConceptoTotal As Integer = 69
If CveClasificacion > 0 Then If CveClasificacion > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, ImporteMovimiento, ImporteMovimiento, CveConceptoClasificaiones, Clasificacion, Clasificacion, CvePrePolizaOriginal:=CvePrePoliza, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMovimiento, CveConceptoClasificaiones, Clasificacion, Clasificacion, CvePrePolizaOriginal:=CvePrePoliza, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion) Then
ErrorProceso = True ErrorProceso = True
Exit For Exit For
End If End If
Else Else
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 0, ImporteCierre, ImporteCierre, 69, ConceptoTotales, ConceptoTotales, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionTotalitaria) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteCierre, ImporteCierre, 69, ConceptoTotales, ConceptoTotales, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionTotalitaria) Then
ErrorProceso = True ErrorProceso = True
Exit For Exit For
End If End If

4
Ashx/E140.ashx
View File

@@ -132,9 +132,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
Dim CorreoSupervisor As String = dRow("Correo").ToString() Dim CorreoSupervisor As String = dRow("Correo").ToString()
Dim Sucursal As String = dRow("Sucursal").ToString Dim Sucursal As String = dRow("Sucursal").ToString
Dim Vendedor As String = dRow("Nombre").ToString() Dim Vendedor As String = dRow("Nombre").ToString()
Dim CveSubProyecto As Integer = dRow("CveSubProyecto").ToString() Dim CveSubProyecto As Integer = dRow("CveSubProyecto").ToString.ToEntero
CorreoSupervisor = "oscar.irigoyen@adssistemas.mx;rene.molina@adssistemas.mx" CorreoSupervisor = "oscar.irigoyen@adssistemas.mx;rene.molina@adssistemas.mx"
Dim ObjGen = New ClsVentas Dim ObjGen = New ClsVentas

6
Ashx/E48.ashx
View File

@@ -71,10 +71,10 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
RespuestaError.Message = "Ocurrió un error al obtener el cuerpo de los parametros" RespuestaError.Message = "Ocurrió un error al obtener el cuerpo de los parametros"
End If End If
If Not TieneError AndAlso Not String.IsNullOrEmpty(JsonRequest("fecha")) Then If Not TieneError AndAlso Not String.IsNullOrEmpty(JsonRequest("fecha").ToString) Then
Dim ObjContaAC As ClsContPAQi = Nothing Dim ObjContaAC As ClsContPAQi = Nothing
Dim observaciones As String = IIf(JsonRequest("observaciones").ToString() <> "", JsonRequest("observaciones").ToString(), "Salida Almacen") Dim observaciones As String = If(JsonRequest("observaciones").ToString() <> "", JsonRequest("observaciones").ToString(), "Salida Almacen")
Dim IDPoliza As Integer = 0 Dim IDPoliza As Integer = 0
Dim usuario As String = JsonRequest("usuario").ToString() Dim usuario As String = JsonRequest("usuario").ToString()
@@ -311,7 +311,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
Else Else
context.Response.StatusCode = 200 context.Response.StatusCode = 200
Respuesta.Message = "La salida se registró correctamente" Respuesta.Message = "La salida se registró correctamente"
Respuesta.Folio = folioSalida Respuesta.Folio = FolioSalida.ToString
retorno = JsonConvert.SerializeObject(Respuesta).ToString retorno = JsonConvert.SerializeObject(Respuesta).ToString

2
Ashx/E72.ashx
View File

@@ -131,7 +131,7 @@ Public Class E72 : Implements IHttpHandler, IRequiresSessionState
Return retorno Return retorno
End Function End Function
Private Function CreaDT() Private Function CreaDT() As DataTable
Dim DtMovimientos As DataTable = New DataTable("Productos") Dim DtMovimientos As DataTable = New DataTable("Productos")
With DtMovimientos.Columns With DtMovimientos.Columns
.Add("Codigo", Type.GetType("System.String")) .Add("Codigo", Type.GetType("System.String"))

6
Ashx/MHRedes.ashx
View File

@@ -20,15 +20,15 @@ Public Class MobileHandler : Implements IHttpHandler
Case "ValidaUsuario" Case "ValidaUsuario"
ValidaUsuario() ValidaUsuario()
Case "Simpatizantes" Case "Simpatizantes"
If IfNull(Contexto.Request("Agrupador"), "0") <> "0" Then If IfNull(Contexto.Request("Agrupador"), "0").ToString <> "0" Then
RepSimpatizantes(IfNull(Contexto.Request("Agrupador"), "0").ToString.ToEntero, 41) RepSimpatizantes(IfNull(Contexto.Request("Agrupador"), "0").ToString.ToEntero, 41)
End If End If
Case "Metas" Case "Metas"
If IfNull(Contexto.Request("Agrupador"), "0") <> "0" Then If IfNull(Contexto.Request("Agrupador"), "0").ToString <> "0" Then
RepMetas(IfNull(Contexto.Request("Agrupador"), "0").ToString.ToEntero, 41) RepMetas(IfNull(Contexto.Request("Agrupador"), "0").ToString.ToEntero, 41)
End If End If
Case "Actividades" Case "Actividades"
If IfNull(Contexto.Request("Agrupador"), "0") <> "0" Then If IfNull(Contexto.Request("Agrupador"), "0").ToString <> "0" Then
RepActividadesRecientes(41) RepActividadesRecientes(41)
End If End If

14
Ashx/SIGFacturacion.ashx
View File

@@ -31,7 +31,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
pFechaF = context.Request("FechaF") pFechaF = context.Request("FechaF")
End If End If
Retorno = IniciaFacturacionMasiva(CveEmpresaFacturar, pFechaI, pFechaF) Retorno = IniciaFacturacionMasiva(CveEmpresaFacturar.ToString, pFechaI, pFechaF)
End If End If
Catch ex As Exception Catch ex As Exception
@@ -180,7 +180,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Dim DTRemisiones As DataTable = Nothing Dim DTRemisiones As DataTable = Nothing
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetRemisionesSinFacturar(FechaI, FechaF, CveCliente, -1, 1, -1) Then If ObjVentas.GetRemisionesSinFacturar(FechaI.ToShortDateString, FechaF.ToShortDateString, CveCliente, -1, 1, -1) Then
DTRemisiones = ObjVentas.DtResultados.FiltraParametros("CveContrato = 0") DTRemisiones = ObjVentas.DtResultados.FiltraParametros("CveContrato = 0")
End If End If
ObjVentas.Dispose() ObjVentas.Dispose()
@@ -388,7 +388,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
ObjFactura.DtPromociones = ObjVentas.DtResultados.Copy() ObjFactura.DtPromociones = ObjVentas.DtResultados.Copy()
End If End If
If ObjVentas.GetRemisionesSinFacturar(FechaI, FechaF, CveCliente, -1, 1, -1) Then If ObjVentas.GetRemisionesSinFacturar(FechaI.ToShortDateString, FechaF.ToShortDateString, CveCliente, -1, 1, -1) Then
ObjFactura.DtRemisiones = ObjVentas.DtResultados.FiltraParametros("CveContrato = 0") ObjFactura.DtRemisiones = ObjVentas.DtResultados.FiltraParametros("CveContrato = 0")
End If End If
@@ -400,7 +400,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
ObjFactura.ObservacionesAlmacen = DatosRemisiones("Almacen").ToString() ObjFactura.ObservacionesAlmacen = DatosRemisiones("Almacen").ToString()
For Each Venta As JObject In DatosRemisiones("Ventas") For Each Venta As JObject In DatosRemisiones("Ventas")
ObjFactura.RemisionesLista.Add(Venta("CveVenta")) ObjFactura.RemisionesLista.Add(Venta("CveVenta").ToString.ToEntero)
Next Next
ObjFactura.Timbre = PreParaTimbre(ObjFactura) ObjFactura.Timbre = PreParaTimbre(ObjFactura)
@@ -613,7 +613,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
TmpDT.Columns.Add("CveTamaño", GetType(Integer)) TmpDT.Columns.Add("CveTamaño", GetType(Integer))
Try Try
For Each Dr As DataRow In DtRemisionesPS.Select() For Each Dr As DataRow In DtRemisionesPS.Select()
Dim Row As DataRow = AgregarProductoServicio(Retorno, UsuarioActual, TmpDT, Dr("Consec").ToString.ToEntero(), Dr("Cantidad").ToString.ToDouble(), Dr("CveUM").ToString.ToEntero, Dr("UM").ToString, Dr("CveClasificacion").ToString.ToEntero, Dr("Clasificacion").ToString, Dim Row As DataRow = AgregarProductoServicio(Retorno, UsuarioActual, TmpDT, Dr("Consec").ToString.ToEntero(), Dr("Cantidad").ToString.ToDecimal(), Dr("CveUM").ToString.ToEntero, Dr("UM").ToString, Dr("CveClasificacion").ToString.ToEntero, Dr("Clasificacion").ToString,
Dr("CvePS").ToString.ToEntero, Dr("PS").ToString, Dr("Obs").ToString, Dr("PU").ToString.ToDecimal, Dr("Descuento").ToString.ToDecimal, Dr("CvePS").ToString.ToEntero, Dr("PS").ToString, Dr("Obs").ToString, Dr("PU").ToString.ToDecimal, Dr("Descuento").ToString.ToDecimal,
Dr("CveSubProyecto").ToString.ToEntero, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, Dr("CveSubProyecto").ToString.ToEntero, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero,
CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString.ToEntero, RegeneraIEPS:=True) CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString.ToEntero, RegeneraIEPS:=True)
@@ -631,7 +631,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Return TmpDT Return TmpDT
End Function End Function
Private Function AgregarProductoServicio(ByRef Retorno As Modelos.Factura.MMensajeFactura, UsuarioActual As Usuario, TmpDT As DataTable, Consec As Integer, Cantidad As Double, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, Obs As String, Private Function AgregarProductoServicio(ByRef Retorno As Modelos.Factura.MMensajeFactura, UsuarioActual As Usuario, TmpDT As DataTable, Consec As Integer, Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, Obs As String,
PU As Decimal, Descuento As Decimal, CveSubProyecto As Integer, PU As Decimal, Descuento As Decimal, CveSubProyecto As Integer,
Optional Serie As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0, Optional Serie As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
@@ -854,7 +854,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Cuerpo = Cuerpo.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial) Cuerpo = Cuerpo.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial)
Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante) Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
Cuerpo = Cuerpo.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy")) Cuerpo = Cuerpo.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy"))
Cuerpo = Cuerpo.Replace("{""Total""}", ObjFactura.Total) Cuerpo = Cuerpo.Replace("{""Total""}", ObjFactura.Total.ToString)
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy")) Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy"))
Cuerpo = Cuerpo.Replace("{""SerieFolio""}", ObjFactura.SerieFolio) Cuerpo = Cuerpo.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
End If End If

2
Ashx/SIGFacturacionCiclica.ashx
View File

@@ -291,7 +291,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
ObjFactura.CveMoneda = DR("CveMoneda").ToString.ToEntero ObjFactura.CveMoneda = DR("CveMoneda").ToString.ToEntero
ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ") ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DR("CveMoneda").ToString.ToEntero}") ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DR("CveMoneda").ToString.ToEntero}")
ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(Now)) ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(Now)).ToDecimal
ObjFactura.TipoDocto = "Ing" ObjFactura.TipoDocto = "Ing"
ObjFactura.RefDocto = "" ObjFactura.RefDocto = ""
ObjFactura.Folio = -1 ObjFactura.Folio = -1

2
Ashx/SIGGPS.ashx
View File

@@ -1,6 +1,6 @@
<%@ WebHandler Language="VB" Class="SIGGPS" %> <%@ WebHandler Language="VB" Class="SIGGPS" %>
'Option Explicit On 'Option Explicit On
'Option Strict On Option Strict Off
Imports System Imports System
Imports System.Web Imports System.Web

10
Ashx/SIGPolizaVirtual.ashx
View File

@@ -851,11 +851,11 @@ Namespace Fluent
random.NextBytes(DefaultNode) random.NextBytes(DefaultNode)
End Sub End Sub
<Extension()> '<Extension()>
Function GetVersion(ByVal guid As Guid) As GuidVersion 'Function GetVersion(ByVal guid As Guid) As GuidVersion
Dim bytes = guid.ToByteArray ' Dim bytes = guid.ToByteArray
Return ((bytes(VersionByte) And &HFF) >> VersionByteShift) ' Return ((bytes(VersionByte) And &HFF) >> VersionByteShift)
End Function 'End Function
Function GetDateTimeOffset(ByVal guid As Guid) As DateTimeOffset Function GetDateTimeOffset(ByVal guid As Guid) As DateTimeOffset
Dim bytes As Byte() = guid.ToByteArray Dim bytes As Byte() = guid.ToByteArray

35
Ashx/SIGWeb.ashx
View File

@@ -1,5 +1,5 @@
<%@ WebHandler Language="VB" Class="SIGWeb" %> <%@ WebHandler Language="VB" Class="SIGWeb" %>
Option Strict Off
Imports System.Data Imports System.Data
Imports System.IO Imports System.IO
Imports Extensiones Imports Extensiones
@@ -753,7 +753,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim ColumnaNombre As String = "NombreComercial" Dim ColumnaNombre As String = "NombreComercial"
'Abreviaturas. N. Nombre, NC. NombreComercial,... 'Abreviaturas. N. Nombre, NC. NombreComercial,...
If context.Request("ColTexto") IsNot Nothing AndAlso context.Request("ColTexto").Contiene("N", "CodigoNombre") Then If context.Request("ColTexto") IsNot Nothing AndAlso context.Request("ColTexto").Contiene("N", "CodigoNombre") Then
ColumnaNombre = IIf(context.Request("ColTexto") = "N", "Nombre", context.Request("ColTexto")) ColumnaNombre = If(context.Request("ColTexto") = "N", "Nombre", context.Request("ColTexto"))
End If End If
Dim EsDistribuidor As Integer = IfNull(context.Request("esdistribuidor"), "-1").ToString.ToEntero Dim EsDistribuidor As Integer = IfNull(context.Request("esdistribuidor"), "-1").ToString.ToEntero
@@ -761,7 +761,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim cveclienteclasificacion = IfNull(context.Request("cveclienteclasificacion"), "-1").ToString.ToEntero Dim cveclienteclasificacion = IfNull(context.Request("cveclienteclasificacion"), "-1").ToString.ToEntero
Dim usuario As Usuario = UsuarioActual(context) Dim usuario As Usuario = UsuarioActual(context)
Dim CveEmpresa As String Dim CveEmpresa As Integer
If IsNothing(usuario) Then If IsNothing(usuario) Then
context.Response.Write("") context.Response.Write("")
Else Else
@@ -810,7 +810,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim DtRetorno As DataTable = Nothing Dim DtRetorno As DataTable = Nothing
Dim usuario As Usuario = UsuarioActual(context) Dim usuario As Usuario = UsuarioActual(context)
Dim CveEmpresa As String Dim CveEmpresa As Integer
If IsNothing(usuario) Then If IsNothing(usuario) Then
context.Response.Write("") context.Response.Write("")
Else Else
@@ -853,7 +853,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Private Function getpsalmacen(ByVal context As HttpContext) As String Private Function getpsalmacen(ByVal context As HttpContext) As String
Dim usuario As Usuario = UsuarioActual(context) Dim usuario As Usuario = UsuarioActual(context)
Dim CveEmpresa As String Dim CveEmpresa As Integer
Dim retorno As String = "" Dim retorno As String = ""
Dim DtPSRetorno As DataTable = Nothing Dim DtPSRetorno As DataTable = Nothing
@@ -908,7 +908,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
' EN EL WHERE DE LINQ NO SE DEBE USAS EL OPERADOR 'AND' SABE PORQUE FUNCIONA DIFERENTE SE DEBE USAR 'ANDALSO', ' EN EL WHERE DE LINQ NO SE DEBE USAS EL OPERADOR 'AND' SABE PORQUE FUNCIONA DIFERENTE SE DEBE USAR 'ANDALSO',
' EJEMPLO UNA CONDICION AND DE DOS CAMPOS ARROJA CERO RESULTADOS PERO SI SE PONE ESTAS DOS CONDICIONES POR SEPARADO ARROJA DATOS ' EJEMPLO UNA CONDICION AND DE DOS CAMPOS ARROJA CERO RESULTADOS PERO SI SE PONE ESTAS DOS CONDICIONES POR SEPARADO ARROJA DATOS
Dim usuario As Usuario = UsuarioActual(context) Dim usuario As Usuario = UsuarioActual(context)
Dim CveEmpresa As String Dim CveEmpresa As Integer
If IsNothing(usuario) Then If IsNothing(usuario) Then
context.Response.Write("") context.Response.Write("")
Else Else
@@ -987,9 +987,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
'APLICACION DE FILTROS 'APLICACION DE FILTROS
DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
If Estatus = 1 Then If Estatus = "1" Then
DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEstado) = 1)) DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEstado) = 1))
ElseIf Estatus = -1 Then ElseIf Estatus = "-1" Then
End If End If
@@ -1314,7 +1314,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim DtPSRetorno As DataTable = Nothing Dim DtPSRetorno As DataTable = Nothing
Dim usuario As Usuario = UsuarioActual(context) Dim usuario As Usuario = UsuarioActual(context)
Dim CveEmpresa As String Dim CveEmpresa As Integer
If IsNothing(usuario) Then If IsNothing(usuario) Then
context.Response.Write("") context.Response.Write("")
Else Else
@@ -1340,9 +1340,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
'APLICACION DE FILTROS 'APLICACION DE FILTROS
DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
If Estatus = 1 Then If Estatus = "1" Then
DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEstado) = 1)) DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEstado) = 1))
ElseIf Estatus = -1 Then ElseIf Estatus = "-1" Then
End If End If
@@ -1407,7 +1407,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim DtRetorno As DataTable = Nothing Dim DtRetorno As DataTable = Nothing
Dim usuario As Usuario = UsuarioActual(context) Dim usuario As Usuario = UsuarioActual(context)
Dim CveEmpresa As String Dim CveEmpresa As Integer
If IsNothing(usuario) Then If IsNothing(usuario) Then
context.Response.Write("") context.Response.Write("")
Else Else
@@ -1530,7 +1530,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
System.IO.Directory.CreateDirectory(direct) System.IO.Directory.CreateDirectory(direct)
End If End If
Dim fileurl As String = $"{direct}{Path.GetFileName(urfile)}" Dim fileurl As String = $"{direct}{Path.GetFileName(urfile)}"
If uuid.Length Then If uuid.Length > 0 Then
fileurl = $"{direct}{uuid}{Path.GetExtension(urfile)}" fileurl = $"{direct}{uuid}{Path.GetExtension(urfile)}"
End If End If
System.IO.File.Move(urfile, fileurl) System.IO.File.Move(urfile, fileurl)
@@ -1583,7 +1583,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim DtRetorno As DataTable = Nothing Dim DtRetorno As DataTable = Nothing
Dim usuario As Usuario = UsuarioActual(context) Dim usuario As Usuario = UsuarioActual(context)
Dim CveEmpresa As String Dim CveEmpresa As Integer
If IsNothing(usuario) Then If IsNothing(usuario) Then
context.Response.Write("") context.Response.Write("")
Else Else
@@ -1667,13 +1667,6 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim TieneError = False Dim TieneError = False
CveMovimiento.ToString.GuardaLog CveMovimiento.ToString.GuardaLog
'Dim ObjConta As ClsContPAQi = Nothing
'If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
' ObjConta = New ClsContPAQi(UsuarioActual.Empresa)
' ObjConta.IniciaTransacSQL()
'End If
'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then 'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
' TieneError = True ' TieneError = True
'End If 'End If

16
Ashx/TareasProgramadas.ashx
View File

@@ -75,7 +75,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
If context.Request("var") IsNot Nothing Then If context.Request("var") IsNot Nothing Then
URLParametros = Parametros(context.Request("var")) URLParametros = Parametros(context.Request("var"))
metodo = URLParametros("metodo") metodo = URLParametros("metodo").ToString
'SI TRAE UN JSON COMO PARAMETRO 'SI TRAE UN JSON COMO PARAMETRO
ElseIf context.Request("metodo") IsNot Nothing Then ElseIf context.Request("metodo") IsNot Nothing Then
metodo = context.Request("metodo").ToString() metodo = context.Request("metodo").ToString()
@@ -106,7 +106,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
Public Sub timbrarNominab() Public Sub timbrarNominab()
Dim cveEmpresa As String = "5" Dim cveEmpresa As Integer = 5
Dim Dv As New DataView(DirectCast(currentcontext.Application("GlobalDTUsuarios"), DataTable), $"CveUsuario = 100 AND CveEmpresa ={cveEmpresa}", "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(currentcontext.Application("GlobalDTUsuarios"), DataTable), $"CveUsuario = 100 AND CveEmpresa ={cveEmpresa}", "", DataViewRowState.CurrentRows)
@@ -119,7 +119,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
If GlobalDTUsuarios.Rows.Count > 0 Then If GlobalDTUsuarios.Rows.Count > 0 Then
Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0) Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0)
Dim ObjUsuario As New ClsSisUsuarios Dim ObjUsuario As New ClsSisUsuarios
usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario"), dtrow("Contraseña"), IMEI, cveEmpresa) usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario").ToString, dtrow("Contraseña").ToString, IMEI, cveEmpresa)
ObjUsuario.Dispose() ObjUsuario.Dispose()
Dim ObjEmpresa As New ClsSisEmpresas() Dim ObjEmpresa As New ClsSisEmpresas()
@@ -217,8 +217,8 @@ Public Class TareasProgramadas : Implements IHttpHandler
Using GlobalDTUsuarios As DataTable = Dv.ToTable() Using GlobalDTUsuarios As DataTable = Dv.ToTable()
If GlobalDTUsuarios.Rows.Count > 0 Then If GlobalDTUsuarios.Rows.Count > 0 Then
Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0) Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0)
username = dtrow("Usuario") username = dtrow("Usuario").ToString
pass = dtrow("Contraseña") pass = dtrow("Contraseña").ToString
End If End If
End Using End Using
End Using End Using
@@ -260,7 +260,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
Public Function timbrarNomina() As String Public Function timbrarNomina() As String
Dim retorno As String = "" Dim retorno As String = ""
Dim cveEmpresa As String = URLParametros("CveEmpresa").ToString().ToEntero() Dim cveEmpresa As Integer = URLParametros("CveEmpresa").ToString().ToEntero()
Dim CvePeriodo As Integer = URLParametros("CvePeriodo").ToString().ToEntero() Dim CvePeriodo As Integer = URLParametros("CvePeriodo").ToString().ToEntero()
Dim CveNomina As Integer = URLParametros("CveNomina").ToString().ToEntero() Dim CveNomina As Integer = URLParametros("CveNomina").ToString().ToEntero()
@@ -1092,7 +1092,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
params.Add(New ReportParameter("pImg", "")) params.Add(New ReportParameter("pImg", ""))
End If End If
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("FechaImpresion", Today)) params.Add(New ReportParameter("FechaImpresion", Today.ToString))
params.Add(New ReportParameter("SubProyecto", UsuarioEnviar.SubProyecto)) params.Add(New ReportParameter("SubProyecto", UsuarioEnviar.SubProyecto))
params.Add(New ReportParameter("Agente", UsuarioEnviar.Agente)) params.Add(New ReportParameter("Agente", UsuarioEnviar.Agente))
@@ -1118,7 +1118,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
params.Add(New ReportParameter("pImg", "")) params.Add(New ReportParameter("pImg", ""))
End If End If
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("FechaImpresion", Today)) params.Add(New ReportParameter("FechaImpresion", Today.ToString))
params.Add(New ReportParameter("SubProyecto", "Todos")) params.Add(New ReportParameter("SubProyecto", "Todos"))
params.Add(New ReportParameter("Agente", "Todos")) params.Add(New ReportParameter("Agente", "Todos"))

21
CRM/CatMetas.aspx.vb
View File

@@ -1,6 +1,4 @@
Imports System.Data Imports Extensiones
Imports Extensiones
Partial Class CRM_CatMetas Partial Class CRM_CatMetas
Inherits ClsPaginas Inherits ClsPaginas
@@ -116,22 +114,17 @@ Partial Class CRM_CatMetas
Dim ObjCRM As New ClsCRM Dim ObjCRM As New ClsCRM
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveMeta = GvRow.DataKey("CveMeta") CveMeta = GvRow.DataKey("CveMeta").ToEntero
If ObjCRM.RemoveMetas(CveMeta, UsuarioActual.CveEmpresa) Then If ObjCRM.RemoveMetas(CveMeta, UsuarioActual.CveEmpresa) Then
CargadatosGvMeta() CargadatosGvMeta()
Alert("Meta eliminada Correctamente ", TipoMensaje.MsgInformacion) Alert("Meta eliminada Correctamente ", TipoMensaje.MsgInformacion)
Else Else
Alert("Ocurrió un error al Eliminar la Meta", TipoMensaje.MsgError) Alert("Ocurrió un error al Eliminar la Meta", TipoMensaje.MsgError)
End If End If
ObjCRM.Dispose() ObjCRM.Dispose()
CargadatosGvMeta() CargadatosGvMeta()
CveMeta = -1 CveMeta = -1
End Sub End Sub
Public Sub Edit_ClickMeta(sender As Object, e As EventArgs) Public Sub Edit_ClickMeta(sender As Object, e As EventArgs)
@@ -141,20 +134,14 @@ Partial Class CRM_CatMetas
LtlTituloModalMeta.Text = "Editar Meta" LtlTituloModalMeta.Text = "Editar Meta"
BtnAgregarMetaModal.Text = "Actualizar" BtnAgregarMetaModal.Text = "Actualizar"
Actualizar = True Actualizar = True
CveMeta = GvRow.DataKey("CveMeta").ToEntero
CveMeta = GvRow.DataKey("CveMeta")
DdlVendedor.Items.Clear() DdlVendedor.Items.Clear()
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, 1) DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, 1)
DdlVendedor.DataBind() DdlVendedor.DataBind()
DdlVendedor.SelectedValueExist(GvRow.DataKey("CveVendedor").ToEntero) DdlVendedor.SelectedValueExist(GvRow.DataKey("CveVendedor").ToEntero)
txtFechaI.Text = GvRow.DataKey("FechaI") txtFechaI.Text = GvRow.DataKey("FechaI")
txtFechaF.Text = GvRow.DataKey("FechaF") txtFechaF.Text = GvRow.DataKey("FechaF")
TxtNumMeta.Text = GvRow.DataKey("NumMeta")
TxtNumMeta.Text = GvRow.DataKey("NumMeta").ToEntero
TxtImporte.Text = GvRow.DataKey("Importe").ToDecimal.ToString("###,###,###.00") TxtImporte.Text = GvRow.DataKey("Importe").ToDecimal.ToString("###,###,###.00")
UpModalMeta.Update() UpModalMeta.Update()

24
Contratos/RepContratosObraAvances.aspx.vb
View File

@@ -36,40 +36,24 @@ Partial Class RepContratosObraAvances
GVDatos.DataBind() GVDatos.DataBind()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
Private Sub Indicadores(DTDatos As DataTable) Private Sub Indicadores(DTDatos As DataTable)
Dim NumeroContratos As Integer = DTDatos.Rows.Count Dim NumeroContratos As Integer = DTDatos.Rows.Count
'Dim TotalContratos As Decimal = DTDatos.SUM("Importe") 'Dim TotalContratos As Decimal = DTDatos.SUM("Importe")
Dim TotalContratos As Decimal = DTDatos.SUM("ImporteSubTotal") Dim TotalContratos As Decimal = DTDatos.SUMD("ImporteSubTotal")
Dim TotalAvance As Decimal = DTDatos.SUMD("AvanceImporte")
Dim TotalAvance As Decimal = DTDatos.SUM("AvanceImporte")
Dim TotalFaltante As Decimal = TotalContratos - TotalAvance Dim TotalFaltante As Decimal = TotalContratos - TotalAvance
Dim TotalAvancePorcentaje As Decimal = ((TotalAvance * 100) / TotalContratos).RoundAD(2) Dim TotalAvancePorcentaje As Decimal = ((TotalAvance * 100) / TotalContratos).RoundAD(2)
Dim TotalFaltantePorcentaje As Decimal = (100 - TotalAvancePorcentaje).RoundAD(2) Dim TotalFaltantePorcentaje As Decimal = (100 - TotalAvancePorcentaje).RoundAD(2)
LtlGrafNumeroContratos.Text = NumeroContratos.ToString LtlGrafNumeroContratos.Text = NumeroContratos.ToString
LtlGrafTotal.Text = TotalContratos.ToString("###,###,###.00") LtlGrafTotal.Text = TotalContratos.ToString("###,###,###.00")
LtlAvanceImporte.Text = $"$ {TotalAvance.ToString("###,###,###.00")}" LtlAvanceImporte.Text = $"$ {TotalAvance.ToString("###,###,###.00")}"
LtlAvanceImporteProcentaje1.Text = $"{TotalAvancePorcentaje.ToString("###.00")} %" LtlAvanceImporteProcentaje1.Text = $"{TotalAvancePorcentaje.ToString("###.00")} %"
LtlAvanceImporteProcentaje2.Text = $"{TotalAvancePorcentaje.ToString("###.00")}%" LtlAvanceImporteProcentaje2.Text = $"{TotalAvancePorcentaje.ToString("###.00")}%"
SPAvance1.Attributes.Add("style", $"width:{TotalAvancePorcentaje.ToString.ToEntero}%") SPAvance1.Attributes.Add("style", $"width:{TotalAvancePorcentaje.ToString.ToEntero}%")
LtlFaltanteImporte.Text = $"$ {TotalFaltante.ToString("###,###,###.00")}" LtlFaltanteImporte.Text = $"$ {TotalFaltante.ToString("###,###,###.00")}"
LtlFaltanteImportePorcentaje1.Text = $"{TotalFaltantePorcentaje.ToString("###.00")} %" LtlFaltanteImportePorcentaje1.Text = $"{TotalFaltantePorcentaje.ToString("###.00")} %"
LtlFaltanteImportePorcentaje2.Text = $"{TotalFaltantePorcentaje.ToString("###.00")}%" LtlFaltanteImportePorcentaje2.Text = $"{TotalFaltantePorcentaje.ToString("###.00")}%"
@@ -105,12 +89,8 @@ Partial Class RepContratosObraAvances
Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVDatos.RowDataBound Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
Dim HplContratado As HyperLink = e.Row.FCHyperLink("HplContratado") Dim HplContratado As HyperLink = e.Row.FCHyperLink("HplContratado")
HplContratado.NavigateUrl = $"./RepContratosObraAvancesDetalle.aspx?CveContrato={e.Row.DataKey("CveContrato")}&NumeroContrato={e.Row.DataKey("NumeroContrato")}" HplContratado.NavigateUrl = $"./RepContratosObraAvancesDetalle.aspx?CveContrato={e.Row.DataKey("CveContrato")}&NumeroContrato={e.Row.DataKey("NumeroContrato")}"
End If End If
End Sub End Sub

4
Contratos/RepContratosObraAvancesDetalle.aspx.vb
View File

@@ -83,7 +83,7 @@ Partial Class RepContratosObraAvancesDetalle
Private Sub Indicadores(DTDatos As DataTable, NumeroEstimaciones As Integer) Private Sub Indicadores(DTDatos As DataTable, NumeroEstimaciones As Integer)
LtlGrafNumeroEstimaciones.Text = NumeroEstimaciones LtlGrafNumeroEstimaciones.Text = NumeroEstimaciones.ToString
Dim AvanceImporte As Decimal = DTDatos(0)("AvanceImporte").ToString.ToDecimal Dim AvanceImporte As Decimal = DTDatos(0)("AvanceImporte").ToString.ToDecimal
@@ -389,7 +389,7 @@ Partial Class RepContratosObraAvancesDetalle
Dim RowH As Double = WSDetalle.Row(19).Height Dim RowH As Double = WSDetalle.Row(19).Height
For Each drowArchivos In DTArchivos.Rows For Each drowArchivos As DataRow In DTArchivos.Rows
Dim Archivo As String = drowArchivos("Archivo").ToString Dim Archivo As String = drowArchivos("Archivo").ToString
Dim RutaArchivo As String = $"{UsuarioActual.Empresa.Ruta}\Contrato\{CveContrato}\Anexos\{Archivo}" Dim RutaArchivo As String = $"{UsuarioActual.Empresa.Ruta}\Contrato\{CveContrato}\Anexos\{Archivo}"

2
General/RepIndicadorResumen.aspx.vb
View File

@@ -36,7 +36,7 @@ Partial Class General_RepIndicadorResumen
Dim Grupo As Integer = 28 'Clasificación - PS Dim Grupo As Integer = 28 'Clasificación - PS
If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1, If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1,
-1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:="Ing", TipoCambio:=1) Then -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:="Ing,Dev", TipoCambio:=1) Then
GvVxP.DataSource = ObjVentas.DtResultados GvVxP.DataSource = ObjVentas.DtResultados
End If End If

28
asmx/WSApp.asmx
View File

@@ -390,7 +390,7 @@ Public Class WSApp
If Not Retorno.TieneError Then If Not Retorno.TieneError Then
Dim DtInv As DataTable = Nothing Dim DtInv As DataTable = Nothing
Dim ObjInv As New ClsInventarios() Dim ObjInv As New ClsInventarios()
ObjInv.GetMovimientos(-1, -1, "-1", UsuarioActual.CveEmpresa) ObjInv.GetMovimientos(-1, -1, -1, UsuarioActual.CveEmpresa)
If ObjInv.DtResultados.Rows.Count > 0 Then If ObjInv.DtResultados.Rows.Count > 0 Then
DtInv = ObjInv.DtResultados.FiltraParametros($"CveVenta = {CveVenta}") DtInv = ObjInv.DtResultados.FiltraParametros($"CveVenta = {CveVenta}")
ObjInv.Dispose() ObjInv.Dispose()
@@ -578,22 +578,22 @@ Public Class WSApp
If ObjFolios.GetFolios("Rem", UsuarioActual.CveEmpresa) Then If ObjFolios.GetFolios("Rem", UsuarioActual.CveEmpresa) Then
Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0} And Estado = 'Activo'", CveSubProyecto)) Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0} And Estado = 'Activo'", CveSubProyecto))
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
ObjFactura.Folio = DT.Rows(0)("FActual").ToString ObjFactura.Folio = DT.Rows(0)("FActual").ToString.ToEntero
ObjFactura.Serie = DT.Rows(0)("Serie").ToString ObjFactura.Serie = DT.Rows(0)("Serie").ToString
End If End If
DT.Dispose() DT.Dispose()
End If End If
ObjFolios.Dispose() ObjFolios.Dispose()
If Not String.IsNullOrEmpty(ObjFactura.Folio) Then If Not String.IsNullOrEmpty(ObjFactura.Folio.ToString) Then
Select Case CveMoneda Select Case CveMoneda
Case 1 Case 1
ObjFactura.TipoCambio = "1" ObjFactura.TipoCambio = 1
Case 2 Case 2
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToString ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToDecimal
Case Else Case Else
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToString ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToDecimal
End Select End Select
ObjFactura.CveVendedor = -1 ObjFactura.CveVendedor = -1
@@ -922,7 +922,7 @@ Public Class WSApp
Row("CvePS") = PS.CvePS Row("CvePS") = PS.CvePS
Row("Obs") = PS.Obs Row("Obs") = PS.Obs
TotalCalculableImpuestos = (PS.Cantidad.Value * PS.Precio) - PS.Descuento TotalCalculableImpuestos = (PS.Cantidad * PS.Precio) - PS.Descuento
Row("PU") = PS.Precio Row("PU") = PS.Precio
Row("Codigo") = DrPS("Codigo") Row("Codigo") = DrPS("Codigo")
@@ -955,8 +955,8 @@ Public Class WSApp
Row("Descuento") = Math.Round(PS.Descuento, 2) Row("Descuento") = Math.Round(PS.Descuento, 2)
Row("TipoDescuento") = "2" Row("TipoDescuento") = "2"
Row("Total") = (PS.Cantidad.Value * PS.Precio) Row("Total") = (PS.Cantidad * PS.Precio)
Row("TotalImporte") = Math.Round(PS.Cantidad.Value * PS.Precio, 2) Row("TotalImporte") = Math.Round(PS.Cantidad * PS.Precio, 2)
Row("SATClaveProdServ") = DrPS("SATClavePS") Row("SATClaveProdServ") = DrPS("SATClavePS")
Row("SATClaveUM") = DrPS("SATClaveUnidadMedida") Row("SATClaveUM") = DrPS("SATClaveUnidadMedida")
@@ -1088,8 +1088,8 @@ Namespace WebServiceAppModels2
Public Property CveUsuario As Integer Public Property CveUsuario As Integer
Public Property Usuario As String Public Property Usuario As String
Public Property CveEmpresa As Integer Public Property CveEmpresa As Integer
Public Property CveCliente As String Public Property CveCliente As Integer
Public Property CvePrecioLista As String Public Property CvePrecioLista As Integer
Public Property Procesos As List(Of String) Public Property Procesos As List(Of String)
Public Property Empresa As String Public Property Empresa As String
Public Property Cliente As String Public Property Cliente As String
@@ -1712,11 +1712,11 @@ Namespace WebServiceAppModels2
Public Class MVentaProductos Public Class MVentaProductos
Public Property CvePS As Integer Public Property CvePS As Integer
Public Property Cantidad As Double? Public Property Cantidad As Decimal = 0
Public Property Obs As String Public Property Obs As String
Public Property PS As String Public Property PS As String
Public Property Precio As Double Public Property Precio As Decimal
Public Property Descuento As Double Public Property Descuento As Decimal
End Class End Class
Public Class MMessage Public Class MMessage

48
asmx/WSSIGApp.asmx
View File

@@ -1,5 +1,5 @@
<%@ WebService Language="VB" Class="WSSIGApp" %> <%@ WebService Language="VB" Class="WSSIGApp" %>
Option Strict Off
Option Explicit On Option Explicit On
Imports System.Data Imports System.Data
@@ -1023,7 +1023,8 @@ Public Class WSSIGApp
Dim IdPoliza = -1 Dim IdPoliza = -1
If RequiereCotizacion Then If RequiereCotizacion Then
Dim CveProveedor = -1 Dim CveProveedor = -1
Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0, PorIVA = 0.0, Porcentaje = 0.0 Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0
Dim PorIVA As Decimal = 0, Porcentaje = 0.0
For Each dr As DataRow In DtDetalle.FiltraParametros("", "CveProveedor").Rows For Each dr As DataRow In DtDetalle.FiltraParametros("", "CveProveedor").Rows
@@ -1034,7 +1035,7 @@ Public Class WSSIGApp
CveProveedor = dr("CveProveedor").ToString.ToEntero CveProveedor = dr("CveProveedor").ToString.ToEntero
Porcentaje = DtDetalle.SUM("Total", String.Format("CveProveedor = {0}", CveProveedor)) / DtDetalle.SUM("Total") Porcentaje = DtDetalle.SUM("Total", String.Format("CveProveedor = {0}", CveProveedor)) / DtDetalle.SUM("Total")
PorIVA = GlobalDTCompProveedores(CveEmpresa).FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)).Rows(0)("IVA").ToString.ToDouble PorIVA = GlobalDTCompProveedores(CveEmpresa).FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)).Rows(0)("IVA").ToString.ToDecimal
IVACot = (DtDetalle.SUM("Total", String.Format("CveProveedor = {0}", CveProveedor)) * PorIVA).ToString.ToDecimal IVACot = (DtDetalle.SUM("Total", String.Format("CveProveedor = {0}", CveProveedor)) * PorIVA).ToString.ToDecimal
RetIVA = DrOC("RetIVA").ToString().ToDecimal * Porcentaje RetIVA = DrOC("RetIVA").ToString().ToDecimal * Porcentaje
RetISR = DrOC("RetISR").ToString().ToDecimal * Porcentaje RetISR = DrOC("RetISR").ToString().ToDecimal * Porcentaje
@@ -1061,7 +1062,7 @@ Public Class WSSIGApp
End If End If
'AGREGA DETALLES 'AGREGA DETALLES
If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, CveUsuarioActual, CveOrdenCompra, CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble) Then If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDecimal(), dr("CveUnidadMedida").ToString.ToEntero, dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDecimal, dr("CveSubProyecto").ToString.ToEntero(), dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, CveUsuarioActual, CveOrdenCompra, CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDecimal) Then
HuboError = True HuboError = True
Exit For Exit For
End If End If
@@ -1071,7 +1072,7 @@ Public Class WSSIGApp
Dim CveProveedor As Integer = DrOC("CveProveedor").ToString.ToEntero Dim CveProveedor As Integer = DrOC("CveProveedor").ToString.ToEntero
Dim RetIVA = DrOC("RetIVA").ToString().ToDecimal Dim RetIVA = DrOC("RetIVA").ToString().ToDecimal
Dim RetISR = DrOC("RetISR").ToString().ToDecimal Dim RetISR = DrOC("RetISR").ToString().ToDecimal
Dim PorcentajeIVA As Double = DrOC("PorcentajeIVA").ToString().ToDouble Dim PorcentajeIVA As Decimal = DrOC("PorcentajeIVA").ToString().ToDecimal
If objOrdenCompra.AddOrdenCompra("OC", -1, Descripcion, Justificacion, Prioridad, Fecha, CveMoneda, CveEstatusInicialOC, FechaEstimadaEntrega, LugarEntrega, If objOrdenCompra.AddOrdenCompra("OC", -1, Descripcion, Justificacion, Prioridad, Fecha, CveMoneda, CveEstatusInicialOC, FechaEstimadaEntrega, LugarEntrega,
CveUsuario, CveEmpresaActual, 0, CveProveedor, CveCliente:=CveCliente, CveVendedor:=CveVendedor, PrioridadObservacion:=PrioridadObservacion, CveUsuario, CveEmpresaActual, 0, CveProveedor, CveCliente:=CveCliente, CveVendedor:=CveVendedor, PrioridadObservacion:=PrioridadObservacion,
PorcentajeIVA:=PorcentajeIVA, IVA:=IVA, RetIVA:=RetIVA, RetISR:=RetISR, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=FolioAdicional, PorcentajeIVA:=PorcentajeIVA, IVA:=IVA, RetIVA:=RetIVA, RetISR:=RetISR, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=FolioAdicional,
@@ -1090,7 +1091,7 @@ Public Class WSSIGApp
'TERMINA: USA AC 'TERMINA: USA AC
If Not HuboError Then If Not HuboError Then
For Each dr As DataRow In DtDetalle.Rows For Each dr As DataRow In DtDetalle.Rows
If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, CveUsuarioActual, CveOrdenCompra, CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble) Then If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDecimal(), dr("CveUnidadMedida").ToString.ToEntero, dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDecimal, dr("CveSubProyecto").ToString.ToEntero(), dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, CveUsuarioActual, CveOrdenCompra, CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDecimal) Then
HuboError = True HuboError = True
Exit For Exit For
End If End If
@@ -1780,7 +1781,7 @@ Public Class WSSIGApp
ObjEmpresa.Dispose() ObjEmpresa.Dispose()
End Sub End Sub
<WebMethod> <WebMethod>
Public Function AddVentas(TipoDocto As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuario As Integer, SubTotal As Double, IVA As Double, CveMoneda As Integer, Observaciones As String, Productos As String) As String Public Function AddVentas(TipoDocto As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuario As Integer, SubTotal As Decimal, IVA As Decimal, CveMoneda As Integer, Observaciones As String, Productos As String) As String
Dim Retorno = New Modelos.Factura.MMensajeFactura() Dim Retorno = New Modelos.Factura.MMensajeFactura()
Try Try
Dim ObjUsuarios As New ClsSisUsuarios() Dim ObjUsuarios As New ClsSisUsuarios()
@@ -1820,7 +1821,7 @@ Public Class WSSIGApp
Return JsonConvert.SerializeObject(Retorno) Return JsonConvert.SerializeObject(Retorno)
End Function End Function
#Region "F A C T U R A C I O N" #Region "F A C T U R A C I O N"
Private Function CreaFactura(TipoDocto As String, SubTotal As Double, IVA As Double, CveCliente As Integer, CveSubProyecto As Integer, CveMoneda As Integer, UsuarioActual As Usuario, ListaPS As List(Of MVentaProductos)) As Modelos.Factura Private Function CreaFactura(TipoDocto As String, SubTotal As Decimal, IVA As Decimal, CveCliente As Integer, CveSubProyecto As Integer, CveMoneda As Integer, UsuarioActual As Usuario, ListaPS As List(Of MVentaProductos)) As Modelos.Factura
If CveSubProyecto <= 0 Then If CveSubProyecto <= 0 Then
'SE ASIGNA EL SUBPROYECTO MATRIZ, EN CASO DE NO ENCONTRARSE SE LE ASIGNA CUALQUIERA 'SE ASIGNA EL SUBPROYECTO MATRIZ, EN CASO DE NO ENCONTRARSE SE LE ASIGNA CUALQUIERA
Dim Dr As DataRow = Nothing Dim Dr As DataRow = Nothing
@@ -1846,22 +1847,22 @@ Public Class WSSIGApp
If ObjFolios.GetFolios(TipoDocto, UsuarioActual.CveEmpresa) Then If ObjFolios.GetFolios(TipoDocto, UsuarioActual.CveEmpresa) Then
Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0} And Estado = 'Activo'", CveSubProyecto)) Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0} And Estado = 'Activo'", CveSubProyecto))
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
ObjFactura.Folio = DT.Rows(0)("FActual").ToString() ObjFactura.Folio = DT.Rows(0)("FActual").ToString.ToEntero
ObjFactura.Serie = DT.Rows(0)("Serie").ToString() ObjFactura.Serie = DT.Rows(0)("Serie").ToString()
End If End If
DT.Dispose() DT.Dispose()
End If End If
ObjFolios.Dispose() ObjFolios.Dispose()
If Not String.IsNullOrEmpty(ObjFactura.Folio) Then If ObjFactura.Folio > 0 Then
Select Case CveMoneda Select Case CveMoneda
Case 1 Case 1
ObjFactura.TipoCambio = "1" ObjFactura.TipoCambio = 1
Case 2 Case 2
ObjFactura.TipoCambio = GlobalTipoCambio(Now).ToString ObjFactura.TipoCambio = GlobalTipoCambio(Now).ToDecimal
Case Else Case Else
ObjFactura.TipoCambio = GlobalTipoCambio(Now).ToString ObjFactura.TipoCambio = GlobalTipoCambio(Now).ToDecimal
End Select End Select
ObjFactura.CveVendedor = -1 ObjFactura.CveVendedor = -1
@@ -2133,8 +2134,8 @@ Public Class WSSIGApp
Row("IVA") = Row("PorcentajeIVA") Row("IVA") = Row("PorcentajeIVA")
Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, 2) Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, 2)
Row("Total") = (PS.Cantidad * PS.Precio).Value Row("Total") = PS.Cantidad * PS.Precio
Row("TotalImporte") = Math.Round(PS.Cantidad.Value * PS.Precio, 2) Row("TotalImporte") = Math.Round(PS.Cantidad * PS.Precio, 2)
Row("SATClaveProdServ") = DrPS("SATClavePS") Row("SATClaveProdServ") = DrPS("SATClavePS")
Row("SATClaveUM") = DrPS("SATClaveUnidadMedida") Row("SATClaveUM") = DrPS("SATClaveUnidadMedida")
@@ -2638,7 +2639,7 @@ Public Class WSSIGApp
If Not TieneError Then If Not TieneError Then
ObjOC.Commit() ObjOC.Commit()
Retorno = ObjOC.Folio Retorno = ObjOC.Folio.ToString
Else Else
ObjOC.RollBack() ObjOC.RollBack()
Retorno = "" Retorno = ""
@@ -2872,7 +2873,7 @@ Public Class WSSIGApp
'Agrega CveCotizacion a la lista 'Agrega CveCotizacion a la lista
For Each RowCD As DataRow In ObjOC.DtResultados.Rows For Each RowCD As DataRow In ObjOC.DtResultados.Rows
If Not ObjOC.AddCotizacionDetalle(ObjOC.CveCotizacion, RowCD("CvePS").ToString.ToEntero, -1, RowCD("Cantidad").ToString.ToDouble, RowCD("CveUnidadMedida").ToString.ToEntero, 0, "-1", "", RowCD("CveOrdenCompraDetalle").ToString.ToEntero) Then TieneError = True : Exit For If Not ObjOC.AddCotizacionDetalle(ObjOC.CveCotizacion, RowCD("CvePS").ToString.ToEntero, -1, RowCD("Cantidad").ToString.ToDecimal, RowCD("CveUnidadMedida").ToString.ToEntero, 0, "-1", "", RowCD("CveOrdenCompraDetalle").ToString.ToEntero) Then TieneError = True : Exit For
Next Next
Else Else
TieneError = True TieneError = True
@@ -3499,7 +3500,7 @@ Public Class WSSIGApp
If Ent.EmpresaCRM.CveEmpresaCRM > 0 Then If Ent.EmpresaCRM.CveEmpresaCRM > 0 Then
If Ent.EmpresaCRM.CveEncuestaAplicada > 0 Then If Ent.EmpresaCRM.CveEncuestaAplicada > 0 Then
For Each Resp In Ent.Respuestas For Each Resp In Ent.Respuestas
If Not ObjDatosTecnicos.UpdateDatosTecnicosCRM(Resp.CveEncuestaAplicadaDetalle, Ent.EmpresaCRM.CveEncuestaAplicada, Resp.CvePregunta, Resp.CveRespuesta, IfNull(Resp.Valor, "")) Then If Not ObjDatosTecnicos.UpdateDatosTecnicosCRM(Resp.CveEncuestaAplicadaDetalle, Ent.EmpresaCRM.CveEncuestaAplicada, Resp.CvePregunta, Resp.CveRespuesta, IfNull(Resp.Valor, "").ToString) Then
TieneError = True TieneError = True
Exit For Exit For
End If End If
@@ -3688,7 +3689,8 @@ Public Class WSSIGApp
If item.CveAcercamiento > 0 Then If item.CveAcercamiento > 0 Then
TieneError = Not ObjCRM.UpdateAcercamiento(item.CveAcercamiento, item.CveContactoPrincipal, item.CveTipoProceso, item.CveEtapaProcesoActual, item.CveVendedor, item.CveMedioCaptacion, item.CveProbabilidadAcercamiento, item.NombreAcercamiento, item.Descripcion, item.Importe, item.Comision, item.Prioridad, item.CveUsuarioMod, item.CveRechazoMotivo, item.CveEncuestaAplicadaProceso, item.FechaApertura, item.FechaCierre) TieneError = Not ObjCRM.UpdateAcercamiento(item.CveAcercamiento, item.CveContactoPrincipal, item.CveTipoProceso, item.CveEtapaProcesoActual, item.CveVendedor, item.CveMedioCaptacion, item.CveProbabilidadAcercamiento, item.NombreAcercamiento, item.Descripcion, item.Importe, item.Comision, item.Prioridad, item.CveUsuarioMod, item.CveRechazoMotivo, item.CveEncuestaAplicadaProceso, item.FechaApertura, item.FechaCierre)
Else Else
TieneError = Not ObjCRM.AddAcercamiento(item.CveEmpresaCRM, item.CveContactoPrincipal, item.CveTipoProceso, item.CveEtapaProcesoActual, item.CveVendedor, item.CveMedioCaptacion, item.CveRechazoMotivo, item.CveProbabilidadAcercamiento, item.FechaApertura, item.NombreAcercamiento, item.Descripcion, item.Importe, item.Comision, item.Prioridad, item.CveEmpresa, item.CveUsuarioIng, item.FechaCierre) Dim i As Integer = ObjCRM.AddAcercamiento(item.CveEmpresaCRM, item.CveContactoPrincipal, item.CveTipoProceso, item.CveEtapaProcesoActual, item.CveVendedor, item.CveMedioCaptacion, item.CveRechazoMotivo, item.CveProbabilidadAcercamiento, item.FechaApertura, item.NombreAcercamiento, item.Descripcion, item.Importe, item.Comision, item.Prioridad, item.CveEmpresa, item.CveUsuarioIng, Now)
If i <= 0 Then TieneError = True
End If End If
If TieneError Then If TieneError Then
Exit For Exit For
@@ -4177,7 +4179,7 @@ Public Class WSSIGApp
Public Function GetRepAcercamientos(CveEmpresa As Integer, CveVendedor As Integer, FechaInicio As DateTime, FechaFin As DateTime) As String Public Function GetRepAcercamientos(CveEmpresa As Integer, CveVendedor As Integer, FechaInicio As DateTime, FechaFin As DateTime) As String
Dim Retorno = "[]" Dim Retorno = "[]"
Using ObjCRM As New ClsCRM Using ObjCRM As New ClsCRM
If ObjCRM.GetAcercamiento(CveEmpresa, CveVendedor:=CveVendedor, FechaInicio:=FechaInicio, FechaFin:="-1") Then If ObjCRM.GetAcercamiento(CveEmpresa, CveVendedor:=CveVendedor, FechaInicio:=FechaInicio.ToShortDateString, FechaFin:="-1") Then
Retorno = ObjCRM.DtResultados.DataTableToJSONIPP() Retorno = ObjCRM.DtResultados.DataTableToJSONIPP()
End If End If
End Using End Using
@@ -4921,11 +4923,11 @@ Namespace WebServiceAppModels
Public Property IDTemp As Integer Public Property IDTemp As Integer
Public Property IDTempVenta As Integer Public Property IDTempVenta As Integer
Public Property CvePS As Integer Public Property CvePS As Integer
Public Property Cantidad As Double? Public Property Cantidad As Decimal = 0
Public Property Obs As String Public Property Obs As String
Public Property PS As String Public Property PS As String
Public Property Precio As Double Public Property Precio As Decimal
Public Property Descuento As Double Public Property Descuento As Decimal
Public Property CveUnidadMedida As Integer Public Property CveUnidadMedida As Integer
End Class End Class
Public Class MMessage Public Class MMessage

40
asmx/WS_PuntoVenta.asmx
View File

@@ -76,7 +76,7 @@ Public Class WS_PuntoVenta
Partial Public Class ClsMetodosPagoWS Partial Public Class ClsMetodosPagoWS
Public Property CveMetodoPago As Integer Public Property CveMetodoPago As Integer
Public Property MetodoPago As String Public Property MetodoPago As String
Public Property Importe As Double Public Property Importe As Decimal
Public Sub New() Public Sub New()
@@ -296,15 +296,15 @@ Public Class WS_PuntoVenta
Public FolioFact As Integer Public FolioFact As Integer
Public CveCliente As Integer Public CveCliente As Integer
Public CveClienteSucursal As Integer Public CveClienteSucursal As Integer
Public SubTotal As Double Public SubTotal As Decimal
Public Descuento As Double Public Descuento As Decimal
Public Amortizacion As Double Public Amortizacion As Decimal
Public IVA As Double Public IVA As Decimal
Public RetIVA As Double Public RetIVA As Decimal
Public RetISR As Double Public RetISR As Decimal
Public Total As Double Public Total As Decimal
Public CveMoneda As Integer Public CveMoneda As Integer
Public TipoCambio As Double Public TipoCambio As Decimal
Public CveMetodoPago As Integer Public CveMetodoPago As Integer
Public CondicionesPago As Integer Public CondicionesPago As Integer
Public FormaPago As Integer Public FormaPago As Integer
@@ -816,7 +816,7 @@ Public Class WS_PuntoVenta
Dim Errores As Boolean = False Dim Errores As Boolean = False
Dim CveVentas As New List(Of ListItem) Dim CveVentas As New List(Of ListItem)
Dim TotalPagado As Double = 0 Dim TotalPagado As Decimal = 0
For Each objVenta As ClsVentaWS In ArregloVentas For Each objVenta As ClsVentaWS In ArregloVentas
@@ -947,7 +947,7 @@ Public Class WS_PuntoVenta
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
Dim TipoMovimientoVenta As Boolean = True Dim TipoMovimientoVenta As Boolean = True
Dim TipoMovimientoImpuestos As Boolean = False Dim TipoMovimientoImpuestos As Boolean = False
Dim ImporteMov As Double Dim ImporteMov As Decimal
'Se agregan los movimientos de la Venta 'Se agregan los movimientos de la Venta
'If DT.Rows.Count > 0 Then 'If DT.Rows.Count > 0 Then
@@ -987,11 +987,10 @@ Public Class WS_PuntoVenta
ErrorMovtosCxC = True ErrorMovtosCxC = True
End If End If
End If End If
'Se agregan el Traslado de IVA 'Se agregan el Traslado de IVA
ImporteMov = objVenta.IVA ImporteMov = objVenta.IVA
If ImporteMov <> 0 Then If ImporteMov <> 0 Then
Dim PorcentajeImpuesto = 0 Dim PorcentajeImpuesto As Decimal = 0
If objVenta.SubTotal > 0 Then If objVenta.SubTotal > 0 Then
PorcentajeImpuesto = (objVenta.IVA / objVenta.SubTotal) PorcentajeImpuesto = (objVenta.IVA / objVenta.SubTotal)
End If End If
@@ -1200,7 +1199,7 @@ Public Class WS_PuntoVenta
'End Function 'End Function
<WebMethod()> <WebMethod()>
Public Function AddBancosIE(Importe As Double, Moneda As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer, Cuenta As Integer, Comprobante As String, Opcion As String) As Boolean Public Function AddBancosIE(Importe As Decimal, Moneda As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer, Cuenta As Integer, Comprobante As String, Opcion As String) As Boolean
Dim ObjIE As New ClsBancos() Dim ObjIE As New ClsBancos()
Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
Dim Folio As Long Dim Folio As Long
@@ -1211,7 +1210,7 @@ Public Class WS_PuntoVenta
Dim MsgError As String = "" Dim MsgError As String = ""
Dim CveConceptoContable As Integer = 4 Dim CveConceptoContable As Integer = 4
Dim CveConceptoCompra As Integer = 30 Dim CveConceptoCompra As Integer = 30
Dim CIF As Double = 0 Dim CIF As Decimal = 0
Dim CvePlantillaPoliza As Integer = 4 Dim CvePlantillaPoliza As Integer = 4
Dim CveTipoPoliza As Integer = 1 Dim CveTipoPoliza As Integer = 1
Dim CvePrePoliza As Integer = 0 Dim CvePrePoliza As Integer = 0
@@ -1227,15 +1226,14 @@ Public Class WS_PuntoVenta
Folio = Banco.GetNextFolio(Cuenta, CveTipoTransaccion) Folio = Banco.GetNextFolio(Cuenta, CveTipoTransaccion)
Banco.Dispose() Banco.Dispose()
CveIE = ObjIE.AddBancos_IE(Cuenta, CveTipoTransaccion, Fecha, Folio, "", Importe, Moneda, CveIE = ObjIE.AddBancos_IE(Cuenta, CveTipoTransaccion, Fecha, Folio.ToString, "", Importe, Moneda,
0, Opcion, "", False, False, -1, CvePrePoliza, "pdf", CveUsuario, CveEmpresa) 0, Opcion, "", False, False, -1, CvePrePoliza, "pdf", CveUsuario, CveEmpresa)
If CveIE > 0 Then If CveIE > 0 Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe, Importe, "", CveConceptoContable, " ", CveIE:=CveIE) Then If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe, Importe, CveConceptoContable, "", " ", CveIE:=CveIE) Then
Dim IVA As Double = 0 Dim IVA As Decimal = 0
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe - IVA - CIF, Importe - IVA - CIF, "", CveConceptoCompra, " ", CveIE:=CveIE) Then If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe - IVA - CIF, Importe - IVA - CIF, CveConceptoCompra, "", " ", CveIE:=CveIE) Then
Else Else
MsgError = "no se pudo insertar el detalle de la póliza2" MsgError = "no se pudo insertar el detalle de la póliza2"
@@ -1243,9 +1241,7 @@ Public Class WS_PuntoVenta
Else Else
MsgError = "no se pudo insertar el detalle de la póliza" MsgError = "no se pudo insertar el detalle de la póliza"
End If End If
End If End If
End If End If
ObjIE.Commit() ObjIE.Commit()

6
asmx/WsTSoft.asmx
View File

@@ -19,7 +19,7 @@ Public Class WsTSoft
Inherits System.Web.Services.WebService Inherits System.Web.Services.WebService
<WebMethod()> <WebMethod()>
Public Function AddRemision(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As String) As String Public Function AddRemision(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As Date) As String
Dim retorno As String = "" Dim retorno As String = ""
Dim Continuar As Boolean = False Dim Continuar As Boolean = False
@@ -54,7 +54,7 @@ Public Class WsTSoft
End Function End Function
<WebMethod()> <WebMethod()>
Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As String) As String Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As Integer) As String
Dim retorno As String = "" Dim retorno As String = ""
Dim objTsoft As New ClsTSoft Dim objTsoft As New ClsTSoft
Dim Continuar As Boolean = objTsoft.UpEstatusRemision(FolioRemision, CveEstatus) Dim Continuar As Boolean = objTsoft.UpEstatusRemision(FolioRemision, CveEstatus)
@@ -106,7 +106,7 @@ Public Class WsTSoft
OnError("Ocurrió un error al asignar las direcciones", ex) OnError("Ocurrió un error al asignar las direcciones", ex)
End Try End Try
Dim RowPosicion As DataRow = DtPosicion.Rows("0") Dim RowPosicion As DataRow = DtPosicion.Rows(0)
ObjPos.Fecha = RowPosicion("Fecha").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm:ss") ObjPos.Fecha = RowPosicion("Fecha").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm:ss")
ObjPos.Lat = RowPosicion("Lat").ToString() ObjPos.Lat = RowPosicion("Lat").ToString()