Histórico da Página

...

Descrição:

Ponto de Entrada chamado na rotina de Transferência de Bens(MNTA693), para atribuir valores em variáveis do arquivo .htm de WorkFlow.

Localização:

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

Programa Fonte:

MNTA693.prx

Função:

MNTA6931()

Parâmetros:

Nome	Tipo	Pode Alterar	Descrição
oProcess	Objeto TWFProcess	Sim	Objeto para manipular o WorkFlow.

Retorno:

Nome	Tipo	Descrição	Obrigatório
oProcess	Objeto TWFProcess	Retorna o Objeto alterado para utilização no envio de WorkFlow	Sim

Observação

É necessário ter o arquivo MNTW693.htm no diretório de WorkFlow no servidor e ter editado esse arquivo de forma que as variáveis sejam posicionada nas estruturas desejadas.

Para variáveis fora de tabelas não se utiliza '.' em seu nome.

Para variáveis dentro de tabelas se referencia a linha em que se encontra, se adiciona '.' e se referencia o campo (favor verificar exemplo).

Bloco de código

language	xml
title	Exemplo do Ponto de Entrada MNT6931	Arquivo mntw693.htm

<html>

	<head>
		<title>%strTitulo%</title>
	</head>

	<body bgcolor="#FFFFFF">

		<p><b><font face="Arial">%strTitulo%</font></b></p>
		</u>
		<p><b><font face="Arial">%strEX1%</font></b></p>
		</u>

		<table border=0 WIDTH=655 cellpadding="1">

			<tr>
				<td bgcolor="#FFFFFF" align="left" width="157"><font face="Arial" size="2">%t1l1.strSubTitulo%</font></td>
			</tr>

		</table>

		<br>
		<b><font face="Arial" size="2">Origem</font></b>
		<br><br>

		<table border=0 WIDTH=655 cellpadding="1">

			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157"><b><font face="Arial" size="2">Num. ME.</font></b></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t2l1.strNUMME%</font></td>
			</tr>
			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157"><b><font face="Arial" size="2">Empresa</font></b></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t2l2.strEMPORI%</font></td>
			</tr>
			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157"><b><font face="Arial" size="2">Filial</font></b></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t2l3.strFILORI%</font></td>
			</tr>
			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157"><b><font face="Arial" size="2">Equipamento</font></b></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t2l4.strCODBEM%</font></td>
			</tr>
			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157"><b><font face="Arial" size="2">Nº Série</font></b></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t2l5.strSERIE%</font></td>
			</tr>
			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157"><b><font face="Arial" size="2">Data</font></b></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t2l6.strDATATR%</font></td>
			</tr>
			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157"><b><font face="Arial" size="2">Hora</font></b></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t2l7.strHORATR%</font></td>
			</tr>
			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157"><b><font face="Arial" size="2">Teste</font></b></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t2l8.strEX2%</font></td>
			</tr>

		</table>

		<br>
		<b><font face="Arial" size="2">Destino</font></b>
		<br><br>

		<table border=0 WIDTH=655 cellpadding="1">

			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157"><b><font face="Arial" size="2">Empresa</font></b></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t3l1.strEMPDES%</font></td>
			</tr>
			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157"><b><font face="Arial" size="2">Filial</font></b></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t3l2.strFILDES%</font></td>
			</tr>
			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157"><b><font face="Arial" size="2">Observação</font></b></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t3l3.strMOTTRA%</font></td>
			</tr>

		</table>

		<table border=0 WIDTH=655 cellpadding="1">

			<tr>
				<td bgcolor="#EEEEEE" align="left" width="157" colspan="4"><b><font face="Arial" size="2">Exemplo campos inserdos em tabela</font></b></td>
			</tr>
			<tr>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t4l1.1%</font></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t4l1.2%</font></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t4l1.3%</font></td>
				<td bgcolor="#EEEEEE" align="left" width="420"><font face="Arial" size="1">%t4l1.4%</font></td>
			</tr>

		</table>

	</body>

</html>

Arquivo mntw693.htm

Bloco de código

title	Exemplo do Ponto de Entrada MNT6931

User Function MNTA6931()

	Local oProcess := ParamIXB[1] // objeto oProcess
	Local nI

	// inserindo o valor 'Campo fora de tabela' na variavel strEX1
	oProcess:oHTML:ValByName( 'strEX1', 'Campo fora de tabela' )

	// inserindo o valor 'Campo dentro de tabela' na variavel t2l8.strEX2 ( deve sempre estar referenciada a tabela se for campo em tabela )
	aAdd( oProcess:oHTML:ValByName( 't2l8.strEX2' ), 'Campo dentro de tabela' )

	// inserindo valores de modo dinâmico em tabela que contem apenas uma linha, baseia-se nos campos dessa linha para inserir outras novas linhas.
	// no exempo se inserem 10 linhas com quatro campos.
	For nI := 1 To 10

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

	Next

Return oProcess

#Include 'Protheus.ch'

User Function MNT655D3CC()

    Local lRet := .T.
    
    //Parâmetros
	cTipo		:= PARAMIXB[1] // requisição ou devolução
	cVeic		:= PARAMIXB[2] // Código do Veículo/Bem
	cCCust	:= PARAMIXB[3] // Código de Centro de Custo
	cFilTQF	:= PARAMIXB[4] // Código da filial do Posto
	
	If IsInCallStack( "MNTA655" )
	    nRecno	:= PARAMIXB[5] // Último registro
	   	dbSelectArea("SD3")
	    dbGoTo(nRecno)
	    RecLock("SD3",.F.)
	    SD3->D3_EMISSAO := dDataBase
	    MsUnlock("SD3")
	EndIf

Return lRet

Bloco de código

language

xml

title

INSERÇÃO DE VALORES NO ARQUIVO .HTM DE WORKFLOW DE TRANSFERÊNCIA DE BENS (MNTA693)

...

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave