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

8
Inventarios/AjustesSeccionAlmacen.aspx.vb
View File

@@ -83,7 +83,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Dim Contador As Integer = 0
Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero
Dim Fecha As Date = DateTime.Now
Dim Fecha As Date = NowADS()
'AGREGAMOS LA ENTRADA
Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacen, 44, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
Observaciones:="", Modulo:="ASA/G1")
@@ -395,11 +395,11 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End If
'SALIDA ALMACÉN
Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", TipoCambio:=-1,
Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", TipoCambio:=-1,
MovimientoFijo:=False, Modulo:="ASA/SA")
'ENTRADA ALMACÉN
Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", TipoCambio:=-1,
Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(CveAlmacen, 2, 1, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", TipoCambio:=-1,
MovimientoFijo:=False, Modulo:="ASA/EA", CveMovimientoRelacionado:=CveMovimientoSalida)
Dim dtSecciones As DataTable = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, CveAlmacen)
@@ -539,7 +539,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
resultado = ObjInventario.DtResultados
Dim Concepto As String = "Ajuste Sección"
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/AjusteAlmacen", 53, 0, 0, 1, Now, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/AjusteAlmacen", 53, 0, 0, 1, NowADS(), Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim importe As Decimal = resultado.SUMD("Total").RoundAD
Dim contabilizable As Boolean = False
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, importe, 68, Concepto, Concepto, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=contabilizable) Then

6
Inventarios/Apartados.aspx.vb
View File

@@ -111,8 +111,8 @@ Partial Class Inventarios_Apartados
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
TxtFecha.Text = Now.ToShortDateString
TxtFechaDesapartado.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
TxtFechaDesapartado.Text = NowADS().ToShortDateString
CargaCombos()
CreaDT()
@@ -766,7 +766,7 @@ Partial Class Inventarios_Apartados
End Sub
Private Sub LimpiaMovimiento()
CargaAlmacenOrigen()
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
TxtObservaciones.Text = ""
txtCantidad.Text = ""

14
Inventarios/CartaPorteManual.aspx.vb
View File

@@ -165,7 +165,7 @@ Partial Class Inventarios_CartaPorteManual
Private Property FechaSalida As Date
Get
If ViewState("FechaEntrega") Is Nothing Then
ViewState("FechaEntrega") = Now
ViewState("FechaEntrega") = NowADS()
End If
Return ViewState("FechaEntrega").ToString.ToDate
End Get
@@ -177,7 +177,7 @@ Partial Class Inventarios_CartaPorteManual
Private Property FechaLlegada As Date
Get
If ViewState("FechaLlegada") Is Nothing Then
ViewState("FechaLlegada") = Now
ViewState("FechaLlegada") = NowADS()
End If
Return ViewState("FechaLlegada").ToString.ToDate
End Get
@@ -192,9 +192,9 @@ Partial Class Inventarios_CartaPorteManual
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
TxtFecha.Text = Now.ToShortDateString
CEFecha.EndDate = Now.AddDays(-1)
RVFecha.MaximumValue = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
CEFecha.EndDate = NowADS().AddDays(-1)
RVFecha.MaximumValue = NowADS().ToShortDateString
Folio = 0
@@ -304,8 +304,8 @@ Partial Class Inventarios_CartaPorteManual
DdlChofer.DataBind()
DdlChofer.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
' TxtFechaEntrega.Text = Now.ToShortDateString
TxtFechaLlegada.Text = Now.ToShortDateString
' TxtFechaEntrega.Text = NowADS().ToShortDateString
TxtFechaLlegada.Text = NowADS().ToShortDateString

14
Inventarios/Consignaciones.aspx.vb
View File

@@ -97,9 +97,9 @@ Partial Class Inventarios_Consignaciones
CargaDatosRecepcionTraspaso()
CreaDT()
TxtFecha.Text = Now.ToShortDateString
TxtFechaTraspaso.Text = Now.ToShortDateString
TxtFechaDevolucion.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
TxtFechaTraspaso.Text = NowADS().ToShortDateString
TxtFechaDevolucion.Text = NowADS().ToShortDateString
SoloLectura = False
'Carga Productos
@@ -911,7 +911,7 @@ Partial Class Inventarios_Consignaciones
DdlProveedor.SelectedValue = "-1"
TxtFolio.Text = ""
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
TxtObservaciones.Text = ""
DdlMoneda.SelectedValueExist(1)
DdlMoneda_SelectedIndexChanged(DdlMoneda, EventArgs.Empty)
@@ -927,7 +927,7 @@ Partial Class Inventarios_Consignaciones
TxtPU.Text = ""
'DEVOLUCION
TxtFechaDevolucion.Text = Now.ToShortDateString
TxtFechaDevolucion.Text = NowADS().ToShortDateString
TxtObservacionesDevolucion.Text = ""
'Traspaso
@@ -937,7 +937,7 @@ Partial Class Inventarios_Consignaciones
TxtCantidad.Text = ""
ChkTransitorio.Checked = False
TxtFechaTraspaso.Text = Now.ToShortDateString
TxtFechaTraspaso.Text = NowADS().ToShortDateString
DdlAlmacenDestino.SelectedValueExist("-1")
TxtObservacionesTraspaso.Text = ""
ChkTransitorio.Checked = False
@@ -1607,7 +1607,7 @@ Partial Class Inventarios_Consignaciones
ObjInventario.Commit()
TxtRecibio.Text = ""
TxtFechaRecepcion.Text = Now.ToShortDateString
TxtFechaRecepcion.Text = NowADS().ToShortDateString
TxtObservacionesRecepcion.Text = ""
Dim Mensaje As StringBuilder = New StringBuilder

2
Inventarios/ConsignacionesMaterial.aspx.vb
View File

@@ -29,7 +29,7 @@ Partial Class Inventarios_ConsignacionesMaterial
CreaDTCons()
InicializarListas()
TxtFecha.Text = Now.ToString("dd/MM/yyyy")
TxtFecha.Text = NowADS().ToString("dd/MM/yyyy")
End If
End Sub
Private Sub CreaDTCons()

