Acessar o Zé Moleza
ou
O que você está pesquisando?
JWA ? Sistema de Controle de Ordens de Serviços
1879 visualizações
19608 palavras
Adicionar aos favoritos
Loading...- | |
Dim iFile As Integer
Dim iLin As Long
Dim dIni As Date
Dim dFim As Date
Dim sLin As String
Dim tLog As tpLOG
On Error GoTo ErroX
gErro = "Ocorreu um erro ao verificar o arquivo de LOG!"
'se arq log não existe, avisa e sai
If Dir$(txtArqLOG, vbArchive) = "" Then
gMsg = "O arquivo de LOG informado não existe!"
MsgBox gMsg, vbCritical, "Arquivo LOG"
txtArqLOG.SetFocus
Exit Sub
End If
gErro = "Ocorreu um erro ao tentar abrir o arquivo de LOG!"
'limpa grade
iLin = 0
With hfx
.AddItem "", .FixedRows
.Rows = (.FixedRows + 1)
End With
'abre arq.
iFile = FreeFile
Open txtArqLOG For Input As #iFile
Do While Not EOF(iFile)
iLin = iLin + 1
gErro = "Ocorreu um erro ao lendo a linha " & CStr(iLin) & " do arquivo!"
Line Input #iFile, sLin
'pega dados
With tLog
.Status = GetLog(sLin)
.DtHr = CDate(GetLog(sLin))
.Tempo = CSng(GetLog(sLin))
.UserName = GetLog(sLin)
.UserCode = Val(GetLog(sLin))
.UserTp = GetLog(sLin)
.Instrucao = GetLog(sLin)
'verifica Status OK
If (.Status = "O" And (optOK Or optAll)) Or (.Status = "F" And (optFalha Or optAll)) Then
'verifica data/hora
dIni =…
Dim iLin As Long
Dim dIni As Date
Dim dFim As Date
Dim sLin As String
Dim tLog As tpLOG
On Error GoTo ErroX
gErro = "Ocorreu um erro ao verificar o arquivo de LOG!"
'se arq log não existe, avisa e sai
If Dir$(txtArqLOG, vbArchive) = "" Then
gMsg = "O arquivo de LOG informado não existe!"
MsgBox gMsg, vbCritical, "Arquivo LOG"
txtArqLOG.SetFocus
Exit Sub
End If
gErro = "Ocorreu um erro ao tentar abrir o arquivo de LOG!"
'limpa grade
iLin = 0
With hfx
.AddItem "", .FixedRows
.Rows = (.FixedRows + 1)
End With
'abre arq.
iFile = FreeFile
Open txtArqLOG For Input As #iFile
Do While Not EOF(iFile)
iLin = iLin + 1
gErro = "Ocorreu um erro ao lendo a linha " & CStr(iLin) & " do arquivo!"
Line Input #iFile, sLin
'pega dados
With tLog
.Status = GetLog(sLin)
.DtHr = CDate(GetLog(sLin))
.Tempo = CSng(GetLog(sLin))
.UserName = GetLog(sLin)
.UserCode = Val(GetLog(sLin))
.UserTp = GetLog(sLin)
.Instrucao = GetLog(sLin)
'verifica Status OK
If (.Status = "O" And (optOK Or optAll)) Or (.Status = "F" And (optFalha Or optAll)) Then
'verifica data/hora
dIni =…
É esse o conteúdo que você precisa?
Faça seu login e saiba como ver o trabalho completo
Institucional
Saiba como fazer
Trabalhos Acadêmicos
O Zé Moleza facilita sua vida acadêmica ajudando você em suas pesquisas, e a economizar o seu tempo e o seu dinheiro nos seus trabalhos de faculdade. São mais de 26144 pesquisa acadêmicas entre elas, monografia, temas de monografias, TCC, modelos de monografias, trabalhos de universidades, resenha, Paper, Ensaio, Bibliografia, Trabalhos Escolares.
Dicas de como fazer: Capa de Monografia, capa de TCC, Regras da ABNT, como fazer monografia, como fazer Projeto Final, como fazer seminário, como fazer capas, referências bibliográficas, modelo de monografia.
O Zé Moleza NÃO faz a venda de monografia e É TOTALMENTE CONTRA a compra de monografia pronta e trabalhos prontos. O Zé Moleza NÃO auxilia a quem compra monografia, NÃO apóia a quem quer comprar Trabalhos Prontos, e NÃO APROVA a quem quer comprar TCC prontos, dando dicas de formatação, regras da ABNT, dando sugestões de temas para monografia, resumo de livros, projeto de pesquisa, projeto de mestrado, projeto de pós-graduação, trabalhos acadêmicos, incentivando o usuário a desenvolver por conta própria sua monografia.
