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

4
Bancos/CIF.aspx.vb
View File

@@ -45,8 +45,8 @@ Partial Class Bancos_CIF
'For Each x As DataRow In GlobalDTContaPlantillasPolizasDetalle(DdlTipoMovimiento.SelectedValue.ToEntero).Rows
' TipoMovto = CBool(x("TipoMovto"))
' 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, TxtConcepto.Text, DdlTipoMovimiento.SelectedValue.ToEntero, TxtObservacion.Text, Now, 0, -1, CveIE) Then
' If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Importe, TxtConcepto.Text, 30, TxtObservacion.Text, Now, 0, -1, CveIE) Then
' 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, TxtConcepto.Text, DdlTipoMovimiento.SelectedValue.ToEntero, TxtObservacion.Text, NowADS(), 0, -1, CveIE) Then
' If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Importe, TxtConcepto.Text, 30, TxtObservacion.Text, NowADS(), 0, -1, CveIE) Then
' ''End If
' Else
' Alert("No se pudo insertar el Detalle de la Póliza", TipoMensaje.MsgAdvertencia)

6
Bancos/CargarConciliacionesBancarias.aspx.vb
View File

@@ -46,8 +46,8 @@ Partial Class Bancos_CargarConciliacionesBancarias
DdlCuentaModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlCuentaModal.DataBind()
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
Modalidad = ""
End Sub
@@ -237,7 +237,7 @@ Partial Class Bancos_CargarConciliacionesBancarias
Protected Sub LnkAgregarMovimiento_Click(sender As Object, e As EventArgs)
Modalidad = "A"
TxtReferencia.Text = ""
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
TxtImporte.Text = ""
DdlTipo.SelectedIndex = 0
DdlCuentaModal.SelectedIndex = 0

8
Bancos/ConciliacionesBancarias.aspx.vb
View File

@@ -78,8 +78,8 @@ Partial Class Bancos_ConciliacionesBancariasaspx
DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCuenta.DataBind()
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
ModalidadConciliacion = ""
ModalidadDesconciliar = ""
@@ -398,7 +398,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
Protected Sub LnkDesconciliarTodos_Click(sender As Object, e As EventArgs)
ModalidadDesconciliar = "DT"
TxtFechaDesconciliado.Text = Now.ToShortDateString
TxtFechaDesconciliado.Text = NowADS().ToShortDateString
CveIEDesconciliar = 0
UpDesconciliar.Update()
RegistraScript("$('#DModalDesconciliar').modal()")
@@ -563,7 +563,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
Dim params As New List(Of ReportParameter)()
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString()))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString()))
Dim FormatoFecha As DateTimeFormatInfo = CultureInfo.CurrentCulture.DateTimeFormat
Dim NombreMes As String = FormatoFecha.GetMonthName(txtFechaI.Text.ToDate.Month).ToUpper
params.Add(New ReportParameter("Encabezado", $"{DdlCuenta.SelectedItem.Text} {NombreMes} {txtFechaI.Text.ToDate.Year}"))

18
Bancos/Creditos.aspx.vb
View File

@@ -160,7 +160,7 @@ Partial Class Bancos_Creditos
RegeneraTablaAmortizacion = False
'Fecha Default
TxtFechaInicio.Text = DateTime.Now().ToString("dd/MM/yyyy")
TxtFechaInicio.Text = NowADS().ToString("dd/MM/yyyy")
'Carga Proveedores | Entidad Financiera
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -688,7 +688,7 @@ Partial Class Bancos_Creditos
' If CveIE < 0 Then
' ErrorCredito = True
' End If
' 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToString.ToDouble, "Crédito", 50, "", Now, 0, -1, CveIE, ImporteMX:=TxtCSTotalCredito.Text.ToString.ToDouble) Then
' 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToString.ToDouble, "Crédito", 50, "", NowADS(), 0, -1, CveIE, ImporteMX:=TxtCSTotalCredito.Text.ToString.ToDouble) Then
' ' ErrorCredito = True
' 'End If
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "", CveIE:=CveIE) Then
@@ -878,19 +878,19 @@ Partial Class Bancos_Creditos
'If Not ErrorCredito AndAlso CveIE > 0 Then
' If CvePrePoliza > 0 Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtVehiculoAnticipo.Text.ToDouble, "Enganche", 53, "", Now, 0, -1, CveIE) Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtVehiculoAnticipo.Text.ToDouble, "Enganche", 53, "", NowADS(), 0, -1, CveIE) Then
' ErrorCredito = True
' End If
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtComisionAnticipo.Text.ToDouble, "Comisión", 54, "", Now, 0, -1, CveIE) Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtComisionAnticipo.Text.ToDouble, "Comisión", 54, "", NowADS(), 0, -1, CveIE) Then
' ErrorCredito = True
' End If
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtSeguroAnticipo.Text.ToDouble, "Seguro", 55, "", Now, 0, -1, CveIE) Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtSeguroAnticipo.Text.ToDouble, "Seguro", 55, "", NowADS(), 0, -1, CveIE) Then
' ErrorCredito = True
' End If
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtFondoGarantia.Text.ToDouble, "Fondo en Garantía", 58, "", Now, 0, -1, CveIE) Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtFondoGarantia.Text.ToDouble, "Fondo en Garantía", 58, "", NowADS(), 0, -1, CveIE) Then
' ErrorCredito = True
' End If
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TotalAnticipo, "Banco", 30, "", Now, 0, -1, CveIE) Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TotalAnticipo, "Banco", 30, "", NowADS(), 0, -1, CveIE) Then
' ErrorCredito = True
' End If
' Else
@@ -1573,7 +1573,7 @@ Partial Class Bancos_Creditos
Dim TipoMovimiento As Boolean = False
Dim Concepto As String = ""
Dim Referencia As String = $"Crédito: {TxtReferencia.Text}"
Dim FechaMovimiento As Date = Now.ToDate
Dim FechaMovimiento As Date = NowADS().ToDate
Dim MsgError As String = ""
CvePrePoliza = ObjContabilidad.AddPrePolizas("Creditos/RegistrodeRegistro", 69, TxtCSTotalCredito.Text.ToDouble, TxtCSTotalCredito.Text.ToDouble, DdlCSTipoMoneda.SelectedValue.ToEntero, FechaMovimiento, $"Crédito: {TxtReferencia.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -1585,7 +1585,7 @@ Partial Class Bancos_Creditos
importeMovimiento = TxtVehiculoValor.Text.ToDecimal - TxtVehiculoAnticipo.Text.ToDecimal 'importe financiado
Concepto = $"Crédito: {TxtReferencia.Text}"
Dim Pago As New CompraPago
Pago.Fecha = Now
Pago.Fecha = NowADS()
Pago.CveIE = CveIE
Dim ObjCompra As New ClsCompras

2
Bancos/CreditosPagoMultiple.aspx.vb
View File

@@ -28,7 +28,7 @@ Partial Class Bancos_CreditosPagoMultiple
CveMoneda = 1
CargaTipoTransaccion()
CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
CargaProveedores() ' CveProveedor = 19994
TxtPagueseA.Enabled = False

2
Bancos/CuentasBancariasDetalle.aspx.vb
View File

@@ -59,7 +59,7 @@ Partial Class Bancos_CuentasBancariasDetalle
InicializaConvenio()
Else
'Configuración de Modalidad Insert
LblFecha.Text = Now.ToShortDateString()
LblFecha.Text = NowADS().ToShortDateString()
LtlTitulo.Text = "Agregar Nueva Cuenta Bancaria"
ViewState("CveCuenta") = -1
BtnEliminar.Visible = False

2
Bancos/DepositoTerminal.aspx.vb
View File

@@ -20,7 +20,7 @@ Partial Class Bancos_DepositoTerminal
Private Sub Bancos_DepositoTerminal_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
CargaCuentas()
If UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 72, 80, 119) Then

6
Bancos/DepositosCaja.aspx.vb
View File

@@ -18,9 +18,9 @@ Partial Class Bancos_DepositosCaja
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
FacturasCheckadas = 0
TxtFecha.Text = Now.ToShortDateString
txtFechaI.Text = Now.AddDays(-1).ToShortDateString
txtFechaF.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
txtFechaI.Text = NowADS().AddDays(-1).ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
TxtComision.Attributes.Add("onKeyUp", "txtSuma(this);")
TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(this);")
TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(this);")

4
Bancos/Devoluciones.aspx.cs
View File

@@ -199,7 +199,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
ClsMovimientos ObjMov = new ClsMovimientos();
ClsClientes clsClientes = new ClsClientes();
if (ObjMov.GetMovimientosIE(1, CveCliente, DdlCuenta.SelectedValue.ToEntero(), MinFecha, DateTime.Now, 1, -1, UsuarioActual.CveEmpresa))
if (ObjMov.GetMovimientosIE(1, CveCliente, DdlCuenta.SelectedValue.ToEntero(), MinFecha, NowADS(), 1, -1, UsuarioActual.CveEmpresa))
{
GvDevoluciones.DataSource = ObjMov.DtResultados.FiltraParametros("Saldo > 0 ");
GvDevoluciones.DataBind();
@@ -419,7 +419,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
int vecesAplicar = TxtVecesAplicar.Text.ToEntero();
decimal montoLimite = 0;
string fechaInicioAplicacion = DateTime.Now.ToString("yyyy/MM/dd");
string fechaInicioAplicacion = NowADS().ToString("yyyy/MM/dd");
bool estatus = true;
int CveCuenta = -1;
int CveMovtoPermanente = ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta);

20
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -47,9 +47,9 @@ Partial Class Bancos_FluctuacionCambiaria
#Region "CARGAS"
Private Sub CargaFechas()
'Año actual
DdlAnio.Items.Add(New ListItem(Now.Year.ToString(), Now.Year.ToString()))
DdlAnio.Items.Add(New ListItem(NowADS().Year.ToString(), NowADS().Year.ToString()))
'Año Anterior
DdlAnio.Items.Add(New ListItem(Now.AddYears(-1).Year.ToString(), Now.AddYears(-1).Year.ToString()))
DdlAnio.Items.Add(New ListItem(NowADS().AddYears(-1).Year.ToString(), NowADS().AddYears(-1).Year.ToString()))
For i As Integer = 1 To 12
Dim fecha As DateTime = New DateTime(DdlAnio.SelectedValue.ToEntero(), i, 1)
@@ -59,7 +59,7 @@ Partial Class Bancos_FluctuacionCambiaria
DdlMes.Items.Add(New ListItem(mesStr, i.ToString()))
Next
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now)
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(NowADS())
If UltimaFluctuacion IsNot Nothing Then
DdlMes.SelectedValueExist(UltimaFluctuacion.FechaFluctuacion.Month)
DdlMes.SelectedValueExist(UltimaFluctuacion.FechaFluctuacion.Year)
@@ -98,17 +98,17 @@ Partial Class Bancos_FluctuacionCambiaria
Private Sub CargaUltimaFluctuacion()
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now)
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(NowADS())
If UltimaFluctuacion IsNot Nothing Then
LtlUltimaFluctuacion.Text = String.Format("Ultima Fluctuación : {0}", UltimaFluctuacion.FechaFluctuacion.ToShortDateString)
'si la ultima fluctuacion es mayor o igual al fin de mes anterior, entonces pon la fecha actual
If UltimaFluctuacion.FechaFluctuacion >= Now.AddMonths(-1).LastDayOfMonth Then
DdlMes.SelectedValueExist(Now.Month)
DdlAnio.SelectedValueExist(Now.Year)
If UltimaFluctuacion.FechaFluctuacion >= NowADS().AddMonths(-1).LastDayOfMonth Then
DdlMes.SelectedValueExist(NowADS().Month)
DdlAnio.SelectedValueExist(NowADS().Year)
Else
DdlMes.SelectedValueExist(Now.AddMonths(-1).Month)
DdlAnio.SelectedValueExist(Now.AddMonths(-1).Year)
DdlMes.SelectedValueExist(NowADS().AddMonths(-1).Month)
DdlAnio.SelectedValueExist(NowADS().AddMonths(-1).Year)
End If
End If
@@ -1238,7 +1238,7 @@ Partial Class Bancos_FluctuacionCambiaria
StrFiltro.AppendFormat("TC: {0}", LtTipoCambioActual.Text)
If (T.ActiveTabIndex = 0) Then
'GvProveedores.ExportToExcelGembox("FluctuacionCambiariaProveedores_" & Now.ToShortDateString)
'GvProveedores.ExportToExcelGembox("FluctuacionCambiariaProveedores_" & NowADS().ToShortDateString)
GvProveedores.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Proveedores", DatosFiltros:=StrFiltro.ToString())
ElseIf (T.ActiveTabIndex = 1) Then
GvProveedoresAnt.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Proveedores Anticipos", DatosFiltros:=StrFiltro.ToString())

4
Bancos/FlujoDiario.aspx.vb
View File

@@ -44,7 +44,7 @@ Partial Class Bancos_FlujoDiario
Private Sub Bancos_FlujoDiario_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
TxtFecha.Text = Now.ToString
TxtFecha.Text = NowADS().ToString
End If
End Sub
@@ -55,7 +55,7 @@ Partial Class Bancos_FlujoDiario
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Fecha", TxtFecha.Text.ToDate.ToLongDateString))
If Imagen.Exists Then

28
Bancos/IE.aspx.vb
View File

@@ -582,7 +582,7 @@ Partial Class Bancos_IE
Folio = ""
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
TxtImporte.Attributes.Add("onblur", "upIE(this);FncImporteCuenta(this);")
'Calendario.StartDate = Now.AddMonths(-2).FirstDayOfMonth()
'Calendario.StartDate = NowADS().AddMonths(-2).FirstDayOfMonth()
ViewState("IDPoliza") = "-1"
CveIEDeposito = -1
CveIEDeposito2 = -1
@@ -591,8 +591,8 @@ Partial Class Bancos_IE
CvePrePoliza = -1
CveSolicitudViatico = -1
ComplementoSerieFolio = ""
'TxtFechaDevuelto.Text = Now.ToShortDateString
TxtFechaCancelacion.Text = Now.ToShortDateString
'TxtFechaDevuelto.Text = NowADS().ToShortDateString
TxtFechaCancelacion.Text = NowADS().ToShortDateString
CveCompraDeCDin = -1
'If UsuarioActual.CveEmpresa.Contiene(66) Then trNotificar.Visible = True
@@ -736,7 +736,7 @@ Partial Class Bancos_IE
'Configuración de Modalidad Insert
ImgAddObs.Visible = False
CveIE = -1
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
ImgUpdateCuentaDeposito.Visible = False
TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
End If
@@ -2102,7 +2102,7 @@ Partial Class Bancos_IE
If CveCliente > 0 AndAlso Not DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDouble = 0 Then
'RMF- CASO DONDE HAY UNA DEVOLUCION Y TENGO QUE AFECTAR LAS FACTURAS QUE SE HABIAN MARCADO COMO PAGADAS TENGO QUE REGRESARLAS A PENDIENTES
Dim Mov As New ClsMovimientos
If Mov.GetMovimientosIE(2, DdlIEDevolucion.SelectedValue.ToEntero, -1, Now, Now, 1, 0, UsuarioActual.CveEmpresa) Then
If Mov.GetMovimientosIE(2, DdlIEDevolucion.SelectedValue.ToEntero, -1, NowADS(), NowADS(), 1, 0, UsuarioActual.CveEmpresa) Then
Dim DtIE As DataTable = Mov.DtResultados
For Each dr As DataRow In DtIE.Rows
@@ -2148,7 +2148,7 @@ Partial Class Bancos_IE
Dim ConceptoContable As Integer
Dim TipoMovimiento As Boolean
Dim importeMovimiento As Decimal
Dim FechaMovimiento As Date = Now
Dim FechaMovimiento As Date = NowADS()
Dim Concepto As String = ""
Dim Referencia As String = PagueseA
@@ -2715,7 +2715,7 @@ Partial Class Bancos_IE
Dim ConceptoContable As Integer
Dim TipoMovimiento As Boolean
Dim importeMovimiento As Decimal = TxtImporte.Text.ToDecimal
Dim FechaMovimiento As Date = Now
Dim FechaMovimiento As Date = NowADS()
Dim Concepto As String = ""
Dim Referencia As String = PagueseA
Dim CveCredito As Integer
@@ -3541,7 +3541,7 @@ Partial Class Bancos_IE
Dim ObjCancelacion As New Timbrado
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then
If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, NowADS(), "", 1) Then
CargaComplementosPago()
RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
ErrorCancelarComplemento = False
@@ -4031,7 +4031,7 @@ Partial Class Bancos_IE
If HdnCveCliente.Value.ToEntero > 0 Then
trIEDevolucion.Visible = True
If ObjMov.GetMovimientosIE(1, HdnCveCliente.Value.ToEntero, DdlCuenta.SelectedValue.ToEntero, Now.AddMonths(-24), Now, CveMoneda, -1, UsuarioActual.CveEmpresa) Then
If ObjMov.GetMovimientosIE(1, HdnCveCliente.Value.ToEntero, DdlCuenta.SelectedValue.ToEntero, NowADS().AddMonths(-24), NowADS(), CveMoneda, -1, UsuarioActual.CveEmpresa) Then
DtIEDevolucion = ObjMov.DtResultados.FiltraParametros("Saldo > 0 ")
Else
Alert("Ocurrió un error al cargar los Egresos del Proveedor seleccionado. Por favor vuelva a intetar.", TipoMensaje.MsgError)
@@ -4867,7 +4867,7 @@ Partial Class Bancos_IE
Protected Sub LnkCancelar_Click(sender As Object, e As EventArgs)
If ChkConciliado.Checked AndAlso UsuarioActual.CveEmpresa = 119 Then
'TxtFechaDesconciliado.Text = Now.ToShortDateString
'TxtFechaDesconciliado.Text = NowADS().ToShortDateString
'UpDesconciliar.Update()
'RegistraScript("$('#DModalDesconciliar').modal()")
Dim fechaCancelacion As String = TxtFechaAplicado.Text.ToDate.AddMonths(1).FirstDayOfMonth.ToShortDateString
@@ -4916,7 +4916,7 @@ Partial Class Bancos_IE
Dim Banco As New ClsBancos
If Banco.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
If Banco.GetComplementoPagosRep(-1, NowADS().AddYears(-2), NowADS(), CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
If Not Banco.DtResultados.Rows.Count > 0 Then
Banco.Dispose()
Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
@@ -5381,7 +5381,7 @@ Partial Class Bancos_IE
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then
If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, NowADS(), "", 1) Then
CargaComplementosPago()
Alert("El complemento se cancelo correctamente.")
End If
@@ -5612,8 +5612,8 @@ Partial Class Bancos_IE
UpEliminarCotizacion.Update()
End Sub
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
Calendario.EndDate = DateTime.Now
RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
Calendario.EndDate = NowADS()
End Sub
Private Sub CargaOCRelacionadas()

22
Bancos/IE2.aspx.vb
View File

