PE AF050CTB

aRet := Execblock("AF050CTB",.T.,.T., { nHdlPrv, cLoteAtf, cArquivo, nTotal, .T. })	// Retorno do ponto de entrada

User Function AF050CTB()

    Local nHdlPrv  := PARAMIXB[1] // Handle do arquivo de contabilização.
    Local cLoteAtf := PARAMIXB[2] // Identificador do lote de contabilização.
    Local cArquivo := PARAMIXB[3] // Caminho do arquivo de contabilização.
    Local nTotal   := PARAMIXB[4] // Valor total da contabilização.
    Local lChmLpd  := PARAMIXB[5] // Indica se deve chamar o lançamento padrão.
    Local aRet     := {} // Array de retorno.

    // Ajuste personalizado na contabilização
    If nTotal > 1000
        // Se o total for maior que 1000, aplica um ajuste no lote e um desconto de 10% no valor.
        cLoteAtf := "LOTE_ALTERNATIVO"
        nTotal := nTotal * 0.9
    EndIf

    // Criação do array de retorno conforme esperado pelo ponto de entrada
    aRet := {nHdlPrv, cLoteAtf, cArquivo, nTotal, .T.}

Return aRet