Histórico da Página
PONTO DE ENTRADA PARA ATRIBUIÇÃO DE VALORES NO ARQUIVO .HTM DE WORKFLOW DE TRANSFERÊNCIA DE BENS (MNTA693)
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ísesPaís(es): | Todos. | |||||||||||
Banco(s) de Dados: | Todos. | |||||||||||
Sistema(s) Operacional(is)Sistemas Operacionais: | Todos. | |||||||||||
Observação |
|
Ponto de Entrada
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: |
|
|
|
| |||||||
Retorno: |
|
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function MNTA6931NGTWFPro() Local oProcess := ParamIXB[1] // objeto oProcess Local cOrigin := ParamIXB[2] Local nI := 0 If cOrigin == 'MNTA693' //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 variavel t2l8.strEX2 aAdd( oProcess:oHTML:ValByName( 't2l8.strEX2' ), TQ2->TQ2_CCUSTO ) //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 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 EndIf Return oProcess |