@@ -94,7 +94,7 @@ Partial Class Bancos_IE
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
TxtImporte.Attributes.Add("onblur", "upIE(this);")
Calendario.StartDate = Now.AddMonths(-1)
Calendario.StartDate = NowADS().AddMonths(-1)
' rbPagueseA.Attributes.Add("onchange", "upPagueseA(this);")
'If UsuarioActual.CveRol = 1 Then
'rbPagueseAFuncionarioEmpleado.Visible = True : lblPagueseAFuncionarioEmpleado.Visible = True : rbPagueseAProveedor.Visible = True : lblPagueseAProveedor.Visible = True
@@ -210,7 +210,7 @@ Partial Class Bancos_IE
'Configuración de Modalidad Insert
ImgAddObs.Visible = False
CveIE = -1
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
End If
@@ -889,14 +889,14 @@ Partial Class Bancos_IE
If Not Opcion.Contiene("DEV", "ANTC") AndAlso MsgError = "" Then
'MOVIMIENTOS EGRESOS
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
Dim IVA As Double = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtObservaciones.Text, 19, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtObservaciones.Text, 19, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
MsgError = "Detalle"
End If
'intereses pagados
If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, TxtObservaciones.Text, 46, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, TxtObservaciones.Text, 46, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
MsgError = "Detalle"
End If
Else
@@ -910,8 +910,8 @@ Partial Class Bancos_IE
'MOVIMIENTOS INGRESOS - DEVOLUCIONES
ElseIf Opcion.Contiene("DEV", "ANTC") AndAlso MsgError = "" Then
'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCliente:=CveCliente, CveCreditoDetalle:=CveCreditoDetalle) Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, If(CveProveedor > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCliente:=CveCliente, CveCreditoDetalle:=CveCreditoDetalle) Then
'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCliente:=CveCliente, CveCreditoDetalle:=CveCreditoDetalle) Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, NowADS(), 0, -1, If(CveProveedor > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCliente:=CveCliente, CveCreditoDetalle:=CveCreditoDetalle) Then
' MsgError = "no se pudo insertar el detalle de la póliza 2"
' End If
'Else
@@ -922,7 +922,7 @@ Partial Class Bancos_IE
Dim tipoCambio As Decimal
If DdlMoneda.SelectedValue.ToString.ToEntero = 2 Then
tipoCambio = GlobalTipoCambio(Now).ToString.ToDecimal
tipoCambio = GlobalTipoCambio(NowADS()).ToString.ToDecimal
Else
tipoCambio = 1
End If
@@ -958,8 +958,8 @@ Partial Class Bancos_IE
Else 'EMpresa Prueba
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, If(CveProveedor > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, NowADS(), 0, -1, If(CveProveedor > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
MsgError = "no se pudo insertar el detalle de la póliza 2"
End If
Else

16
Bancos/MovimientosBancarios.aspx.vb
View File

@@ -178,9 +178,9 @@ Partial Class Bancos_MovimientosBancarios
'''''' LLENADO HEADER
Dim convenio As String = "000775770"
'Campos #1-4 del Header
HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
HeaderTexto &= String.Format("{0}{1}", DTProveedorActual(0)("CveProveedor"), DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
HeaderTexto &= String.Format("{0}{1}", DTProveedorActual(0)("CveProveedor"), NowADS().ToString("yyyyMMdd")).PadRight(20)
'Campos #6-8 del Header
HeaderTexto &= String.Format("00").PadRight(586)
Dim HeaderLength = HeaderTexto.Length
@@ -209,7 +209,7 @@ Partial Class Bancos_MovimientosBancarios
'Llenamos en blanco datos de otros bancos
'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), DateTime.Now().ToString("yyyy-MM-dd"))
DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS().ToString("yyyy-MM-dd"))
'Otros Bancos NACIONAL!!
Else
@@ -218,7 +218,7 @@ Partial Class Bancos_MovimientosBancarios
'Llenamos datos de otros bancos
'Campos 8- 17 del detalle --- 44 de otros bancos --- 20 de internacional --- 45 Filler -- Fecha de Alta
DetalleTexto &= String.Format("MXP40{0}0014{1}{2}{3}", RowBanco("CLABE").ToString.PadLeft(35, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), DateTime.Now().ToString("yyyy-MM-dd"))
DetalleTexto &= String.Format("MXP40{0}0014{1}{2}{3}", RowBanco("CLABE").ToString.PadLeft(35, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS().ToString("yyyy-MM-dd"))
End If
'Llenamos datos de Tipo de Persona - Fisica o Moral
@@ -282,7 +282,7 @@ Partial Class Bancos_MovimientosBancarios
' 'Campos 19-21 --- 60 Tipo Persona Moral y 10 FILLER
' DetalleTexto &= Vacio.PadLeft(70)
' 'Campos 22-26 --- Tipo Persona Fisica y #26 RFC
' DetalleTexto &= String.Format("{0}{1}{2}{3}{4}", TxtNombrePF.Text.ToUpper.PadRight(20), TxtApellidoPPF.Text.ToUpper.PadRight(20), TxtApellidoMPF.Text.ToUpper.PadRight(20), DateTime.Now().ToString("yyyy-MM-dd"), TxtRFC.Text.ToUpper.PadRight(14))
' DetalleTexto &= String.Format("{0}{1}{2}{3}{4}", TxtNombrePF.Text.ToUpper.PadRight(20), TxtApellidoPPF.Text.ToUpper.PadRight(20), TxtApellidoMPF.Text.ToUpper.PadRight(20), NowADS().ToString("yyyy-MM-dd"), TxtRFC.Text.ToUpper.PadRight(14))
' End If
'End Sub
@@ -337,9 +337,9 @@ Partial Class Bancos_MovimientosBancarios
'''''' LLENADO HEADER
'Campos #1-4 del Header
HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
HeaderTexto &= String.Format("P{0}{1}", DateTime.Now().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
HeaderTexto &= String.Format("P{0}{1}", NowADS().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
'Campos #6-11 del Header
HeaderTexto &= String.Format("00").PadRight(1314)
@@ -377,7 +377,7 @@ Partial Class Bancos_MovimientosBancarios
End If
'Campos 24-50 del Detalle 0 1 2 3 4 5 6 7 8 9
DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Vacio.PadRight(50), Vacio.PadRight(12, PadCeros), DateTime.Now.ToString("yyyy-MM-dd"), "0001-01-01", Datos.PadRight(700), Vacio.PadRight(52))
DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Vacio.PadRight(50), Vacio.PadRight(12, PadCeros), NowADS().ToString("yyyy-MM-dd"), "0001-01-01", Datos.PadRight(700), Vacio.PadRight(52))
TotalAcumulado += Importe.ToEntero
End Sub
#End Region

6
Bancos/NotificacionCheques.aspx.vb
View File

@@ -31,8 +31,8 @@ Partial Class Bancos_NotificacionCheques
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaI.Text = Now.AddMonths(-1).FirstDayOfMonth.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().AddMonths(-1).FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
CargaTipoTransaccion("Egs")
CargaPorNotificar()
CargaPorEntregar()
@@ -470,7 +470,7 @@ Partial Class Bancos_NotificacionCheques
Dim objIE As New ClsBancos
If objIE.UpdateBancos_IENotificaciones(2, Now.ToString("dd/MM/yyyy"), gvr.FCTextBox("txtObservacionEntrega").Text, gvr.DataKey("CveIE").ToEntero) Then
If objIE.UpdateBancos_IENotificaciones(2, NowADS().ToString("dd/MM/yyyy"), gvr.FCTextBox("txtObservacionEntrega").Text, gvr.DataKey("CveIE").ToEntero) Then
Alert("Cheque marcado como Entregado")
End If

8
Bancos/PagoAcreedor.aspx.cs
View File

@@ -44,10 +44,10 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
CargaProveedores();
CargaReporte();
CargaSubproyectos();
TxtFechaDocumento.Text = DateTime.Now.ToShortDateString();
TxtFechaPrestamo.Text = DateTime.Now.ToShortDateString();
txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = DateTime.Now.ToShortDateString();
TxtFechaDocumento.Text = NowADS().ToShortDateString();
TxtFechaPrestamo.Text = NowADS().ToShortDateString();
txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = NowADS().ToShortDateString();
TxtImporte.Attributes.Add("disabled", "disabled");
}

8
Bancos/PagoDeudor.aspx.cs
View File

@@ -47,10 +47,10 @@ public partial class Bancos_PagoDeudor : ClsPaginas
CveMonedaPrestamo = 1;
UsaComplementaria = false;
if (UsuarioActual.CveEmpresa.Contiene(1, 119)) { UsaComplementaria = true; }
TxtFechaDocumento.Text = DateTime.Now.ToShortDateString();
TxtFechaPrestamo.Text = DateTime.Now.ToShortDateString();
txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = DateTime.Now.ToShortDateString();
TxtFechaDocumento.Text = NowADS().ToShortDateString();
TxtFechaPrestamo.Text = NowADS().ToShortDateString();
txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = NowADS().ToShortDateString();
TxtTCDolaresPrestamo.Text = get_GlobalTipoCambio(TxtFechaPrestamo.Text.ToDateTime()).FormatoNumero(4);
TxtTCDolaresPago.Text = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDateTime()).FormatoNumero(4);
TxtImporte.Attributes.Add("disabled", "disabled");

48
Bancos/PagoElectronico.aspx.vb
View File

@@ -174,8 +174,8 @@ Partial Class Bancos_PagoElectronico
CveCuenta = -1
TipoMasiva = 1
txtFechaI.Text = Date.Now.ToShortDateString
txtFechaF.Text = Date.Now.ToShortDateString
txtFechaI.Text = NowADS().ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
CargaCuentas()
CargaProveedores()
@@ -309,7 +309,7 @@ Partial Class Bancos_PagoElectronico
.Clear()
.Buffer = True
.ContentType = "textplain"
.AddHeader("Content-Disposition", String.Format("attachment;filename={0}{1}.txt", NombreArchivo, Date.Now.ToString("ddMMyyyy")))
.AddHeader("Content-Disposition", String.Format("attachment;filename={0}{1}.txt", NombreArchivo, NowADS().ToString("ddMMyyyy")))
.Charset = "UTF-8"
.ContentEncoding = Encoding.Default
.Write(TextoCompleto)
@@ -337,7 +337,7 @@ Partial Class Bancos_PagoElectronico
DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta))
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, Date.Now.ToString("yyyyMMdd-HH-mm"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))
Dim path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)
Dim fs As FileStream = File.Create(path)
@@ -412,7 +412,7 @@ Partial Class Bancos_PagoElectronico
'Si la fecha de generacion del archivo es diferente de hoy activamos el boton REGENERAR
'If e.Row.DBCampo("Fecha").ToDate.ToShortDateString <> Date.Now.ToShortDateString Then
'If e.Row.DBCampo("Fecha").ToDate.ToShortDateString <> NowADS().ToShortDateString Then
' e.Row.FCLinkButton("LBRegenerar").Visible = True
'End If
If DTEnviadas.MAX("FueConciliado", String.Format("CveLayoutEnvio = {0}", e.Row.DBCampo("CveLayoutEnvio"))).ToEntero > 0 Then
@@ -673,7 +673,7 @@ Partial Class Bancos_PagoElectronico
'Llenamos en blanco datos de otros bancos
'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), DateTime.Now().ToString("yyyy-MM-dd"))
DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS().ToString("yyyy-MM-dd"))
'Otros Bancos NACIONAL!!
@@ -687,7 +687,7 @@ Partial Class Bancos_PagoElectronico
'Llenamos datos de otros bancos
'Campos 8- 17 del detalle --- 44 de otros bancos --- 20 de internacional --- 45 Filler -- Fecha de Alta
DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), DateTime.Now().ToString("yyyy-MM-dd"))
DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS().ToString("yyyy-MM-dd"))
End If
'Llenamos datos de Tipo de Persona - Fisica o Moral
@@ -800,14 +800,14 @@ Partial Class Bancos_PagoElectronico
'''''' LLENADO HEADER
Dim convenio As String = DTPendienteActual(0)("ConvenioPagoElectronico").ToString
'Campos #1-4 del Header
HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").Replace("\", "").Replace("-", "").Replace("&", "").Replace(",", "").Replace("+", "").Replace("_", "").ToUpper.Trim
IdentificadoUsuario = If(IdentificadoUsuario.Length > 12, IdentificadoUsuario.Substring(0, 12), IdentificadoUsuario)
' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd")))
' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, NowADS().ToString("yyyyMMdd")))
HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, NowADS().ToString("yyyyMMdd")).PadRight(20)
'Campos #6-8 del Header
HeaderTexto &= String.Format("00").PadRight(586)
Dim HeaderLength As Integer = HeaderTexto.Length
@@ -893,7 +893,7 @@ Partial Class Bancos_PagoElectronico
'ACTUALIZA FECHADOCUMENTO DEL IE
'If CveBLE > 0 Then
' ObjBancos.UpdateBancos_IE(Date.Now, Date.Now, DTPendienteActual(0)("CveIE").ToString.ToEntero)
' ObjBancos.UpdateBancos_IE(NowADS(), NowADS(), DTPendienteActual(0)("CveIE").ToString.ToEntero)
'End If
If TotalDetalles > 0 Then
@@ -909,13 +909,13 @@ Partial Class Bancos_PagoElectronico
If CveBLE > 0 Then
'ACTUALIZAMOS EL ENVIO SI ES REGENERACION
If Not ObjBancos.UpdateLayoutEnvios(CveBLE, Date.Now) Then
If Not ObjBancos.UpdateLayoutEnvios(CveBLE, NowADS()) Then
ErrorLayout = True
End If
'GUARDAMOS EL ENVIO SI NO ES REGENERACION
Else
Dim CveLayoutEnvio As Integer = ObjBancos.AddLayoutEnvios(NombreArchivo, Date.Now, CveCuenta)
Dim CveLayoutEnvio As Integer = ObjBancos.AddLayoutEnvios(NombreArchivo, NowADS(), CveCuenta)
If CveLayoutEnvio > 0 Then
For Each dr As DataRow In DTTemp.Rows
@@ -1006,7 +1006,7 @@ Partial Class Bancos_PagoElectronico
'Correo = If(Correo.Length > 0, Correo.ToUpper.PadRight(50), Vacio.PadRight(50))
'Campos 24-50 del Detalle 0 1 2 3 4 5 6 7 8 9
DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Correo, Vacio.PadRight(12, PadCeros), DateTime.Now.ToString("yyyy-MM-dd"), "0001-01-01", Observaciones.PadRight(700), Vacio.PadRight(52))
DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Correo, Vacio.PadRight(12, PadCeros), NowADS().ToString("yyyy-MM-dd"), "0001-01-01", Observaciones.PadRight(700), Vacio.PadRight(52))
TotalAcumulado += Importe.ToDouble
''LLENA DTPAGOS PARA REPORTE
@@ -1032,9 +1032,9 @@ Partial Class Bancos_PagoElectronico
'''''' LLENADO HEADER
'Campos #1-4 del Header
HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
HeaderTexto &= String.Format("P{0}{1}", DateTime.Now().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
HeaderTexto &= String.Format("P{0}{1}", NowADS().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
'Campos #6-11 del Header
HeaderTexto &= String.Format("00").PadRight(1314)
@@ -1799,7 +1799,7 @@ Partial Class Bancos_PagoElectronico
'Llenamos en blanco datos de otros bancos
'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), DateTime.Now().ToString("yyyy-MM-dd"))
DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS().ToString("yyyy-MM-dd"))
'Otros Bancos NACIONAL!!
@@ -1813,7 +1813,7 @@ Partial Class Bancos_PagoElectronico
'Llenamos datos de otros bancos
'Campos 8- 17 del detalle --- 44 de otros bancos --- 20 de internacional --- 45 Filler -- Fecha de Alta
DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), DateTime.Now().ToString("yyyy-MM-dd"))
DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS().ToString("yyyy-MM-dd"))
End If
'Llenamos datos de Tipo de Persona - Fisica
@@ -1850,9 +1850,9 @@ Partial Class Bancos_PagoElectronico
'''''' LLENADO HEADER
Dim convenio As String = DTPendienteActual(0)("ConvenioPagoElectronico").ToString
'Campos #1-4 del Header
HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
HeaderTexto &= String.Format("{0}{1}", UsuarioActual.CveUsuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
HeaderTexto &= String.Format("{0}{1}", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd")).PadRight(20)
'Campos #6-8 del Header
HeaderTexto &= String.Format("00").PadRight(586)
Dim HeaderLength As Integer = HeaderTexto.Length
@@ -2289,7 +2289,7 @@ Partial Class Bancos_PagoElectronico
' strBody.Append(" <div> ")
' strBody.AppendFormat(" <b>Enviado el:</b> {0} {1}<br> ", Date.Now.ToLongDateString, Date.Now.ToShortTimeString)
' strBody.AppendFormat(" <b>Enviado el:</b> {0} {1}<br> ", NowADS().ToLongDateString, NowADS().ToShortTimeString)
' strBody.AppendFormat(" <b>Para:</b><a href='mailto:{0}' target='_blank'>{0}</a><br> ", If(UsuarioActual.CveEmpresa = 66, "PAGOS@GLUYASCONSTRUCCIONES.COM", ""))
' strBody.Append(" <b>Asunto:</b> CONFIRMACION SIT DISPERSION</span><span lang=ES><o:p></o:p></span> ")
' strBody.Append(" </p> ")
@@ -2751,7 +2751,7 @@ Partial Class Bancos_PagoElectronico
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
ImprimirPDF("Empresas/Grales/Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
@@ -2774,7 +2774,7 @@ Partial Class Bancos_PagoElectronico
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
ImprimirPDF("Empresas/Grales/Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
End If
@@ -2795,7 +2795,7 @@ Partial Class Bancos_PagoElectronico
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))

48
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -298,8 +298,8 @@ Partial Class Bancos_PagoElectronicoGrupos
CveCuenta = -1
TipoMasiva = 1
txtFechaI.Text = Date.Now.ToShortDateString
txtFechaF.Text = Date.Now.ToShortDateString
txtFechaI.Text = NowADS().ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
CargaCuentas()
CargaProveedores()
@@ -451,7 +451,7 @@ Partial Class Bancos_PagoElectronicoGrupos
.Clear()
.Buffer = True
.ContentType = "textplain"
.AddHeader("Content-Disposition", String.Format("attachment;filename={0}{1}.txt", NombreArchivo, Date.Now.ToString("ddMMyyyy")))
.AddHeader("Content-Disposition", String.Format("attachment;filename={0}{1}.txt", NombreArchivo, NowADS().ToString("ddMMyyyy")))
.Charset = "UTF-8"
.ContentEncoding = Encoding.Default
.Write(TextoCompleto)
@@ -478,12 +478,12 @@ Partial Class Bancos_PagoElectronicoGrupos
DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta))
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, Date.Now.ToString("yyyyMMdd-HH-mm-ss"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))
If Tipo = 1 Then
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, Date.Now.ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTPAGO")
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTPAGO")
Else
NombreArchivo = String.Format("{2}{1}{0}{3}.txt", UsuarioActual.CveUsuario, Date.Now.ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTALTA", If(MismoBanco, "BANCOMER", "INTERBANCARIO"))
NombreArchivo = String.Format("{2}{1}{0}{3}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTALTA", If(MismoBanco, "BANCOMER", "INTERBANCARIO"))
End If
If NombreArchivoEnviado.Length > 0 Then
@@ -600,7 +600,7 @@ Partial Class Bancos_PagoElectronicoGrupos
e.Row.FCLabel("LblArchivo").Text = e.Row.DataKey("Archivo")
'Si la fecha de generacion del archivo es diferente de hoy activamos el boton REGENERAR
'If e.Row.DBCampo("Fecha").ToDate.ToShortDateString <> Date.Now.ToShortDateString Then
'If e.Row.DBCampo("Fecha").ToDate.ToShortDateString <> NowADS().ToShortDateString Then
' e.Row.FCLinkButton("LBRegenerar").Visible = True
'End If
If DTEnviadas.MAX("FueConciliado", String.Format("CveLayoutEnvio = {0}", e.Row.DBCampo("CveLayoutEnvio"))).ToEntero > 0 Then
@@ -1029,7 +1029,7 @@ Partial Class Bancos_PagoElectronicoGrupos
' 'Llenamos en blanco datos de otros bancos
' 'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
' DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), DateTime.Now().ToString("yyyy-MM-dd"))
' DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS().ToString("yyyy-MM-dd"))
' 'Otros Bancos NACIONAL!!
@@ -1043,7 +1043,7 @@ Partial Class Bancos_PagoElectronicoGrupos
' 'Llenamos datos de otros bancos
' 'Campos 8- 17 del detalle --- 44 de otros bancos --- 20 de internacional --- 45 Filler -- Fecha de Alta
' DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), DateTime.Now().ToString("yyyy-MM-dd"))
' DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS().ToString("yyyy-MM-dd"))
' End If
' 'Llenamos datos de Tipo de Persona - Fisica o Moral
@@ -1157,14 +1157,14 @@ Partial Class Bancos_PagoElectronicoGrupos
'''''' LLENADO HEADER
Dim convenio As String = DTPendienteActual(0)("ConvenioPagoElectronico").ToString
'Campos #1-4 del Header
HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").ToUpper.Trim
IdentificadoUsuario = If(IdentificadoUsuario.Length > 12, IdentificadoUsuario.Substring(0, 12), IdentificadoUsuario)
' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd")))
' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, NowADS().ToString("yyyyMMdd")))
HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, NowADS().ToString("yyyyMMdd")).PadRight(20)
'Campos #6-8 del Header
HeaderTexto &= String.Format("00").PadRight(586)
Dim HeaderLength = HeaderTexto.Length
@@ -1422,7 +1422,7 @@ Partial Class Bancos_PagoElectronicoGrupos
ObjBancos.IniciaTransacSQL()
Dim CveLayoutEnvio = ObjBancos.AddLayoutEnvios(NombreArchivo, Date.Now, CveCuenta, PorGrupos:=True)
Dim CveLayoutEnvio = ObjBancos.AddLayoutEnvios(NombreArchivo, NowADS(), CveCuenta, PorGrupos:=True)
If CveLayoutEnvio > 0 Then
For Each dr As DataRow In DTPendientesTemp.Rows
@@ -1558,7 +1558,7 @@ Partial Class Bancos_PagoElectronicoGrupos
' 'ACTUALIZA FECHADOCUMENTO DEL IE
' 'If CveBLE > 0 Then
' ' ObjBancos.UpdateBancos_IE(Date.Now, Date.Now, DTPendienteActual(0)("CveIE").ToString.ToEntero)
' ' ObjBancos.UpdateBancos_IE(NowADS(), NowADS(), DTPendienteActual(0)("CveIE").ToString.ToEntero)
' 'End If
' If TotalDetalles > 0 Then
@@ -1574,14 +1574,14 @@ Partial Class Bancos_PagoElectronicoGrupos
' If CveBLE > 0 Then
' 'ACTUALIZAMOS EL ENVIO SI ES REGENERACION
' If Not ObjBancos.UpdateLayoutEnvios(CveBLE, Date.Now) Then
' If Not ObjBancos.UpdateLayoutEnvios(CveBLE, NowADS()) Then
' ErrorLayout = True
' End If
' 'GUARDAMOS EL ENVIO SI NO ES REGENERACION
' Else
' Dim CveLayoutEnvio = ObjBancos.AddLayoutEnvios(NombreArchivo, Date.Now, CveCuenta)
' Dim CveLayoutEnvio = ObjBancos.AddLayoutEnvios(NombreArchivo, NowADS(), CveCuenta)
' If CveLayoutEnvio > 0 Then
' For Each dr As DataRow In DTTemp.Rows
@@ -1674,7 +1674,7 @@ Partial Class Bancos_PagoElectronicoGrupos
'Correo = If(Correo.Length > 0, Correo.ToUpper.PadRight(50), Vacio.PadRight(50))
'Campos 24-50 del Detalle 0 1 2 3 4 5 6 7 8 9
DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Correo, Vacio.PadRight(12, PadCeros), DateTime.Now.ToString("yyyy-MM-dd"), "0001-01-01", Observaciones.PadRight(700), Vacio.PadRight(52))
DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Correo, Vacio.PadRight(12, PadCeros), NowADS().ToString("yyyy-MM-dd"), "0001-01-01", Observaciones.PadRight(700), Vacio.PadRight(52))
TotalAcumulado += Importe.ToDouble
@@ -1703,9 +1703,9 @@ Partial Class Bancos_PagoElectronicoGrupos
'''''' LLENADO HEADER
'Campos #1-4 del Header
HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
HeaderTexto &= String.Format("P{0}{1}", DateTime.Now().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
HeaderTexto &= String.Format("P{0}{1}", NowADS().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
'Campos #6-11 del Header
HeaderTexto &= String.Format("00").PadRight(1314)
@@ -2332,7 +2332,7 @@ Partial Class Bancos_PagoElectronicoGrupos
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
ImprimirPDF("Empresas/Grales/Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
@@ -2360,7 +2360,7 @@ Partial Class Bancos_PagoElectronicoGrupos
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
ImprimirPDF("Empresas/Grales/Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
End If
@@ -2394,7 +2394,7 @@ Partial Class Bancos_PagoElectronicoGrupos
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Titulo", "Reporte Pago Proveedor Layout Grupos"))
@@ -2777,7 +2777,7 @@ Partial Class Bancos_PagoElectronicoGrupos
ObjAC.IniciaTransacSQL()
End If
Dim FechaCancelacion As Date = Now
Dim FechaCancelacion As Date = NowADS()
Dim ErrorCancelar = False
Dim MensajeError = ""
@@ -2990,7 +2990,7 @@ Partial Class Bancos_PagoElectronicoGrupos
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Titulo", "Reporte Pago Proveedor Layout"))

4
Bancos/PolizaCheque.aspx.vb
View File

@@ -487,7 +487,7 @@ Partial Class Bancos_PolizaCheque
Private Function CreaArchivo() As Boolean
DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta))
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, Date.Now.ToString("yyyyMMdd-HH-mm"), "LAYOUTPAGONOMINA")
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm"), "LAYOUTPAGONOMINA")
Dim path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)
Dim fs As FileStream = File.Create(path)
@@ -515,7 +515,7 @@ Partial Class Bancos_PolizaCheque
Dim CodigoPago As String = "R23"
Dim TipoServicio As String = "110"
Dim ClaveEntrada As String = "1"
Dim FechaArchivo As String = Date.Now.ToString("yyyyMMdd")
Dim FechaArchivo As String = NowADS().ToString("yyyyMMdd")
Dim FechaPago As String = TxtFechaDocumento.ToDate.ToString("yyyyMMdd")
Dim Filler As String = GeneraCampo("", 142)

