Tratamento JALLIB : Planificação

SCDRMNTIM : Tomada em conta dos tempos restantes

Este ponto de entrada permite intervir os tempos restantes tomados em conta na planificação (regulação e operatória).

Contexto e modo de funcionamento.

A leitura de cada operação no quadro da planificação.

Classes ficheiros e ecrãs disponíveis

As classes MFO, SCH, MFG e ITF estão em linha.

Utilização

Este ponto de entrada foi concebido para permitir intervir sobre os tempos restantes de cada operação.

O código é o seguinte :

#---------

# PE para modificar os tempos restantes

# PE se GPE = 1

GPE = 0

GPOINT = "SCDRMNTIM"

Gosub ENTREE From EXEFNC

#---------

If !GPE

WSETTIM( I)= [F:MFO]EXTSETTIM - [F:MFO]CPLSETTIM

WOPETIM( I)= [F:MFO]EXTOPETIM - [F:MFO]CPLOPETIM

WOPTTIM( I)= WSETTIM(I) + WOPETIM(I)

‏Endif

As variáveis WSETTIM( I) , WOPETIM(I) et WOPTTIM(I) podem ser alimentadas pelo ponto de entrada em substituição de alimentação standard (GPE=1).

Tabelas abertas

No quadro a seguir, a flag conteúdo significativo significa que o conteúdo está em fase com o contexto (...).

MATUPDDIS : Desativação atualização das matérias

Este ponto de entrada permite desativar a atualização das datas de necessidade matérias no momento da planificação.

Contexto e modo de funcionamento.

Antes a atualização da ordem de fabrico seguinte os resultados da planificação.

Classes ficheiros e ecrãs disponíveis

A classe MFG está em linha.

Utilização

Este ponto de entrada foi concebido para permitir desativar a atualização das matérias (datas necessidade) no quadro da planificação.

Para proceder a esta desativação, posicionar a valiável global GPE ao valor 1.

A partir da V6.5: três variáveis para evitar a atualização das datas em resultado de planificação

• WNO_UPDMAT está afetado com o resultado de GPE para assinalar "sem maj das datas sobre os componentes/sub-produtos"
• WNO_UPDOPE pode ser afetada a 1 para assinalar "sem maj das datas sobre as operações"
• WNO_UPDWOF pode ser afetado a 1 para assinalar "sem maj das datas sobre a OF/artigos lançados"

ATENÇÃO No entanto a testar depois qual função se desencadeia este PE para não desinibir todos os casos de planificação. Para conhecer o contexto (função chamadora), testar a variável global GFONCTION.

Tabelas abertas

No quadro a seguir, a flag conteúdo significativo significa que o conteúdo está em fase com o contexto (...).

INITSCD : Inicialização planificação

Este ponto de entrada permite inicializar certas variáveis de planificação, particularmente a dimensão do quadro de cálculo que limite a duração máxima de um fabrico.

Contexto e modo de funcionamento.

Este ponto de entrada está chamado na entrada no sub-programa de planificação.

Classes ficheiros e ecrãs disponíveis

A classe JALK está em linha.

Utilização 1

Este ponto de entrada foi concebido para permitir modificar a dimensão de horizonte de cálulo da planificação.

Este horizonte está exprimido pela variável inteira OFFSETCAL (inicializada por defeito a 200). Esta margem limita a duração máxima de um fabrico. Para além deste limite as operações não são mais planificadas.

Via este ponto de entrada, a margem pode ser estendida afim de tratar destes casos particulares de fabrico longo.

Utilização 2

Os tempos de preparação e pós operatório não tem em conta em standard das capacidades do posto.
Acréscimo de 3 variáveis para poder ativar um cálculo função da capacidade do posto.
WPRPCODCAP,WPSPCODCAP,WWAICODCAP a 0 por defeito, passar a 1 no PE INITSCD para utilizar as capacidades.

ENDSCD : Fim planificação

