Histórico da Página

...

Menu	Miscelânea
Submenu	Unimed
Submenu	Importação
Nome da Rotina	PTU A550 Executora
Programa	PLSP550EX
Módulo	Plano de Saúde

06. PONTOS DE ENTRADA

Nome:

PLSR556

Descrição:

Este Ponto de Entrada permite posicionar o registro A550 em casos onde a operadora manipula o nr_Doc_1_A500/nr_Doc_2_A500 exportado no PTU A500.

Localização:

Importação PTU A550 Executora

Programa Fonte:

PLSUA550EX

Função:

P550Proc

Parâmetros:

cNumFat - Carácter - Conteúdo da tag nr_Doc_1_A500

cNumNDC - Carácter - Conteúdo da tag nr_Doc_2_A500

Retorno:

lCritica - Lógico - Caso retorne .T. indica que o registro não foi encontrado e o processo será abortado, caso retorne .F. a rotina irá prosseguir com o BTO posicionado.

Exemplo:

user function PLSR556()
local cNumFat := paramixb[1]
local cNumNDC := paramixb[2]
local cSql := ""
local lCritica := .t.

cSql:= " SELECT BTO.R_E_C_N_O_ Recno FROM " + RetSqlName("NFT") + " NFT "
cSql+= " INNER JOIN " + RetSqlName("BTO") + " BTO "
cSql+= " ON BTO_FILIAL ='"+xFilial("BTO")+"' "
cSql+= " AND BTO_NUMERO = NFT_NUM "
cSql+= " AND BTO.D_E_L_E_T_ = ' ' "
cSql+= " WHERE NFT_FILIAL ='"+xFilial("NFT") + "' "
cSql+= " AND NFT_NUMNF ='"+cNumFat+"' "
cSql+= " AND NFT.D_E_L_E_T_ = ' ' "

dbUseArea(.T.,"TOPCONN",TCGENQRY(,,cSql),"TRBNF",.F.,.T.)

if !TRBNF->(eof())
lCritica := .f.
BTO->(dbgoto(TRBNF->Recno))
endif

TRBNF->(dbclosearea())

return lCritica

HTML

<!-- esconder o menu --> 


<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;
}
</style>

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão 3

Chave

06. PONTOS DE ENTRADA