Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PMSMON06 - Cria botões

Ponto-de-Entrada: PMSMON06 - Cria botões
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Ponto de entrada que permite a criação de botões personalizados na tela de Check List.
Eventos

 Check List

Programa Fonte 
PMSMONIT.PRW
Sintaxe

PMSMON06 - Cria botões ( [ aFieldLst ] ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aFieldLst Vetor Array com os campos do Check List
Retorno
    aRet(array_of_record)
  • Array contendo o(s) botão(ões). E.g.: { {cImagem, bBloco}, ...,{cImagem, bBloco}}
Exemplos 
User Function PMSMON06()Local aRet := {}Local aFieldLst := Paramixb[1]Local nColFIM	:= Ascan(aFieldLst,{|x| x == "AJO_FIM" } )Local nColINI	:= Ascan(aFieldLst,{|x| x == "AJO_INI" } )Local cAuxaAdd(aRet ,{ "QMT_NO"   ,{|| cAux:="", dbSelectArea("AJO"), dbGoTo(aChkLst[oChkLst:nAt][Len(oChkLst:AArray[oChkLst:nAt])-1]), aChkLst[oChkLst:nAt][nColINI]:=cAux, aChkLst[oChkLst:nAt][nColFIM]:=cAux, RecLock("AJO",.F.), AJO->AJO_INI:=cAux, AJO->AJO_FIM:=cAux, AJO->(MsUnlock()), oChkLst:AArray[oChkLst:nAt][Len(oChkLst:AArray[oChkLst:nAt])]:=.F., oDlgChkLst:Refresh() }, ":(" })aAdd(aRet ,{ "QMT_COND" ,{|| Alert( "Item "+alltrim(str(oChkLst:nAt))+" "+IIf(oChkLst:AArray[oChkLst:nAt][Len(oChkLst:AArray[oChkLst:nAt])],"","not ")+"checked" ), oDlgChkLst:Refresh() }, ":|" })aAdd(aRet ,{ "QMT_OK"   ,{|| cAux:=cUserName+DTOC(Date())+Time(), dbSelectArea("AJO"), dbGoTo(aChkLst[oChkLst:nAt][Len(oChkLst:AArray[oChkLst:nAt])-1]), aChkLst[oChkLst:nAt][nColINI]:=cAux, aChkLst[oChkLst:nAt][nColFIM]:=cAux, RecLock("AJO",.F.), AJO->AJO_INI:=cAux, AJO->AJO_FIM:=cAux, AJO->(MsUnlock()), oChkLst:AArray[oChkLst:nAt][Len(oChkLst:AArray[oChkLst:nAt])]:=.T., oDlgChkLst:Refresh() }, ":)" })return aRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
aChkLst Array of Record Global Não Array contendo array dos conteúdos do check list