46
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -383,9 +383,9 @@ Partial Class Inventarios_EntradasSalidas
CreaDT()
CargaCombos()
TxtFecha.Text = Now.ToShortDateString
TxtFechaInvFisico.Text = Now.ToShortDateString
RVFecha.MaximumValue = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
TxtFechaInvFisico.Text = NowADS().ToShortDateString
RVFecha.MaximumValue = NowADS().ToShortDateString
If Not UsuarioActual.CveEmpresa = 48 Then
TxtFecha.Enabled = False
@@ -679,8 +679,8 @@ Partial Class Inventarios_EntradasSalidas
DdlChofer.DataBind()
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaEntrega.Text = Now.ToShortDateString
TxtFechaLlegada.Text = Now.ToShortDateString
TxtFechaEntrega.Text = NowADS().ToShortDateString
TxtFechaLlegada.Text = NowADS().ToShortDateString
CargarCamiones()
DdlClienteCarta.setEsWebService(True)
@@ -1266,7 +1266,7 @@ Partial Class Inventarios_EntradasSalidas
TxtResponsable.Text = ""
TxtObservaciones.Text = ""
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
LblUsuarioRegistro.Text = ""
LblFechaRegistro.Text = ""
@@ -2450,7 +2450,7 @@ Partial Class Inventarios_EntradasSalidas
TxtCodigoBarras.Focus()
If CveMovimiento > 0 Then
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
TxtFecha.Enabled = False
End If
@@ -3187,25 +3187,25 @@ Partial Class Inventarios_EntradasSalidas
Filename = fileItem.filename
Next
Dim Archivo As New System.IO.FileInfo(String.Format("{0}OI\Temp\OI{1}{2}.{3}", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, Now.ToString("HH-mm"), FileExtension))
Dim Archivo As New System.IO.FileInfo(String.Format("{0}OI\Temp\OI{1}{2}.{3}", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, NowADS().ToString("HH-mm"), FileExtension))
If Archivo.Exists() Then
Archivo.Delete()
'File.Delete(String.Format("\Empresas\{0}\OI\Temp\OI{1}{2}.{3}", CveEmpresaActual, UsuarioActual.CveUsuario, DtDetalle.Rows.Count, FileExtension))
End If
If Filename <> "" Then
Filename.FilesMove(String.Format("OI{0}{1}", UsuarioActual.CveUsuario, Now.ToString("HH-mm")), String.Format("{0}OI\Temp", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
Filename.FilesMove(String.Format("OI{0}{1}", UsuarioActual.CveUsuario, NowADS().ToString("HH-mm")), String.Format("{0}OI\Temp", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
End If
'AGREGA
Dim Dr As DataRow = DtBitacora.NewRow
Dr("FechaIng") = Now
Dr("FechaIng") = NowADS()
Dr("FechaInicio") = ""
Dr("Usuario") = UsuarioActual.Usuario
Dr("CveUsuario") = UsuarioActual.CveUsuario
Dr("Descripcion") = TxtEventoDescripcion.Text.Trim
Dr("Prioridad") = 1
Dr("Archivo") = If(FileExtension = "", "", $"{UsuarioActual.Empresa.Ruta}OI\Temp\OI{UsuarioActual.CveUsuario}{Now.ToString("HH-mm")}.{FileExtension}")
Dr("Archivo") = If(FileExtension = "", "", $"{UsuarioActual.Empresa.Ruta}OI\Temp\OI{UsuarioActual.CveUsuario}{NowADS().ToString("HH-mm")}.{FileExtension}")
Dr("FileExtension") = String.Format(".{0}", FileExtension)
Dr("CveOrdenCompra") = -1
Dr("CveEmpresa") = UsuarioActual.CveEmpresa
@@ -3643,11 +3643,11 @@ Partial Class Inventarios_EntradasSalidas
'params.Add(New ReportParameter("Guia", Guia))
'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("Anio", Now.Year.ToString))
'params.Add(New ReportParameter("Mes", Now.Month.ToString("00")))
'params.Add(New ReportParameter("Dia", Now.Day.ToString("00")))
'params.Add(New ReportParameter("Anio", NowADS().Year.ToString))
'params.Add(New ReportParameter("Mes", NowADS().Month.ToString("00")))
'params.Add(New ReportParameter("Dia", NowADS().Day.ToString("00")))
'params.Add(New ReportParameter("Rastreo", Rastreo))
'params.Add(New ReportParameter("Dimensiones", Dimensiones))
@@ -3659,7 +3659,7 @@ Partial Class Inventarios_EntradasSalidas
' params.Add(New ReportParameter("LogoPath", ""))
'End If
'ImprimirPDF(RutaRdlc, DTMovimientosDetalle, params, $"ReporteGuia_{Now.ToString("yyyyMMddhhmmss")}")
'ImprimirPDF(RutaRdlc, DTMovimientosDetalle, params, $"ReporteGuia_{NowADS().ToString("yyyyMMddhhmmss")}")
End Sub
@@ -3971,7 +3971,7 @@ Partial Class Inventarios_EntradasSalidas
TxtCantCambio.Text = ""
TxtSerieCambio.Text = ""
TxtFechaCambio.Text = Now.ToString("dd/MM/yyyy")
TxtFechaCambio.Text = NowADS().ToString("dd/MM/yyyy")
TxtObsCambioVigencia.Text = ""
Th5.Visible = False
@@ -4409,7 +4409,7 @@ Partial Class Inventarios_EntradasSalidas
Dim ValorSalida As Decimal = 0
Dim ImporteConcepto As Decimal = 0
Dim tConcepto As String = TxtIFDescripcion.Text.Trim
Dim Fecha As Date = (TxtFechaInvFisico.Text.ToDate.ToString("yyyy/MM/dd ") & Now.ToShortTimeString).ToDate
Dim Fecha As Date = (TxtFechaInvFisico.Text.ToDate.ToString("yyyy/MM/dd ") & NowADS().ToShortTimeString).ToDate
Dim tCveSubProyectoEntrada As Integer = -1
Dim tCveSubProyectoSalida As Integer = -1
Dim TipoMovto As Boolean = False
@@ -4744,7 +4744,7 @@ Partial Class Inventarios_EntradasSalidas
'CONTABILIZAR MOVIMIENTOS
If Not ErrorMovInv Then
If Not ContabilizaMovimientoAlmacen(ObjConta, Now, "CAMBIO DE VIGENCIA", "ES/CV", CveMovimientoSalida, CveMovimientoEntrada, ImporteConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False) > 0 Then
If Not ContabilizaMovimientoAlmacen(ObjConta, NowADS(), "CAMBIO DE VIGENCIA", "ES/CV", CveMovimientoSalida, CveMovimientoEntrada, ImporteConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False) > 0 Then
ErrorMovInv = True
Mensaje = "No se pudo generar el movimiento de prepoliza"
End If
@@ -5491,12 +5491,12 @@ Partial Class Inventarios_EntradasSalidas
ObjFactura.Folio = Folio.ToEntero
ObjFactura.Serie = "Tra"
'ObjFactura.CveMesa = -1
ObjFactura.Fecha = Now
ObjFactura.Fecha = NowADS()
ObjFactura.CvePrePoliza = -1
ObjFactura.FechaPago = Now
ObjFactura.FechaPago = NowADS()
ObjFactura.MotivoDescuento = ""
ObjFactura.Observaciones = ""
ObjFactura.FechaEjecucion = Now
ObjFactura.FechaEjecucion = NowADS()
ObjFactura.UsuarioCreo = UsuarioActual.Usuario
ObjFactura.CveCondicionEntrega = -1
ObjFactura.CondicionEntrega = ""
@@ -5517,7 +5517,7 @@ Partial Class Inventarios_EntradasSalidas
ObjFactura.Amortizacion = 0
ObjFactura.CveContrato = 0
ObjFactura.CveVendedor = 0
ObjFactura.FechaVencimiento = Now
ObjFactura.FechaVencimiento = NowADS()
ObjFactura.TipoEstatus = 0
ObjFactura.Det_OrdenCompra = ""
ObjFactura.Inv_CveEstatusEntrega = 0

20
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -370,11 +370,11 @@ Partial Class Inventarios_EntregaAlmacen
DdlFolio.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaPendientes.Text = Now.ToShortDateString
'TxtFechaCaducidad.Text = Now.ToShortDateString
TxtFecha.Text = Now.ToShortDateString
TxtFechaPendientes.Text = NowADS().ToShortDateString
'TxtFechaCaducidad.Text = NowADS().ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
RVFecha.MaximumValue = MaxFecha.ToShortDateString
If UsuarioActual.CveEmpresa.Contiene(119) Then RVFecha.MinimumValue = Now.ToShortDateString : CEFecha.StartDate = Now Else RVFecha.MinimumValue = MinFecha.ToShortDateString
If UsuarioActual.CveEmpresa.Contiene(119) Then RVFecha.MinimumValue = NowADS().ToShortDateString : CEFecha.StartDate = NowADS() Else RVFecha.MinimumValue = MinFecha.ToShortDateString
If Not UsuarioActual.TienePermisoProceso(190) Then
'CARGA SOLO LAS SUCURSALES DE LOS ALMCENES QUE TIENE ASIGNADO EL USUARIO
@@ -477,8 +477,8 @@ Partial Class Inventarios_EntregaAlmacen
If UsuarioActual.Empresa.Funcionalidad(540) = "1" Then
BtnGuardar.Enabled = False
Dim FI As Date = Now.AddDays(-1)
Dim FF As Date = Now.AddDays(-7)
Dim FI As Date = NowADS().AddDays(-1)
Dim FF As Date = NowADS().AddDays(-7)
If ObjInventarios.RepNotasSinAlmacen(1, -1, FI, FF, "-1", -1, UsuarioActual.Empresa.CveEmpresa) Then
If ObjInventarios.DtResultados IsNot Nothing AndAlso ObjInventarios.DtResultados.Rows.Count > 1 Then
BtnGuardar.Enabled = False
@@ -497,7 +497,7 @@ Partial Class Inventarios_EntregaAlmacen
End If
LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm"))
LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("H:mm"))
GVPendientes.DataBind()
UpPendientes.Update()
@@ -737,7 +737,7 @@ Partial Class Inventarios_EntregaAlmacen
LnkPaqueteriaDetalle.Visible = True
End Select
End If
'TxtFecha.Text = If(EsDevolucionVenta = 1, Now.ToShortDateString, DtDatos.Rows(0)("Fecha").ToString())
'TxtFecha.Text = If(EsDevolucionVenta = 1, NowADS().ToShortDateString, DtDatos.Rows(0)("Fecha").ToString())
End If
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
@@ -2949,7 +2949,7 @@ Partial Class Inventarios_EntregaAlmacen
'Paqueterias guias
If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero()
Dim Fecha As String = Now.ToString() 'TxtFechaPaqInterna.Text
Dim Fecha As String = NowADS().ToString() 'TxtFechaPaqInterna.Text
Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
@@ -3604,7 +3604,7 @@ Partial Class Inventarios_EntregaAlmacen
'DATOS DEL MOVIMINETO
TxtObservaciones.Text = ""
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
DdlAlmacen.SelectedValueExist(-1)
CargaFolios()

10
Inventarios/EntregaAlmacenRuta.aspx.cs
View File

@@ -414,8 +414,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
DdlUnidadRec.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlUnidadRec.DataBind();
TxtFechaI.Text = DateTime.Now.AddDays(-1).ToShortDateString();
TxtFechaF.Text = DateTime.Now.AddDays(3).ToShortDateString();
TxtFechaI.Text = NowADS().AddDays(-1).ToShortDateString();
TxtFechaF.Text = NowADS().AddDays(3).ToShortDateString();
DdlChofer.DataSource = get_GlobalDTChoferes(UsuarioActual.CveEmpresa);
DdlChofer.DataBind();
@@ -424,10 +424,10 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
DdlChoferRec.DataBind();
DdlChoferRec.Items.Insert(0, new ListItem("Seleccione", "-1"));
TxtFechaEntrega.Text = DateTime.Now.ToShortDateString();
TxtFechaEntrega.Text = NowADS().ToShortDateString();
TabRecoleccion.Visible = UsuarioActual.Empresa.Funcionalidad(531) == "1";
TxtFechaLimite.Text = DateTime.Now.ToShortDateString();
TxtFechaLimite.Text = NowADS().ToShortDateString();
CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto);
CargarCentrosDeCosto(null, DdlSubProyectoRecoleccion, null, LblSubProyectoRecoleccion);
@@ -933,7 +933,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
dRow["Cantidad"] = TxtModalRecoleccionCantidad.Text.ToEntero();
dRow["CveUnidadMedida"] = DdlModalRecoleccionUnidad.SelectedValue.ToEntero();
dRow["CveUsuario"] = UsuarioActual.CveUsuario;
dRow["FechaIng"] = DateTime.Now;
dRow["FechaIng"] = NowADS();
dRow["CodigoPS"] = DdlProducto2.txtText.Value;
dRow["Abreviatura"] = DdlModalRecoleccionUnidad.SelectedItem.Text;

2
Inventarios/EntregasPorRealizar.aspx.cs
View File

@@ -90,7 +90,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
GridViewRowCollection Grid = GvGenerarDocumentos.Rows;
int CvePersonal = DdlUsuario.SelectedValue.ToEntero();
long CveAsignacionEntrega = DateTime.Now.Ticks;
long CveAsignacionEntrega = NowADS().Ticks;
string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos";
string LigaPopUpVerFactura = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", ModExtensiones.Encripta(String.Format("OP=ENTREGAS&CVEASIGNACIONENTREGA={0}&USUARIOENTREGA={1}", CveAsignacionEntrega, Usuario)));

2
Inventarios/Fletes.aspx.vb
View File

@@ -40,7 +40,7 @@ Partial Class Compras_Fletes
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
DtCompras = New DataTable
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
End Sub
Private Sub CargaFolio()
Dim ObjFolios As New ClsGralFolios

6
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -451,7 +451,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
If GvIFDUltimoRegistrado.Rows.Count > 0 Then
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now.ToString("dd/MM/yyyy")
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = NowADS().ToString("dd/MM/yyyy")
GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PSCodigo").ToString
@@ -640,11 +640,11 @@ Partial Class Inventarios_InventarioFisicoDetalle
params.Add(New ReportParameter("FechaInicio", lbFechaI.Text))
params.Add(New ReportParameter("FechaFin", lbFechaF.Text))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepInventarioFisicoDetalle.rdlc", DtDatos, params, String.Format("Reporte Inventario Físico-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
ImprimirPDF("Empresas/Grales/Formatos/RepInventarioFisicoDetalle.rdlc", DtDatos, params, String.Format("Reporte Inventario Físico-{0}", NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
Else
Alert("No se encontraron resultado", TipoMensaje.MsgAdvertencia)

8
Inventarios/Kardex.aspx.vb
View File

@@ -29,8 +29,8 @@ Partial Class Inventarios_Kardex
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
TxtFechaF.Text = Now.ToShortDateString
TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
CargaCombos()
'ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -246,7 +246,7 @@ Partial Class Inventarios_Kardex
DivIndicadores.Visible = True
Dim Dr = DtTemp.FiltroUltimo("")
Dim TC = If(GlobalTipoCambio(Now) > 0, GlobalTipoCambio(Now), 1)
Dim TC = If(GlobalTipoCambio(NowADS()) > 0, GlobalTipoCambio(NowADS()), 1)
LtIndicador_Existencia.Text = Dr("Existencias").ToString.ToDecimal.ToString("#,##0.####")
@@ -469,7 +469,7 @@ Partial Class Inventarios_Kardex
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("Producto", ddlProducto2.SelectedText))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{SerieAgrupado}{EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}"))

6
Inventarios/KardexAlmacen.aspx.vb
View File

@@ -7,8 +7,8 @@ Partial Class Inventarios_KardexAlmacen
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
TxtFechaF.Text = Now.ToShortDateString
TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
CargaCombos()
ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -183,7 +183,7 @@ Partial Class Inventarios_KardexAlmacen
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("Producto", ddlProducto2.SelectedText))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}"))

8
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -9,8 +9,8 @@ Partial Class Inventarios_KardexAlmacen
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
'TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
TxtFechaF.Text = Now.ToShortDateString
'TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
CargaCombos()
ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
LblOrden.Visible = False
@@ -27,7 +27,7 @@ Partial Class Inventarios_KardexAlmacen
If UsuarioActual.CveEmpresa = 119 Then
LnkPOG.Visible = True
txtFechaI.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().ToShortDateString
End If
If UsuarioActual.TienePermisoProceso(349) Then
@@ -338,7 +338,7 @@ Partial Class Inventarios_KardexAlmacen
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))

