- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- ROTINA COM CONTROLE DE STATUS - BOTÃO ENCERRAR
×
Linguagem de Programação ADVPL
Perguntas ROTINA COM CONTROLE DE STATUS - BOTÃO ENCERRAR
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 meses atrás #9547
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: ROTINA COM CONTROLE DE STATUS - BOTÃO ENCERRAR
Pelo que entendi acho que é isso que precisa.
aAdd( aCores, {"Empty(SZ1->Z1_DATA)", "BR_VERDE"})
aAdd( aCores, {"!Empty(SZ1->Z1_DATA)", "BR_VERMELHO"})
aAdd( aCores, {"Empty(SZ1->Z1_DATA)", "BR_VERDE"})
aAdd( aCores, {"!Empty(SZ1->Z1_DATA)", "BR_VERMELHO"})
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 meses atrás #9548
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: ROTINA COM CONTROLE DE STATUS - BOTÃO ENCERRAR
aAdd( aCores, {"!Empty(SZ1->Z1_DATA)", "BR_VERMELHO"})
aAdd( aCores, {"Empty(SZ1->Z1_DATA)", "BR_VERDE"})
Private aLegenda := { {'BR_VERMELHO' ,'Visita Encerrada' },;
{'BR_VERDE' ,'Visita Pendente' }}
aAdd( aCores, {"Empty(SZ1->Z1_DATA)", "BR_VERDE"})
Private aLegenda := { {'BR_VERMELHO' ,'Visita Encerrada' },;
{'BR_VERDE' ,'Visita Pendente' }}
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- alexpeixe
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 27
- Obrigados Recebidos: 0
11 anos 3 meses atrás #9570
por alexpeixe
Respondido por alexpeixe no tópico Re: ROTINA COM CONTROLE DE STATUS - BOTÃO ENCERRAR
Consegui fazer alterar o Status e setar os campos necessários utilizando o Reclock conforme orientação de vocês:
User Function Encerra()
Local cStatus := Z1_STATUS
If cStatus == "1"
If Empty(SZ1->Z1_DATAVIS)//Se campo Data da Visita estiver vazio
MsgInfo("Data da vista em branco, favor alterar!!")
Return
Else
Reclock("SZ1",.F.)
SZ1->Z1_STATUS := "2"
SZ1->Z1_DATAVIS := dDataBase
MsgInfo("Encerrado com Sucesso!!")
MsUnlock()
End If
ElseIf cStatus == "2"
MsgInfo("Visita já encerrada OU DATA DA VISITA EM BRANCO, não é possível encerrar novamente!!")
MsUnlock()
EndIf
Return(Nil)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Até ai tudo bem, clico em encerra e finaliza. Mas eu gostaria de que quando eu clicar no botão encerra, antes deveria abrir a tela do registro selecionado para então eu confirmar os dados e clicar em ok. Seria semelhante ao botão alterar.
Como faço nesse caso para antes de encerrar abrir a tela do registro? Valeu desde já.
User Function Encerra()
Local cStatus := Z1_STATUS
If cStatus == "1"
If Empty(SZ1->Z1_DATAVIS)//Se campo Data da Visita estiver vazio
MsgInfo("Data da vista em branco, favor alterar!!")
Return
Else
Reclock("SZ1",.F.)
SZ1->Z1_STATUS := "2"
SZ1->Z1_DATAVIS := dDataBase
MsgInfo("Encerrado com Sucesso!!")
MsUnlock()
End If
ElseIf cStatus == "2"
MsgInfo("Visita já encerrada OU DATA DA VISITA EM BRANCO, não é possível encerrar novamente!!")
MsUnlock()
EndIf
Return(Nil)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Até ai tudo bem, clico em encerra e finaliza. Mas eu gostaria de que quando eu clicar no botão encerra, antes deveria abrir a tela do registro selecionado para então eu confirmar os dados e clicar em ok. Seria semelhante ao botão alterar.
Como faço nesse caso para antes de encerrar abrir a tela do registro? Valeu desde já.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 meses atrás #9573
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: ROTINA COM CONTROLE DE STATUS - BOTÃO ENCERRAR
User Function Encerra()
Local cStatus := Z1_STATUS
dbSelectArea( "SZ1" )
nOpca := AxVisual("SZ1",SZ1->(Recno()),2)
If nOpca ==1 // Confirmou
If !MsgYesNo("Deseja efetuar o Encerramento !", "Atenção")
Return
Endif
Else
Return
Endif
If cStatus == "1"
If Empty(SZ1->Z1_DATAVIS)//Se campo Data da Visita estiver vazio
MsgInfo("Data da vista em branco, favor alterar!!")
Return
Local cStatus := Z1_STATUS
dbSelectArea( "SZ1" )
nOpca := AxVisual("SZ1",SZ1->(Recno()),2)
If nOpca ==1 // Confirmou
If !MsgYesNo("Deseja efetuar o Encerramento !", "Atenção")
Return
Endif
Else
Return
Endif
If cStatus == "1"
If Empty(SZ1->Z1_DATAVIS)//Se campo Data da Visita estiver vazio
MsgInfo("Data da vista em branco, favor alterar!!")
Return
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 meses atrás #9574
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: ROTINA COM CONTROLE DE STATUS - BOTÃO ENCERRAR
User Function Encerra()
Local aArea := GetArea()
Local cStatus := Z1_STATUS
dbSelectArea( "SZ1" )
nOpca := AxVisual("SZ1",SZ1->(Recno()),2)
If nOpca ==1 // Confirmou
If !MsgYesNo("Deseja efetuar o Encerramento !", "Atenção")
RestArea(aArea)
Return
Endif
Else
RestArea(aArea)
Return
Endif
If cStatus == "1"
If Empty(SZ1->Z1_DATAVIS)//Se campo Data da Visita estiver vazio
MsgInfo("Data da vista em branco, favor alterar!!")
RestArea(aArea)
Return
Else
If Reclock("SZ1",.F.)
SZ1->Z1_STATUS := "2"
SZ1->Z1_DATAVIS := dDataBase
MsUnlock()
Endif
End If
ElseIf cStatus == "2"
MsgInfo("Visita já encerrada OU DATA DA VISITA EM BRANCO, não é possível encerrar novamente!!")
EndIf
RestArea(aArea)
Return(Nil)
Local aArea := GetArea()
Local cStatus := Z1_STATUS
dbSelectArea( "SZ1" )
nOpca := AxVisual("SZ1",SZ1->(Recno()),2)
If nOpca ==1 // Confirmou
If !MsgYesNo("Deseja efetuar o Encerramento !", "Atenção")
RestArea(aArea)
Return
Endif
Else
RestArea(aArea)
Return
Endif
If cStatus == "1"
If Empty(SZ1->Z1_DATAVIS)//Se campo Data da Visita estiver vazio
MsgInfo("Data da vista em branco, favor alterar!!")
RestArea(aArea)
Return
Else
If Reclock("SZ1",.F.)
SZ1->Z1_STATUS := "2"
SZ1->Z1_DATAVIS := dDataBase
MsUnlock()
Endif
End If
ElseIf cStatus == "2"
MsgInfo("Visita já encerrada OU DATA DA VISITA EM BRANCO, não é possível encerrar novamente!!")
EndIf
RestArea(aArea)
Return(Nil)
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- alexpeixe
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 27
- Obrigados Recebidos: 0
11 anos 3 meses atrás #9585
por alexpeixe
Respondido por alexpeixe no tópico Re: ROTINA COM CONTROLE DE STATUS - BOTÃO ENCERRAR
Valeu cara agora deu certinho, só não entendi em: nOpca := AxVisual("SZ1",SZ1->(Recno()),2) o que exatamente seria o número "2"??
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- ROTINA COM CONTROLE DE STATUS - BOTÃO ENCERRAR
Tempo para a criação da página:0.137 segundos