01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Financeiro
Ponto de EntradaF645LDFJ 

02. DESCRIÇÃO

O ponto de entrada F645LDFJ, desenvolvido na função FA645LoadZ, preenche os campos customizados encontrados na tabela FJZ - Títulos Provisionados.


Tabela posicionada

03. EXEMPLO DE UTILIZAÇÃO


#Include 'totvs.ch'

//Ponto de entrada para preencher campos customizados do Titulo.

user function F645LDFJ() 

Local cCampo 		:= PARAMIXB[1]      //Campo que será preenchido 
Local aColsFJZ      := PARAMIXB[2]      //Array contendo o conteudo do aCols salvo 
Local cRet          := ""               //conteudo de retorno 
Local aArea         := GetArea() //guarda a area 

 /*  
 Conteudo do PARAMIXB[2] 

[1] 

       [1][1]"E1_FILORIG"  

       [1][2]SE1->E1_FILORIG 

[2] 

       [2][1]"E1_PREFIXO" 

       [2][2]SE1->E1_PREFIXO 

[3]  

       [3][1]"E1_NUM" 

       [3][2]SE1->E1_NUM 

[4] 

       [4][1]"E1_PARCELA" 

       [4][2]SE1->E1_PARCELA 

[5] 

       [5][1]"E1_TIPO" 

       [5][2]SE1->E1_TIPO 

 

[6] 

       [6][1]"E1_CLIENTE" 

       [6][2]SE1->E1_CLIENTE 

[7] 

       [7][1]"E1_LOJA" 

       [7][2]SE1->E1_LOJA   

*/ 
If cCampo == "FJZ_XCCUST" //Campo customizado de Centro de custo 

       dbSelectArea("SE1") 

       SE1->(dbSetOrder(1)) //E1_FILIAL+E1_PREDIXO+E1_NUM+E1_PARCELA+E1_TIPO 

        

       If SE1->(dbSeek(aColsFJZ[1][2]+aColsFJZ[2][2]+aColsFJZ[3][2]+aColsFJZ[4][2]+aColsFJZ[5][2])) //Posiciona no titulo. 

             cRet := SE1->E1_CCUSTO 

       EndIf 
EndIf 

RestArea(aArea) 

return cRet  

04. DEMAIS INFORMAÇÕES

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