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

Econo - en traspasoalmacen. solo mostrar los almacenes del centro de costo origen.

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-02-21 10:32:51 -07:00
parent d793403bd9
commit 3136bf5353
4 changed files with 55 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -500,7 +500,7 @@ Partial Class Inventarios_TraspasoAlmacen
' DdlProducto.Visible = False
'End If
CargaPS()
FiltraPS()
'Folio
SiguienteFolio(If(ChkTransitorio.Checked, 9, 8))
@@ -508,6 +508,17 @@ Partial Class Inventarios_TraspasoAlmacen
'DdlProducto.DataBind()
CargarCamiones()
End Sub
Private Sub FiltraPS()
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlAlmacenOrigen.SelectedValue.ToEntero() > 0 Then
Dim DtAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero())
If DtAlmacen IsNot Nothing Then
Dim CveSubProyecto As Integer = DtAlmacen.FiltroPrimeroValor("CveSubProyecto").ToEntero()
CargaPS(CveSubProyecto)
End If
Else
CargaPS(-1)
End If
End Sub
Private Sub CargaAlmacenOrigen()
DdlAlmacenOrigen.Enabled = True
DdlAlmacenOrigen.Items.Clear()
@@ -517,7 +528,7 @@ Partial Class Inventarios_TraspasoAlmacen
DdlAlmacenOrigen.DataBind()
DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen)
End Sub
Private Sub CargaPS()
Private Sub CargaPS(CveSubProyecto As Integer)
Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
DdlProducto2.setEsWebService(EsWS)
@@ -526,8 +537,8 @@ Partial Class Inventarios_TraspasoAlmacen
'DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
If UsuarioActual.Empresa.Funcionalidad(141) = "1" Then
DdlProducto2.ddlWS.Attributes.Add("data-pagina", "inv/traspaso")
DdlProducto2.ddlWS.Attributes.Add("data-cvesubproyecto", CveSubProyecto.ToString())
DdlProducto2.ddlWS.Attributes.Add("Data-onresult", "CargaExistenciaAlmacenes")
CargaExistenciasSucursal()
DdlAlmacenOrigen.AutoPostBack = True
End If
Else
@@ -538,8 +549,8 @@ Partial Class Inventarios_TraspasoAlmacen
End Sub
Private Sub CargaExistenciasSucursal()
DdlProducto2.Attributes.Remove("Data-cvesubproyecto")
DdlProducto2.Attributes.Add("Data-cvesubproyecto", GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}"))
DdlProducto2.Attributes.Clear()
FiltraPS()
End Sub
Private Sub SiguienteFolio(CveConcepto As Integer)
'Dim Inv As New ClsInventarios
@@ -1005,10 +1016,8 @@ Partial Class Inventarios_TraspasoAlmacen
'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDecimal > 0, TxtGastoIndirecto.Text, "-1").ToDecimal,
CveChofer:=If(ChkTransitorio.Checked, DdlChofer.SelectedValue.ToEntero, -1), Placa:="", FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:="",
ResponsableCarga:="", ResponsableRecibio:="", Identificacion:="", Domicilio:="",
Telefono:="", Ciudad:="", Licencia:="", Modulo:="TA/G2", CveFolioGarantia:=CveFolioGarantia)
CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDecimal > 0, TxtGastoIndirecto.Text, "-1").ToDecimal, ResponsableCarga:="", ResponsableRecibio:="",
Modulo:="TA/G2", CveFolioGarantia:=CveFolioGarantia)
FolioSalida = ObjInventario.Folio
Folio = ObjInventario.Folio
If CveMovimientoSalida <= 0 Then