Histórico da Página

Exemplos

#INCLUDE "PROTHEUS.CH"

User Function M530DIRF()

Local aTitulos     := {}

Local cCodRet   :=            " "

Local      aAreaSE2 := SE2->(GetArea())

Local nPos          :=            0

//Vetor com chave para identificar registro na SE2 e código de retencao retenção a ser enviado na DIRF.

aAdd(aTitulosaTítulos,{ "01COMDP PJCOM 1 001       ", "1708"})

nPos := Ascan(aTitulos, {|x| x[1] == (SE2->E2_FILIAL+SE2->E2_PREFIXO+SE2->E2_TIPO+SE2->E2_FORNECE+SE2->E2_LOJA+SE2->E2_NATUREZ)})            

If nPos > 0

  cCodRet            := aTitulos[nPos,2]        

Endif               

RestArea(aAreaSE2)                                                                                                                                   

Return cCodRet