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 todos os insumos previstos

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos / SIGAGFR - Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA435Retorno O.S. Mod. 2

Ponto de Entrada

Descrição:

Ponto de entrada executado na realização de todos os insumos previstos, através do botão 'Incluir todos insumos previstos', no Retorno modelo 2.

Programa Fonte:

MNTA435.prx

Parâmetros:
TipoDescrição
ArrayLista com os campos apresentados na listagem de insumos.
ArrayLista com os registros reportados como insumos realizados.
Retorno:
TipoDescrição
ArrayLista com os registros reportados como insumos realizados.

 

Bloco de código
languagesql
titleExemplo do P.E. MNTB4351
linenumberstrue
#include 'Protheus.ch'

User Function MNTB4351()

    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 nInInd1

Return aCols