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

-- GDiaz, si not tiene pago, que permita para ecommerce

Browse Source
This commit is contained in:
rrene
2025-02-17 21:48:30 -07:00
parent e283f4450d
commit d735c47179
1 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -6,8 +6,6 @@ Imports System.Data.SqlClient
Imports System.IO Imports System.IO
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Partial Class Inventarios_EntregaAlmacen Partial Class Inventarios_EntregaAlmacen
Inherits ClsPaginas Inherits ClsPaginas
@@ -699,8 +697,8 @@ Partial Class Inventarios_EntregaAlmacen
Dim drvs As DataRow = objV.DtResultados.FiltroPrimero("") Dim drvs As DataRow = objV.DtResultados.FiltroPrimero("")
LtlRegistra.Text = drvs("VendedorNombre").ToString LtlRegistra.Text = drvs("VendedorNombre").ToString
'subproyecto e-commerce, si se permite surtir, sin tener registro de pago. cvesubproyecto:12849
If drvs("Saldo").ToString.ToDecimal > 0 AndAlso (drvs("CondicionesPago").ToString = "0" Or drvs("TipoDocto").ToString = "Rem") Then If drvs("Saldo").ToString.ToDecimal > 0 AndAlso drvs("CveSubProyecto").ToString <> "12849" AndAlso (drvs("CondicionesPago").ToString = "0" OrElse drvs("TipoDocto").ToString = "Rem") Then
Alert("El documento NO se encuentra pagado", TipoMensaje.MsgError) Alert("El documento NO se encuentra pagado", TipoMensaje.MsgError)
BtnGuardar.Visible = False BtnGuardar.Visible = False
End If End If
@@ -3458,11 +3456,11 @@ Partial Class Inventarios_EntregaAlmacen
End If End If
Limpia() Limpia()
CargaPendientes() CargaPendientes()
LimpiaCampos() LimpiaCampos()
CargaBitacora = False CargaBitacora = False
Else Else
ObjInventario.RollBack() ObjInventario.RollBack()
Alert(TextoError.ToString(), TipoMensaje.MsgError) Alert(TextoError.ToString(), TipoMensaje.MsgError)
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
End If End If