-- fecha en carga balanza

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