DMANNEWPCP-8748 DT Permitir integração de OP com TOTVS MES em rotina customizada

01. DADOS GERAIS

Produto:	TOTVS Manufatura
Linha de Produto:	Linha Protheus
Segmento:	Manufatura
Módulo:	TOTVS Manufatura (Linha Protheus) - Planejamento e controle da produção (SIGAPCP)
Função:	MATA650
País:	Brasil
Ticket:	Não se aplica.
Issue:	DMANNEWPCP-8748

02. SITUAÇÃO/REQUISITO

Não é possível executar a integração de ordens de produção com o TOTVS MES a partir de customizações.

03. SOLUÇÃO

Foi realizada alteração na função de integração de ordens de produção com o TOTVS MÊS para permitir a integração direta em customizações.

04. DEMAIS INFORMAÇÕES

A função disponibilizada para executar a integração de ordens de produção com o TOTVS MES a partir de processos customizados é a MATA650PPI.

Para utilizar esta função, o registro da tabela SC2 deve estar posicionado antes de executar a função. Devem ser enviados os parâmetros conforme tabela a seguir.

Parâmetro	Tipo	Descrição	Obrigatório
cXml	Caracter	Utilizado quando o XML já foi gerado e é necessário apenas enviar a mensagem sem gerar novo XML. Se este parâmetro não for enviado, o XML será criado utilizando os dados do registro da tabela SC2 que estiver posicionado. É recomendado enviar este parâmetro sempre em branco para que o arquivo seja gerado conforme a integração padrão.	Não.
cOp	Caracter	Número da ordem de produção. Este parâmetro deve ser enviado somente quando o parâmetro cXml for enviado. Caso o parâmetro cXml seja enviado, este parâmetro obrigatoriamente deve ser enviado.	Não.
lTable	Lógico	Indica que serão considerados os dados da tabela SC2 que está posicionada ou se serão utilizados dados do ponteiro de memória. Valor .T. - Considera os dados da tabela SC2, conforme registro posicionado. Valor .F. - Considera os dados da OP que estiverem presentes no ponteiro de memória (M->). Se utilizado o valor .F., antes de executar a função de integração deve ser criado o ponteiro de memória com os dados desejados para utilizar na integração.	Sim
lPendAut	Lógico	Parâmetro de utilização interna. Sempre deve ser enviado com valor .T.	Sim
lExclusao	Lógico	Indica que está executando a integração de Exclusão de ordem de produção. Valor .T. - Irá integrar a OP utilizando a operação de Exclusão. Para a correta execução da operação de Exclusão, a função deve ser executada antes de realizar a exclusão do registro da tabela SC2. Valor .F. = Irá integrar a OP utilizando a operação de atualização (inclusão ou alteração).	Sim
lFiltra	Lógico	Indica se o processo de integração irá considerar os filtros definidos para a ordem de produção na rotina PCPA109. Valor .T. - Aplica os filtros definidos na parametrização da integração, e somente integra o registro se a OP atender aos filtros definidos. Valor .F. - Não aplica os filtros definidos na parametrização da integração, e irá executar a integração do registro.	Sim
lInCustom	Lógico	Indica a execução de processo customizado. Obrigatório a utilização deste parâmetro com valor .T.	Sim

Exemplo para executar a função.

Exemplo para integração de exclusão de OP

//Primeiro posiciono na ordem de produção que desejo integrar.
SC2->(dbSetOrder(1))
If SC2->(dbSeek(xFilial("SC2") + "01205501001   "))
	//Agora executo a função de integração enviando o parâmetro de Exclusão.
	If mata650PPI(Nil, Nil, .T., .T., .T., .T., .T.)
		Conout("Integrado com sucesso")
	Else
		Conout("Falha na integracao, verificar pendencias")
	EndIf

	//Exclusão do registro deve ser feita após a execução da função de integração.
	SC2->(dbDelete())

EndIf

Exemplo para integração de atualização de OP

//Primeiro posiciono na ordem de produção que desejo integrar.
SC2->(dbSetOrder(1))
If SC2->(dbSeek(xFilial("SC2") + "01205501001   "))
	//Agora executo a função de integração enviando o parâmetro de Exclusão com valor .F.
	If mata650PPI(Nil, Nil, .T., .T., .F., .T., .T.)
		Conout("Integrado com sucesso")
	Else
		Conout("Falha na integracao, verificar pendencias")
	EndIf

EndIf

05. ASSUNTOS RELACIONADOS

Não se aplica.

Árvore de páginas