Histórico da Página
Ponto de entrada que permite alterar informações após a geração da Solicitação de Compras
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 que possibilita alterar informações após a geração da solicitação de compras | |||||||||
Programa Fonte: | NGUTIL02MNTUTIL_OS.prxprw | |||||||||
Função: | NGGERASC11() | |||||||||
RetornoParâmetros: |
Obrigatório Nulo - - - |
|
Bloco de código | |||||
---|---|---|---|---|---|
| |||||
| |||||
#INCLUDE '"PROTHEUS.CH'" User Function NGGERASC11() RecLock("SC1",.F.) SC1->C1_OBS := AllTrim(SC1->C1_OBS)+" "+"Nova Observação" SC1->C1_CMPUSER := '0001' SC1->(MsUnlock()) Return // Filial Ordem Plano Tipo Reg Codigo Local cKeySTL := xFilial("STL") + ParamIXB[1] + ParamIXB[2] + ParamIXB[3] + ParamIXB[4] Local aAreaSTL := STL->(GetArea()) dbSelectArea("STL") dbSetOrder(4) If dbseek( cKeySTL ) MsgInfo("Produto " + Alltrim(ParamIXB[4]) + " insumo é o que originou a S.C.") EndIf RestArea(aAreaSTL) Return .T. |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas