Histórico da Página

#Include "Protheus.ch"
#Include "rwmake.ch"

Static __lFirst := .T.

User Function F820Reg()

	Local nRec := PARAMIXB[1] // Recno do registro na SE5 (mov. bancário).
    Local aTpReg := PARAMIXB[2] // Array com os tipos de títulos a serem considerados.
    Local lRegValid := PARAMIXB[3] // Define se o registro deve ser impresso (considerado) no arquivo LCDPR ou não.

    // Tipos a serem considerados:
    // aTpReg[1] = Tipos de Nota Fiscal, além do NF
    // aTpReg[2] = Tipos de Fatura, além do FT
    // aTpReg[3] = Tipos de Recibo, além do RC
    // aTpReg[4] = Tipos de Contrato, além do C01
    // aTpReg[5] = Tipos de Fol. Pagto, além do FOL
    // O formato é sempre dos demais títulos separador por '|' (pipe) entre si. Ex.: 'NCC|NDF'

    Local aRet := {}
    Local aArea := SE5->(GetArea())
	Local cDoc   := ""

    DbSelectArea("SE5")
    DbGoTo(nRec)

    If SE5->E5_TIPO == 'RC '
        lRegValid := .F.
    EndIf

    cDoc := AllTrim(TRB100->NUMDOC) + Iif( !Empty(AllTrim(TRB100->PREFIXO)), "/" + AllTrim(TRB100->PREFIXO), "")
    If __lFirst
        aTpReg[1] := {"NCC|NDF"}
        __lFirst := .F.
        aAdd(aRet, lRegValid )
        aAdd(aRet, aTpReg )                        
    Else
        aAdd(aRet, lRegValid )
        aAdd(aRet, {} )                        
    EndIf
    aAdd(aRet, cDoc )     

    RestArea(aArea)

Return aRet