10
Bancos/PopIECompras.aspx.vb
View File

@@ -304,7 +304,7 @@ Partial Class Bancos_PopIECompras
ArrIEFuncionariosEmpleados = New ArrayList()
RFCProveedor = ""
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
If Request("CveProveedor") IsNot Nothing Then
HdnCveProveedor.Value = Request("CveProveedor").ToString
@@ -345,10 +345,10 @@ Partial Class Bancos_PopIECompras
If CveMoneda = 2 Then
ChkPagarPesos.Visible = True
TxtTipoCambio.Text = GlobalTipoCambio(Now).FormatoNumero(4)
TxtTipoCambio.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
Else
ChkPagarDolares.Visible = True
TxtTipoCambio.Text = GlobalTipoCambio(Now).FormatoNumero(4)
TxtTipoCambio.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
End If
UpDatos.Update()
End If
@@ -1678,8 +1678,8 @@ Partial Class Bancos_PopIECompras
End Sub
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
Calendario.EndDate = DateTime.Now
RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
Calendario.EndDate = NowADS()
End Sub

14
Bancos/PopIEVentas.aspx.vb
View File

@@ -311,7 +311,7 @@ Partial Class Bancos_PopIEVentas
ArrIEFuncionariosEmpleados = New ArrayList()
RFCCliente = "-1"
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero > 0 Then
CveVenta = Request("CveVenta").ToEntero
@@ -349,8 +349,8 @@ Partial Class Bancos_PopIEVentas
Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, Now.Day - 1, Now.Day)
Fecha = (dia.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString).ToDate
Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, NowADS().Day - 1, NowADS().Day)
Fecha = (dia.ToString + "/" + NowADS().Month.ToString + "/" + NowADS().Year.ToString).ToDate
If CveMoneda = 2 Then
ChkPagarPesos.Visible = True
@@ -1389,7 +1389,7 @@ Partial Class Bancos_PopIEVentas
TxtFolio.Text = ""
TxtObservaciones.Text = ""
TxtImporte.Text = ""
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
ChkComplementoPago.Checked = False
UpDatos.Update()
@@ -1408,7 +1408,7 @@ Partial Class Bancos_PopIEVentas
'For i = 0 To CveVentas.Count - 1
Dim ObjBancos As New ClsBancos
If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
If ObjBancos.GetComplementoPagosRep(-1, NowADS().AddYears(-2), NowADS(), CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
If Not ObjBancos.DtResultados.Rows.Count > 0 Then
ObjBancos.Dispose()
Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
@@ -1465,8 +1465,8 @@ Partial Class Bancos_PopIEVentas
#End Region
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
Calendario.EndDate = DateTime.Now
RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
Calendario.EndDate = NowADS()
End Sub

2
Bancos/PopUpBuscarIE.aspx.vb
View File

@@ -37,7 +37,7 @@ Partial Class Bancos_PopUpBuscarIE
Opcion = Request("OPCION").ToString
End If
txtFechaI.Text = Date.Now.AddMonths(-1).FirstDayOfMonth.ToShortDateString
txtFechaI.Text = NowADS().AddMonths(-1).FirstDayOfMonth.ToShortDateString
CargaDatos()

8
Bancos/PrestamoPersonal.aspx.cs
View File

@@ -40,10 +40,10 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
CargaReporte();
CargaConceptos();
TxtFechaDocumento.Text = DateTime.Now.ToShortDateString();
TxtFechaPrestamo.Text = DateTime.Now.ToShortDateString();
txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = DateTime.Now.ToShortDateString();
TxtFechaDocumento.Text = NowADS().ToShortDateString();
TxtFechaPrestamo.Text = NowADS().ToShortDateString();
txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = NowADS().ToShortDateString();
TxtImporte.Attributes.Add("disabled", "disabled");
//if (UsuarioActual.Empresa.Funcionalidad(281).ToEntero() == 1)

2
Bancos/ProductosFinancieros.aspx.vb
View File

@@ -335,7 +335,7 @@ Partial Class Bancos_ProductosFinancieros
Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
Dim importeMovimiento As Decimal = 0
Dim FechaMovimiento As Date = Now
Dim FechaMovimiento As Date = NowADS()
Dim IdCtaContablePP As Integer = 0
Select Case ConceptoContable

36
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -224,7 +224,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
PermiteModificarImporte = True
TxtFechaIncobrable.Text = Now.ToShortDateString
TxtFechaIncobrable.Text = NowADS().ToShortDateString
If Request("CveProveedor") IsNot Nothing AndAlso Request("CveProveedor").ToString.ToEntero > 0 Then
@@ -252,13 +252,13 @@ Partial Class Bancos_ProveedoresAbonar
If UsuarioActual.TienePermisoProceso(98) Then
PermiteModificarImporte = False
End If
Calendario.StartDate = Now.AddMonths(-18)
Calendario.StartDate = NowADS().AddMonths(-18)
'proceso que restringue solo el pago de apartir del dia de hoy y como limite fin de mes
If UsuarioActual.TienePermisoProceso(105) Then
Calendario.StartDate = Now
Calendario.EndDate = Now.LastDayOfMonth
MEVCalendario.MinimumValue = Now.ToShortDateString
MEVCalendario.MaximumValue = Now.LastDayOfMonth.ToShortDateString
Calendario.StartDate = NowADS()
Calendario.EndDate = NowADS().LastDayOfMonth
MEVCalendario.MinimumValue = NowADS().ToShortDateString
MEVCalendario.MaximumValue = NowADS().LastDayOfMonth.ToShortDateString
MEVCalendario.Enabled = True
End If
@@ -293,16 +293,16 @@ Partial Class Bancos_ProveedoresAbonar
If CveMoneda = 2 Then
ChkPagarPesos.Visible = True
TxtTC.Text = GlobalTipoCambio(Now).FormatoNumero(4)
TxtTCDolaresDolares.Text = GlobalTipoCambio(Now).FormatoNumero(4)
TxtTC.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
TxtTCDolaresDolares.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
DivDolaresDolares.Visible = True
TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
Else
ChkPagarDolares.Visible = True
TxtTCDolares.Text = GlobalTipoCambio(Now).FormatoNumero(4)
TxtTCDolares.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
End If
RegistraScript($"TipoCambioActual = {GlobalTipoCambio(Now).FormatoNumero(4)}")
RegistraScript($"TipoCambioActual = {GlobalTipoCambio(NowADS()).FormatoNumero(4)}")
UpDatos.Update()
If UsuarioActual.TienePermisoProceso(215) Or UsuarioActual.TienePermisoProceso(204) Then
@@ -379,7 +379,7 @@ Partial Class Bancos_ProveedoresAbonar
CargaTipoTransaccion()
CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
TxtPagueseA.Enabled = False
@@ -615,7 +615,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
'proceso que restringue solo el pago de apartir del dia de hoy y como limite fin de mes
If UsuarioActual.TienePermisoProceso(105) AndAlso (TxtFechaDocumento.Text.ToDate < Now.Date Or TxtFechaDocumento.Text.ToDate > Now.LastDayOfMonth) Then
If UsuarioActual.TienePermisoProceso(105) AndAlso (TxtFechaDocumento.Text.ToDate < NowADS().Date Or TxtFechaDocumento.Text.ToDate > NowADS().LastDayOfMonth) Then
Alert("Fecha No permitida", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
@@ -1026,7 +1026,7 @@ Partial Class Bancos_ProveedoresAbonar
TxtObservaciones.Text = ""
TxtImporte.Text = ""
TxtTotal.Text = ""
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
DdlSelectedValue(DdlCuenta, "-1")
DdlSelectedValue(DdlTipoTransaccion, "-1")
Anexo.Text = "[]"
@@ -1616,7 +1616,7 @@ Partial Class Bancos_ProveedoresAbonar
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
params.Add(New ReportParameter("Sucursal", DtDatos.Rows(1)("SubProyecto").ToString))
params.Add(New ReportParameter("Importe", $"${StrImporte}"))
params.Add(New ReportParameter("RazonSocial", TxtPagueseA.Text))
@@ -1649,10 +1649,10 @@ Partial Class Bancos_ProveedoresAbonar
#End Region
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
RVTxtFechaDocumentoMenor.MinimumValue = DateTime.Now.AddMonths(-18).ToShortDateString
RVTxtFechaDocumentoMenor.MaximumValue = DateTime.Now.ToShortDateString
Calendario.EndDate = DateTime.Now
RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
RVTxtFechaDocumentoMenor.MinimumValue = NowADS().AddMonths(-18).ToShortDateString
RVTxtFechaDocumentoMenor.MaximumValue = NowADS().ToShortDateString
Calendario.EndDate = NowADS()
End Sub

10
Bancos/ProveedoresCreditos.aspx.vb
View File

@@ -339,7 +339,7 @@ Partial Class Bancos_ProveedoresCreditos
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
TxtImporte.Attributes.Add("onblur", $"upIE(this,{CveMoneda});FncImporteCuenta(this);")
Calendario.StartDate = Now.AddMonths(-1).FirstDayOfMonth()
Calendario.StartDate = NowADS().AddMonths(-1).FirstDayOfMonth()
ViewState("IDPoliza") = "-1"
CveIEDeposito = -1
' rbPagueseA.Attributes.Add("onchange", "upPagueseA(this);")
@@ -482,7 +482,7 @@ Partial Class Bancos_ProveedoresCreditos
'Configuración de Modalidad Insert
CveIE = -1
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
ImgUpdateCuentaDeposito.Visible = False
End If
@@ -657,9 +657,9 @@ Partial Class Bancos_ProveedoresCreditos
If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero
If CveMoneda = 2 Then
TipoCambio = GlobalTipoCambio(Now).ToDecimal
TipoCambio = GlobalTipoCambio(NowADS()).ToDecimal
ElseIf CveMoneda = 3 Then
TipoCambio = GlobalTipoCambioEuro(Now).ToDecimal
TipoCambio = GlobalTipoCambioEuro(NowADS()).ToDecimal
Else
TipoCambio = 0
End If
@@ -993,7 +993,7 @@ Partial Class Bancos_ProveedoresCreditos
Dim TipoMovimiento = False
Dim Concepto = ""
Dim Referencia = $"Crédito: {TxtFolio.Text}"
Dim FechaMovimiento = Now.ToDate
Dim FechaMovimiento = NowADS().ToDate
For Each Row As DataRow In DtPlantilla.Rows

6
Bancos/Reembolsos.aspx.vb
View File

@@ -718,7 +718,7 @@ Partial Class Bancos_Reembolsos
If CvePrePolizaNueva > 0 Then
Str.AppendFormat("<br/>Cheque: <a class='Texto' target='_blank' href=/Bancos/IE.aspx?CveIE={0}>{1}</a> ", CveIE, Folio)
'Str.AppendFormat("<br/><a class='Texto' href='#' onclick='fnimprimir();'>Imprimir Cheque</a> ")
Str.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/Chq-{1}.pdf?{2}"">Imprimir Cheque</a></li>", UsuarioActual.CveEmpresa, CveIE, Now.Ticks)
Str.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/Chq-{1}.pdf?{2}"">Imprimir Cheque</a></li>", UsuarioActual.CveEmpresa, CveIE, NowADS().Ticks)
End If
Alert(Str.ToString, TipoMensaje.MsgInformacion)
@@ -936,7 +936,7 @@ Partial Class Bancos_Reembolsos
TxtObservaciones.Text = ""
TxtImporte.Text = ""
TxtImporteVinculado.Text = ""
TxtFechaDocumento.Text = Date.Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
'DdlCuenta.SelectedValue = "-1"
DdlTipoTransaccion.SelectedValue = "-1"
DdlTipoTransaccionDiferencia_SelectedIndexChanged(DdlTipoTransaccion, EventArgs.Empty)
@@ -1046,7 +1046,7 @@ Partial Class Bancos_Reembolsos
DDlCheques_SelectedIndexChanged(DDlCheques, EventArgs.Empty)
If GvCxP.Rows.Count > 0 Then
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
'BtnIEGuardar.Enabled = True
If Not DdlPersonal.SelectedValue = "-2" Then

4
Bancos/RegistroPagoIntermediario.aspx.vb
View File

@@ -27,7 +27,7 @@ Partial Class Bancos_PagosIntermediarios
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
FacturasCheckadas = 0
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
CargaCuentas()
CargaFiltros()
End If
@@ -193,7 +193,7 @@ Partial Class Bancos_PagosIntermediarios
TxtObservaciones.Text = ""
TxtTotalBancos.Text = ""
TxtTotalComisiones.Text = ""
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
CargaDatos()
Alert(String.Format("El Depósito se ha registrado correctamente."), TipoMensaje.MsgInformacion)
Else

2
Bancos/RepClientesAnticipo.aspx.vb
View File

@@ -167,7 +167,7 @@ Partial Class Bancos_RepClientesAnticipo
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

8
Bancos/RepCobrado.aspx.vb
View File

@@ -52,8 +52,8 @@ Partial Class Ventas_RepRecuperacion
DdlBanco.Items.Insert(0, New ListItem("Todos", "-1"))
DdlBanco.DataBind()
txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = $"01/{NowADS().Month}/{NowADS().Year}"
txtFechaF.Text = NowADS().ToShortDateString
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
@@ -148,10 +148,10 @@ Partial Class Ventas_RepRecuperacion
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF(RutaPDF, DtDatos, params, "RepRecuperacion" & Now.ToString("yyyyMMddhhmmss"), Formato)
ImprimirPDF(RutaPDF, DtDatos, params, "RepRecuperacion" & NowADS().ToString("yyyyMMddhhmmss"), Formato)
End Sub
End Class

8
Bancos/RepCobradoDetalle.aspx.vb
View File

@@ -71,8 +71,8 @@ Partial Class Ventas_RepRecuperacionDetalle
DdlBanco.Items.Insert(0, New ListItem("Todos", "-1"))
DdlBanco.DataBind()
txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = $"01/{NowADS().Month}/{NowADS().Year}"
txtFechaF.Text = NowADS().ToShortDateString
'Cargamos las fechas
@@ -204,9 +204,9 @@ Partial Class Ventas_RepRecuperacionDetalle
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF(RutaPDF, DtDatos, params, "RepRecuperacionDetalle" & Now.ToString("yyyyMMddhhmmss"), Formato)
ImprimirPDF(RutaPDF, DtDatos, params, "RepRecuperacionDetalle" & NowADS().ToString("yyyyMMddhhmmss"), Formato)
End Sub
End Class

16
Bancos/RepCobradoPagado.aspx.vb
View File

@@ -50,8 +50,8 @@ Partial Class Bancos_RepCobradoPagado
#Region "CARGA DATOS"
Private Sub CargaCombos()
DdlGrupo.Items.Clear()
txtFechaI.Text = DateTime.Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = DateTime.Now.LastDayOfMonth.ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
If DdlModalidad.SelectedValue = "2" Then
DdlGrupo.Items.Insert(0, New ListItem("Año", "1"))
DdlGrupo.Items.Insert(1, New ListItem("Año/Mes", "2"))
@@ -91,7 +91,7 @@ Partial Class Bancos_RepCobradoPagado
If ObjBancos.GetCobradoPagado(DdlModalidad.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero,
If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", MinFecha, txtFechaI.Text.ToDate),
If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Now, txtFechaF.Text.ToDate),
If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate),
DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico) Then
DtDatos = ObjBancos.DtResultados
If DtDatos.Rows.Count > 0 Then
@@ -128,13 +128,13 @@ Partial Class Bancos_RepCobradoPagado
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
'If PrendeLink Then
' e.Row.FCLiteral("Gpo").Text = $"<a class=""Texto"" href='/Bancos/RepCobradoPagadoDetalle.aspx?FI={If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", MinFecha.ToDate.ToShortDateString, txtFechaI.Text)}&FF={If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Now.ToDate.ToShortDateString, txtFechaF.Text)}&MOD={DdlModalidad.SelectedValue}&CVEPC={e.Row.DBCampo("CveProveedorCliente")}' target='_blank'>{e.Row.DBCampo("GPO")}</a>"
' e.Row.FCLiteral("Gpo").Text = $"<a class=""Texto"" href='/Bancos/RepCobradoPagadoDetalle.aspx?FI={If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", MinFecha.ToDate.ToShortDateString, txtFechaI.Text)}&FF={If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS().ToDate.ToShortDateString, txtFechaF.Text)}&MOD={DdlModalidad.SelectedValue}&CVEPC={e.Row.DBCampo("CveProveedorCliente")}' target='_blank'>{e.Row.DBCampo("GPO")}</a>"
'End If
If e.Row.DBCampo("Orden") = "" Then
e.Row.CssClass = "Totales"
Else
e.Row.FCLiteral("Gpo").Text = $"<a class=""Texto"" href='/Bancos/RepCobradoPagadoDetalle.aspx?FI={If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", MinFecha.ToDate.ToShortDateString, txtFechaI.Text)}&FF={If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Now.ToDate.ToShortDateString, txtFechaF.Text)}&CveProyecto={e.Row.DBCampo("CveProyecto")}&CveSubProyecto={e.Row.DBCampo("CveSubProyecto")}&MOD={DdlModalidad.SelectedValue}&Grupo={e.Row.DBCampo("Grupo")}&GPO={e.Row.DBCampo("GPO")}&TipoCambio={RblTipoCambio.SelectedValue}&TCEspecifico={TxtEspecifico.Text}&CveMoneda={e.Row.DBCampo("CveMoneda")}' target='_blank'>{e.Row.DBCampo("GPO")}</a>"
e.Row.FCLiteral("Gpo").Text = $"<a class=""Texto"" href='/Bancos/RepCobradoPagadoDetalle.aspx?FI={If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", MinFecha.ToDate.ToShortDateString, txtFechaI.Text)}&FF={If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS().ToDate.ToShortDateString, txtFechaF.Text)}&CveProyecto={e.Row.DBCampo("CveProyecto")}&CveSubProyecto={e.Row.DBCampo("CveSubProyecto")}&MOD={DdlModalidad.SelectedValue}&Grupo={e.Row.DBCampo("Grupo")}&GPO={e.Row.DBCampo("GPO")}&TipoCambio={RblTipoCambio.SelectedValue}&TCEspecifico={TxtEspecifico.Text}&CveMoneda={e.Row.DBCampo("CveMoneda")}' target='_blank'>{e.Row.DBCampo("GPO")}</a>"
End If
If e.Row.DBCampo("Grupo") = "10" Then
If e.Row.DBCampo("CveSubProyecto") <> "" AndAlso e.Row.DBCampo("CveClasificacion") = "" Then
@@ -157,7 +157,7 @@ Partial Class Bancos_RepCobradoPagado
If RblTipoCambio.SelectedValue.ToEntero = 3 Then
Dim TipoCambio As Double
LiEspecifico.Visible = True
TipoCambio = GlobalTipoCambio(Now)
TipoCambio = GlobalTipoCambio(NowADS())
TxtEspecifico.Text = TipoCambio.ToString
Else
LiEspecifico.Visible = False
@@ -171,7 +171,7 @@ Partial Class Bancos_RepCobradoPagado
#Region "I M P R I M I R <i class='fa fa-print'></i>"
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
GvDatos.ExportToExcel("ReporteCobrado-Pagado" & Now.ToShortDateString)
GvDatos.ExportToExcel("ReporteCobrado-Pagado" & NowADS().ToShortDateString)
End Sub
Private Sub GenerarPDF()
@@ -197,7 +197,7 @@ Partial Class Bancos_RepCobradoPagado
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Moneda}{FechaIn}{FechaFn}"))
params.Add(New ReportParameter("FUltimaSemana", FUltimaSemana))
params.Add(New ReportParameter("FUltimoMes", FUltimoMes))

