Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
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
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 |
Bloco de código | |||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
| |||||||||||
#INCLUDE "PROTHEUS.CH"
#include
"rwmake.ch" #include "TbiConn.ch" User FunctionMyMata380 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 30 ,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 | Número da opção a executar.1 = Pesquisar2 = Visualizar3 = Incluir4 = Alterar5 = Excluir