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

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
General/SaldosIniciales.aspx.vb
View File

@@ -10,7 +10,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
TxtFecha.Text = NowADS().ToShortDateString
End If
End Sub
@@ -2102,7 +2102,7 @@ Partial Class General_SaldosIniciales
Dim Cuenta As String = ""
Dim Reporte As New StringBuilder
IdPoliza = ObjConta.AddPoliza(1, "Saldos Iniciales", 0, 0, 100, Now.ToDate)
IdPoliza = ObjConta.AddPoliza(1, "Saldos Iniciales", 0, 0, 100, NowADS().ToDate)
@@ -2137,7 +2137,7 @@ Partial Class General_SaldosIniciales
If YaExiste = False Then
If IdCuenta > 0 Then
If Not ObjConta.AddMovimiento(IdPoliza, IdCuenta, CargoAbono, Importe, "", "Saldos Iniciales", -1, Now, "") Then
If Not ObjConta.AddMovimiento(IdPoliza, IdCuenta, CargoAbono, Importe, "", "Saldos Iniciales", -1, NowADS(), "") Then
TieneError = True
Exit For
End If