Versão atual:

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.

Versões (2):

Ver a versão formatada

Function GetParAuto nao existe no RPO para criacao de execauto

Comentário

new question