Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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())
|
||||
|
||||
|
||||
Reference in New Issue
Block a user