FINA630 - Rotina automática Aprov/Rej. Transf.

Descrição

Exemplo de ExecAuto para   utilizar a rotina Aprov/Rej. Transf. (FINA630)

Observações

A rotina FINA630 possui dois parâmetros a serem   informados, porém para o funcionamento em Execauto, o primeiro parâmetro   necessita ser preenchido como um array, pois as informações utilizadas neste   array são essenciais para a conclusão do processo.

Parâmetros utilizados pela FINA630.

•   aSolicitacao: é possível   informar o array com o número da solicitação a ser aprovada:
  •   aSolicitação[1] = Numero   da Solicitação.

•   nOpc: opção que   está sendo realizada no fonte, como por exemplo:
  •   2 - Visualizar.
  •   3 - Aprovar.
  •   4 - Rejeitar.
  •   5 - Exclusão.
  •   6 - Estornar.

Exemplos

User Function EXEC630()

Local aSolict := {}

Local cChave :=   xFilial("SE6")+"000006"

lMsErroAuto := .F.

DbSelectArea("SE6")

DbSetOrder(3)

DbGoTop()

If   SE6->(DbSeek(cChave,.T.))

      aSolict :=   {{"E6_NUMSOL" ,"000006" ,Nil}}

      MSExecAuto({|x,y|   Fina630(x,y)},aSolict,3)

Else

     MsgAlert("Registro não encontrado")

     Return

EndIf

If   lMsErroAuto

      MostraErro()

Else

      MsgAlert("OK")

Endif

Return

Versões

Microsiga Protheus 11

Parâmetros

(aSolicitacao,   nOpc)

Programa Fonte

FINA630.PRX