Retirando Pós-Pago
2 participantes
Página 1 de 1
Retirando Pós-Pago
Cientista, Bom dia.
Eu estou querendo retirar essa opção (POS PAGO) e colocar uma mensagem de erro ao não tem nenhuma opção selecionada mas ñ estou conseguindo obter resultado, seria nessa parte do codigo?
Eu estou querendo retirar essa opção (POS PAGO) e colocar uma mensagem de erro ao não tem nenhuma opção selecionada mas ñ estou conseguindo obter resultado, seria nessa parte do codigo?
Public Sub Bhora_Click() 'Botão ( Alterar ) ou ( OK )
If Mpas.UserNome[Numero] <> "no" Then
Message.Warning(("Impossível! Usuário logado"))
Else
Mpas.Horapc[Numero].Text = "START"
Mpas.Mensagem5[Numero] = False
Mpas.Mensagem1[Numero] = False
Mpas.PrePosPago[numero] = ChecPrePos.Value
If ChecAberto.Value = True Then
Pc.tempo(Now, numero, "ABERTO") ' hora crecente "modo Livre"
Nova_hora()
Endif
If ChecAberto.Value = False Then
Pc.tempo(CDate(ComboHora.Value), numero, "NOVA") 'Pre ou pos pago
'Nova_hora()
Endif
Mtabla.SalvaDados(Numero)
Me.Close()
Endif
Catch
Print "Bhora_Click " & Error.Text
Stop Event
End
Alan Albuquerque- Mensagens : 8
Data de inscrição : 18/04/2013
Consegui! lol
Fiz o seguinte para bloquear o "Pos-Pago" acabei usando a função de trocar a cor da janela, saca...
Talvez vocês se perguntem pq estou tirando o "pos-pago", é pq trabalho para uma ONG de inclusão digital e estou "adaptando o sistema" e retirando tudo que tem alguma referencia de "preço", quando estiver pronto posto o resultado.
Public Sub ChecPrePos_Click()
If ChecPrePos.Value = False Then
FrameEstatus.Background = Color.Red
Message.Warning(("Impossível! Selecione um Tipo de Acesso")) 'Mensagem de erro se a cor estiver vermelha
Bhora.Enabled = False 'Desabilita o botao liberar 'OK' se a cor estiver vermelha
FrameEstatus.Foreground = Color.Green
Else
FrameEstatus.Background = Color.Green
Bhora.Enabled = True 'Habilita o botao liberar 'OK' se a cor for verde
FrameEstatus.Foreground = Color.Gray
End If
ComboHora.SetFocus()
End
Talvez vocês se perguntem pq estou tirando o "pos-pago", é pq trabalho para uma ONG de inclusão digital e estou "adaptando o sistema" e retirando tudo que tem alguma referencia de "preço", quando estiver pronto posto o resultado.
Alan Albuquerque- Mensagens : 8
Data de inscrição : 18/04/2013
Re: Retirando Pós-Pago
'If ChecAberto.Value = True Then 'Pode comentar ou deletar
Pc.tempo(Now, numero, "ABERTO") ' hora crescente "modo Livre"
Nova_hora()
'Endif 'pode Comentar ou deletar
Esta parte do código a seguir não deve ser executada então comente ou delete
'If ChecAberto.Value = False Then
'Pc.tempo(CDate(ComboHora.Value), numero, "NOVA") 'Pre ou pos pago
'Nova_hora()
'Endif
Desabilita o checkbox ChecAberto ou o torne invisível ou até mesmo pode deletá-lo. se encontrar outra referencia ao checkbox ChecAberto deve ser substituída pelo valor True, ou seja, se a referencia for ao valor deste. por exemplo, ChecAberto.Value, então deve ser substituida por True.
Desta forma o openasb vai trabalhar sempre no modo crescente.
Pc.tempo(Now, numero, "ABERTO") ' hora crescente "modo Livre"
Nova_hora()
'Endif 'pode Comentar ou deletar
Esta parte do código a seguir não deve ser executada então comente ou delete
'If ChecAberto.Value = False Then
'Pc.tempo(CDate(ComboHora.Value), numero, "NOVA") 'Pre ou pos pago
'Nova_hora()
'Endif
Desabilita o checkbox ChecAberto ou o torne invisível ou até mesmo pode deletá-lo. se encontrar outra referencia ao checkbox ChecAberto deve ser substituída pelo valor True, ou seja, se a referencia for ao valor deste. por exemplo, ChecAberto.Value, então deve ser substituida por True.
Desta forma o openasb vai trabalhar sempre no modo crescente.
antoniocientista- Mensagens : 61
Data de inscrição : 22/01/2010
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos