Histórico da Página
...
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
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ção |
SIGAMNT: Atualizações/Controle de Pneus/OS de Pneus/OS em Lote | |
Função |
Retorno:
MNTA720A() | |||||||||||||
Parâmetros |
| ||||||||||||
Retorno | Array
|
Bloco de código | ||
---|---|---|
| ||
#include 'protheus.ch' #include 'protheus.ch' User Function MNTA720A() Local aAreaSc3 := SC3->( GetArea() ) Local cContrSc3aItemTr8 := PARAMIXB[1] Local cItemSc3 aCabecSc7 := PARAMIXB[2] Local aCabecSc7aLinhaSc7 := PARAMIXB[3] Local cContrSc3 := aItemTr8[ GDFieldPos('TR8_NUMCP') ] // Número do contrato informado pelo usuário Local cItemSc3 aLinhaSc7 := PARAMIXB[4]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 } |