Histórico da Página

Ponto de entrada que permite a criação de botões personalizados na tela de Check List.

 Check List

PMSMONIT.PRW

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

aRet(array_of_record)
• Array contendo o(s) botão(ões). E.g.: { {cImagem, bBloco}, ...,{cImagem, bBloco}}

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