Function GetParAuto nao existe no RPO para criacao de execauto

Olá !

Estou tentando criar uma rotina para classificar automaticamente um ativo através do seguinte codigo

Private ATFA240TestCase := {}
Private aCabec := {}

    dbSelectArea("SN1")
    SN1->(dbGoTo(127770))

      aCab := {}
    aadd(aCab, {"N1_FILIAL" , SN1->N1_FILIAL     , NIL})
    aadd(aCab, {"N1_CBASE"  , SN1->N1_CBASE      , NIL})
    aadd(aCab, {"N1_ITEM"   , SN1->N1_ITEM       , NIL})
    aadd(aCab, {"N1_AQUISIC", SN1->N1_AQUISIC    , NIL})
    aadd(aCab, {"N1_DESCRIC", "TESTE MYAATF012 2", NIL})
    aadd(aCab, {"N1_QUANTD" , SN1->N1_QUANTD     , NIL})
    aadd(aCab, {"N1_CHAPA"  , SN1->N1_CHAPA      , NIL})
    aadd(aCab, {"N1_PATRIM" , SN1->N1_PATRIM     , NIL})
    aadd(aCab, {"N1_GRUPO"  , SN1->N1_GRUPO      , NIL})

    aItem := {}
    aadd(aItem, {"N3_FILIAL" , SN1->N1_FILIAL     , NIL})
    aadd(aItem, {"N3_CBASE"  , SN1->N1_CBASE    , NIL})
    aadd(aItem, {"N3_ITEM"   , SN1->N1_ITEM     , NIL})
    aadd(aItem, {"N3_TIPO"   , '01'             , NIL})
    aadd(aItem, {"N3_SEQ"    , '001'            , NIL})
    aadd(aItem, {"N3_HISTOR" , SN1->N1_DESCRIC  , NIL})
    aadd(aItem, {"N3_CCONTAB", '130200100010003', NIL})
    aadd(aItem, {"N3_CDEPREC", '130200100010003', NIL})
    aadd(aItem, {"N3_CCDEPR" , '130200800010003', NIL})
    aadd(aItem, {"N3_TXDEPR1", 10               , NIL})
    aadd(aItem, {"N3_TXDEPR2", 10               , NIL})
    aadd(aItem, {"N3_TXDEPR3", 10               , NIL})
    aadd(aItem, {"N3_TXDEPR4", 10               , NIL})
    aadd(aItem, {"N3_TXDEPR5", 10               , NIL})

    _aItens := {aItem}

    FWVetByDic(aCab,"SN1",.f.)
    FWVetByDic(_aItens,"SN3",.T.)

    aadd(ATFA240TestCase,aCab)
    aadd(ATFA240TestCase,_aItens)

    ATFA240(3, .T.)
`

No fonte ATF240 existe o seguinte tratamento

If lAutomato
    **If FindFunction("GetParAuto")**
        aRetAuto    := GetParAuto("ATFA240TestCase")
        cAutBase    := aRetAuto[1][2][2] //Código do Ativo 
        cAutItem    := aRetAuto[1][3][2] //Item do Ativo 
        nOpca    := 3
    EndIf

    DbSelectArea("SN1")
    DbSetOrder( 1 )
    DbSeek(xFilial("SN1")+cAutBase+cAutItem)

EndIf

Entretanto no meu RPO essa funcao GETPARAUTO nao existe. Estou com ambiente atualizado. Alguém tem alguma ideia de como contornar essa situação?

Obrigado.

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags execauto ou faça a sua própria pergunta.