This commit is contained in:
2024-10-17 10:39:26 -07:00
80 changed files with 94244 additions and 20480 deletions

View File

@@ -78,7 +78,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
cevent.CveOS = dr("CveOS").ToString.ToEntero
cevent.allDay = False
If dr("EstatusOSGral").ToString.Contiene("Levantamiento") Then
cevent.backgroundColor = "#3598dc"
cevent.backgroundColor = "#5C9BD1"
ElseIf dr("EstatusOSGral").ToString.Contiene("Surtido") Then
cevent.backgroundColor = "#002699"
ElseIf dr("EstatusOSGral").ToString.Contiene("Asignado") Then
@@ -86,11 +86,13 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
ElseIf dr("EstatusOSGral").ToString.Contiene("Finalizado") Then
cevent.backgroundColor = "#26C281"
ElseIf dr("EstatusOSGral").ToString.Contiene("Facturado") Then
cevent.backgroundColor = "#4B77BE"
cevent.backgroundColor = "#E87E04"
ElseIf dr("EstatusOSGral").ToString.Contiene("Cobrado") Then
cevent.backgroundColor = "#29b4b6"
cevent.backgroundColor = "#c8d046"
ElseIf dr("EstatusOSGral").ToString.Contiene("Cancelado") Then
cevent.backgroundColor = "#e43a45"
Else
cevent.backgroundColor = ""
End If
events.Add(cevent)
Next

View File

@@ -56,13 +56,16 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
Dim Retorno As Boolean = True
Dim JsonRetorno As New JObject()
Dim CveEmpresa As Integer = pCveEmpresa.ToEntero()
GuardaLogFacturacion("- Inicio de facturación ")
If CveEmpresa > 0 Then
GuardaLogFacturacion($"1.10 - CveE:{CveEmpresa}")
Dim Usuario = ValidaUsuarioSistema(CveEmpresa)
Dim FechaI, FechaF As DateTime
'EnviarCorreoFactura(New Modelos.Factura(Usuario, 844966, 1, context.ModExtensiones.DirectorioBaseEmpresas), Usuario)
If String.IsNullOrEmpty(pFechaI) AndAlso String.IsNullOrEmpty(pFechaF) Then
GuardaLogFacturacion("1.200")
Dim FechaReferencia As Date = ClsPaginas.NowADS()
If FechaReferencia.DayOfWeek = DayOfWeek.Sunday Then
Dim Sabado = FechaReferencia.AddDays(-1)
@@ -77,13 +80,13 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
GuardaLogFacturacion("Ejecución no permitida, no es el dia permitido para ejecucion o no se espeficaron las fechas")
End If
Else
GuardaLogFacturacion("1.300")
FechaI = pFechaI.ToDateTime()
FechaF = pFechaF.ToDateTime()
JsonRetorno = EjecutarFacturacionMasiva(Usuario, FechaI, FechaF, Usuario.Empresa.FacturaProduccion)
End If
End If
GuardaLogFacturacion("Ejecución Exitosa, se generaron las siguientes facturas:")
GuardaLogFacturacion(JsonRetorno.ToString())