Histórico da Página
01. DADOS GERAIS
Produto: |
| ||||||||
---|---|---|---|---|---|---|---|---|---|
Linha de Produto: |
| ||||||||
Segmento: |
| ||||||||
Módulo: | Gestão ambiental (SIGASGA) | ||||||||
Função: | Ocorrência do Plano emergencial (SGAA340) | ||||||||
Ticket: | 12956247 | ||||||||
issue: | DNG-15157 |
02. SITUAÇÃO/REQUISITO
Adição de Ponto de Entrada na rotina na tela de Ocorrência do Plano emergencial (SGAA340), para corrigir lacunas geradas pelo GetSxeNum, após o cancelamento e inclusão na rotina de Ocorrência do Plano emergencial (SGAA340).
03. SOLUÇÃO
Criado o ponto de entrada SGAA5301 para permitir a correção das lacunas geradas na rotina de Ocorrência de Plano Emergencial. Abaixo um exemplo de utilização.
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#include "protheus.ch" user function CRIASXE() Local cNum := NIL Local aArea := getarea() Local aArea2 := {} Local cAlias := paramixb[1] Local cCpoSx8 := paramixb[2] Local cAliasSx8 := paramixb[3] Local nOrdSX8 := paramixb[4] Local cUsa := "TBV" // colocar os alias que irão permitir a execução do P.E. if cAlias $ cUsa .and. ! ( Empty(cAlias) .and. empty(cCpoSx8) .and. empty(cAliasSx8) ) qout(cAlias + "-" + cCpoSx8 + "-" + cAliasSx8 + "-" + str(nOrdSX8)) dbselectarea(cAlias) aArea2 := getarea() dbsetorder(nOrdSX8) dbseek(xfilial()+"Z") dbskip(-1) cNum := &(cCpoSx8) cnum := soma1(cNum) // fazer o tratamento aqui para a numeracao MsgGet2( "Indique o numero correto para a tabela:" + calias, "Campo:"+cCposx8, @cNum, , , ) restarea(aArea2) restarea(aArea) EndIf return cNum |
04. DEMAIS INFORMAÇÕES
Não há.
05. ASSUNTOS RELACIONADOS
Não há.
Templatedocumentos |
---|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas