Empresas Zona Horaria
This commit is contained in:
rakcsle
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user