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: |
| ||||||||
Retorno: |
| ||||||||
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 | |||||
---|---|---|---|---|---|
| |||||
<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> |
Bloco de código | ||
---|---|---|
| ||
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 | Arquivo mntw693.htm
INSERÇÃO DE VALORES NO ARQUIVO .HTM DE WORKFLOW DE TRANSFERÊNCIA DE BENS (MNTA693)
...