Histórico da Página
Ponto de entrada para atribuição de valores no arquivo .htm utilizado
...
nos workflows.
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||||||||
Segmento: | Manufatura. | ||||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas. | ||||||||||
Rotina: |
| ||||||||||
Países: | Todos. | ||||||||||
Bancos de Dados: | Todos. | ||||||||||
Sistemas Operacionais: | Todos. | ||||||||||
Importante: |
|
...
Descrição: | Ponto de Entrada chamado ao incluir ou alterar uma transferência na rotina de Transferência de Bens(MNTA693), após a confirmação da tela, acionar o processo de envio de workflow, 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: | MNTA693NGUTIL.prx | ||||||||||||
Função: | MNT693WFNGTWFProcB() | ||||||||||||
Parâmetros: |
| ||||||||||||
Retorno: |
| ||||||||||||
Importante: | Para utilização do exemplo do Ponto de Entrada abaixo é imprescindível que se utilize deste arquivo mntw693.htm. |
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include 'TotvsPROTHEUS.chCH' User Function NGTWFPro() Local oProcess := ParamIXB[1] Local cOrigin := ParamIXB[2] Local nIndex := 0 If cOrigin == 'MNTA693' // Valor apresentado //Valor 'WorkFlow Transferência de Veículos via Construção Civil' 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 variávelvariavel t2l8.strEX2 aAdd( oProcess:oHTML:ValByName( 't2l8.strCCusto' ), TQ2->TQ2_CCUSTO ) // Títulotitulo inserido antes da montagem da tabela. oProcess:oHTML:ValByName( 'strEX2', 'Exemplo campos inseridosinserdos 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 ElseIf cOrigin == 'MNTW040' aAdd( oProcess:oHTML:ValByName( 'head1.strRamal' ), 'Ramal' ) aAdd( oProcess:oHTML:ValByName( 'col1.strRamal' ), TQB->TQB_RAMAL ) dbSelectArea( 'ST9' ) Next nIndex dbSetOrder( 1 ) dbSeek( xFilial( 'ST9' ) + TQB->TQB_CODBEM ) aAdd( oProcess:oHTML:ValByName( 'head2.strCcusto' ), 'Centro de Custos' ) aAdd( oProcess:oHTML:ValByName( 'head2.strCtrab' ), 'Centro de Trabalho' ) aAdd( oProcess:oHTML:ValByName( 'col2.strCcusto' ), ST9->T9_CCUSTO ) aAdd( oProcess:oHTML:ValByName( 'col2.strCtrab' ), ST9->T9_CENTRAB ) EndIf Return oProcess |