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

-- liga a póliza

Browse Source
This commit is contained in:
rrene
2021-03-05 13:06:09 -07:00
parent 7258f802b1
commit c0573c6ce9
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
General/SaldosIniciales.aspx.vb
View File

@@ -2021,7 +2021,7 @@ Partial Class General_SaldosIniciales
If YaExiste = False Then If YaExiste = False Then
If IdCuenta > 0 Then If IdCuenta > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 95, Concepto, Now.toDate, -1, -1, CveSubProyecto:=CveSubProyecto) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 95, Concepto, Now.toDate, -1, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto) Then
TieneError = True TieneError = True
Exit For Exit For
End If End If
@@ -2035,7 +2035,9 @@ Partial Class General_SaldosIniciales
If Not TieneError Then If Not TieneError Then
ObjConta.Commit() ObjConta.Commit()
Alert($"Se agregó la póliza {CvePrePoliza}") Alert(String.Format("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjConta.ContaFolio))
Alert($"Se agregó la póliza {ObjConta.ContaFolio}")
Else Else
Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError) Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError)