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