Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | Ativo Fixo(SIGAATF) |
Função: | Cálculo Mensal (ATFA050) |
Ticket: | 9577322 |
Requisito/Story/Issue: | DSERCTR1-28364 |
O ponto de entrada AF050VTP permite verificar se existem certos tipos de ativos que não foram tratados ao executar a rotina de Cálculo Mensal(ATFA050), retornando dentro da regra os tipos desejados para serem verificados.
Realizado documentação do PE.
O exemplo demonstrado é meramente ilustrativo. A regra, o funcionamento e os impactos gerados pelo ponto de entrada no sistema são de responsabilidade do cliente que o utiliza. |
Parâmetros:
Parâmetro | Tipo | Descrição | Obrigatório |
---|---|---|---|
PARAMIXB[1] | None | Não se aplica | Não |
Retorno:
Retorno | Tipo | Descrição | Obrigatório |
---|---|---|---|
Array | Array | Tipo dos bens a serem avaliados que não foram tratados | Sim |
#include "protheus.ch" User Function AF050VTP() Local aBensTipos := {'55','56','57'} //Outras regras dependendo do que deseja ser avaliado e validado Return aBensTipos |
If ExistBlock("AF050VTP") If lResult .and. !AFA050VlTp(cFilDe, cFilAte) If IsBlind() LogRecord( 'ID:AF050VLTP' ) Else HELP(" ",1,"AF050VLTP",,STR0033,1,0) //"Existem ativo(s) com tipo nao tratado" EndIf lResult := .F. EndIf EndIf |
If ExistBlock("AF050VTP") aAux := ExecBlock( "AF050VTP", .F., .F. ) If ValType(aAux)=="A" For nX := 1 to Len(aAux) If ValType(aAux[nX])=="C" AADD(aTipos, aAux[nX]) EndIf Next EndIf Endif |
<style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } .aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { background: #FF9900; !important } .menu-item.active-tab { border-bottom: none !important; } </style> |