Histórico da Página

...

Com este Ponto de Entrada, o cliente pode informar quais são seus Ativos (N1_CODRGI) que são Assistenciais. Abaixo um exemplo da utilização do Ponto de Entrada.

          #include 'protheus.ch'
          #include 'FWMVCDEF.CH'
          #include 'parmtype.ch'

          User Function PLATVASS()
       Local           Local aRet := Paramixb[1]                                 //aRet[1] São os Códigos RGI que o sistema buscou no módulo Ativo (N1_CODRGI)                aRet[2] Traz do Ativo se ele é ou não Próprio       aRet[3] Esta informação que manipulamos abaixo.
         Local         Local aRetAux:= {'5648','8547','3252'}              //Array com os códigos RGI que são assistenciais informados pelo cliente.
         Local         Local nI := 0

                 If If Len(aRet)>0
                     For nI:=1 to Len(aRetAux)
                           If aRetAux[nI] ==Alltrim(aRet[1])       //Quando RGI que trouxemos do Ativo (aRet) for igual aos informados pelo cliente (aRetAux) eu marco ele como assistencial (aRet[3]:=1)
                                aRet[3]:="1"                                  // Assistencial?    1-Sim  0-Não
                           Endif
                     Next
                EndIf

        return aRet

Vídeo de Exemplo:

...