Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:MNTA7208()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de OS em Lote (MNTA720) que carrega o aCols de forma personalizada, de acordo com um conteúdo padrão já pré-carregado para a OS

Localização:

SIGAMNT: Atualizações/Controle de Pneus/OS de Pneus/OS em Lote
Programa Fonte:MNTA720.prx

Função:

MNTA7208

Parâmetros:

NomeTipoDescrição
ParamIXB[1]ArrayConteúdo da GetDados (aCols)
ParamIXB[2]ArrayCabeçalho da GetDados (aHeader)
ParamIXB[3]NuméricoAção do Menu (Inclusão, Alteração, Exclusão, etc.)

Retorno:

NomeTipoDescriçãoObrigatório
aRetArrayNovo conteúdo da GetDados (aCols)X

03. DEMAIS INFORMAÇÕES

Exemplo MNTA7208()
#INCLUDE "Protheus.ch"
#INCLUDE "RWMake.ch"
 
User Function MNTA7208()
     
    // Variável do retorno
    Local aRet := {}
     
    // Variáveis auxiliares
    Local aEspCols := aClone( ParamIXB[1] )
    Local aEspHead := aClone( ParamIXB[2] )
    Local nOpcCad  := ParamIXB[3]
    Local nX := 0
     
    Local nPosCODBEM := aScan(aEspHead, {|x| x[2] == "TR8_CODBEM" })
     
    //----------
    // Executa
    //----------
    If nOpcCad == 3 .And. nPosCODBEM > 0
        // Se for uma Inclusão, preenche o aCols com o primeiro Bem no Cadastro de Bens (exemplo)
        dbSelectArea("ST9")
        dbSetOrder(1)
        dbGoTop()
        For nX := 1 To Len(aEspCols)
            aEspCols[nX][nPosCODBEM] := ST9->T9_CODBEM
        Next nX
    EndIf
    aRet := aClone( aEspCols )
     
Return aRet


04. ASSUNTOS RELACIONADOS

  • Não se aplica.