Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

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

01. DADOS GERAIS

Produto:

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVSTOTVS Manutenção de Ativos

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoManufatura

Módulo:

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

Função:

MNTA410 - O.S. Preventiva

MNTA420 - O.S. Corretiva

02. DESCRIÇÃO

de Entrada que permite alterar a consulta padrão do campo código de insumo

Descrição:

Ponto
de entrada acionado após gravação de cada insumo da ordem de serviço. Permite a alterar campos específicos na tabela de insumos.
Parâmetros:
NomeTipoDescrição
PARAMIXB[1]integer

Ultima linha de insumos que foi gravada.

PARAMIXB[2]array

Detalhes do insumo gravado.

PARAMIXB[3]array

Cabeçalho com os campos de insumos.

03. DEMAIS INFORMAÇÕES

Bloco de código
languagesql
titleExemplo: P.E. MNTA4202MNTA420R
linenumberstrue
#include 'protheus.ch'

User Function MNTA4202MNTA420R()
    
    Local aF3  nLinAt   := ParamIXB[1]
    Local cTipInsaInsum := ParamIXB[2]
    Local nPosF3aCabec  := 0
    ParamIXB[3]

	Local    If ( nPosF3 nPosTp := aScanGDFieldPos( aF3, { |x| x[1] == 'TL_CODIGOTIPOREG', }aCabec ) ) > 0

        If cTipIns == 'P'

            aF3[nPosF3,2] := 'SB1KIT'

        EndIfIf aInsum[nLinAt,nPosTp] == 'M'

		MsgInfo( 'Ponto de entrada MNTA420R' )

    EndIf

Return aF3


04. ASSUNTOS RELACIONADOS

  • Não se aplica.



Templatedocumentos

...