Histórico da Página
PONTO DE ENTRADA PARA INCLUIR OU ALTERAR VALORES DOS CAMPOS DA TABELA SCP
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||||||||||
Segmento: | Manufatura. | ||||||||||||
Módulo: | Manutenção de Ativos e Gestão de Frotas. | ||||||||||||
Rotina: |
| ||||||||||||
Parâmetro(s): | MV_NGMNTES = S, MV_NGGERSA = S. | ||||||||||||
Tickets relacionados | 3273900. | ||||||||||||
País(es): | Todos. | ||||||||||||
Banco(s) de Dados: | Todos. |
Ponto de Entrada
Descrição: | Ponto de entrada que possibilita incluir ou alterar valores dos campos da tabela SCP. Com exceção dos campos CP_NUM, CP_EMISSAO, CP_ITEM, CP_PRODUTO, CP_LOCAL, CP_DATPRF e CP_OP que são utilizados nos índices da tabela o restante é editável. | ||||||||||||||||||||||||
Localização: | SIGAMNT - Em Atualizações > Controle de Oficina > Ordem de Serviço > Corretiva. | ||||||||||||||||||||||||
Programa Fonte: | MNTUTIL_OS. | ||||||||||||||||||||||||
Função: | NGGERASA() | ||||||||||||||||||||||||
Parâmetros: |
| ||||||||||||||||||||||||
Retorno: |
|
Bloco de código | ||
---|---|---|
| ||
#Include 'Protheus.ch' User Function NGALTSCP() Local cCodProd := PARAMIXB[1] //Código do Produto Local cNumOP := PARAMIXB[2] //Numero da ordem de produção Local aInsSTL := PARAMIXB[3] //Array com os Insumos(STL) Local nItemPos := PARAMIXB[4] //Linha do array posicionada no momento Local cPlano := PARAMIXB[5] //Plano da OS Local cTipoReg := "P" //Sempre sera realizado apenas para insumos do tipo produto Local cSeqRela := "0 " //Apenas altera para insumos previstos Local aRet := {} //Array com os novos valores para atualizar a SCP Local aRetCab := {} Local aRetItem := {} Local cObsSTL := "" dbselectArea( "STL" ) dbsetorder(2) //TL_FILIAL+TL_TIPOREG+TL_SEQRELA+TL_CODIGO+TL_ORDEM+TL_PLANO If dbSeek( xFilial("STL") + "P"cTipoReg + "0cSeqRela "+ cCodProd + cNumOP + cPlano) cObsSTL := STL->TL_OBSERVA EndIf aRetItem := { {"CP_OBS" ,cObsSTL ,NIL} } aAdd( aRet , aRetCab ) aAdd( aRet , aRetItem ) Return aRet |