Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

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

Gravado em

comparado com

Nova versão 2

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:

Informe o Menu em que estará localizada a rotina

Localização:

Informe o Submenu em que estará localizada a rotina

Eventos:

Informe o Título da rotina

Programa Fonte:

Informe o Fonte da rotina

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

Retorno:

Nome

Tipo

Descrição

Obrigatório

 

 

 

...

AF271TP - PE na entrada 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)