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

RepCxC y Detalle Metas, entrga almacen correcion descarga PDF

Browse Source
This commit is contained in:
rakcsle
2022-07-14 08:20:37 -07:00
parent 1edda56d1a
commit 5e6c246cb7
7 changed files with 100 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
CxC/RepCxC.aspx.vb
View File

@@ -811,6 +811,7 @@ Partial Class RepCxC
DdlTipo.SelectedValueExist(gvRow.DataKey("Tipo"))
TxtRI.Text = gvRow.DataKey("RangoInicial")
TxtRF.Text = gvRow.DataKey("RangoFinal")
TxtRObjetivo.Text = gvRow.DataKey("Objetivo").ToString.ToDecimal.ToString("###.00")
If Not TxtRF.Text.ToDouble > 0 Then
ChkMayor.Checked = True
TxtRF.Enabled = False
@@ -825,6 +826,7 @@ Partial Class RepCxC
DdlTipo.SelectedIndex = 0
TxtRI.Text = ""
TxtRF.Text = ""
TxtRObjetivo.Text = ""
ChkMayor.Checked = False
SoloNumeros2.Enabled = True
TxtRF.Enabled = True
@@ -864,12 +866,14 @@ Partial Class RepCxC
Dt("RangoFinal") = TxtRF.Text.ToDouble
Dt("Tipo") = DdlTipo.SelectedValue
Dt("TipoEscrito") = DdlTipo.SelectedItem.Text
Dt("Objetivo") = TxtRObjetivo.Text.ToDecimal
DtPersonalizarRango.Rows.InsertAt(Dt, DtPersonalizarRango.Rows.Count)
ElseIf Modalidad = "U" Then
DtPersonalizarRango.Rows(Index)("RangoInicial") = TxtRI.Text.ToDouble
DtPersonalizarRango.Rows(Index)("RangoFinal") = TxtRF.Text.ToDouble
DtPersonalizarRango.Rows(Index)("Tipo") = DdlTipo.SelectedValue
DtPersonalizarRango.Rows(Index)("TipoEscrito") = DdlTipo.SelectedItem.Text
DtPersonalizarRango.Rows(Index)("Objetivo") = TxtRObjetivo.Text.ToDecimal
DtPersonalizarRango.AcceptChanges()
End If
DtPersonalizarRango = DtPersonalizarRango.FiltraParametros("", "Tipo,RangoInicial,RangoFinal")
@@ -914,7 +918,7 @@ Partial Class RepCxC
ErrorTrans = True
End If
For Each Dr As DataRow In DtPersonalizarRango.Rows
If Not ObjComp.AddRepCxCColumnas(UsuarioActual.CveEmpresa, Dr("RangoInicial").ToString.ToDouble, Dr("RangoFinal").ToString.ToDouble, Dr("Tipo").ToString.ToEntero) Then
If Not ObjComp.AddRepCxCColumnas(UsuarioActual.CveEmpresa, Dr("RangoInicial").ToString.ToDouble, Dr("RangoFinal").ToString.ToDouble, Dr("Tipo").ToString.ToEntero, Dr("Objetivo").ToString.ToDecimal) Then
ErrorTrans = True
End If
Next