Duda
¿Cuál es la funcionalidad del punto de entrada F645LDFJ en la rutina FINA645?
Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Financiero (SIGAFIN) - Todas las versiones 12
Pais: Todos
Solución
El punto de entrada F645LDFJ , desarrollado en la función FA645LoadZ , completa los campos personalizados que se encuentran en la tabla Valores aprovisionados FJZ .
Ejemplo
#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
EndIfRestArea(aArea)return cRet
0 Comentarios