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

-- columna nueva de fechainiciovigencia

Browse Source
This commit is contained in:
rrene
2023-03-07 19:08:47 -07:00
parent e2635a1901
commit 44f61bec75
3 changed files with 47 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Acumuladores/CatGarantiasMeses.aspx.vb
View File

@@ -126,7 +126,7 @@ Partial Class Acumuladores_CatFoliosGarantia
Dim ObjAcum As New ClsAcumuladores
If Not Actualizar Then
If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TxtMes.Text = TxtMes.Text.ToEntero + 1
TxtValor.Text = ""
@@ -147,7 +147,7 @@ Partial Class Acumuladores_CatFoliosGarantia
Alert("Ocurrió un error al guardar la Garantía de Mes", TipoMensaje.MsgError)
End If
Else
If ObjAcum.GarantiasMesesUpdate(CveGarantiaMes, DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario) Then
If ObjAcum.GarantiasMesesUpdate(CveGarantiaMes, DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario) Then
TxtMes.Text = ""
TxtValor.Text = ""
@@ -211,6 +211,7 @@ Partial Class Acumuladores_CatFoliosGarantia
TxtMes.Text = GvRow.DataKey("Mes")
TxtValor.Text = GvRow.DataKey("Valor")
txtFechaI.Text = GvRow.DataKey("FechaInicioVigencia")
CargaCombosModal()
DdlMarcaM.SelectedValueExist(GvRow.DataKey("CveMarca").ToEntero)
DdlTipoUsoM.SelectedValueExist(GvRow.DataKey("CveTipoUso").ToEntero)