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

-- fecha en carga balanza

Browse Source
This commit is contained in:
rrene
2021-10-14 12:39:06 -07:00
parent 11eb5f753b
commit 7b9d77581d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
General/SaldosIniciales.aspx.vb
View File

@@ -11,7 +11,7 @@ Partial Class General_SaldosIniciales
Inherits ClsPaginas Inherits ClsPaginas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
TxtFecha.Text = Now.ToShortDateString
End If End If
End Sub End Sub
@@ -1695,7 +1695,7 @@ Partial Class General_SaldosIniciales
Dim Cuenta As String = "" Dim Cuenta As String = ""
Dim Reporte As New StringBuilder Dim Reporte As New StringBuilder
Dim SubProTemp As DataTable = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) Dim SubProTemp As DataTable = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa)
CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, Now.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
For Each Row As DataRow In dt.Rows For Each Row As DataRow In dt.Rows
NombreCuenta = Row("NombreCuenta").ToString NombreCuenta = Row("NombreCuenta").ToString