4
Inventarios/PaquetesArmadoDesarmado.aspx.vb
View File

@@ -157,8 +157,8 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
DdlAlmacenDesarmado.DataBind()
DdlAlmacenDesarmado.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaArmado.Text = Now.ToShortDateString
TxtFechaDesarmado.Text = Now.ToShortDateString
TxtFechaArmado.Text = NowADS().ToShortDateString
TxtFechaDesarmado.Text = NowADS().ToShortDateString
DdlVendedorArmado.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedorArmado.DataBind()

8
Inventarios/PopUpBuscarMovto.aspx.vb
View File

@@ -28,11 +28,11 @@ Partial Class PopUpBuscarFolio
#Region " Inicializa Valores "
Private Sub InicializaValores()
TxtFechaF.Text = Date.Now.ToShortDateString
TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
TxtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
TxtFechaIngFin.Text = Date.Now.ToShortDateString
TxtFechaIngInicio.Text = Now.FirstDayOfMonth.ToShortDateString
TxtFechaIngFin.Text = NowADS().ToShortDateString
TxtFechaIngInicio.Text = NowADS().FirstDayOfMonth.ToShortDateString
DdlTipoMovimiento.DataSource = GlobalDTInvConceptos()
DdlTipoMovimiento.DataBind()

6
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -32,8 +32,8 @@ Partial Class Inventarios_PrestamosdeProveedor
End Sub
Private Sub CargaCombos()
RVFechaEntrega.MaximumValue = Now.ToShortDateString
TxtFechaEntrega.Text = Now.ToShortDateString
RVFechaEntrega.MaximumValue = NowADS().ToShortDateString
TxtFechaEntrega.Text = NowADS().ToShortDateString
ddlProveedor.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
@@ -255,7 +255,7 @@ Partial Class Inventarios_PrestamosdeProveedor
ObjInventario.Commit()
TxtRecibio.Text = ""
TxtFechaEntrega.Text = Now.ToShortDateString
TxtFechaEntrega.Text = NowADS().ToShortDateString
TxtObservacionesEntrega.Text = ""
HdnCveProveedor.Value = ""

