Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Gestão Ambiental

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

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.


Descrição das variáveis:

  • cNum: Numero que será retornado;
  • cAlias: Tabela Atual;
  • cCpoSx8: Nome do campo que receberá o numero do código;
  • cAliasSx8: Tabela da filial atual;
  • nOrdSx8: Ordem que será utilizada para pesquisa no SGBD;
  • cUsa: Tabela que será usada.


Exemplo
#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á.