From 7b9d77581dd4a3c97924ebb51882cafb802c6f5a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 14 Oct 2021 12:39:06 -0700 Subject: [PATCH] -- fecha en carga balanza --- General/SaldosIniciales.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 4d9c3b474..80285172c 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -11,7 +11,7 @@ Partial Class General_SaldosIniciales Inherits ClsPaginas Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then - + TxtFecha.Text = Now.ToShortDateString End If End Sub @@ -1695,7 +1695,7 @@ Partial Class General_SaldosIniciales Dim Cuenta As String = "" Dim Reporte As New StringBuilder 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 NombreCuenta = Row("NombreCuenta").ToString