Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

AF271TP - Ponto de entrada na chamada da rotina ATFA271 (Cadastro de grupos de bens). Este ponto de entrada permite o usuário incluir validações atendendo necessidades da sua empresa.


Localização:

SIGAATF>Atualizações>Cadastros>Grupo de Bens

Eventos:

If ExistBlock("AF271TP")

ExecBlock("AF271TP",.F.,.F.)

EndIf

Exemplo:

#Include 'protheus.ch'
#Include 'parmtype.ch'

User Function AF271TP()
//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
// Este exemplo permite alterar o campo X3_CBOX para garantir que o tipo 12 (FNG_TIPO), esteja disponível no cadastro de grupos de ativos.

//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

SX3->(DbSetOrder(2))

If SX3->(DbSeek("FNG_TIPO")) 

If ALLTRIM(SX3->X3_CBOX) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
   RecLock("SX3", .F.) 
   SX3->X3_CBOX := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})' 
   MsUnLock() 
EndIf
If ALLTRIM(SX3->X3_CBOXSPA) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
   RecLock("SX3", .F.) 
   SX3->X3_CBOXSPA := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})' 
   MsUnLock() 
EndIf
If ALLTRIM(SX3->X3_CBOXENG) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
   RecLock("SX3", .F.) 
   SX3->X3_CBOXENG := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})' 
   MsUnLock() 
EndIf

EndIf

Return


IMPORTANTE !!! O tipo 12 deve ser usado para controle de reavaliação de ativos (12 - VALOR RECUPERÁVEL DE ATIVO).

No padrão do campo Tipo Ativo (X3_CAMPO igual à FNG_TIPO), o campo X3_CBOX é igual a "#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"}".

  • 01 - Depreciação Fiscal
  • 10 - Depreciação Gerencial/Contábil
  • 03 - Adiantamento
  • 13 - Adiantamento Gerencial


Programa Fonte:

Grupo de Bens (ATFA271)