Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PMSA311 Confirmações - Rotina automática

Documento: PMSA311 (Confirmações) - Rotina automática

Este documento contêm exemplos de utilizações da rotinas automáticas de inclusão, alteração e exclusão de confirmações de tarefas de um projeto (PMSA311).


 //INCLUSAO
USER FUNCTION PMS311INC()
LOCAL aGetCPos := {}
 
PRIVATE lMsErroAuto := .F.
 
aAdd(aGetCPos ,{"AFF_PROJET" ,'TESTE2    '     ,.F.})
aAdd(aGetCPos ,{"AFF_TAREFA" ,'01          '   ,.F.})
aAdd(aGetCPos ,{"AFF_REVISA" ,'0001'     ,.F.})
aAdd(aGetCPos ,{"AFF_DATA"   ,dDataBase ,.F.})
aAdd(aGetCPos ,{"AFF_QUANT"  ,0.5 ,.F.})
 
MSExecAuto({|a,b,c|PMSA311(a,b,c)},3,{},aGetCpos)
 
If lMsErroAuto
MostraErro()
Else
Alert("Confirmação inclusa com sucesso!")
Endif
 
Return
 
//ALTERAÇÃO
USER FUNCTION PMS311ALT()
 
LOCAL aGetCPos := {}
 
PRIVATE lMsErroAuto := .F.
 
DbSelectArea("AFF")
dbSetOrder(1) //AFF_FILIAL+AFF_PROJET+AFF_REVISA+AFF_TAREFA+DTOS(AFF_DATA)
DbSeek(xFilial("AFF")+'TESTE2    '+'0001'+'01          '+DTOS(dDataBase) )
 
aAdd(aGetCPos ,{"AFF_QUANT"  ,0.8 ,.T.})
 
MSExecAuto({|a,b,c|PMSA311(a,b,c)},4,{},aGetCpos)
 
If lMsErroAuto
MostraErro()
Else
Alert("Confirmação Alterada com sucesso!")
Endif
 
Return
 
 
//EXCLUSÃO
 
USER FUNCTION PMS311EXC()
 
LOCAL aGetCPos := {}
 
PRIVATE lMsErroAuto := .F.
 
DbSelectArea("AFF")
dbSetOrder(1) //AFF_FILIAL+AFF_PROJET+AFF_REVISA+AFF_TAREFA+DTOS(AFF_DATA)
DbSeek(xFilial("AFF")+'TESTE2    '+'0001'+'01          '+DTOS(dDataBase) )
 
MSExecAuto({|a,b,c|PMSA311(a,b,c)}, 5, {}, aGetCpos )
 
If lMsErroAuto
MostraErro()
Else
Alert("Confirmação Excluída com sucesso!")
Endif
 
Return