Home

Linha Microsiga Protheus

Páginas filhas
  • MATA380 - Ajuste de Empenhos

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
MATA380 - Ajuste de Empenhos
MATA380 - Ajuste de Empenhos

Função: MATA380 - Ajuste de Empenhos
Abrangências: Microsiga Protheus 11 , Protheus 10
Versões: Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Espanhol , Inglês
Descrição:
Esta rotina possui a finalidade de ajustar os empenhos de produtos solicitados nas OPs. Deve-se ajustar empenhos, toda vez que houver diferenças entre o material que foi empenhado para uma determinada ordem de produção e a quantidade realmente utilizada para a execução desta ordem, ou substituição de um componente por outro antes da produção.Essas diferenças podem ocorrer, por exemplo, devido ao índice de perda de material utilizado ou aproveitamento do mesmo na fabricação do produto final. O sistema considera o índice de perda informado no Cadastro de Estruturas para realizar os cálculos das quantidades a serem empenhadas.Exemplo:Uma empresa utiliza uma lata de tinta no acabamento a uma peça. Porém, na prática para revestir a peça é utilizada quase toda a lata mas sempre sobra alguma tinta (uma quantidade muito pequena para ser mensurada). Em média a cada 150 peças fabricadas utilizam-se 149 latas de tinta. Sendo assim quando essa quantidade (150 peças) for atingida será necessário ajustar o empenho retirando uma lata da quantidade empenhada. Em Ajuste de Empenho é possível efetuar:• Inclusão de Ajuste de Empenho • Alteração de Ajuste de Empenho • Exclusão de Ajuste de Empenho 
Programa Fonte:
MATA380.PRX
Sintaxe:

MATA380 - Ajuste de Empenhos ( [ aVetor ] [ nOpc ] ) --> Nulo

Retorno:
    Nulo()
Exemplos
include "rwmake.ch"User Function MyMata380()Local aVetor := {}Local nOpc   := 3     // InclusãolMsErroAuto := .F.aVetor:={ {"D4_COD" ,"PROD001 ",Nil},; //COM O TAMANHO EXATO DO CAMPO          {"D4_LOCAL" ,"00"                 ,Nil},;            {"D4_OP" ,"00000101001"        ,Nil},;            {"D4_DATA" ,dDatabase        ,Nil},;            {"D4_QTDEORI",10                 ,Nil},;                          {"D4_QUANT" ,10                 ,Nil},;           {"D4_TRT",""         ,Nil},;            {"D4_QTSEGUM",0                 ,Nil}}MSExecAuto({|x,y| mata380(x,y)},aVetor,nOpc) //InclusaoIf lMsErroAuto         Alert("Erro")        MostraErro()Else        Alert("Ok")EndifReturn
Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
aVetorArray of RecordArray com os campos da tabela SD4 para execução do ajuste.
nOpcArray of RecordNúmero da opção a executar.1 = Pesquisar2 = Visualizar3 = Incluir4 = Alterar5 = Excluir