Histórico da Página

Ponto de Entrada que define o código de base e o número do item do ativo imobilizado, permitindo utilizar os dados do projeto como base.

MATA103.prw

MT103AFN - Utiliza dados de ativo fixo ( [ aParamAFN ], [ SF4->F4_ATUATF ], [ SF4->F4_BENSATF ], [ MV_ATFDCBA ] ) --> aATFPMS

aATFPMS(array_of_record)
• Array contendo o código base e o número do item do ativo imobilizado de forma personalizada.

Estrutura do array de retorno aATFPMS

aATFPMS[1] - Código base.

aATFPMS[2] - Número do item.

Obs: Foram passados por parâmetro dados auxiliares referentes aos campos do cadastro TES (Tipo de Entrada e Saída) "Atual. Ativo"(F4_ATUAATF), "Desme. IT ATF"(F4_BENSATF) e o parâmetro MV_ATFDCBA.

#INCLUDE "RWMAKE.CH"#INCLUDE "PROTHEUS.CH"User Function MT103AFN()Local cBase      := "MT103AFN06" // Codigo personalizadoLocal cItem      := "0001" // Numero item personalizado	Local aRet       := {}Local aTeste     := Paramixb[1] //Dados do projetoLocal cAtuaATF   := Paramixb[2] //Atualiza ativo:  "S"-Sim / "N"-NaoLocal cDesItATF  := Paramixb[3] //Desmembra itens ativo:  "1"-Sim / "2"-NaoLocal lTipoDes   := Paramixb[4] //".F." Desmembra itens / ".T." Desmembra codigo baseMsgAlert("Execução do ponto de entrada MT103AFN")If !Empty(aTeste)	MsgAlert("Projeto (Integração PMS):" + aTeste[1][2][1][1])EndIf	MsgAlert("Atualiza Ativo?(S-Sim /N-Nao): " + cAtuaATF)MsgAlert("Desmembra itens ativo?(1-Sim /2-Nao): " + cDesItATF)MsgAlert("F-Desmembra itens / T-Desmembra codigo base: " + (iif(lTipoDes,"T","F")))aRet := {cBase, cItem}MsgAlert("Codigo - Item personalizados: " + aRet[1] + " - " + aRet[2])  Return(aRet)