Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão 7

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

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

Ponto de entrada executado na realização de um dos insumos previstos

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA435Retorno O.S. Mod. 2

Ponto de Entrada

Descrição:

Ponto de entrada executado ao realizar os insumos previstos selecionados, através do botão 'Incluir o insumo previsto', no Retorno modelo 2.

Programa Fonte:

MNTA435.PRX

Parâmetros:

Tipo

Descrição

ArrayLista com os campos apresentados na listagem de insumos.
ArrayLista com os registros reportados como insumos realizados.
Retorno:

Tipo

Descrição

ArrayLista com os registros reportados como insumos realizados.

 

Bloco de código
languagesql
titleExemplo do P.E. MNTB4352
linenumberstrue
#include "Protheus.ch"
#include "rwmake.ch"

User Function MNTB4352()

    Local aHeader   := ParamIxb[1]
    Local aCols     := ParamIxb[2]
    Local nInd1  := 0

    For nInd1 := 1 To Len( aCols )

        If  GDFieldGet( 'TL_TIPOREG', nInd1, .F., aHeader, aCols ) == 'P'

            GDFieldPut( 'TL_DTINICI', dDataBase, nInd1, aHeader, aCols )
            GDFieldPut( 'TL_DTFIM'  , dDataBase, nInd1, aHeader, aCols )    
        
        EndIf

    Next nInd1

Return aCols