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: |
|
Exemplo:
|
Bloco de código | ||
---|---|---|
| ||
#Include |
'Protheus.ch' |
User Function |
NGALTSCP() |
Local cCodProd := PARAMIXB[1] |
Local cTipo:= PARAMIXB[2]
If cTipo == '1'
aCab[4][2]:= 'NF' //Validações do usuário
EndIf
Return aCab //Código do Produto
Local cNumOP := PARAMIXB[2] //Numero da ordem de produção
Local aInsSTL := PARAMIXB[3] //Array com os Insumos(STL)
Local cItemPos := PARAMIXB[4] //Código do Item
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") + cTipoReg + cSeqRela + cCodProd + cNumOP + cPlano)
cObsSTL := STL->TL_OBSERVA
EndIf
aRetItem := { {"CP_OBS" ,cObsSTL ,NIL} }
aAdd( aRet , aRetCab )
aAdd( aRet , aRetItem )
Return aRet |