12
Bancos/RepComplementoPago.aspx.vb
View File

@@ -80,8 +80,8 @@ Partial Class Bancos_RepComplementoPago
If Not Page.IsPostBack Then
txtFechaI.Text = $"{New DateTime(Now.Year, Now.Month, 1).ToString("dd/MM/yyyy")}"
txtFechaF.Text = DateTime.Now.ToString("dd/MM/yyyy")
txtFechaI.Text = $"{New DateTime(NowADS().Year, NowADS().Month, 1).ToString("dd/MM/yyyy")}"
txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
DdlCliente.setEsWebService(True)
DdlMotivoCancelacion.DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion = 2 or CveSATMotivoCancelacion = 3 ")
@@ -139,11 +139,11 @@ Partial Class Bancos_RepComplementoPago
For Each gvr As GridViewRow In GvD.Rows
If gvr.FCCheckBox("Chk").Checked Then
Dim FechaTimbrado As DateTime = DateTime.Now
Dim FechaTimbrado As DateTime = NowADS()
Dim UTCOffset As Integer = 0
If Now.EsHorarioVerano Then
If NowADS().EsHorarioVerano Then
If gvr.DataKey("UTCOffsetVerano").ToEntero() <> 0 Then
UTCOffset = gvr.DataKey("UTCOffsetVerano").ToEntero()
End If
@@ -545,7 +545,7 @@ Partial Class Bancos_RepComplementoPago
worksheet.Rows(IndexEndTable + 1).Cells(2).Value = Usuario.Nombre
worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión"
worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy")
worksheet.Rows(IndexEndTable + 1).Cells(6).Value = NowADS().ToString("dd/MM/yyyy")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
@@ -592,7 +592,7 @@ Partial Class Bancos_RepComplementoPago
If EstatusSATCancelado(Can_FolioFiscalCancelar, UsuarioActual.Empresa.RFC, Can_RFCReceptorCancelar) Then
If ObjBanco.UpdateComplementoPagoCancelado(Can_CveComplementoPagoCancelar, 2, UsuarioActual.CveEmpresa, Can_CvePACCancelacion, Date.Now, "", CveSATMotivoCancelacion) Then
If ObjBanco.UpdateComplementoPagoCancelado(Can_CveComplementoPagoCancelar, 2, UsuarioActual.CveEmpresa, Can_CvePACCancelacion, NowADS(), "", CveSATMotivoCancelacion) Then
Alert("El complemento se cancelo correctamente.")
ErrorProceso = False
End If

