Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada para adicionar informações à autorização de Entrega gerada pela rotina de O.S em Lote

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

MNTA720

OS em Lote

Rotina(s) envolvida(s)

Nome Técnico

MNTA720A

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição

Ponto de entrada para adicionar informações à uma autorização de entrega gerada pela rotina de O.S em Lote

Programa Fonte

MNTA720.prx
LocalizaçãoSIGAMNT: Atualizações/Controle de Pneus/OS de Pneus/OS em Lote

Função

MNTA720A()

Parâmetros

PosiçãoTipoDescrição
PARAMIXB[1]ArrayItem do acols posicionado (tabela TR8)
PARAMIXB[2]Array

Cabeçalho da Autorização de Entrega (utilizado para gravação da tabela SC7)

[1] - Nome do campo da SC7

[2] - Valor para gravação

PARAMIXB[3]Array

Item da Autorização de Entrega (utilizado para gravação da SC7)

[1] - Nome do campo da SC7

[2] - Valor para gravação

Retorno

Array

PosiçãoDescrição
1

Cabeçalho da Autorização de Entrada:

[1] - Nome do campo SC7

[2] - Valor para gravação

2

Item da Autorização de Entrada:

[1] - Nome do campo SC7

[2] - Valor para gravação

Exemplo do Ponto de Entrada MNTA720A 
#include 'protheus.ch'

User Function MNTA720A()

    Local aAreaSc3  := SC3->( GetArea() )
    Local aItemTr8  := PARAMIXB[1]
    Local aCabecSc7 := PARAMIXB[2]
    Local aLinhaSc7 := PARAMIXB[3]
	Local cContrSc3 := aItemTr8[ GDFieldPos('TR8_NUMCP') ] // Número do contrato informado pelo usuário
	Local cItemSc3  := aItemTr8[ GDFieldPos('TR8_ITEMCP') ] // Número do item informado pelo usuário

	dbSelectArea('SC3')
	dbSetOrder(1) // C3_FILIAL + C3_NUM + C3_ITEM
	If dbSeek( xFilial('SC3') + cContrSc3 + cItemSc3 )

        // Cópia de campos específicos
        aadd( aLinhaSc7, { 'C7_XCAMPOX',  SC3->C3_XCAMPOX , Nil } )
        aadd( aLinhaSc7, { 'C7_XCAMPOY',  SC3->C3_XCAMPOY , Nil } )
 
    EndIf

    RestArea( aAreaSc3 )

Return { aCabecSc7, aLinhaSc7 }