Ponto de entrada responsável por gravar campos específicos da tabela SD4 (MNTA420)
Características do Requisito
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 utilizado na rotina de O.S. Corretiva (MNTA420), responsável por gravar campos específicos da tabela SD4 | ||||||
Localização: | SIGAMDI: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva | ||||||
Programa Fonte: | MNTA420.prx | ||||||
Função: | MNTA420S() | ||||||
Parâmetros: |
| ||||||
Retorno: |
Exemplo do Ponto de Entrada MNTA420S
#INCLUDE "PROTHEUS.CH" User Function MNTA420S() Local nI := 0 Local aAreaAtual := "" Local aLPSD4 := {} aLPSD4 := aClone(ParamIXB) aAreaAtual := SD4->(GetArea()) DbSelectArea("SD4") DbSetOrder(1) For nI := 1 To Len(aLPSD4) If DbSeek(xFilial("SD4") + aLPSD4[nI] + (aLPSD4[nI] + "OS001")) While xFilial("SD4") == SD4->D4_FILIAL .And. SD4->D4_COD == aLPSD4[nI][1] .And. AllTrim(SD4->D4_OP) == (aLPSD4[nI][2] + "OS001") If SD4->D4_QUANT == aLPSD4[nI][3] RecLock("SD4", .F.) SD4->D4_CODAEN := aLPSD4[nI][4] SD4->(MsUnlock()) EndIf DbSelectArea("SD4") DbSkip() End EndIf Next nI RestArea(aAreaAtual) Return .T.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas