Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • MT103AFN - Utiliza dados de ativo fixo

Ponto-de-Entrada: MT103AFN - Utiliza dados de ativo fixo
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
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.
Programa Fonte 
MATA103.prw
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aParamAFN Array of Record array que contém os dados do projeto - integração com o PMS .
SF4->F4_ATUATF Caracter Indica se o ativo imobilizado deve ser atualizado, quando da entrada de uma nota.
SF4->F4_BENSATF Caracter Indica se desmembra os items gerados no Ativo Fixo a partir da NF. Se igual a SIM, quando lançado um item com quantidade 10 na NF, será gerado 10 itens com quantidade igual a 1 no Ativo.
MV_ATFDCBA Lógico Parâmetro que indica se desmembra item ou codigo base do ativoimobilizado. "0"- Desmembra itens / "1" - Desmembra código base. 0
Retorno
    aATFPMS(array_of_record)
  • Array contendo o código base e o número do item do ativo imobilizado de forma personalizada.
Observações

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.

Exemplos 
#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)
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não