| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Serviços |
| Módulo: | Financeiro |
| Ponto de Entrada | F645LDFJ |
O ponto de entrada F645LDFJ, desenvolvido na função FA645LoadZ, preenche os campos customizados encontrados na tabela FJZ - Títulos Provisionados.
Tabela posicionada
#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 |
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>
|