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

Cat Clientes, Columna permite crédito, Guardar Personalización

Browse Source
This commit is contained in:
rakcsle
2024-05-22 16:59:14 -07:00
parent 3c5abb30da
commit 6154a48d70
3 changed files with 485 additions and 146 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -717,6 +717,11 @@ Partial Class Inventarios_EntregaAlmacen
LbObservacionesAlmacen.Text = drE("ObservacionesAlmacen").ToString()
CveVentaSurtir = CveVenta
CveOSSurtir = CveOS
If TipoDocto = "Ped" And CveOSSurtir <= 0 Then
CveOSSurtir = drE("CveOS").ToString().ToEntero
End If
CveTipoVenta = drE("CveTipoVenta").ToString().ToEntero
CveAlmacenTraspasoDestino = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString().ToEntero()
CveAlmacenTraspasoOrigen = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString().ToEntero()
@@ -1062,7 +1067,8 @@ Partial Class Inventarios_EntregaAlmacen
If CargaBitacora Then
CargaBitacoraSerie()
End If
End If
Else
End If
End If