Este ponto de entrada permite intervir no fim da planificação das OF planificadas e firmes justo após a atualização das tabelas.

Contexto e modo de funcionamento.

Este ponto de entrada está chamado após a atualização das tabelas no sub-programa de planificação.  

Classes ficheiros e ecrãs disponíveis

A classe JALK está em linha.

Utilização

Este ponto de entrada foi concebido para intervir em fim de funcionamento.

Está posicionado justo antes a atualização tabelas e antes instrução "commit".

INIT_JAL : Inicialização planificação

Este ponto de entrada permite intervir sobre o conjunto das operações carregadas em memória antes o cálculo da planificação afim de intervir sobre estes valores.

Contexto e modo de funcionamento.

Trata-se aqui de intervir sobre a lista das operações carregadas em memória.

As variáveis disponíveis para cada operação são :

Local Shortint WOPENUM (NBOPMX)           : # numero oper
Local Shortint WOPESPLNUM (NBOPMX)        : # fract. oper
Local Char    WWST    (GLONWST) (NBOPMX)  : # posto
Local Char    WLAB    (GLONWST) (NBOPMX)  : # mão-de-obra
Local Decimal WSETLABC(NBOPMX)            : # coef pagamento MO
Local Decimal WOPELABC(NBOPMX)            : # coef oper MO
Local Decimal WOPELABC(NBOPMX)            : # estado operação
Local Date  WOPESTR (NBOPMX)          : # data início
Local Date  WOPESTR (NBOPMX)          : # data fim
Local Integer WWSTN   (NBOPMX)            : # nº de postos
Local Integer WLABN   (NBOPMX)            : # nº de pessoas
Local Integer WPRPTIM (NBOPMX)            : # tempos preparação
Local Decimal WSETTIM (NBOPMX)            : #tempos pagamento para 1 ex
Local Decimal WOPETIM (NBOPMX)      : # tempos operatórios para 1 ex
Local Decimal WWAITIM (NBOPMX)            : # tempo espera
Local Decimal WPSPTIM (NBOPMX)            : # tempos pós oper
Local Decimal WQTY (NBOPMX)              : # quantidade restante
Local Date WFRCSTRD (NBOPMX)        : # data início forçado
Local Decimal  WFRCSTRH (NBOPMX)       : # Hora data forçada
Local Char    WFRCHOU(5)(NBOPMX)            # Hora forçada ao formato hh:mm          
Local Decimal WFRCSTRF(NBOPMX)          : # Fração de dia início forçado
Local Integer WFRCFLG (NBOPMX)            : # Flag oper início forçado
Local Decimal WWSTTYP (NBOPMX)       : # código sub-contrato
Local Decimal WSCOLTI (NBOPMX)            : # atraso sub-contrato
Local CharWWIPNUM (GLONVCR)(NBOPMX)   : # nº em curso sub contrato
Local CharWSCOITMREF(GLONITM)(NBOPMX) : # artigo sub-contrato
Local Decimal WSCDCOD (NBOPMX)            : # cód planif.
Local Integer WNEXOPEN (NBOPMX)           : # nº op seguinte
Local Integer WNEXSPLN (NBOPMX)           : # fract. op seguinte (criado em PG)
Local Integer WOPERG (NBOPMX)             : # fila op.
Local Integer WOPETRT (NBOPMX)            : # op. trat. em classificação
Local Decimal WSCDPCT (NBOPMX)            : # % chev

Utilização

Exemplo de código para substituir o atraso de compra art. serviço de sub-contrato pelo atraso artigo/estabelecimento :

$ACTION

Case ACTION

      When "INIT_JAL" : Gosub INIT_JAL

Endcase

Return

$INIT_JAL

For I = 0 To NBOP-1

   If WWSTTYP(I) = 3

       Read [ITF]ITF0=WSCOITMREF(I);WMFGFCY

       If !fstat : WSCOLTI(I)= [F:ITF]OFS : Endif

‏Endif

Next I

Return