Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Maria Elisandra

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Maria Elisandra

Gravado em

Chave

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

...

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

Bloco de código
titleExemplo do Ponto de Entrada MNTA7209()
#include 'protheus.ch'
#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 }