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

SALIDAS DE ALMACEN EN E141 (CREAR A PARTIR DE)

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-06-29 16:01:17 -07:00
parent 98be4e248b
commit b6340b02e6
1 changed files with 20 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Ventas/Ventas.aspx.vb
View File

@@ -4747,7 +4747,7 @@ Partial Class Ventas
End Function End Function
Private Sub CargarAlmacenes() Private Sub CargarAlmacenes()
If CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot" Then If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not (UsuarioActual.CveEmpresa = 141 AndAlso EsCreaApartirDe) Then
DivAlmacen.Visible = False DivAlmacen.Visible = False
Else Else
Dim DTAlmacen As DataTable Dim DTAlmacen As DataTable
@@ -6340,6 +6340,10 @@ Partial Class Ventas
e.Row.FCCheckBox("cbInv").Visible = False e.Row.FCCheckBox("cbInv").Visible = False
End If End If
If (CveVenta > 0 AndAlso EsCreaApartirDe AndAlso UsuarioActual.CveEmpresa = 141) Then
e.Row.FCCheckBox("cbInv").Visible = True
End If
End If End If
End Sub End Sub
@@ -15893,7 +15897,7 @@ Partial Class Ventas
GvPS.DataBind() GvPS.DataBind()
'RECARGA GV INVENTARIO 'RECARGA GV INVENTARIO
If Not CveVenta > 0 Or DdlTipoComprobante.SelectedValue = "Cot" Then If (Not CveVenta > 0 Or DdlTipoComprobante.SelectedValue = "Cot") OrElse (UsuarioActual.CveEmpresa = 141 AndAlso EsCreaApartirDe) Then
DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2") DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
CargaGVInv(DtInv) CargaGVInv(DtInv)
End If End If
@@ -24975,6 +24979,19 @@ Partial Class Ventas
GvPS.Columns(17).Visible = True GvPS.Columns(17).Visible = True
GvPS.Columns(18).Visible = True GvPS.Columns(18).Visible = True
CambiaTipoDocto()
CambiaSucursalGeneral()
CargaAnticipos(CveCliente)
CargaRestriccionesCreditoCliente(CveVenta:=-1)
If UsuarioActual.CveEmpresa = 141 Then
TabAlmacen.Visible = True
DivAlmacen.Visible = True
CargaGVInv(TmpDT.FiltraParametros("CveTipoPS = 2"))
End If
BloqueaCondiconesPago()
UpnTools.Update() UpnTools.Update()
UpCliente.Update() UpCliente.Update()
UpParametros.Update() UpParametros.Update()
@@ -24985,13 +25002,8 @@ Partial Class Ventas
UPCondicionesPago.Update() UPCondicionesPago.Update()
UpDetalle.Update() UpDetalle.Update()
UpEstatus.Update() UpEstatus.Update()
CambiaTipoDocto()
CambiaSucursalGeneral()
CargaAnticipos(CveCliente)
CargaRestriccionesCreditoCliente(CveVenta:=-1)
BloqueaCondiconesPago()
UpParametros.Update() UpParametros.Update()
UpINV.Update()
End Sub End Sub
#End Region #End Region