Retirando Pós-Pago

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Retirando Pós-Pago

Mensagem  Alan Albuquerque em Qua Jun 05, 2013 7:16 am

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?

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Consegui! lol

Mensagem  Alan Albuquerque em Ter Jun 11, 2013 12:12 pm

Fiz o seguinte para bloquear o "Pos-Pago" acabei usando a função de trocar a cor da janela, saca...

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. lol!

Alan Albuquerque

Mensagens : 8
Data de inscrição : 18/04/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Retirando Pós-Pago

Mensagem  antoniocientista em Qua Jun 12, 2013 7:50 pm

'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.

antoniocientista

Mensagens : 61
Data de inscrição : 22/01/2010

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Retirando Pós-Pago

Mensagem  Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum