Histórico da Página

...

Repare que a movimentação foi criada na Central.

Ponto de Entrada Entrada PLATVASS

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 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 aRetAux:= {'5648','8547','3252'}              //Array com os códigos RGI que são assistenciais informados pelo cliente.
       Local nI := 0

       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

03. TELA XXXXX

Outras Ações / Ações relacionadas

...