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 nQtdaInsSTL := PARAMIXB[3] //QuantidadeArray com os Insumos(STL) Local cAlmoxnItemPos := PARAMIXB[4] //ArmazemLinha do array posicionada no momento Local dDtGersacPlano := PARAMIXB[5] //DataPlano de geração da SAOS Local aRet cCCGerasa := PARAMIXB[6]{} //Centro de CustoArray com os novos valores para atualizar a SCP Local aInsSTLaRetCab := PARAMIXB[7] //Array com os Insumos(STL) {} Local aRetItem := {} Local nItemPoscObsSTL := PARAMIXB[8] //Linha do array posicionada no momento"" dbselectArea( "STL" ) Local aRet dbsetorder(2) //TL_FILIAL+TL_TIPOREG+TL_SEQRELA+TL_CODIGO+TL_ORDEM+TL_PLANO If dbSeek( := {} //Array com os novos valores para atualizar a SCPxFilial("STL") + "P" + "0 "+ cCodProd + cNumOP + cPlano) Local aRetCab cObsSTL := {} STL->TL_OBSERVA Local aRetItem := {}EndIf aRetItem := { {"CP_OBS" ,aInsSTL[ 4 , nItemPos , 20 ]cObsSTL ,NIL} } aAdd( aRet , aRetCab ) aAdd( aRet , aRetItem ) Return aRet |