Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 28

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão 29

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Ponto de entrada para atribuição de valores no arquivo .htm utilizado no workflow de transferência de bens via construção civil.

Características do Requisito

...

Descrição:

Ponto de Entrada chamado ao incluir e alterar uma transferência na rotina de Transferência de Bens(MNTA693), após confirmação da tela, que permite customização com adição e/ou mudança de conteúdo de campos, através do arquivo .htm, no WorkFlow de Solicitação de NF para Transferência.

Localização:

SIGAMNT: Atualizações/Construção Civil/Transferência/Transferência de Bens.

Programa Fonte:

MNTA693.prx

Função:

MNT693WF()

Parâmetros:

NomeTipoDescriçãoObrigatório
ParamIXB[1]Objeto

Objeto para manipular o WorkFlow.

Sim
ParamIXB[2]CaractereDefine a rotina de origem que realizara a chamada do P.E.Sim
Retorno:
NomeTipoDescriçãoObrigatório
oProcessObjetoRetorna o Objeto alterado para utilização no envio de WorkFlowSim

Exemplos


Bloco de código
languagesql
titleExemplo do Ponto de Entrada NGTWFPro
linenumberstrue
collapsetrue
#Include 'Totvs.ch'

User Function NGTWFPro()

	Local oProcess := ParamIXB[1]
	Local cOrigin  := ParamIXB[2]
	Local nIndex   := 0

	If cOrigin == 'MNTA693'

		// Valor apresentado na variável strEX1
		oProcess:oHTML:ValByName( 'strEX1', 'WorkFlow Transferência de Veículos via Construção Civil' )

		// Inserido campo centro de custo do registro posicionado da TQ2 na variavel t2l8.strEX2
		aAdd( oProcess:oHTML:ValByName( 't2l8.strCCusto' ), TQ2->TQ2_CCUSTO )

		// Título inserido antes da montagem da tabela.
		oProcess:oHTML:ValByName( 'strEX2', 'Exemplo campos inserdos em tabela' )

		//Inseridos valores de modo dinâmico em tabela html que contém apenas uma linha, baseia-se nos campos dessa linha para inserir outras novas linhas.
		//Abaixo inserem-se 10 linhas com quatro campos.
		For nIndex := 1 To 10

			aAdd( (oProcess:oHTML:ValByName( 't5l1.1') ), cValToChar( nIndex ) + '. Geração de campo em tabela 1' )
			aAdd( (oProcess:oHTML:ValByName( 't5l1.2') ), cValToChar( nIndex ) + '. Geração de campo em tabela 2' )
			aAdd( (oProcess:oHTML:ValByName( 't5l1.3') ), cValToChar( nIndex ) + '. Geração de campo em tabela 3' )
			aAdd( (oProcess:oHTML:ValByName( 't5l1.4') ), cValToChar( nIndex ) + '. Geração de campo em tabela 4' )

		Next nIndex

	EndIf

Return oProcess

...