Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Jean Costa

Gravado em

comparado com

Nova versão 7

changes.mady.by.user Jean Costa

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:

Rotina

Nome Técnico

MNTA420.

O.S. Corretiva.

Rotina(s) envolvida(s)

Nome Técnico

MNTA410

O.S. Preventiva.

MNTA340Confirmação

MNTA990

Programação de O.S.

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:
Centro de Custo
NomeTipoPode alterarDescrição
cCodProdCaractérSim.

Código do Produto.

cNumOPCaractérSim.Número da ordem de produção.
nQtdNuméricoSim.Quantidade.
cAlmoxCaractérSim.Armazém.
dDatGerasaDataSim.Data de geração da SA.
cCCGerasaCaractérSim..
aBLOArrayNão.Array com os Insumos(STL).
nItemPosNuméricoSim.Linha do array posicionada no momento.
cPLNCaractérSim.Plano da OS.

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRet

Array

Array que irá retornar com os novos valores, deverá possuir 2 posições sendo uma do array aCab e outra do aItem.

Sim

Bloco de código
titleExemplo do ponto de entrada NGALTSCP
#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