Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PMSA025 Tipos de Tarefas - Rotina Automática

Documento: PMSA025 (Tipos de Tarefas) - Rotina Automática

Este documento contêm exemplos de utilizações da rotinas automáticas de inclusão, alteração e exclusão no cadastro de Tipos de tarefas (PMSA025).Importante:Para que estas rotinas automáticas funcionem, deve-se possuir o parâmetro MV_QTMKPMS com valor igual a 3 ou 4 (integração do SIGAPMS com módulos QNC e TMK).


 USER FUNCTION PMS025INC()
LOCAL aArray := {}
 
PRIVATE lMsErroAuto := .F.
 
aArray := { { "AN4_TIPO" , "01" , NIL },;
{ "AN4_DESCRI" , "DESCRIÇÃO TESTE" , NIL } }
 
MsExecAuto( { |x,y| PMSA025(x,y)} , aArray, 3)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
 
 
If lMsErroAuto
MostraErro()
Else
Alert("Tipo incluso com sucesso!")
Endif
 
Return
 
USER FUNCTION PMS025ALT()
LOCAL aArray := {}
 
PRIVATE lMsErroAuto := .F.
 
aArray := { { "AN4_DESCRI" , "DESCRIÇÃO ALTERADA" , NIL } }
 
DbSelectArea("AN4")
DbSeek(xFilial("AN4")) //Alteração deve ter o registro AN4 posicionado
 
MsExecAuto( { |x,y| PMSA025(x,y)} , aArray, 4)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
 
If lMsErroAuto
MostraErro()
Else
Alert("Tipo alteração com sucesso!")
Endif
 
Return
 
 
USER FUNCTION PMS025EXC()
LOCAL aArray := {}
 
PRIVATE lMsErroAuto := .F.
 
DbSelectArea("AN4")
DbSeek(xFilial("AN4")) //Exclusão deve ter o registro AN4 posicionado
 
aArray := { { "AN4_TIPO" , AN4->AN4_TIPO , NIL } }
 
MsExecAuto( { |x,y| PMSA025(x,y)} , aArray, 5)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
 
If lMsErroAuto
MostraErro()
Else
Alert("Tipo Exclusão com sucesso!")
Endif
 
Return