Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Usuário desconhecido (thiago.meneses)

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Usuário desconhecido (thiago.meneses)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de Entrada

Descrição:

AF271TP - PE Ponto de entrada na entrada chamada da rotina ATFA271, permite alterar o campo X3_CBOX para garantir que o tipo 12 (FNG_TIPO), esteja disponível no cadastro de grupos de ativos.

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
Aviso

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


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()
//----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
// PE para alterar X3_CBOX para garantir que o tipo 12 esteja disponível no cadastro de grupos de ativos.

// IMPORTANTE !!! O tipo 12 deve ser usado para controle de reavaliação de ativos.

//PADRÃO "01" - Depreciação Fiscal ,"10" - Depreciação Gerencial / Contábil , "03" - Adiantamento,"13" - Adiantamento Gerencial
//----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

Programa Fonte:

Grupo de Bens (ATFA271)