PMSA320 Apontamentos de Recursos - Rotina Automatica

USER FUNCTION PMS320AUT()LOCAL nQtdHora	:= 0LOCAL dData 	:= STOD('20110202')LOCAL nOpc                   := 9 //3 opção de inclusão, 8 - alterar e 9 - excluir (ambiente top)LOCAL aGetCPos	:= {}PRIVATE lMsErroAuto := .F.aAdd(aGetCPos ,{"AFU_PROJET" ,'1'				     	,.F.})aAdd(aGetCPos ,{"AFU_TAREFA" ,'01'				     	,.F.})aAdd(aGetCPos ,{"AFU_REVISA" ,'0002'			     	,.F.})aAdd(aGetCPos ,{"AFU_RECURS" ,'RECURSO'				,.F.})aAdd(aGetCPos ,{"AFU_DATA"   ,dData						,.F.})aAdd(aGetCPos ,{"AFU_HORAI"  ,'08:00'					,.F.})aAdd(aGetCPos ,{"AFU_HORAF"  ,'17:30'					,.T.})// calcula a quantidade de horasnQtdHora := Round(SubtHoras(dData,'08:00',dData,'17:30'),2)aAdd(aGetCPos ,{"AFU_HQUANT" ,nQtdHora ,.T.})// devemos posicionar no registro da AFU antes de realizarmos uma exclusão / alteração, por exemplo;dbSelectArea("AFU")dbSetOrder(1)If dbSeek(XFILIAL()+"1"+'0000000012'+'0002'+'01.01.02    '+'MANUELA        '+"20111001")		Alert("Localizou o registro - Executar rotina automática PMSA320")                   MSExecAuto({|a,b,c|PMSA320(a,b,,c)},aGetCpos, nOpc,__cUserID)        If lMsErroAuto	        MostraErro()        Else	        Alert("Apontamento incluso com sucesso!")        EndifEndifReturn