Linha Microsiga Protheus

Árvore de páginas

MTI632UTTP - Alterar o valor da tag UnitTimeType da mensagem ItemScript

Ponto de Entrada

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):

PARAMIXB (Array) -> Informações da operação enviada. O array possui 3 posições.

  • PARAMIXB[1] → Contém o código da operação (SG2.G2_OPERAC);
  • PARAMIXB[2] → Contém o código do recurso (SG2.G2_RECURSO);
  • PARAMIXB[3] → Contém o código do centro de trabalho (SG2.G2_CTRAB).

Ponto de Entrada:

MTI632UTTP - Alterar o valor da tag UnitTimeType da mensagem ItemScript

País(es):

Todos

Idioma:Português(Brasil)

Banco(s) de Dados:

Todos

Tabelas utilizadas:


Sistema(s) operacional(is):

Todos

Versões/Release:

Microsiga_Protheus 12.1.20

Descrição:

Permite que o valor enviado na tag UnitTimeType da mensagem ItemScript seja alterado, antes da mensagem ser enviada.

Localização:

Function MATI632 -> Adapter de roteiro de operações

Programa Fonte:MATI632.prw
Retorno:cTimeType - Tipo de unidade de tempo. Valor que será enviado na tag UnitTimeType. Os valores podem ser: 1->Horas; 2->Minutos; 3->Segundos; 4->Dias
Observações:

Este ponto de entrada é utilizado quando é necessário enviar o tipo de unidade de tempo diferente do valor 1 (Horas).

Por padrão, o sistema sempre irá enviar a tag UnitTimeType com o valor 1 (Horas), e se for necessário tratar o tempo das operações em outra unidade de tempo, este ponto de entrada será utilizado para alterar a unidade de tempo. Os valores que indicam a unidade de tempo são: 1 (Horas), 2 (Minutos), 3 (Segundos) ou 4 (Dias).

Exemplo:
#Include 'Protheus.ch'

User Function MTI632UTTP()
	Local cOperac   := PARAMIXB[1] //Código da operação (SG2.G2_OPERAC)
	Local cRecurso  := PARAMIXB[2] //Código do recurso (SG2.G2_RECURSO)
	Local cCentTrab := PARAMIXB[3] //Código do centro de trabalho (SG2.G2_CTRAB)
	
	Local cTimeType := "1" //Retorno do ponto de entrada. 1->Horas; 2->Minutos; 3->Segundos; 4->Dias
	
	/*
		Exemplo de regra: Se o código da operação for igual a 10, 
		irá enviar a tag UnitTimeType com o valor 2 (Minutos). Caso contrário, envia como 1 (Horas).
	*/
	If AllTrim(cOperac) == "10"
		cTimeType := "2"
	EndIf
	
Return cTimeType