2
Bancos/RepComprobaciones.aspx.cs
View File

@@ -81,7 +81,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas
@params.Add(new ReportParameter("FechaInicio", TxtFechaInicio.Text));
@params.Add(new ReportParameter("FechaFin", TxtFechaFin.Text));
@params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
@params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
@params.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
@params.Add(new ReportParameter("Cuenta", DdlCuentas.SelectedItem.Text));
@params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : ""));

4
Bancos/RepCortes.aspx.vb
View File

@@ -63,8 +63,8 @@ Partial Class Bancos_RepCortes
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaVI.Text = Now.ToShortDateString
txtFechaVF.Text = Now.ToShortDateString
txtFechaVI.Text = NowADS().ToShortDateString
txtFechaVF.Text = NowADS().ToShortDateString
Me.Form.DefaultButton = BtnConsultar.UniqueID
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)
End If

6
Bancos/RepCreditos.aspx.vb
View File

@@ -270,7 +270,7 @@ Partial Class Bancos_RepCreditos
e.Row.Cells(1).Text = e.Row.DBCampo("Contador")
End If
If e.Row.DBCampo("FechaVencimiento") <> "" AndAlso e.Row.DBCampo("FechaVencimiento").ToDate <= Now Then
If e.Row.DBCampo("FechaVencimiento") <> "" AndAlso e.Row.DBCampo("FechaVencimiento").ToDate <= NowADS() Then
e.Row.ForeColor = System.Drawing.Color.Red
e.Row.ToolTip = "Fecha Vencida"
End If
@@ -309,7 +309,7 @@ Partial Class Bancos_RepCreditos
''Exportar Excel
'Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
' GvDatos.ExportToExcel("RepClientes_" & Now.ToShortDateString)
' GvDatos.ExportToExcel("RepClientes_" & NowADS().ToShortDateString)
'End Sub
#Region "A C T U A L I Z A R - E X C E L"
@@ -614,7 +614,7 @@ Partial Class Bancos_RepCreditos
fs = File.Create(path)
'NombreArchivo = "hola.excel"
' Add text to the file.
Dim info As Byte() = New UTF8Encoding(True).GetBytes(String.Format("{0}|{1}", NombreArchivo, Date.Now.ToShortDateString))
Dim info As Byte() = New UTF8Encoding(True).GetBytes(String.Format("{0}|{1}", NombreArchivo, NowADS().ToShortDateString))
fs.Write(info, 0, info.Length)
fs.Close()
Catch ex As Exception

