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

Correciones SMS

Browse Source
This commit is contained in:
rakcsle
2024-06-12 15:16:48 -07:00
parent 8c92146e46
commit aa5678c6f5
4 changed files with 30 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -15,14 +15,14 @@ Partial Class Inventarios_EntregaAlmacen
Inherits ClsPaginas
#Region "PROPIEDADES"
Private Property CveVentaAD As Integer
Get
Return CType(ViewState("CveVentaAD"), Integer)
End Get
Set(value As Integer)
ViewState("CveVentaAD") = value
End Set
End Property
'Private Property CveVentaAD As Integer
' Get
' Return CType(ViewState("CveVentaAD"), Integer)
' End Get
' Set(value As Integer)
' ViewState("CveVentaAD") = value
' End Set
'End Property
Private Property DtDatos As DataTable
Get
Return CType(ViewState("DtDatos"), DataTable)
@@ -468,14 +468,14 @@ Partial Class Inventarios_EntregaAlmacen
#Region " CARGA PARAMETROS - EXCLUSIVO USO AD "
Private Sub CargaParametrosAD()
CveVentaAD = -1
'CveVentaAD = -1
'If UsuarioActual.CveUsuario <> 100 Then
' Exit Sub
'End If
If Not IsNothing(Request("CveVenta")) AndAlso IsNumeric(Request("CveVenta")) Then
CveVentaAD = Request("CveVenta").ToEntero()
'CveVentaAD = Request("CveVenta").ToEntero()
CargaVentaPorSurtir(Request("CveVenta").ToEntero())
'LbSurtida.Visible = True
'LbSurtida.Text = "SOLO MODO VISUAL"
@@ -611,7 +611,7 @@ Partial Class Inventarios_EntregaAlmacen
Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
Dim CveOS As Integer = GvRow.DataKey("CveOS").ToEntero
CveVentaAD = -1
'CveVentaAD = -1
If Boton.CommandArgument.ToEntero() > 0 Then
TimmerRefresh.Enabled = False
@@ -634,7 +634,7 @@ Partial Class Inventarios_EntregaAlmacen
End Sub
Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs)
CveVentaAD = -2
'CveVentaAD = -2
CargaVentaPorSurtir(DdlFolio.SelectedValue.ToEntero())
End Sub
Private Sub CargaVentaPorSurtir(CveVenta As Integer, Optional CveAlmacen As Integer = -1, Optional CveOS As Integer = -1)
@@ -692,7 +692,8 @@ Partial Class Inventarios_EntregaAlmacen
EsDevolucionVenta = drE("EsDevolucionVenta").ToString().ToEntero()
TipoDocto = DtDatos.Rows(0)("TipoDocto").ToString()
TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
'TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0), 1, 2)
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then
TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F. Cirugía {drE("FechaParaSurtir").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"