Histórico da Página

#INCLUDE "PROTHEUS.CH"

user Function GDEBESP()

Local cLinha    := PARAMIXB[1] // linha de referência
Local cDescDEsp := PARAMIXB[2] // Descrição do Débito Especial
Local nValTot   := PARAMIXB[3] // Valor total do Débito Especial
Local cCodLan   := PARAMIXB[4] // Código de lançamento
Local nValGuia  := 0
Local nX         := 0
Local aGuias    := {}

    if AllTrim(cCodLan) == "AM051002"
        for nX := 1 to 2
            nValGuia := nValTot / 2
            aAdd(aGuias,{ cCodLan, nValGuia})
        next
    elseif AllTrim(cCodLan) == "AM159999"
        for nX := 1 to 2
            nValGuia := nValTot / 2
            aAdd(aGuias,{ cCodLan, nValGuia})
        next
    endif    
Return aGuias
// O Sistema espera um array bidimensional com a informação do codigo de lançamento e do valor para cada guia. Caso o Codigo de lançamento não seja tratado no ponto de entrada
// o sistema faz o tratamento comum.