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

-- mejoras en el parámetro de clasificacion

Browse Source
This commit is contained in:
rrene
2022-04-22 07:15:38 -07:00
parent c84e1ce41d
commit c8acea187f
1 changed files with 27 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -1164,38 +1164,38 @@ Partial Class ContabilidadC_RegPrePolizaS
If MsgError = "" Then If MsgError = "" Then
'MENSAJE IE 'MENSAJE IE
'If CveIE Then 'If CveIE Then
' Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()") ' Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
'Else 'Else
' Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()") ' Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
'End If 'End If
Alert(If(MensajeAlert.ToString = "", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}</b>", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} </b><br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""") Alert(If(MensajeAlert.ToString = "", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}</b>", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} </b><br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""")
ObjIE.Commit() ObjIE.Commit()
If Conta IsNot Nothing Then Conta.Commit() If Conta IsNot Nothing Then Conta.Commit()
UPPDocumento.Update() UPPDocumento.Update()
TxtConcepto.Text = "" TxtConcepto.Text = ""
'GvMov.DataBind() 'GvMov.DataBind()
DdlPlantilla_SelectedIndexChanged(Nothing, Nothing) DdlPlantilla_SelectedIndexChanged(Nothing, Nothing)
TxtFechaDocumento.Text = "" TxtFechaDocumento.Text = ""
Else Else
Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError) Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
ObjIE.RollBack() ObjIE.RollBack()
If Conta IsNot Nothing Then Conta.RollBack() If Conta IsNot Nothing Then Conta.RollBack()
End If
ObjIE.Dispose()
ObjMov.Dispose()
If Conta IsNot Nothing Then Conta.Dispose()
End If End If
ObjIE.Dispose()
ObjMov.Dispose()
If Conta IsNot Nothing Then Conta.Dispose()
End If
End Sub End Sub
Private Sub ActualizarPrePoliza() Private Sub ActualizarPrePoliza()
@@ -1297,6 +1297,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim Cargo As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDouble Dim Cargo As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDouble
Dim Abono As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtAbono").Text.ToDouble Dim Abono As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtAbono").Text.ToDouble
Dim PorcentajeImpuesto As Double = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToEntero Dim PorcentajeImpuesto As Double = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToEntero
Dim CveClasificacion As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveClasificacion").ToEntero
'CargaConceptosContablesE() 'CargaConceptosContablesE()
'CargaModalConceptoCuentas() 'CargaModalConceptoCuentas()
@@ -1338,6 +1339,9 @@ Partial Class ContabilidadC_RegPrePolizaS
End If End If
DdlVentasE.SelectedValueExist(CveVenta) DdlVentasE.SelectedValueExist(CveVenta)
If CveClasificacion > 0 Then
DdlClasificacionesE.SelectedValue = CveClasificacion
End If
TxtConceptoE.Text = Concepto TxtConceptoE.Text = Concepto
TxtReferenciaE.Text = Referencia TxtReferenciaE.Text = Referencia