4
Bancos/RepCxCCliente.aspx.vb
View File

@@ -158,7 +158,7 @@ Partial Class Bancos_RepCxCCliente
params.Add(New ReportParameter("FechaInicio", FI))
params.Add(New ReportParameter("FechaFin", FF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DTpp, params, "ReportePagoClientes")
@@ -172,7 +172,7 @@ Partial Class Bancos_RepCxCCliente
Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
GvCxC.ExportToExcel("CxC Cliente" & Now.ToShortDateString)
GvCxC.ExportToExcel("CxC Cliente" & NowADS().ToShortDateString)
End Sub

8
Bancos/RepEgresosSinComprobante.aspx.vb
View File

@@ -168,7 +168,7 @@ Partial Class Bancos_RepEgresosSinComprobante
Next
TxtConcepto.Text = "Saldado de Egresos por comprobar"
TxtFechaSaldar.Text = Now.ToShortDateString
TxtFechaSaldar.Text = NowADS().ToShortDateString
DVSaldar.Visible = True
UpSaldar.Update()
@@ -319,7 +319,7 @@ Partial Class Bancos_RepEgresosSinComprobante
CveConceptoContable = 37
End Select
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, NowADS(),
"Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, CveConceptoContable, "", "Saldo de ExC por Sistema",
@@ -379,10 +379,10 @@ Partial Class Bancos_RepEgresosSinComprobante
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF($"Empresas/Grales/Formatos/{Archivo}", DtDatos, params, String.Format("EgresosSinComprovante-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
ImprimirPDF($"Empresas/Grales/Formatos/{Archivo}", DtDatos, params, String.Format("EgresosSinComprovante-{0}", NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
End If
End Sub

22
Bancos/RepIE.aspx.vb
View File

@@ -46,8 +46,8 @@ Partial Class Bancos_RepIE
If Not Page.IsPostBack Then
GvDatos.DataBind()
Me.Form.DefaultButton = BtnConsultar.UniqueID
txtFechaI.Text = Now.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
CargaGvBitacora()
TipoPagina = ""
ViewState("Orden") = ""
@@ -84,8 +84,8 @@ Partial Class Bancos_RepIE
GvDatos.Columns(15).Visible = True
GvDatos.Columns(18).Visible = False
txtFechaI.Text = DateSerial(Year(Date.Now), Month(Date.Now), 1).ToShortDateString
txtFechaF.Text = Date.Now.ToShortDateString
txtFechaI.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
ImgConciliacion.Visible = True
LblTitulo.Text = "Conciliación Bancaria"
End If
@@ -99,7 +99,7 @@ Partial Class Bancos_RepIE
CargaUsuarioConcilio()
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"Nombre", "CveUsuario"})
DdlUsuarioRegistro.databind
txtFechaI.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().ToShortDateString
DivDdlTarjeta.Visible = False
DivLabelTarjeta.Visible = False
@@ -159,7 +159,7 @@ Partial Class Bancos_RepIE
End If
If ChkTotalizar.Checked Then
Dim SaldoDolares As Decimal = DtDatos.SUMD("Importe", "CveMoneda = 2") * GlobalTipoCambio(Now).ToDecimal
Dim SaldoDolares As Decimal = DtDatos.SUMD("Importe", "CveMoneda = 2") * GlobalTipoCambio(NowADS()).ToDecimal
SaldoTotal.Text = DtDatos.SUM("ImporteMN").ToString.FormatoNumero '(DtDatos.SUM("Importe") + SaldoDolares).ToString.FormatoNumero
LtlSaldo.Text = DtDatos.SUM("Importe", "CveMoneda = 1").ToString.FormatoNumero
LtlSaldoDolares.Text = DtDatos.SUM("Importe", "CveMoneda = 2").ToString.FormatoNumero
@@ -176,7 +176,7 @@ Partial Class Bancos_RepIE
If GvDatos.Rows.Count > 0 AndAlso TipoPagina = "Conciliaciones" Then
BtnGuardar.Visible = True
GvDatos.HeaderRow.FCTextBox("TxtFechaAplicadoHeader").Text = DateAdd("d", -1, Date.Now).ToShortDateString
GvDatos.HeaderRow.FCTextBox("TxtFechaAplicadoHeader").Text = DateAdd("d", -1, NowADS()).ToShortDateString
If AceptaOtrosIngresos Then
Dim ObjProveedores As New ClsCompProveedores
@@ -214,7 +214,7 @@ Partial Class Bancos_RepIE
If Row.FCCheckBox("ChkFueConciliado").Checked <> CBool(Row.FCHiddenField("HdnConciliado").Value) Then
If Not CBool(Row.FCHiddenField("HdnConciliado").Value) Then
If Row.FCTextBox("TxtFechaAplicado").Text.Trim.ToDate >= Row.FCLiteral("LtlFechaDocumento").Text.Trim.ToDate AndAlso Row.FCTextBox("TxtFechaAplicado").Text.Trim.ToDate < Date.Now Then '
If Row.FCTextBox("TxtFechaAplicado").Text.Trim.ToDate >= Row.FCLiteral("LtlFechaDocumento").Text.Trim.ToDate AndAlso Row.FCTextBox("TxtFechaAplicado").Text.Trim.ToDate < NowADS() Then '
Fecha = Row.FCTextBox("TxtFechaAplicado").Text.Trim.ToDate
Else
FolioError = Row.DataKey("Folio").ToString
@@ -348,7 +348,7 @@ Partial Class Bancos_RepIE
e.Row.Cells(13).Style.Add("background-color", "#dddddd")
e.Row.Cells(15).Style.Add("background-color", "#dddddd")
If Not CBool(e.Row.DBCampo("FueConciliado").ToString) Then
e.Row.FCTextBox("TxtFechaAplicado").Text = If(TipoTrasaccion, e.Row.DBCampo("FechaDocumento"), DateAdd("d", -1, Date.Now).ToShortDateString)
e.Row.FCTextBox("TxtFechaAplicado").Text = If(TipoTrasaccion, e.Row.DBCampo("FechaDocumento"), DateAdd("d", -1, NowADS()).ToShortDateString)
e.Row.FCTextBox("TxtFechaAplicado").Style.Add("display", "none")
If AceptaOtrosIngresos Then e.Row.FCTextBox("TxtOtIng").Style.Add("display", "none")
e.Row.FCCalendarExtender("Calendario").StartDate = e.Row.DBCampo("FechaDocumento").ToDate
@@ -451,7 +451,7 @@ Partial Class Bancos_RepIE
GvDatos.Columns(14).Visible = True 'visualizo la columna oculta de fecha aplicacion cuando es conciliacion
GvDatos.Columns(15).Visible = False 'oculto columna de fecha de aplicacion, en modo de registro
GvDatos.ExportToExcel("ReporteSaldos" & Now.ToShortDateString)
GvDatos.ExportToExcel("ReporteSaldos" & NowADS().ToShortDateString)
'Imprimir("EXCEL")
GvDatos.Columns(13).Visible = True
GvDatos.Columns(14).Visible = False
@@ -545,7 +545,7 @@ Partial Class Bancos_RepIE
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
Dim ParametrosReporte As String = "Caja chica: " & DdlCuenta.SelectedItem.Text & " Fecha inicio: " & txtFechaI.Text & " Fecha fin: " & txtFechaF.Text

2
Bancos/RepIngresosPorComprobar.aspx.vb
View File

@@ -53,7 +53,7 @@ Partial Class Bancos_RepIngresosPorComprobar
DdlMoneda.DataSource = GlobalDTMonedas
DdlMoneda.DataBind()
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
CargaDatos()

12
Bancos/RepProgramaciones.aspx.vb
View File

@@ -44,10 +44,10 @@ Partial Class Bancos_RepProgramaciones
Dim drBC As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveTipoCuenta = 7")
If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero
Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, Now, Now, 0, 0, 0.16, 0, -1, Gvr.DataKey("Total").ToDouble, 0, 0, -1, Gvr.DataKey("CveProveedor").ToEntero, 1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, NowADS(), NowADS(), 0, 0, 0.16, 0, -1, Gvr.DataKey("Total").ToDouble, 0, 0, -1, Gvr.DataKey("CveProveedor").ToEntero, 1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveCredito > 0 Then
If Not ObjCredito.AddCreditosDetalle(CveCredito, Now,
If Not ObjCredito.AddCreditosDetalle(CveCredito, NowADS(),
Gvr.DataKey("Total").ToDouble, 0, 0.0, 0, 0.0, 0.0, 101) Then
ErrorCompra = True
End If
@@ -99,11 +99,11 @@ Partial Class Bancos_RepProgramaciones
Dim drBC As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveTipoCuenta = 7")
If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero
Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, Now, Now, 0, 0, 0.16, 0,
Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, NowADS(), NowADS(), 0, 0, 0.16, 0,
-1, Gvr.DataKey("Total").ToDouble, 0, 0, -1, Gvr.DataKey("CveProveedor").ToEntero, 1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveCredito > 0 Then
If Not ObjCredito.AddCreditosDetalle(CveCredito, Now,
If Not ObjCredito.AddCreditosDetalle(CveCredito, NowADS(),
Gvr.DataKey("Total").ToDouble, 0, 0.0, 0, 0.0, 0.0, 101) Then
ErrorCompra = True
End If
@@ -152,11 +152,11 @@ Partial Class Bancos_RepProgramaciones
Dim drBC As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveTipoCuenta = 7")
If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero
Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, Now, Now, 0, 0, 0.16, 0,
Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, NowADS(), NowADS(), 0, 0, 0.16, 0,
-1, Gvr.DataKey("Total").ToDouble, 0, 0, -1, Gvr.DataKey("CveProveedor").ToEntero, 1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveCredito > 0 Then
If Not ObjCredito.AddCreditosDetalle(CveCredito, Now,
If Not ObjCredito.AddCreditosDetalle(CveCredito, NowADS(),
Gvr.DataKey("Total").ToDouble, 0, 0.0, 0, 0.0, 0.0, 101) Then
ErrorCompra = True
End If

4
Bancos/RepProgramarRecursos.aspx.vb
View File

@@ -795,7 +795,7 @@ Partial Class Bancos_RepProgramarRecursos
'params.Add(New ReportParameter("Agrupador", DdlAgrupador.SelectedValue))
'params.Add(New ReportParameter("LogoUrl", String.Format("{0}/Empresas/{1}/Logo.png", Request.Url.AbsoluteUri.Replace(Request.Url.AbsolutePath, ""), UsuarioActual.CveEmpresa)))
'params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
'params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
'params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
'params.Add(New ReportParameter("AgrupadoPor", $"{Programo} {Proveedor} {Registro} {Responsable} {Clasificacion} {Moneda} {Estatus} {SubProyecto} {FechaIn} {FechaFn}"))
'ImprimirPDF("Empresas/Grales/Formatos/ProgramarRecursos.rdlc", DtDatos, params, "Programación de Recursos")
End Sub
@@ -868,7 +868,7 @@ Partial Class Bancos_RepProgramarRecursos
params.Add(New ReportParameter("LogoUrl", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
params.Add(New ReportParameter("AgrupadoPor", $"{Programo}{Proveedor}{Clasificacion}{AplicaNC}{TipoProv}{FechaIn}{FechaFn}{FechaInV}{FechaFnV}{Moneda}{Registro}{Responsable}{Estatus}{Proyecto}{SubProyecto}{Comprobacion}"))
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ProgramarRecursos.rdlc", UsuarioActual.Empresa.Ruta))

2
Bancos/RepProveedoresPagos.aspx.vb
View File

@@ -306,7 +306,7 @@ Partial Class Bancos_RepProveedoresPagos
params.Add(New ReportParameter("FechaInicio", FI))
params.Add(New ReportParameter("FechaFin", FF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
params.Add(New ReportParameter("AgrupadoPor", $"{Programo} {Proveedor} {Registro} {Responsable} {Clasificacion} {Moneda} {Estatus} {SubProyecto} {FechaIn} {FechaFn}{FVI}{FVF}"))
params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, "1", "0")))

8
Bancos/RepSaldos.aspx.vb
View File

@@ -21,8 +21,8 @@ Partial Class Bancos_RepSaldos
'CargaBanco()
CargaCuenta()
DdlCuenta.Items.Insert(0, New ListItem("Todas", "-1"))
txtFechaI.Text = Now.FirstDayOfMonth().ToShortDateString
txtFechaF.Text = Now.LastDayOfMonth().ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString
txtFechaF.Text = NowADS().LastDayOfMonth().ToShortDateString
CargaMoneda()
CargaDatos()
@@ -139,7 +139,7 @@ Partial Class Bancos_RepSaldos
#Region " EXPORTA EXCEL "
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
' GvS.ExportToExcel("ReporteSaldos" & Now.ToShortDateString)
' GvS.ExportToExcel("ReporteSaldos" & NowADS().ToShortDateString)
ImprimirReportePdf("Excel")
End Sub
@@ -191,7 +191,7 @@ Partial Class Bancos_RepSaldos
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString()))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString()))
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))

10
Bancos/RepSaldosDetalle.aspx.vb
View File

@@ -206,7 +206,7 @@ Partial Class Bancos_RepSaldosDetalle
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString()))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString()))
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))
@@ -251,8 +251,8 @@ Partial Class Bancos_RepSaldosDetalle
'End Sub
'Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
' 'GvS.ExportToExcel("ReporteSaldos" & Now.ToShortDateString)
' 'GvRepConciliaciones.ExportToExcel("ReporteConciliacionBancaria" & Now.ToShortDateString)
' 'GvS.ExportToExcel("ReporteSaldos" & NowADS().ToShortDateString)
' 'GvRepConciliaciones.ExportToExcel("ReporteConciliacionBancaria" & NowADS().ToShortDateString)
' ExportExcel()
'End Sub
@@ -273,7 +273,7 @@ Partial Class Bancos_RepSaldosDetalle
' Excel.ScreenUpdating = True
' Excel.DisplayAlerts = True
' Dim NombreArchivo = String.Format("Conciliacion-{0}-{1}", Cuenta, Date.Now.ToShortDateString.Replace("/", ""))
' Dim NombreArchivo = String.Format("Conciliacion-{0}-{1}", Cuenta, NowADS().ToShortDateString.Replace("/", ""))
' Dim ArchivoBase As New System.IO.FileInfo(String.Format("{0}Formatos\ReporteConciliaciones.xlsm", UsuarioActual.Empresa.Ruta))
' ArchivoBase.CopyTo(String.Format("{0}Formatos\{1}.xlsm", UsuarioActual.Empresa.Ruta, NombreArchivo), True)
@@ -346,7 +346,7 @@ Partial Class Bancos_RepSaldosDetalle
' ArchivoTemp.Delete()
' Dim Descargas As New StringBuilder()
' Descargas.AppendFormat("<li><a class=""Texto"" href=""/Empresas/{0}/PDF/ReporteConciliacion-{1}.pdf?Id={2}"" target='_blank'>PDF</a></li>", UsuarioActual.CveEmpresa, NombreArchivo, now.Ticks)
' Descargas.AppendFormat("<li><a class=""Texto"" href=""/Empresas/{0}/PDF/ReporteConciliacion-{1}.pdf?Id={2}"" target='_blank'>PDF</a></li>", UsuarioActual.CveEmpresa, NombreArchivo, NowADS().Ticks)
' Alert(String.Format("<br />El reporte se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Descargas), TipoMensaje.MsgInformacion)

