| Produto: |
| ||||||||
|---|---|---|---|---|---|---|---|---|---|
| Linha de Produto: |
| ||||||||
| Segmento: |
| ||||||||
| Módulo: | Ativo FixoContabilidade Gerencial (SIGAATFSIGACTB) | ||||||||
| Função: | Cálculo Mensal CTBXATU (ATFA050Generico) - CHKCTBGRV | ||||||||
| Ticket: | 957732210537859 | ||||||||
| Requisito/Story/Issue: | DSERCTR1-2836430184 |
O ponto de entrada AF050VTP CHKCTBGRV 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 verificadosse o controle de gravação de filiais ao contabilizar será feito pelo comportamento padrão ou se terá regra diferente no ponto de entrada ANTCTBGRV.
Observação: Vale frisar que o PE CHKCTBGRV só retornara Verdadeiro e com isso se ira efetuar a regra no PE ANTCTBGRV.
Realizado documentação do PE.
...
| Aviso | ||
|---|---|---|
| ||
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 | Lógico | Se controla pelo PE ou funcionamento padrão | SimNão |
Retorno:
Retorno | Tipo | Descrição | Obrigatório | |
|---|---|---|---|---|
| ArrayLógico | Array | Lógico | Verdadeiro ou FalsoTipo dos bens a serem avaliados que não foram tratados | Sim |
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#include "protheus.ch" User Function AF050VTPCHKCTBGRV() Local lAntCtbGrv := PARAMIXB[1] Local aBensTiposlRet := {'55','56','57'} //Outras regras dependendo do que deseja ser avaliado e validado Return aBensTipos.F. If lAntCtbGrv lRet := .T. endIf return lRet |
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
If#include ExistBlock("AF050VTPprotheus.ch") 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 User Function ANTCTBGRV() cFilant := 'D MG 01' Return User Function DEPCTBGRV() cFilant := SE1->E1_FILIAL Return |
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
If ExistBlock("AF050VTP") aAux := ExecBlock( "AF050VTP"!( lChkCtbGrv .And. Execblock("CHKCTBGRV" , .F., .F. , {lAntCtbGrv} ) If ValType(aAux)=="A" For nX := 1 to Len(aAux) If ValType(aAux[nX])=="C" AADD(aTipos, aAux[nX]) EndIf Next EndIf Endif ) //Se controlado pelo Ponto de Entrada, não entra nesse trecho Regra padrão do sistema que será ignorada caso seja escolhido a utilização do PE conforme os objetivos buscados. Endif |
| Templatedocumentos |
|---|
...
