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

-- option explciit on

Browse Source
This commit is contained in:
rrene
2023-09-04 18:29:32 -07:00
parent 616c4ad8df
commit 051b320348
1 changed files with 31 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -802,7 +802,7 @@ Partial Class Inventarios_EntradasSalidas
RowTipoCambio.Visible = True
LbTipoCambio.Text = DtMov.Rows(0)("TipoCambio").ToString
End If
Dim TMDsTR = DtMov.Rows(0)("CveMtoRel").ToString
Dim TMDsTR As String = DtMov.Rows(0)("CveMtoRel").ToString
If TMDsTR.Length > 0 Then
RowMtoRel.Visible = True
lnkMtoRelacionado.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & TMDsTR
@@ -1359,7 +1359,7 @@ Partial Class Inventarios_EntradasSalidas
Dim Conta As New ClsContabilidad(Inv.IniciaTransacSQL())
Dim ObjGral As New ClsGenerales(Inv.IniciaTransacSQL())
Dim TieneError = False
Dim TieneError As Boolean = False
Dim ObjConta As ClsContPAQi = Nothing
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC) Then
@@ -1614,8 +1614,8 @@ Partial Class Inventarios_EntradasSalidas
Try
'Para Campos Nuevos AF y OC
Dim SubProyecto = -1
Dim ActivoFijo = -1
Dim SubProyecto As Integer = -1
Dim ActivoFijo As Integer = -1
If UsuarioActual.CveEmpresa = 66 AndAlso (DdlConcepto.SelectedValue.ToEntero = 3 Or DdlConcepto.SelectedValue.ToEntero = 11) Then
SubProyecto = DdlSubProyecto.SelectedValue.ToEntero
@@ -1763,7 +1763,7 @@ Partial Class Inventarios_EntradasSalidas
'GUARDAR
Else
Dim Fecha = String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime).ToDate
Dim Fecha As Date = String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime).ToDate
Dim CveCliente As Integer = CInt(IIf((DdlClientes.SelectedValue.ToEntero <= 0), -1, DdlClientes.SelectedValue.ToEntero))
Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero))
@@ -2033,7 +2033,7 @@ Partial Class Inventarios_EntradasSalidas
If IDPoliza > 0 Then
If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
Dim DtMovtos = ObjInventario.DtResultados
Dim DtMovtos As DataTable = ObjInventario.DtResultados
Importe = DtMovtos.SUMD("Total", "Estatus = ''")
If Importe > 0 Then
@@ -2197,8 +2197,7 @@ Partial Class Inventarios_EntradasSalidas
End If
TdSeriePS.Visible = False
Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoBarras.Text}'")
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoBarras.Text}'")
If DrPS Is Nothing Then
Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoBarras.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -2294,7 +2293,7 @@ Partial Class Inventarios_EntradasSalidas
DdlConcepto.Items.Clear()
Dim filtro As String = ""
Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
Dim CveTipoAlmacen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
Me.CveTipoAlmacenSeleccionado = CveTipoAlmacen
@@ -2438,7 +2437,7 @@ Partial Class Inventarios_EntradasSalidas
End If
If CveMovimiento <= 0 Or EsNuevoMov Then SiguienteFolio()
Dim CveConcepto = DdlConcepto.SelectedValue
Dim CveConcepto As String = DdlConcepto.SelectedValue
DivCodigoBarras.Visible = False
TxtFecha.Enabled = True
@@ -2652,7 +2651,7 @@ Partial Class Inventarios_EntradasSalidas
'TrBatch2.Visible = False
'GvM.Columns(11).Visible = False
Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
tdPUExtranjero.Visible = False
tdPUExtranjero2.Visible = False
GvM.Columns(6).Visible = False
@@ -2778,7 +2777,7 @@ Partial Class Inventarios_EntradasSalidas
End If
Dim Cantidad = e.Row.FCLiteral("lbCantidad").Text.ToDecimal
Dim Cantidad As Decimal = e.Row.FCLiteral("lbCantidad").Text.ToDecimal
If Not UsuarioActual.TienePermisoProceso(265) Or Cantidad <= 1 Or Cantidad Mod 1 <> 0 Then
e.Row.FCLinkButton("lnkDividir").Visible = False
End If
@@ -2925,10 +2924,10 @@ Partial Class Inventarios_EntradasSalidas
If Drs.Count > 0 Then
Dim Cantidad As Integer = Drs(0)("Cantidad").ToString.ToEntero
Dim CvePS = Drs(0)("CvePS")
Dim Producto = Drs(0)("CodigoPS")
Dim PU = Drs(0)("PU")
Dim CveSeccion = Drs(0)("CveSeccionAlmacen")
Dim CvePS As Integer = Drs(0)("CvePS").ToString.ToEntero
Dim Producto As String = Drs(0)("CodigoPS").ToString
Dim PU As Decimal = Drs(0)("PU").ToString.ToDecimal
Dim CveSeccion As Integer = Drs(0)("CveSeccionAlmacen").ToString.ToEntero
Drs(0)("Cantidad") = "1"
Drs(0)("Total") = PU
@@ -2990,7 +2989,7 @@ Partial Class Inventarios_EntradasSalidas
'DEVENGAR
Dim IDPoliza As Integer
Dim ErrorAC = False
Dim ErrorAC As Boolean = False
Dim TotalPorDevengar As Double = 0
Dim Folio As String = ""
Dim Fecha As Date = TxtFecha.Text.ToDate
@@ -3159,8 +3158,6 @@ Partial Class Inventarios_EntradasSalidas
Private Sub InicializaBitacoraTemporal()
DivBitacora.Visible = True
If CveMovimiento > 0 Then
CargaEventoBitacora()
Else
@@ -3227,9 +3224,8 @@ Partial Class Inventarios_EntradasSalidas
Filename.FilesMove(String.Format("OI{0}{1}", UsuarioActual.CveUsuario, Now.ToString("HH-mm")), String.Format("{0}OI\Temp", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
End If
'AGREGA
Dim Dr = DtBitacora.NewRow
Dim Dr As DataRow = DtBitacora.NewRow
Dr("FechaIng") = Now
Dr("FechaInicio") = ""
Dr("Usuario") = UsuarioActual.Usuario
@@ -3242,15 +3238,12 @@ Partial Class Inventarios_EntradasSalidas
Dr("CveEmpresa") = UsuarioActual.CveEmpresa
DtBitacora.Rows.Add(Dr)
'LIMPIA
TxtEventoDescripcion.Text = ""
'ChkEventoPrioridad.Checked = False
RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
CargaEventoBitacoraTemp()
End Sub
Private Sub CargaEventoBitacoraTemp()
GvBitacora.DataSource = DtBitacora
@@ -3259,7 +3252,7 @@ Partial Class Inventarios_EntradasSalidas
UPEventoBitacora.Update()
End Sub
Private Function GuardaBitacoraTemporal(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
Dim Retorno = False
Dim Retorno As Boolean = False
Dim Archivo As System.IO.FileInfo = Nothing
For Each Dr As DataRow In DtBitacora.Rows
@@ -3377,11 +3370,10 @@ Partial Class Inventarios_EntradasSalidas
If TxtCodigoPS.Text.Trim = "" Then
Exit Sub
End If
TdSeriePS.Visible = False
TdSeccionPSAdd.Visible = False
Dim Dr = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoPS.Text}'")
Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoPS.Text}'")
If Dr Is Nothing Then
Alert($"No se ha encontrado un producto con el Codigo ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(FocusAdd,200);")
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -3866,11 +3858,11 @@ Partial Class Inventarios_EntradasSalidas
If tmpCostos.Rows.Count > 0 Then
Dim Concepto As String = If(TxtObservaciones.Text = "", ConceptoPoliza, $" {TxtObservaciones.Text}")
Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
CvePrePolizaRegistrada = CvePrePoliza
If HplCompra.Visible AndAlso HplCompra.Text <> "" Then
ValorInventario = DtCostos.SUM("Total").ToString.ToDecimal
ValorInventario = DtCostos.SUMD("Total")
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventario, ValorInventario, 205, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteME:=ValorInventario, CveCompra:=HdnCveCompra.Value.ToEntero, TipoCambio:=LbTipoCambio.Text.ToDecimal) Then
ErrorMovInv = True
End If
@@ -3948,7 +3940,7 @@ Partial Class Inventarios_EntradasSalidas
End If
Else
Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
Dim tCveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
Dim tCveConcepto As Integer = 69
If ObjInventario.CveConcepto = 37 Then
tCveConcepto = 181
@@ -4347,7 +4339,7 @@ Partial Class Inventarios_EntradasSalidas
If CvePS > 0 Then
Using ObjPS As New ClsProductosServicios()
If ObjPS.GetPS(CvePS, -1, UsuarioActual.CveEmpresa) AndAlso ObjPS.DtResultados.Rows.Count > 0 Then
Dim CvePSAdicionalVigencia = ObjPS.DtResultados.Rows(0)("CvePSAdicionalVigencia").ToString.ToEntero()
Dim CvePSAdicionalVigencia As Integer = ObjPS.DtResultados.Rows(0)("CvePSAdicionalVigencia").ToString.ToEntero()
Dim CodigoPSVigencia As String = ObjPS.DtResultados.Rows(0)("CodigoPSVigencia").ToString
'SI EXISTE UN MOVIMIENTO DE VIGENCIA
If CvePSAdicionalVigencia > 0 Then
@@ -4708,7 +4700,7 @@ Partial Class Inventarios_EntradasSalidas
Dim ValorSalida As Decimal = 0
Dim ImporteConcepto As Decimal = 0
Dim tConcepto As String = TxtObsCambioVigencia.Text.Trim
Dim Fecha = TxtFechaCambio.Text.ToDate.ToString("yyyy/MM/dd").ToDate
Dim Fecha As Date = TxtFechaCambio.Text.ToDate.ToString("yyyy/MM/dd").ToDate
Dim tCveSubProyecto As Integer = -1
Dim TipoMovto As Boolean = False
@@ -4942,7 +4934,7 @@ Partial Class Inventarios_EntradasSalidas
Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
Dim dt As New DataTable
'Dim Conexion As Odbc.OdbcConnection = Nothing
Dim ErrorArchivo = False
Dim ErrorArchivo As Boolean = False
Dim n As Integer = 0
Try
Select Case Tipo
@@ -5427,8 +5419,7 @@ Partial Class Inventarios_EntradasSalidas
If CveMovimiento > 0 Then
Dim ObjInventario As New ClsInventarios
ObjInventario.IniciaTransacSQL()
Dim Retorno = GenerarMovimientoVirtual(Me.CveMovimiento, ObjInventario)
Dim Retorno As MMovimientoVirtual = GenerarMovimientoVirtual(Me.CveMovimiento, ObjInventario)
If Retorno.TieneError Then
ObjInventario.RollBack()
@@ -5476,7 +5467,7 @@ Partial Class Inventarios_EntradasSalidas
FolioVirtual = ObjInventario.Folio
For Each RowUsado As DataRow In DtPSVirtual.Rows
Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero()
Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
@@ -5502,7 +5493,7 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Sub GeneraPDFFactura()
Try
Dim objFactura = CreaObjetosVenta()
Dim objFactura As Modelos.Factura = CreaObjetosVenta()
PdfFactura(objFactura)
objFactura.Dispose()
Catch ex As Exception
@@ -5511,7 +5502,7 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Function CreaObjetosVenta() As Modelos.Factura
Dim ObjFactura = New Modelos.Factura
Dim ObjFactura As New Modelos.Factura
ObjFactura.Version = "3.3"
ObjFactura.CveUsuario = UsuarioActual.CveUsuario
ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
@@ -5913,7 +5904,7 @@ Partial Class Inventarios_EntradasSalidas
MensajeAlert.Append("Emitido con éxito.")
'XML
Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
Dim ArchivoXML As String = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
If File.Exists(ArchivoXML) Then
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)))
End If
@@ -5942,13 +5933,12 @@ Partial Class Inventarios_EntradasSalidas
Private Sub CargaDireccionesEnvio()
Dim ObjClientes As New ClsClientes
Dim TieneError = False
Dim TieneError As Boolean = False
DdlDireccionEnvio.Items.Clear()
If ObjClientes.DireccionEnvioGet(-1, DdlClienteCarta.SelectedValue.ToEntero, -1) Then
DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
DdlDireccionEnvio.DataBind()
Else
TieneError = True
End If
@@ -5956,19 +5946,14 @@ Partial Class Inventarios_EntradasSalidas
If TieneError Then
Alert("Ocurrió un error al obtener las direcciones de envío", TipoMensaje.MsgError)
End If
ObjClientes.Dispose()
DdlDireccionEnvio.Items.Add(New ListItem("Seleccione una", "-1"))
UpEmitirTransitorio.Update()
End Sub
#End Region
Private Class MMovimientoVirtual
Public Property CveMovimientoVirtual As Integer
Public Property FolioVirtual As String