6
Bancos/RepSaldosPeriodo.aspx.cs
View File

@@ -36,7 +36,7 @@ public partial class Bancos_RepSaldosPeriodo : ClsPaginas
{
InicializaValores();
}
}
}
private void InicializaValores()
{
@@ -103,7 +103,7 @@ public partial class Bancos_RepSaldosPeriodo : ClsPaginas
if (DdlOpcion.SelectedValue == "-1") { Agrupador = ""; } else { Agrupador = $"&emsp;<b>Agrupador:</b> {DdlOpcion.SelectedItem.Text}"; }
if (txtFechaF.Text == "") { FechaCorte = ""; } else { FechaCorte = $"&emsp;<b>Fecha Corte:</b> {txtFechaF.Text}"; }
if (DtDatos.Rows.Count > 0)
if (DtDatos.Rows.Count > 0)
{
System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
@@ -159,7 +159,7 @@ public partial class Bancos_RepSaldosPeriodo : ClsPaginas
if (e.Row.Cells[14].Text.ToDouble() == 0) { e.Row.Cells[14].Text = ""; }
}
}
protected void RblTipoCambio_SelectedIndexChanged(object sender, EventArgs e)
{
TipoCambio = RblTipoCambio.SelectedValue.ToEntero();

4
Bancos/SaldarCajaChica.aspx.cs
View File

@@ -64,7 +64,7 @@ public partial class Bancos_SaldarCajaChica : ClsPaginas
Boolean TieneError = false;
decimal Importe = 0;
CvePrePoliza = ObjMov.AddPrePolizas("Compras/Comprobaciones", 9, 0, 0, 1, DateTime.Now, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
CvePrePoliza = ObjMov.AddPrePolizas("Compras/Comprobaciones", 9, 0, 0, 1, NowADS(), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
foreach (GridViewRow row in GvDatos.Rows)
{
@@ -78,7 +78,7 @@ public partial class Bancos_SaldarCajaChica : ClsPaginas
Importe += row.DataKey("Saldo").ToDecimal();
String FolioIENew = ObjIE.GetNextFolio(CveCajaChica, 6).ToString();
CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, DateTime.Now, FolioIENew, DdlCajaChica.SelectedItem.ToString(), TxtImporteIE, 1, 0.0, "SALDADA POR SISTEMA", "", false, true, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, NowADS(), FolioIENew, DdlCajaChica.SelectedItem.ToString(), TxtImporteIE, 1, 0.0, "SALDADA POR SISTEMA", "", false, true, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImporte, TxtImporte, 30, DdlCajaChica.SelectedItem.ToString(),"SALDADA POR SISTEMA", CveIE: CveIEPago, CveIEDevolucion: row.DataKey("CveIE").ToEntero(), CvePrePolizaOriginal: CvePrePoliza))
{

34
Bancos/Transferencias.aspx.vb
View File

@@ -72,7 +72,7 @@ Partial Class Bancos_Transferencias
CargaFolio(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
End If
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
DdlTipoMovto_SelectedIndexChanged(Nothing, Nothing)
@@ -364,23 +364,29 @@ Partial Class Bancos_Transferencias
For Each row As GridViewRow In GvTC.Rows
FolioDestino = GetFolio(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TransaccioSQL:=ObjIE.IniciaTransacSQL())
If row.FCTextBox("TxtAbono").Text.ToDecimal > 0 Then
FolioDestino = GetFolio(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TransaccioSQL:=ObjIE.IniciaTransacSQL())
If FolioDestino.Trim.Length = 0 Then
MsgError = "Ocurrio un error al obtener el folio destino."
Exit For
If FolioDestino.Trim.Length = 0 Then
MsgError = "Ocurrio un error al obtener el folio destino."
Exit For
End If
Dim PagueseA As String = $"Transferencia Cta: {If(DdlCuentaOrigen.SelectedItem Is Nothing, DdlCuentaDestino.SelectedItem.Text, DdlCuentaOrigen.SelectedItem.Text)}"
CveIEDestino = ObjIE.AddBancos_IE(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, PagueseA, row.FCTextBox("TxtAbono").Text.ToDecimal, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal, 30,
$"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}",
CveIE:=CveIEDestino) Then
MsgError = "Ocurrio un error al ingresar la prepoliza"
Exit For
Else
AlertaGlobal.AppendFormat("<a class=""Texto"" target='_blank' href=""/Bancos/IE.aspx?CveIE={0}"">{1}</a><br/>", CveIEDestino, FolioDestino)
End If
End If
CveIEDestino = ObjIE.AddBancos_IE(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), row.FCTextBox("TxtAbono").Text.ToDecimal, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal, 30,
$"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}",
CveIE:=CveIEDestino) Then
MsgError = "Ocurrio un error al ingresar la prepoliza"
Exit For
Else
AlertaGlobal.AppendFormat("<a class=""Texto"" target='_blank' href=""/Bancos/IE.aspx?CveIE={0}"">{1}</a><br/>", CveIEDestino, FolioDestino)
End If
Next