Histórico da Página

USER FUNCTION PMS320AUT()

LOCAL nQtdHora	:= 0

LOCAL0LOCAL dData 	:= STOD('20110202')

LOCAL nOpc                   := 9 

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 horas

nQtdHorahorasnQtdHora := 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!")

    Endif

Endif

Return 

     EndifEndifReturn