Histórico da Página
...
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 | MNTA720A() | ||||||||||||
Parâmetros |
| ||||||||||||
Retorno | Array
|
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 } |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas