Home

Linha Microsiga Protheus

Páginas filhas
  • PMSMON06 - Cria botões

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
PMSMON06 - Cria botões
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
aFieldLstVetorArray 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
NomeTipoEscopoPode Alterardescrição
aChkLstArray of RecordGlobalNãoArray contendo array dos conteúdos do check list