Histórico da Página

#Include "Protheus.ch"
#Include "TopConn.ch"
 
User Function SPDFIS05()

    //Local cAlias    := ParamixB[1]
    Local aDoc      := ParamixB[2]
    Local aC100     := ParamixB[3]
    Local aRet      := {}
    Local nPos      := Len(aC100)

    aAdd(aRet, aC100[nPos][13]) //mantemmantém-se o valor já informado para o campo 13-IND_PGTO
    aAdd(aRet, aC100[nPos][17]) //mantemmantém-se o valor já informado para o campo 17-IND_FRT

    If aC100[nPos][6] == "08" .And.; // 06 - COD_SIT
        aDoc[3] == "SP0001" .And.; // Cliente
        aDoc[4] == "01" .And.; // Loja
        AllTrim(aDoc[9]) == "5101" // CFOP        
        aAdd(aRet, "1") //altera o valor que será apresentado no campo 03-IND_EMIT
    Endif

Return aRet