Histórico da Página
PONTO DE ENTRADA PARA INCLUIR OU ALTERAR VALORES
NADOS 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: | Informe o Menu em que estará localizada a rotina | |||||||||||||||||||||||||||
Localização: | Informe o Submenu em que estará localizada a rotina | |||||||||||||||||||||||||||
Eventos: | Informe o Título da rotina | |||||||||||||||||||||||||||
Programa Fonte: | Informe o Fonte da rotina | |||||||||||||||||||||||||||
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: |
| Função: | Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”||||||||||||||||||||||||||
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 |