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. | ||||||||||||||||||||||||||||||||||||
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 nQtd := PARAMIXB[3] //Quantidade
Local cAlmox := PARAMIXB[4] //Armazem
Local dDtGersa := PARAMIXB[5] //Data de geração da SA
Local cCCGerasa := PARAMIXB[6] //Centro de Custo
Local aInsSTL := PARAMIXB[7] //Array com os Insumos(STL)
Local nItemPos := PARAMIXB[8] //Linha do array posicionada no momento
Local aRet := {} //Array com os novos valores para atualizar a SCP
Local aRetCab := {}
Local aRetItem := {}
aRetItem := { {"CP_OBS" ,aInsSTL[ 4 , nItemPos , 20 ] ,NIL} }
aAdd( aRet , aRetCab )
aAdd( aRet , aRetItem )
Return aRet |