Exibir origem

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.

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.

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

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>