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

Error al agregar promociones

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-04-29 15:38:29 -07:00
parent d32f25c4e9
commit 9d37053711
1 changed files with 540 additions and 538 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/Promociones.aspx.vb
View File

@@ -146,6 +146,8 @@ Partial Class Ventas_Promociones
TempDT.Columns.Add("AplicaViernes", GetType(Boolean)) TempDT.Columns.Add("AplicaViernes", GetType(Boolean))
TempDT.Columns.Add("AplicaSabado", GetType(Boolean)) TempDT.Columns.Add("AplicaSabado", GetType(Boolean))
TempDT.Columns.Add("AplicaDomingo", GetType(Boolean)) TempDT.Columns.Add("AplicaDomingo", GetType(Boolean))
TempDT.Columns.Add("IncluyeImpuestos", GetType(Boolean))
End Sub End Sub
#Region " PS " #Region " PS "
@@ -276,7 +278,7 @@ Partial Class Ventas_Promociones
End If End If
Dr("CvePS") = If(DdlPS.SelectedValue = "", "-1", DdlPS.SelectedValue) Dr("CvePS") = If(DdlPS.SelectedValue = "", "-1", DdlPS.SelectedValue)
Dr("CodigoPS") = DdlPS.SelectedText Dr("CodigoPS") = If(String.IsNullOrEmpty(DdlPS.SelectedText), "Todos", DdlPS.SelectedText)
Dr("PUAnterior") = LbPUActual.Text.ToDecimal Dr("PUAnterior") = LbPUActual.Text.ToDecimal
Dr("CveTipoPromocion") = DdlTipoPromocion.SelectedValue.ToEntero Dr("CveTipoPromocion") = DdlTipoPromocion.SelectedValue.ToEntero