Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Função: MATA380 - Ajuste de Empenhos

Abrangências:	Microsiga Protheus 11 , Protheus 10
Versões:	Protheus

...

11
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:

...

Português (Brasil)

Descrição:

Esta

...

rotina

...

possui

...

a

...

finalidade

...

de

...

ajustar

...

os

...

empenhos

...

de

...

produtos

...

solicitados

...

nas

...

OPs.

...

Os empenhos devem ser ajustados sempre 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 seu aproveitamento 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 de uma peça, porém, na prática, para revestir a peça é utilizada quase toda a lata, mas, sempre sobra 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, é 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

Programa Fonte:

MATA380.PRX

...

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

Retorno:

Nulo()

Parâmetros:

NOME

TIPO

DESCRIÇÃO

OBRIGATÓRIO

aVetor

Array of records

Array com os campos da tabela SD4 para execução do ajuste.

X

nOpc

numérico

Número da opção a executar

3 = Incluir

4 = Alterar

5 = Excluir

X

aEmpen

Array of records

Array com quantidade, localização (endereço) e número de série

Número da opção a executar.1 = Pesquisar2 = Visualizar3 = Incluir4 = Alterar5 = Excluir


	MostraErro()
EndIf

Return

Bloco de código

theme	Midnight
language	delphi
title	Exemplo

#INCLUDE "PROTHEUS.CH"
#include

Nulo

()

Exemplos include

 "rwmake.ch"
#include "TbiConn.ch"

User Function

MyMata380

auto380()

Local aVetor := {}
Local aEmpen := {}
Local nOpc   := 3 //Inclusao

PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01"

// InclusãolMsErroAuto

MODULO "EST"

lMsErroAuto := .F.

aVetor:={

	{"D4_COD"     ,"

PROD001

PROD113        ",Nil},; //COM O TAMANHO EXATO DO CAMPO


			{"D4_LOCAL"   ,"

00

01"

,Nil},;


			{"D4_OP"

,"00000101001"

    ,"00005201001  "  ,Nil},;


			{"D4_DATA"    ,dDatabase        ,Nil},;


			{"D4_QTDEORI" ,

10

,Nil},;
			{"D4_QUANT"   ,30

,Nil},;
			{"D4_

QUANT

TRT"

,10

    ,"   "            ,Nil},;
			{"D4_QTSEGUM" ,0

{"D4_TRT",""

      ,Nil}}
			
AADD(aEmpen,{	30				   ,

Nil},

; 	// SD4->D4_QUANT
				"END01

{

D4_QTSEGUM"

0

;  // DC_LOCALIZ
				""				   ,;  // DC_NUMSERI
				0				   ,;

,Nil}}

// D4_QTSEGUM
				.F.}) 

MSExecAuto({|x,y,z| mata380(x,y,z)},aVetor,nOpc,aEmpen)

//InclusaoIf lMsErroAuto

 

If lMsErroAuto
	Alert("Erro")

MostraErro()Else Alert("Ok")EndifReturn Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

aVetor

Array of Record

Array com os campos da tabela SD4 para execução do ajuste.

nOpc

Array of Record

Home

Linha Microsiga Protheus

Páginas filhas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave