Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Susan Marjorie Alves

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Ana Paula dos Santos

Gravado em

Chave

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

MATA685 - Apontamento de Perda

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório
Referência

aCabec
Array of Record
Array contendo cabeçalho da Estrutura de Produtos







aLinha
Array of Record
Array contendo os itens do apontamento de perda.







nOpc
Array of Record
Opção desejada: 3-Inclusão; 4-Alteração ; 6-Exclusão







nNumSeq
Char
Numero do Documento. Apenas para opção 6-Exclusão.






Idiomas:Português (Brasil)

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Descrição:

A rotina de apontamento de perda, além de apontar a perda dos materiais durante todo o processo de movimentação, também os classifica por motivo, referenciando-se às OPs. Este apontamento gera uma devolução para um produto e um armazém previamente cadastrados, permitindo que a perda seja direcionada para um produto e um armazém que caracterizem "Sucata".

Exemplo:

Bloco de código
USER FUNCTION TMATA685()   

Local nOpc   := 3 //-Opção de execução da rotina, informado nos parametros quais as opções possiveis  
Local cEnvMod := "PCP"  
Local aCabec := {}
Local aItens := {}
Local aLinha := {}

RpcSetEnv( "99","01",,,cEnvMod,,,,,,)

aCabec := {{"BC_OP"
,"00000201001  ",NIL}}			
aItens := {{"BC_QUANT"
,10,NIL},;
,NIL},; 
{"BC_PRODUTO"
,"TESTE          "
,NIL},;			
          {"BC_LOCORIG"
,"01"
,NIL},;			
          {"BC_TIPO"
,"R"
,NIL},;			
          {"BC_DTVALID"
,dDatabase
,NIL},;			
          {"BC_MOTIVO"
,"FH"
,NIL}}           			
AAdd(aLinha ,aItens)


MsExecAuto ( {|x,y,z| MATA685(x,y,z) }, aCabec, aLinha, 3)

Return


Obs1: Para utilizar o estorno (opc = 6), além das informações do produto, é necessário informar o numero de documento (campo: BC_NUMSEQ) nos parâmetros do MsExecAuto conforme exemplo:


Bloco de código
Local cNumDoc := '999999'
MsExecAuto ( {|x,y,z,n| MATA685(x,y,z,n) }, aCabec, aLinha, 3, cNumDoc)

Sintaxe:

MATA685 - Apontamento de Perda ( [ aCabec ] [ aLinha ] [ nOpc ] )

Programa Fonte:MATA685.PRX
Retorno:()
Observações:
  • Para utilização desta rotina automática é necessário indicar qual o módulo que está sendo utilizado (PCP - Planejamento e Controle da Produção ou EST - Estoque / Custos).
  • Na rotina automática do MATA685 - o parâmetro F12 " Requisita Produto de Origem?" irá respeitar o que estiver configurado na tela do MATA685.
    Se estiver "Sim" na tela do MATA685 irá processar igual a "Sim" na rotina automática.
    Se estiver "Não" na tela do MATA685 irá processar igual a "Não" na rotina automática.