46
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -547,7 +547,7 @@ Partial Class Inventarios_RecepcionAlmacen
DivRemision.Visible = True
End If
TxtFechaPendientes.Text = Now.ToShortDateString
TxtFechaPendientes.Text = NowADS().ToShortDateString
TipoCambio = -1
CreaDtDetalle()
@@ -555,13 +555,13 @@ Partial Class Inventarios_RecepcionAlmacen
ImgAdd.Attributes.Add("onclick", "$('#DivAlmacen').hide();")
BtnGuardar.Visible = False
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
If UsuarioActual.CveEmpresa.Contiene(119) Then RVFecha.MinimumValue = Now.ToShortDateString : CEFecha.StartDate = Now Else RVFecha.MinimumValue = MinFecha.ToShortDateString
If UsuarioActual.CveEmpresa.Contiene(119) Then RVFecha.MinimumValue = NowADS().ToShortDateString : CEFecha.StartDate = NowADS() Else RVFecha.MinimumValue = MinFecha.ToShortDateString
InicializaBitacoraTemporal()
DdlMonedaTC.Enabled = False
RVFecha.MaximumValue = Now.ToShortDateString
CEFecha.EndDate = Now
RVFecha.MaximumValue = NowADS().ToShortDateString
CEFecha.EndDate = NowADS()
End Sub
''' <summary>
@@ -851,8 +851,8 @@ Partial Class Inventarios_RecepcionAlmacen
'If UsuarioActual.Empresa.Funcionalidad(539) = "1" Then
' BtnGuardar.Enabled = False
' Dim FI As Date = Now.AddDays(-1)
' Dim FF As Date = Now.AddDays(-7)
' Dim FI As Date = NowADS().AddDays(-1)
' Dim FF As Date = NowADS().AddDays(-7)
' If ObjInventarios.RepNotasSinAlmacen(2, -1, FI, FF, "-1", -1, UsuarioActual.Empresa.CveEmpresa) Then
' If ObjInventarios.DtResultados IsNot Nothing AndAlso ObjInventarios.DtResultados.Rows.Count > 1 Then
' BtnGuardar.Enabled = False
@@ -869,7 +869,7 @@ Partial Class Inventarios_RecepcionAlmacen
GVPendientes.DataSource = DtPendientes
End If
LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm"))
LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("H:mm"))
GVPendientes.DataBind()
UpPendientes.Update()
@@ -929,7 +929,7 @@ Partial Class Inventarios_RecepcionAlmacen
DtInv = Nothing
TxtObservaciones.Text = ""
TxtOC.Text = ""
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
DdlAlmacen.SelectedValueExist(-1)
TxtRemision.Text = ""
UpTipoCambio.Update()
@@ -1417,7 +1417,7 @@ Partial Class Inventarios_RecepcionAlmacen
If Dr(VariableCampo).ToString.ToDecimal <> Dr("CantidadC").ToString.ToDecimal Then
GvInv.Columns(3).Visible = True
End If
Dr("Caducidad") = Now
Dr("Caducidad") = NowADS()
Next
DtInv = TmDT '.FiltraParametros("CantidadF > 0")
@@ -1540,7 +1540,7 @@ Partial Class Inventarios_RecepcionAlmacen
If CBool(e.Row.DBCampo("AplicaCaducidad")) Then
e.Row.FCTextBox("TxtCaducidad").Visible = True
e.Row.FCLinkButton("LnkCaducidad").Visible = True
e.Row.FCTextBox("TxtCaducidad").Text = Now.ToShortDateString
e.Row.FCTextBox("TxtCaducidad").Text = NowADS().ToShortDateString
e.Row.FCTextBox("TxtDividir").Visible = True
Else
e.Row.FCTextBox("TxtCaducidad").Visible = False
@@ -2023,7 +2023,7 @@ Partial Class Inventarios_RecepcionAlmacen
TxtCantidadLote.Text = "1"
TxtLote.Text = ""
TxtBatch.Text = ""
TxtFechaCaducidadLote.Text = If(TxtFechaCaducidadLote.Text.Trim = "", Now.ToShortDateString(), TxtFechaCaducidadLote.Text)
TxtFechaCaducidadLote.Text = If(TxtFechaCaducidadLote.Text.Trim = "", NowADS().ToShortDateString(), TxtFechaCaducidadLote.Text)
TxtLote.Focus()
UPInv.Update()
@@ -2316,7 +2316,7 @@ Partial Class Inventarios_RecepcionAlmacen
End If
End If
Dim Existencia As Decimal = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=(TxtFecha.Text & " " & Now.ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm"))
Dim Existencia As Decimal = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=(TxtFecha.Text & " " & NowADS().ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm"))
If Existencia < ExistenciaActual Then
MensajeExistencias.Append($"Producto: <b>{GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToString.ToEntero).FiltroPrimeroValor("PSCodigo")}</b>.</br>")
Continue For
@@ -3324,7 +3324,7 @@ Partial Class Inventarios_RecepcionAlmacen
Dim TotalCostoExtranjero As Decimal = DtCostos.SUMD("TotalExtranjero")
'VARIABLES
Dim Fecha As Date = Now
Dim Fecha As Date = NowADS()
Dim CveProveedor As Integer = -1
Dim ProveedorNombre As String = ""
Dim SerieFolio As String = ""
@@ -3580,7 +3580,7 @@ Partial Class Inventarios_RecepcionAlmacen
If Not ErrorMovInv AndAlso TipoMovimiento = 2 AndAlso CveMovimientoSalidaTraspaso > 0 Then
'VARIABLES
Dim Fecha As Date = Now
Dim Fecha As Date = NowADS()
Dim CveProveedor As Integer = -1
Dim ProveedorNombre As String = ""
Dim SerieFolio As String = ""
@@ -3610,7 +3610,7 @@ Partial Class Inventarios_RecepcionAlmacen
'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {CveAlmacenDevolucionProveedor}").ToEntero()
'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
Dim CvePrePolizaTraspaso As Integer = ObjConta.AddPrePolizas("RecepcionAlmacen/TraspasoAlmacen", 53, 0, 0, 1, Now, ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim CvePrePolizaTraspaso As Integer = ObjConta.AddPrePolizas("RecepcionAlmacen/TraspasoAlmacen", 53, 0, 0, 1, NowADS(), ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CvePrePolizaTraspaso > 0 AndAlso ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaTraspaso, UsuarioActual.CveEmpresa) Then
Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
@@ -4049,7 +4049,7 @@ Partial Class Inventarios_RecepcionAlmacen
CargaGVInv()
TxtObservaciones.Text = ""
TxtOC.Text = ""
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
DdlAlmacen.SelectedValueExist(-1)
TxtRemision.Text = ""
@@ -4139,7 +4139,7 @@ Partial Class Inventarios_RecepcionAlmacen
GVPendientes.DataSource = DtPendientesOC
End If
LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm"))
LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("H:mm"))
GVPendientes.DataBind()
UpPendientes.Update()
@@ -4394,26 +4394,26 @@ Partial Class Inventarios_RecepcionAlmacen
Filename = fileItem.filename
Next
Dim Archivo As New System.IO.FileInfo(String.Format("{0}OI\Temp\OI{1}{2}.{3}", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, Now.ToString("HH-mm"), FileExtension))
Dim Archivo As New System.IO.FileInfo(String.Format("{0}OI\Temp\OI{1}{2}.{3}", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, NowADS().ToString("HH-mm"), FileExtension))
If Archivo.Exists() Then
Archivo.Delete()
'File.Delete(String.Format("\Empresas\{0}\OI\Temp\OI{1}{2}.{3}", CveEmpresaActual, UsuarioActual.CveUsuario, DtDetalle.Rows.Count, FileExtension))
End If
If Filename <> "" Then
Filename.FilesMove(String.Format("OI{0}{1}", UsuarioActual.CveUsuario, Now.ToString("HH-mm")), String.Format("{0}OI\Temp", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
Filename.FilesMove(String.Format("OI{0}{1}", UsuarioActual.CveUsuario, NowADS().ToString("HH-mm")), String.Format("{0}OI\Temp", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
End If
'AGREGA
Dim Dr As DataRow = DtBitacora.NewRow
Dr("FechaIng") = Now
Dr("FechaIng") = NowADS()
Dr("FechaInicio") = ""
Dr("Usuario") = UsuarioActual.Usuario
Dr("CveUsuario") = UsuarioActual.CveUsuario
Dr("Descripcion") = TxtEventoDescripcion.Text.Trim
Dr("Prioridad") = 1
Dr("Archivo") = If(FileExtension = "", "", $"{UsuarioActual.Empresa.Ruta}OI\Temp\OI{UsuarioActual.CveUsuario}{Now.ToString("HH-mm")}.{FileExtension}")
Dr("Archivo") = If(FileExtension = "", "", $"{UsuarioActual.Empresa.Ruta}OI\Temp\OI{UsuarioActual.CveUsuario}{NowADS().ToString("HH-mm")}.{FileExtension}")
Dr("FileExtension") = String.Format(".{0}", FileExtension)
Dr("CveOrdenCompra") = -1
Dr("CveEmpresa") = UsuarioActual.CveEmpresa
@@ -4624,7 +4624,7 @@ Partial Class Inventarios_RecepcionAlmacen
params.Add(New ReportParameter("Proveedor", Proveedor))
params.Add(New ReportParameter("Compra", Compra))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
ImprimirPDF(RutaPDF, dt, params, "Reporte de Entrada Almacén", Formato:=Formato)
End Sub

14
Inventarios/RecepcionDevolucion.aspx.vb
View File

@@ -91,8 +91,8 @@ Partial Class Inventarios_RecepcionDevolucion
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione ", "-1"))
TxtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
TxtFechaI.Text = $"01/{NowADS().Month}/{NowADS().Year}"
TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
GvDatos.DataSource = Nothing
GvDatos.DataBind()
@@ -324,7 +324,7 @@ Partial Class Inventarios_RecepcionDevolucion
If Me.ObjRemisionNC.CveMoneda = 1 Then
Me.ObjRemisionNC.TipoCambio = 1
Else
Me.ObjRemisionNC.TipoCambio = GlobalTipoCambio(Now).ToDecimal()
Me.ObjRemisionNC.TipoCambio = GlobalTipoCambio(NowADS()).ToDecimal()
End If
Me.ObjRemisionNC.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", String.Format("CveMoneda = {0} ", Me.ObjRemisionNC.CveMoneda))
@@ -332,11 +332,11 @@ Partial Class Inventarios_RecepcionDevolucion
Me.ObjRemisionNC.TipoDocto = "RNC"
Me.ObjRemisionNC.RefDocto = ""
'Me.ObjRemisionNC.CveMesa = -1
Me.ObjRemisionNC.Fecha = Now
Me.ObjRemisionNC.Fecha = NowADS()
Me.ObjRemisionNC.CvePrePoliza = -1
Me.ObjRemisionNC.FechaPago = Now
Me.ObjRemisionNC.FechaPago = NowADS()
Me.ObjRemisionNC.MotivoDescuento = ""
Me.ObjRemisionNC.FechaEjecucion = Now
Me.ObjRemisionNC.FechaEjecucion = NowADS()
Me.ObjRemisionNC.UsuarioCreo = UsuarioActual.Usuario
Me.ObjRemisionNC.CveCondicionEntrega = -1
Me.ObjRemisionNC.CondicionEntrega = ""
@@ -419,7 +419,7 @@ Partial Class Inventarios_RecepcionDevolucion
'VALIDA PROMOCIONES Y EXISTENCIAS
Dim ObjVentas As New ClsVentas
If ObjVentas.GetPromocionesPS(-1, Now, CveSubProyecto, Me.ObjRemisionNC.CveCliente, Me.ObjRemisionNC.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
If ObjVentas.GetPromocionesPS(-1, NowADS(), CveSubProyecto, Me.ObjRemisionNC.CveCliente, Me.ObjRemisionNC.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
Me.ObjRemisionNC.DtPromociones = ObjVentas.DtResultados.Copy()
End If
ObjVentas.Dispose()

30
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -383,9 +383,9 @@ Partial Class Inventarios_RecepcionUsados
CreaDT()
CargaCombos()
TxtFecha.Text = Now.ToShortDateString
TxtFechaPendientes.Text = Now.ToShortDateString
RVFecha.MaximumValue = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
TxtFechaPendientes.Text = NowADS().ToShortDateString
RVFecha.MaximumValue = NowADS().ToShortDateString
InicializaClientes(False)
'si viene una parámetro para cargar un movimiento lo hacemos dentro del procedimiento cargadatos
@@ -455,7 +455,7 @@ Partial Class Inventarios_RecepcionUsados
Dim RFC As String = IfNull(Request("RFC"), "").ToString()
Dim CveAlmacen As Integer = IfNull(Request("CveAlmacen"), "-1").ToString().ToEntero()
Dim Cantidad As Decimal = IfNull(Request("Cantidad"), "0").ToString().ToDecimal()
Dim Fecha As DateTime = IfNull(Request("Fecha"), Now.ToString("dd/MM/yyyy")).ToString().ToDateTime()
Dim Fecha As DateTime = IfNull(Request("Fecha"), NowADS().ToString("dd/MM/yyyy")).ToString().ToDateTime()
If Not String.IsNullOrEmpty(RFC) Then
Dim DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa)
@@ -819,7 +819,7 @@ Partial Class Inventarios_RecepcionUsados
TxtResponsable.Text = ""
TxtObservaciones.Text = ""
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
LblUsuarioRegistro.Text = ""
LblFechaRegistro.Text = ""
@@ -1031,7 +1031,7 @@ Partial Class Inventarios_RecepcionUsados
#Region " AGREGAR - GUARDAR "
Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Double
Dim Inv As New ClsInventarios
Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, -1, FechaMovto:=String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), Now.ToShortTimeString), Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad)
Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, -1, FechaMovto:=String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), NowADS().ToShortTimeString), Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad)
Inv.Dispose()
Return Existencia
End Function
@@ -1329,7 +1329,7 @@ Partial Class Inventarios_RecepcionUsados
Dim Puntos As Decimal = DrTamanio("Puntos").ToString().ToDecimal() * Dr("Cantidad").ToString.ToDecimal()
If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, Puntos, Cargo, Bonificacion, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, Now, CveMovimiento:=CveMovimiento) Then
UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, NowADS(), CveMovimiento:=CveMovimiento) Then
Mensaje = "Error al guardar Movimientos de distribuidor"
ErrorMovInv = True
Exit For
@@ -1843,26 +1843,26 @@ Partial Class Inventarios_RecepcionUsados
Filename = fileItem.filename
Next
Dim Archivo As New System.IO.FileInfo(String.Format("{0}OI\Temp\OI{1}{2}.{3}", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, Now.ToString("HH-mm"), FileExtension))
Dim Archivo As New System.IO.FileInfo(String.Format("{0}OI\Temp\OI{1}{2}.{3}", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, NowADS().ToString("HH-mm"), FileExtension))
If Archivo.Exists() Then
Archivo.Delete()
End If
If Filename <> "" Then
Filename.FilesMove(String.Format("OI{0}{1}", UsuarioActual.CveUsuario, Now.ToString("HH-mm")), String.Format("{0}OI\Temp", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
Filename.FilesMove(String.Format("OI{0}{1}", UsuarioActual.CveUsuario, NowADS().ToString("HH-mm")), String.Format("{0}OI\Temp", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
End If
'AGREGA
Dim Dr = DtBitacora.NewRow
Dr("FechaIng") = Now
Dr("FechaIng") = NowADS()
Dr("FechaInicio") = ""
Dr("Usuario") = UsuarioActual.Usuario
Dr("CveUsuario") = UsuarioActual.CveUsuario
Dr("Descripcion") = TxtEventoDescripcion.Text.Trim
Dr("Prioridad") = 1
Dr("Archivo") = If(FileExtension = "", "", $"{UsuarioActual.Empresa.Ruta}OI\Temp\OI{UsuarioActual.CveUsuario}{Now.ToString("HH-mm")}.{FileExtension}")
Dr("Archivo") = If(FileExtension = "", "", $"{UsuarioActual.Empresa.Ruta}OI\Temp\OI{UsuarioActual.CveUsuario}{NowADS().ToString("HH-mm")}.{FileExtension}")
Dr("FileExtension") = String.Format(".{0}", FileExtension)
Dr("CveOrdenCompra") = -1
Dr("CveEmpresa") = UsuarioActual.CveEmpresa
@@ -2506,7 +2506,7 @@ Partial Class Inventarios_RecepcionUsados
'VALIDA PROMOCIONES Y EXISTENCIAS
Dim ObjVentas As New ClsVentas
If ObjVentas.GetPromocionesPS(-1, Now, CveSubProyecto, Me.ObjRemisionNC.CveCliente, Me.ObjRemisionNC.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
If ObjVentas.GetPromocionesPS(-1, NowADS(), CveSubProyecto, Me.ObjRemisionNC.CveCliente, Me.ObjRemisionNC.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
Me.ObjRemisionNC.DtPromociones = ObjVentas.DtResultados.Copy()
End If
ObjVentas.Dispose()
@@ -3321,7 +3321,7 @@ Partial Class Inventarios_RecepcionUsados
Private Sub CalculaMesesUso()
Dim FechaI As Date = TxtFechaAjuste.Text.ToDate.AddDays(1)
Dim FechaF As Date = Now
Dim FechaF As Date = NowADS()
Dim Dia As Integer = FechaI.Day
'validación adicional, para saber si el mes tiene 31 días y el actua es menor.
If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day
@@ -3511,7 +3511,7 @@ Partial Class Inventarios_RecepcionUsados
'Informacion de Garantia o ajuste
params.Add(New ReportParameter("FechaInst", TxtFechaAjuste.Text.Trim))
params.Add(New ReportParameter("Fecha", Now.ToShortDateString))
params.Add(New ReportParameter("Fecha", NowADS().ToShortDateString))
params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim))
params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))
@@ -3667,7 +3667,7 @@ Partial Class Inventarios_RecepcionUsados
Dim Total As Decimal = ((Cantidad * PU) - Descuento).RoundSQL(2)
Dim TipoServicio As Integer = -1
Dim FechaUsado As DateTime = If(TxtFechaAjuste.Text.ToDateTime() < MinFecha, Now, TxtFechaAjuste.Text.ToDateTime())
Dim FechaUsado As DateTime = If(TxtFechaAjuste.Text.ToDateTime() < MinFecha, NowADS(), TxtFechaAjuste.Text.ToDateTime())
Dim CveModeloAuto As Integer = -1
Dim AnioVehiculo As Integer = 0
Dim TipoPoliza As Integer = 1 'VENTA

4
Inventarios/Remanufactura.aspx.vb
View File

@@ -77,7 +77,7 @@ Partial Class Inventarios_Remanufactura
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
'Carga Clientes
DdlCliente.setEsWebService(True)
@@ -259,7 +259,7 @@ Partial Class Inventarios_Remanufactura
Public Sub Limpia()
CargaFolio()
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
DdlCliente.SelectedText = ""
DdlCliente.SelectedValue = "-1"
DdlPS.SelectedText = ""

2
Inventarios/RepAlmacen.aspx.vb
View File

@@ -95,7 +95,7 @@ Partial Class Inventarios_RepAlmacen
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("Empresas/Grales/Formatos/RepAlmacen.rdlc", TmpDT, params, "ReporteAlmacen", Formato)

10
Inventarios/RepAlmacenCompras.aspx.vb
View File

@@ -61,8 +61,8 @@ Partial Class Inventarios_RepAlmacenCompras
End Sub
Private Sub CargaDatos()
TxtFechaFin.Text = Now.ToShortDateString
TxtFechaInicio.Text = Now.FirstDayOfMonth.ToShortDateString
TxtFechaFin.Text = NowADS().ToShortDateString
TxtFechaInicio.Text = NowADS().FirstDayOfMonth.ToShortDateString
CargaCombos()
@@ -128,12 +128,12 @@ Partial Class Inventarios_RepAlmacenCompras
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("Empresas/Grales/Formatos/RepAlmacenCompras.rdlc", DtAlmacenCompra, params, String.Format("ReporteAlmacenCompras-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/RepAlmacenCompras.rdlc", DtAlmacenCompra, params, String.Format("ReporteAlmacenCompras-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
@@ -144,7 +144,7 @@ Partial Class Inventarios_RepAlmacenCompras
#Region "EXCEL"
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
GvDatos.ExportToExcel("Reporte de AlmacenCompras" & Now.ToShortDateString)
GvDatos.ExportToExcel("Reporte de AlmacenCompras" & NowADS().ToShortDateString)
End Sub
#End Region

2
Inventarios/RepAlmacenPeriodo.aspx.vb
View File

@@ -131,7 +131,7 @@ Partial Class Inventarios_RepAlmacenPeriodo
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("Empresas/Grales/Formatos/RepAlmacenPeriodo.rdlc", TmpDT, params, "ReporteAlmacenPeriodo")

24
Inventarios/RepAnomalias.aspx.vb
View File

@@ -428,10 +428,10 @@ Partial Class Inventarios_RepAnomalias
#Region " IMPRIMIR "
'Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
' GvF.ExportToExcel("IF_Faltantes_" & Now.ToShortDateString())
' GvF.ExportToExcel("IF_Faltantes_" & NowADS().ToShortDateString())
'End Sub
'Protected Sub LnkExportaSobrantes_Click(sender As Object, e As EventArgs) Handles LnkExportaSobrantes.Click
' GvS.ExportToExcel("IF_Sobrantes_" & Now.ToShortDateString())
' GvS.ExportToExcel("IF_Sobrantes_" & NowADS().ToShortDateString())
'End Sub
Private Sub LnkPDF_Click(sender As Object, e As EventArgs) Handles LnkPDF.Click
@@ -459,7 +459,7 @@ Partial Class Inventarios_RepAnomalias
params.Add(New ReportParameter("FechaInicio", Inventario.FechaI))
params.Add(New ReportParameter("FechaFin", Inventario.FechaF))
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}", "")))
@@ -510,9 +510,9 @@ Partial Class Inventarios_RepAnomalias
SbFiltros.AppendFormat("Estatus: {0}|", lbEstatus.Text)
'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & NowADS().ToShortDateString)
ExportToExcelGembox2(GvTemp, "Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos que Faltan", DatosFiltros:=SbFiltros.ToString())
ExportToExcelGembox2(GvTemp, "Reporte de Inventario Fisico - Productos que Faltan " & NowADS().ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos que Faltan", DatosFiltros:=SbFiltros.ToString())
End Sub
@@ -539,9 +539,9 @@ Partial Class Inventarios_RepAnomalias
SbFiltros.AppendFormat("Estatus: {0}|", lbEstatus.Text)
'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & NowADS().ToShortDateString)
ExportToExcelGembox2(GvTemp, "Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos que Sobran", DatosFiltros:=SbFiltros.ToString())
ExportToExcelGembox2(GvTemp, "Reporte de Inventario Fisico - Productos que Sobran " & NowADS().ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos que Sobran", DatosFiltros:=SbFiltros.ToString())
End Sub
@@ -568,14 +568,14 @@ Partial Class Inventarios_RepAnomalias
SbFiltros.AppendFormat("Estatus: {0}|", lbEstatus.Text)
ExportToExcelGembox2(GvTemp, "Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos Coincidentes", DatosFiltros:=SbFiltros.ToString())
ExportToExcelGembox2(GvTemp, "Reporte de Inventario Fisico - Productos Coincidentes " & NowADS().ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos Coincidentes", DatosFiltros:=SbFiltros.ToString())
End Sub
Private Sub LnkDescarExcelGrupos_Click(sender As Object, e As EventArgs) Handles LnkDescarExcelGrupos.Click
'Dim Filtros As String = "Almacenes:aASDSAF|Clasificaciones:sdfasf|Fecha:12/12/2323"
'GvGrupos.ExportToExcelGembox("Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Inventario:" & lbTitulo.Text, "", DatosFiltros:=Filtros)
'GvGrupos.ExportToExcelGembox("Reporte de Inventario Fisico" & NowADS().ToShortDateString, UsuarioActual, "Inventario:" & lbTitulo.Text, "", DatosFiltros:=Filtros)
Dim SbFiltros As New StringBuilder()
SbFiltros.AppendFormat("Almacenes: {0}|", LblAlmacenes.Text)
@@ -616,8 +616,8 @@ Partial Class Inventarios_RepAnomalias
ObjInventarios.Dispose()
'ExportToExcelGembox
ExportToExcelGembox2(GvGrupos, "Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString(), DTExtra:=DTExtra, DatosFiltrosExtra:=SbFiltrosExtra.ToString)
'ExportarExcelGembox(GvGrupos, "Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString(), DTExtra:=DTExtra)
ExportToExcelGembox2(GvGrupos, "Reporte de Inventario Fisico" & NowADS().ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString(), DTExtra:=DTExtra, DatosFiltrosExtra:=SbFiltrosExtra.ToString)
'ExportarExcelGembox(GvGrupos, "Reporte de Inventario Fisico" & NowADS().ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString(), DTExtra:=DTExtra)
End Sub
@@ -732,7 +732,7 @@ Partial Class Inventarios_RepAnomalias
worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
worksheet.Rows(IndexEndTable + 1).Cells(2).Value = NowADS().ToString("dd/MM/yyyy")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))

14
Inventarios/RepApartados.aspx.vb
View File

@@ -66,8 +66,8 @@ Partial Class Inventarios_RepApartados
DdlPS.DataBind()
End If
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
End Sub
#End Region
@@ -111,7 +111,7 @@ Partial Class Inventarios_RepApartados
If Anio <> "-1" Then
txtFechaF.Text = String.Format("31/12/{0}", Anio)
ElseIf Mes <> "-1" Then
txtFechaF.Text = String.Format("{0}/{1}/{2}", txtFechaI.Text.ToDate.LastDayOfMonth.Day, Mes, Now.Year)
txtFechaF.Text = String.Format("{0}/{1}/{2}", txtFechaI.Text.ToDate.LastDayOfMonth.Day, Mes, NowADS().Year)
ElseIf AnioMes <> "-1" Then
txtFechaF.Text = txtFechaI.Text.ToDate.LastDayOfMonth.ToShortDateString
End If
@@ -227,12 +227,12 @@ Partial Class Inventarios_RepApartados
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("Empresas/Grales/Formatos/RepApartados.rdlc", DtApartados, params, String.Format("ReporteApartados-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/RepApartados.rdlc", DtApartados, params, String.Format("ReporteApartados-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
@@ -240,7 +240,7 @@ Partial Class Inventarios_RepApartados
End Sub
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
GvDatos.ExportToExcel("Reporte de Apartados" & Now.ToShortDateString)
GvDatos.ExportToExcel("Reporte de Apartados" & NowADS().ToShortDateString)
End Sub
#End Region
@@ -428,7 +428,7 @@ Partial Class Inventarios_RepApartados
Dim CveMovimiento As Integer = -1
Dim Folio As Integer = -1
CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoAlmacen, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1,
CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoAlmacen, 1, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1,
-1, -1, -1, Observaciones:=Obs,
MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimientoRelacionado, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:=Modulo)
Folio = ObjInventario.Folio

8
Inventarios/RepApartados2.aspx.vb
View File

@@ -46,8 +46,8 @@ Partial Class Inventarios_RepApartados2
DdlPS.DataBind()
DdlPS.Items.Insert(0, New ListItem(" Todos ", "-1"))
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
CargaGrupo()
End Sub
@@ -138,12 +138,12 @@ Partial Class Inventarios_RepApartados2
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("Empresas/Grales/Formatos/RepApartados2.rdlc", DtApartados, params, String.Format("ReporteApartados-{0}", Now.ToDateTime.ToShortDateString), Formato)
ImprimirPDF("Empresas/Grales/Formatos/RepApartados2.rdlc", DtApartados, params, String.Format("ReporteApartados-{0}", NowADS().ToDateTime.ToShortDateString), Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

6
Inventarios/RepConsignaciones.aspx.vb
View File

@@ -114,12 +114,12 @@ Partial Class Inventarios_RepConsignaciones
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("Empresas/Grales/Formatos/RepConsignaciones.rdlc", DtConsignaciones, params, String.Format("ReporteConsignaciones-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/RepConsignaciones.rdlc", DtConsignaciones, params, String.Format("ReporteConsignaciones-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
@@ -130,7 +130,7 @@ Partial Class Inventarios_RepConsignaciones
#Region "EXCEL"
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
GvDatos.ExportToExcel("Reporte de Consignaciones" & Now.ToShortDateString)
GvDatos.ExportToExcel("Reporte de Consignaciones" & NowADS().ToShortDateString)
End Sub
#End Region

8
Inventarios/RepConsumoInterno.aspx.cs
View File

@@ -157,8 +157,8 @@ public partial class Inventarios_RepConsumoInterno : ClsPaginas
protected void CargaFechas()
{
TxtFechaI.Text = DateTime.Now.AddDays(-30).ToShortDateString();
TxtFechaF.Text = DateTime.Now.ToShortDateString();
TxtFechaI.Text = NowADS().AddDays(-30).ToShortDateString();
TxtFechaF.Text = NowADS().ToShortDateString();
}
#endregion
@@ -204,10 +204,10 @@ public partial class Inventarios_RepConsumoInterno : ClsPaginas
@params.Add(new ReportParameter("Personal", Personal));
@params.Add(new ReportParameter("AF", AF));
@params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
@params.Add(new ReportParameter("FechaImpresion", NowADS().ToShortDateString()));
@params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : ""));
ImprimirPDF(RutaPDF, DTDatos, @params, "RepConsumoInterno " + DateTime.Now.ToString("yyyyMMddhhmmss"), Formato);
ImprimirPDF(RutaPDF, DTDatos, @params, "RepConsumoInterno " + NowADS().ToString("yyyyMMddhhmmss"), Formato);
}
protected void LnkImprimirPDF_Click(object sender, EventArgs e)

12
Inventarios/RepEntradasSalidas.aspx.vb
View File

@@ -67,8 +67,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
LnkFormatoInventario.Visible = True
End If
TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
FechaInicial = "-1"
FechaFinal = "-1"
@@ -348,7 +348,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
ImprimiReporte("EXCEL")
End Sub
Private Sub LnkExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles LnkExcelPersonalizado.Click
GvM.ExportToExcel("EntradasSalidas_" + Now.ToShortDateString)
GvM.ExportToExcel("EntradasSalidas_" + NowADS().ToShortDateString)
End Sub
Private Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
ImprimiReporte()
@@ -376,8 +376,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
If FechaI = "-1" Then
FechaI = "01-01-0001"
End If
If FechaF = "-1" OrElse FechaFinal.ToDate > Now.ToDate Then
FechaF = Now.ToString("dd/MM/yyyy")
If FechaF = "-1" OrElse FechaFinal.ToDate > NowADS().ToDate Then
FechaF = NowADS().ToString("dd/MM/yyyy")
End If
Dim RutaPDF As String
Dim Ruta As String = UsuarioActual.Empresa.Ruta
@@ -413,7 +413,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
If FormatoInventario Then
params.Add(New ReportParameter("Sucursal", DdlAlmacen.SelectedItem.Text))
params.Add(New ReportParameter("Bodega", DdlAlmacen.SelectedItem.Text))

6
Inventarios/RepEntradasSalidasXContrato.aspx.cs
View File

@@ -25,8 +25,8 @@ public partial class Inventarios_RepEntradasSaliidasContrato : ClsPaginas
}
}
private void InicializaValores()
{
private void InicializaValores()
{
TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString();
TxtFechaF.Text = NowADS().ToShortDateString();
@@ -197,7 +197,7 @@ public partial class Inventarios_RepEntradasSaliidasContrato : ClsPaginas
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);
List<ReportParameter> para = new List<ReportParameter>();
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Contrato}{Almacen}{FechaI}{FechaF}"));

12
Inventarios/RepEntregaAlmacenRuta.aspx.cs
View File

@@ -335,8 +335,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
protected void InicializaFechas()
{
TxtFechaI.Text = DateTime.Now.AddDays(-1).ToString("dd/MM/yyyy");
TxtFechaF.Text = DateTime.Now.AddDays(3).ToString("dd/MM/yyyy");
TxtFechaI.Text = NowADS().AddDays(-1).ToString("dd/MM/yyyy");
TxtFechaF.Text = NowADS().AddDays(3).ToString("dd/MM/yyyy");
}
#endregion
@@ -528,7 +528,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
if (EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptor))
{
if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, NowADS(), CvePACCancelacion, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{
ProcesoOK = true;
}
@@ -540,17 +540,17 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
if (Resp.Verificado)
{
if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, ObjCancelacion.CancelacionAcuse, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, NowADS(), CvePACCancelacion, ObjCancelacion.CancelacionAcuse, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{
//regenero el timbre
if (TimbreTipoDocto == "Tra")
{
CveTimbre = ObjGenerales.AddGralTimbre("Tra", CveSubProyecto, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen: CveEntregaAlmacen, AplicaCP: true);
CveTimbre = ObjGenerales.AddGralTimbre("Tra", CveSubProyecto, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen: CveEntregaAlmacen, AplicaCP: true);
}
////regenero el timbre
//if (TimbreTipoDocto == "Ent")
//{
// CveTimbre = ObjGenerales.AddGralTimbre("Ent", CveSubProyecto, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen: CveEntregaAlmacen, AplicaCP: true);
// CveTimbre = ObjGenerales.AddGralTimbre("Ent", CveSubProyecto, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen: CveEntregaAlmacen, AplicaCP: true);
//}
ProcesoOK = true;
}

6
Inventarios/RepEntregasForaneas.aspx.vb
View File

@@ -219,7 +219,7 @@ Partial Class Inventarios_RepEntregasForaneas
End Sub
Private Sub InicializaFechas()
Dim FI As New DateTime(DateTime.Now.Year, 1, 1)
Dim FI As New DateTime(NowADS().Year, 1, 1)
FechaInicio = FI.ToShortDateString
FechaFin = DateTime.Today.ToShortDateString
@@ -738,12 +738,12 @@ Partial Class Inventarios_RepEntregasForaneas
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", $" <b>Estado:</b>{Estatus} <b>Paqueteria:</b>{Paqueteria} <b>Tipo:</b>{Tipo}"))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF(RutaPDF, DTDatos, params, "RepEntregasForaneas" & Now.ToString("yyyyMMddhhmmss"), Formato)
ImprimirPDF(RutaPDF, DTDatos, params, "RepEntregasForaneas" & NowADS().ToString("yyyyMMddhhmmss"), Formato)
End Sub

6
Inventarios/RepExistenciaLote.aspx.vb
View File

@@ -59,8 +59,8 @@ Partial Class Inventarios_RepExistenciaLote
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
TxtFechaF.Text = Now.ToShortDateString
TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
FechaInicial = "-1"
FechaFinal = "-1"
@@ -273,7 +273,7 @@ Partial Class Inventarios_RepExistenciaLote
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
ImprimirPDF(RutaPDF, dt, params, NombreArchivoDescarga, Formato)

8
Inventarios/RepExistenciasCostos.aspx.vb
View File

@@ -53,8 +53,8 @@ Partial Class Inventarios_RepExistenciasCostos
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
TxtFechaI.Text = New Date(Now.Year, Now.Month, 1).ToShortDateString
TxtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
TxtFechaI.Text = New Date(NowADS().Year, NowADS().Month, 1).ToShortDateString
TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
If Request("CvePS") IsNot Nothing AndAlso Request("CveProveedor") IsNot Nothing AndAlso
Request("CveMoneda") IsNot Nothing AndAlso Request("CveConcepto") IsNot Nothing AndAlso
@@ -295,7 +295,7 @@ Partial Class Inventarios_RepExistenciasCostos
params.Add(New ReportParameter("FechaInicio", FechaIn))
params.Add(New ReportParameter("FechaFin", FechaFn))
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", $"{FechaIn} {FechaFn} {Proveedor} {Concepto} {Almacen} {Clasificacion} {PS} {Moneda}"))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("OcultarImportes", UsuarioActual.TienePermisoProceso(201).ToString))
@@ -352,7 +352,7 @@ Partial Class Inventarios_RepExistenciasCostos
' Dim IDPoliza As Integer = 0
' Dim Folio = 0
' Dim Fecha As Date = Date.Now 'TxtFecha.Text.ToDate
' Dim Fecha As Date = NowADS() 'TxtFecha.Text.ToDate
' Dim TieneError = False
' Dim TextoError = ""

6
Inventarios/RepFletes.aspx.vb
View File

@@ -32,8 +32,8 @@ Partial Class Compras_RepFletes
DdlProveedores.SelectedValue = "-1"
DdlProveedores.ddl.AutoPostBack = True
TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString
TxtFechaF.Text = Date.Now.ToShortDateString
TxtFechaI.Text = NowADS().AddDays(-NowADS().DayOfYear + 1).ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
'DdlProveedor.DataBind()
@@ -91,7 +91,7 @@ Partial Class Compras_RepFletes
params.Add(New ReportParameter("Filtros", Filtros.ToString))
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))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

8
Inventarios/RepMaximoMinimo.aspx.vb
View File

@@ -264,7 +264,7 @@ Partial Class Inventarios_RepMaximoMinimo
#Region "I M P R I M I R "
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
GvDatos.ExportToExcel("RepFacturas_" & Now.ToShortDateString())
GvDatos.ExportToExcel("RepFacturas_" & NowADS().ToShortDateString())
End Sub
@@ -283,7 +283,7 @@ Partial Class Inventarios_RepMaximoMinimo
params.Add(New ReportParameter("Almacen", DdlAlmacen.SelectedItem.Text))
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("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepMaximosMinimos.rdlc", dt, params, "ReporteMaxMin")
@@ -312,7 +312,7 @@ Partial Class Inventarios_RepMaximoMinimo
params.Add(New ReportParameter("Almacen", DdlAlmacen.SelectedItem.Text))
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("PS", PS))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
@@ -421,7 +421,7 @@ Partial Class Inventarios_RepMaximoMinimo
Protected Sub LnkDescargarFormato_Click(sender As Object, e As EventArgs)
Using ObjMaxMin As New ClsInventarios
If ObjMaxMin.RepMaximoMinimo(-1, -1, -1, UsuarioActual.CveEmpresa) Then
ObjMaxMin.DtResultados.FiltraParametros("", "", New String() {"Codigo", "Almacen", "Maximo", "Minimo"}).ExportToExcel(String.Format("MaximosyMinimos{0:dd-MM-yyyy}", DateTime.Now))
ObjMaxMin.DtResultados.FiltraParametros("", "", New String() {"Codigo", "Almacen", "Maximo", "Minimo"}).ExportToExcel(String.Format("MaximosyMinimos{0:dd-MM-yyyy}", NowADS()))
End If
End Using

12
Inventarios/RepMovimientos.aspx.vb
View File

@@ -52,11 +52,11 @@ Partial Class RepMovimientosRep
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
TxtFechaF.Text = Date.Now.ToShortDateString
TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
TxtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
TxtFechaIngFin.Text = Date.Now.ToShortDateString
TxtFechaIngInicio.Text = Now.FirstDayOfMonth.ToShortDateString
TxtFechaIngFin.Text = NowADS().ToShortDateString
TxtFechaIngInicio.Text = NowADS().FirstDayOfMonth.ToShortDateString
DdlTipoMovimiento.DataSource = GlobalDTInvConceptos()
DdlTipoMovimiento.DataBind()
@@ -136,12 +136,12 @@ Partial Class RepMovimientosRep
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("Empresas/Grales/Formatos/RepMovimientos.rdlc", DtMovimientos, params, String.Format("ReporteMovimientos-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/RepMovimientos.rdlc", DtMovimientos, params, String.Format("ReporteMovimientos-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

6
Inventarios/RepMovimientosProveedor.aspx.cs
View File

@@ -31,8 +31,8 @@ public partial class Inventarios_RepMovimientosProveedor : ClsPaginas
public void InicializaValores()
{
txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
txtFechaF.Text = DateTime.Now.ToShortDateString();
txtFechaI.Text = $"01/{NowADS().Month}/{NowADS().Year}";
txtFechaF.Text = NowADS().ToShortDateString();
CargaCombos();
}
@@ -102,7 +102,7 @@ public partial class Inventarios_RepMovimientosProveedor : ClsPaginas
List<ReportParameter> para = new List<ReportParameter>();
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("AgrupadoPor", $"<b>Filtrado Por:</b> {Proveedor}{Concepto}{FechaI}{FechaF}"));
if (Imagen.Exists)
{

4
Inventarios/RepMovimientosSalida.aspx.cs
View File

@@ -14,8 +14,8 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
InicializaValores();
{
InicializaValores();
}
}

6
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -77,8 +77,8 @@ Partial Class RepNotasSinAlmacen
GvCompras.Columns(5).Visible = TienePermisoDesmarcar
End Sub
Private Sub CargaCombos()
TxtFechaF.Text = Date.Now.ToShortDateString
TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
TxtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
DdlCliente.setEsWebService(True)
DdlCliente.Attributes.Add("data-metodo", "getcliente")
@@ -249,7 +249,7 @@ Partial Class RepNotasSinAlmacen
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", FechaInicial.ToShortDateString))
params.Add(New ReportParameter("FechaFin", FechaFinal.ToShortDateString))

8
Inventarios/RepOcInv.aspx.vb
View File

@@ -35,8 +35,8 @@ Partial Class Inventarios_RepOcInv
GvDatos.Columns(5).Visible = TienePermisoImportes
End Sub
Private Sub InicializaValores()
TxtFechaF.Text = Now.ToShortDateString
TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
'Llenar dropdownlist de proveedores
DdlProveedor.setEsWebService(True)
@@ -117,10 +117,10 @@ Partial Class Inventarios_RepOcInv
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("Empresas/Grales/Formatos/RepOCInv.rdlc", DtOCXSurtir, params, String.Format("ReporteOCXSurtir-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/RepOCInv.rdlc", DtOCXSurtir, params, String.Format("ReporteOCXSurtir-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If

8
Inventarios/RepOcInvMoto.aspx.vb
View File

@@ -28,8 +28,8 @@ Partial Class Inventarios_RepOcInvMoto
DdlAlmacen.DataBind()
DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
TxtFechaI.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy")
TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
TxtFechaI.Text = NowADS().AddMonths(-1).ToString("dd/MM/yyyy")
End Sub
#End Region
@@ -98,10 +98,10 @@ Partial Class Inventarios_RepOcInvMoto
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("Empresas/Grales/Formatos/RepOCInvMoto.rdlc", DtOCMovimientos, params, String.Format("ReporteOCMovimientos-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/RepOCInvMoto.rdlc", DtOCMovimientos, params, String.Format("ReporteOCMovimientos-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If

6
Inventarios/RepRSCO.aspx.vb
View File

@@ -81,7 +81,7 @@ Partial Class Inventarios_RepRSCO
DdlCompuesto.Items.Insert(0, New ListItem("Todos", "-1"))
txtFechaF.Text = Now.ToString("dd/MM/yyyy")
txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
txtFechaI.Text = txtFechaF.Text.ToDate.AddMonths(-2).ToString("dd/MM/yyyy")
End Sub
@@ -111,11 +111,11 @@ Partial Class Inventarios_RepRSCO
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}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepRSCO.rdlc", DTDatos, params, "RepRSCO" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
ImprimirPDF("Empresas\Grales\Formatos\RepRSCO.rdlc", DTDatos, params, "RepRSCO" & NowADS().ToString("yyyyMMddmmss"), Formato:=Formato)
End Sub

4
Inventarios/RepReciclaje.aspx.vb
View File

@@ -22,8 +22,8 @@ Partial Class Inventarios_RepReciclaje
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
'Carga Clientes
DdlCliente.setEsWebService(True)

4
Inventarios/RepTrasladoSolicitud.aspx.vb
View File

@@ -7,8 +7,8 @@ Partial Class Inventarios_RepTrasladoSolicitud
If Not Page.IsPostBack Then
CargaCombos()
TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
TxtFechaF.Text = Now.ToShortDateString
TxtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
End If
End Sub

8
Inventarios/RepTraspasoAlmacen.aspx.vb
View File

@@ -53,8 +53,8 @@ Partial Class RepTraspasoAlmacen
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaI.Text = Now.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
CargaAlmacenOrigen()
CargaAlmacenDestino()
@@ -161,10 +161,10 @@ Partial Class RepTraspasoAlmacen
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("FechaImprimio", DateTime.Now.ToString))
params.Add(New ReportParameter("FechaImprimio", NowADS().ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato)
ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", NowADS().ToDateTime.ToShortDateString), Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If

4
Inventarios/RepTraspasoEmitido.aspx.cs
View File

@@ -15,8 +15,8 @@ public partial class Inventarios_RepTraspasoEmitido : ClsPaginas
private void InicializaValores()
{
DdlAlmacen.DataSource = get_GlobalDTAlmacen(UsuarioActual.CveEmpresa);
DdlAlmacen.Items.Insert(0, new ListItem("Todos", "-1"));
DdlAlmacen.DataSource = get_GlobalDTAlmacen(UsuarioActual.CveEmpresa);
DdlAlmacen.Items.Insert(0, new ListItem("Todos", "-1"));
DdlAlmacen.DataBind();
txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = NowADS().ToShortDateString();

4
Inventarios/ReporteMaterial.aspx.vb
View File

@@ -100,10 +100,10 @@ Partial Class Inventarios_ReporteMaterial
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("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepReporteMaterial.rdlc", DTDatos, params, $"RepReporteMaterial_{Now.ToString("yyyyMMddmmss")}", Formato:=Formato)
ImprimirPDF("Empresas\Grales\Formatos\RepReporteMaterial.rdlc", DTDatos, params, $"RepReporteMaterial_{NowADS().ToString("yyyyMMddmmss")}", Formato:=Formato)
End Sub

8
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -163,8 +163,8 @@ Partial Class Inventarios_ResguardoMaterial
Private Sub InicializaValores()
CreaDT()
CargaCombos()
TxtFecha.Text = Now.ToShortDateString
TxtFechaLiberacion.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
TxtFechaLiberacion.Text = NowADS().ToShortDateString
GvM.DataBind()
@@ -571,7 +571,7 @@ Partial Class Inventarios_ResguardoMaterial
DdlAlmacenDestino.SelectedValueExist("-1")
TxtObservaciones.Text = ""
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
DdlPersonal.SelectedValue = "-1"
DdlPersonal.SelectedText = "Seleccione"
LimpiarAgregar()
@@ -1157,7 +1157,7 @@ Partial Class Inventarios_ResguardoMaterial
Dim params As New List(Of ReportParameter)
ImprimirPDF("Empresas/Grales/Formatos/ResguardoMaterial.rdlc", DtMovimientosLiberacion, params, String.Format("RepResguardoMaterial-{0}", Now.ToDateTime.ToShortDateString), Formato)
ImprimirPDF("Empresas/Grales/Formatos/ResguardoMaterial.rdlc", DtMovimientosLiberacion, params, String.Format("RepResguardoMaterial-{0}", NowADS().ToDateTime.ToShortDateString), Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If

12
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -116,7 +116,7 @@ Partial Class Inventarios_TrasladoSolicitud
CveDireccionEnvio = -1
DivFolio.Visible = False
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
CreaDTTemporal()
CargaAlmacenes()
CargaPS()
@@ -862,7 +862,7 @@ Partial Class Inventarios_TrasladoSolicitud
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
params.Add(New ReportParameter("Fecha", TxtFecha.Text.Substring(0, 10)))
params.Add(New ReportParameter("AlmacenOrigen", DdlAlmacenOrigen.SelectedItem.Text))
params.Add(New ReportParameter("AlmacenDestino", DdlAlmacenDestino.SelectedItem.Text))
@@ -895,9 +895,9 @@ Partial Class Inventarios_TrasladoSolicitud
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 1 Then
ImprimirPDF(String.Format("{0}Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.Empresa.Ruta), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
ImprimirPDF(String.Format("{0}Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.Empresa.Ruta), dt, params, String.Format("Solicitud de Traslado - {0}", NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
Else
ImprimirPDF(RutaFormatoDefault, dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
ImprimirPDF(RutaFormatoDefault, dt, params, String.Format("Solicitud de Traslado - {0}", NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
End If
Else
@@ -1098,7 +1098,7 @@ Partial Class Inventarios_TrasladoSolicitud
Protected Sub LnkAceptarTraslado_Click(sender As Object, e As EventArgs)
Dim ObjInven As New ClsInventarios
If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 2, UsuarioActual.CveUsuario, Now) Then
If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 2, UsuarioActual.CveUsuario, NowADS()) Then
Alert("Autorizado correctamente.")
End If
ObjInven.Dispose()
@@ -1131,7 +1131,7 @@ Partial Class Inventarios_TrasladoSolicitud
Dim ObjInven As New ClsInventarios
If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 3, UsuarioActual.CveUsuario, Now) Then
If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 3, UsuarioActual.CveUsuario, NowADS()) Then
Alert("Rechazado correctamente.")
ErrorProceso = False
Else

22
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -172,13 +172,13 @@ Partial Class Inventarios_TraspasoAlmacen
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
TxtFecha.Text = Now.ToShortDateString
CEFecha.EndDate = Now.AddDays(-1)
RVFecha.MaximumValue = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
CEFecha.EndDate = NowADS().AddDays(-1)
RVFecha.MaximumValue = NowADS().ToShortDateString
TxtFechaRecepcion.Text = Now.ToShortDateString
CEFechaRecepcion.EndDate = Now.AddDays(-1)
RVFechaRecepcion.MaximumValue = Now.ToShortDateString
TxtFechaRecepcion.Text = NowADS().ToShortDateString
CEFechaRecepcion.EndDate = NowADS().AddDays(-1)
RVFechaRecepcion.MaximumValue = NowADS().ToShortDateString
Folio = 0
CveMovimientoTimbrado = -1
ArchivoBitacora = UsuarioActual.Empresa.Ruta & "Temp\Traspaso_" & UsuarioActual.CveUsuario & ".xml"
@@ -475,8 +475,8 @@ Partial Class Inventarios_TraspasoAlmacen
DdlChofer.DataBind()
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaEntrega.Text = Now.ToShortDateString
TxtFechaLlegada.Text = Now.ToShortDateString
TxtFechaEntrega.Text = NowADS().ToShortDateString
TxtFechaLlegada.Text = NowADS().ToShortDateString
'Llena Responsables Transitorio
'DdlResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
@@ -1250,7 +1250,7 @@ Partial Class Inventarios_TraspasoAlmacen
Private Sub LimpiaMovimiento()
CargaAlmacenOrigen()
TxtResponsable.Text = ""
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
TxtObservaciones.Text = ""
txtCantidad.Text = ""
SiguienteFolio(If(ChkTransitorio.Checked, 9, 8))
@@ -1828,7 +1828,7 @@ Partial Class Inventarios_TraspasoAlmacen
ObjInventario.Commit()
TxtRecibio.Text = ""
TxtFechaRecepcion.Text = Now.ToShortDateString
TxtFechaRecepcion.Text = NowADS().ToShortDateString
TxtObservacionesRecepcion.Text = ""
Dim Mensaje As StringBuilder = New StringBuilder
@@ -2308,7 +2308,7 @@ Partial Class Inventarios_TraspasoAlmacen
ObjInventario.Commit()
TxtRecibio.Text = ""
TxtFechaRecepcion.Text = Now.ToShortDateString
TxtFechaRecepcion.Text = NowADS().ToShortDateString
TxtObservacionesRecepcion.Text = ""
Dim Mensaje As StringBuilder = New StringBuilder