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

mejora SMS uso almacen

Browse Source
This commit is contained in:
rrene
2024-04-24 21:52:53 -07:00
parent 13ae12872b
commit e34461d96f
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Ventas/Ventas.aspx.vb
View File

@@ -13670,15 +13670,17 @@ Partial Class Ventas
If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}") Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
If drr IsNot Nothing Then If drr IsNot Nothing Then
If RBLTipoVenta.SelectedValue.Contiene("3", "6") Then 'cuando es A-vista If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista
CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero
ElseIf RBLTipoVenta.SelectedValue.Contiene("4") Then 'cuando es Consignación
CveAlmacenTraspasoDestino = drr("CveAlmacenConsignacion").ToString.ToEntero
Else Else
CveAlmacenTraspasoDestino = drr("CveAlmacenAsignado").ToString.ToEntero CveAlmacenTraspasoDestino = drr("CveAlmacenAsignado").ToString.ToEntero '' cuando Fuera de Línea
End If End If
End If
End If End If
End If
If Not CveAlmacenTraspasoDestino > 0 Then If Not CveAlmacenTraspasoDestino > 0 Then
CveAlmacenTraspasoDestino = CveAlmacenAsignado CveAlmacenTraspasoDestino = CveAlmacenAsignado
End If End If
@@ -37774,6 +37776,8 @@ Partial Class Ventas
If drr IsNot Nothing Then If drr IsNot Nothing Then
If RBLTipoVenta.SelectedValue.Contiene("6") Then If RBLTipoVenta.SelectedValue.Contiene("6") Then
tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero
ElseIf RBLTipoVenta.SelectedValue.Contiene("5") Then
tCveAlmacenExistencia = drr("CveAlmacenConsignacion").ToString.ToEntero
Else Else
tCveAlmacenExistencia = drr("CveAlmacenAsignado").ToString.ToEntero tCveAlmacenExistencia = drr("CveAlmacenAsignado").ToString.ToEntero
End If End If