Duda
¿Cuál es la funcionalidad del punto de entrada F645LDFW 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 F645LDFW, desarrollado en la función FA645LoadW , completa los campos personalizados que se encuentran en la tabla de prorrateo FWZ - Rateio NF PDD.
Ejemplo
#Include 'Protheus.ch'
//Ponto de entrada para preencher campos customizados do rateio.user function F645LDFW()Local cCampo := PARAMIXB[1] //Campo que será preenchido
Local aColsFWZ := PARAMIXB[2] //Array contendo o conteudo do aCols salvo
Local cRet := ""
Local aArea := GetArea() //guarda a area
/* Conteudo do PARAMIXB[2]
[1]
[1][1]"D2_DOC"
[1][2]SD2->D2_DOC
[2] [2][1]"D2_SERIE"
[2][2]SD2->D2_SERIE
[3] [3][1]"D2_ITEM"
[3][2]SD2->D2_ITEM
[4] [4][1]"D2_COD"
[4][2]SD2->D2_COD
[5]
[5][1]"D2_FILIAL"
[5][2]SD2->D2_FILIAL
*/If cCampo == "FWZ_XCCUST"
dbSelectArea("SD2")
SD2->(dbSetOrder(3)) //D2_FILIAL+D2_DOC+D2_SERIE
If SD2->(dbSeek(aColsFWZ[5][2]+aColsFWZ[1][2]+aColsFWZ[2][2])) //Posiciona na NF
dbSelectArea("SC6")
SC6->(dbSetOrder(1))//C6_FILIAL+C6_NUM+C6_ITEM+C6_PRODUTO
If SC6->(dbSeek(xFilial("SC6")+SD2->D2_PEDIDO+SD2->D2_ITEMPV)) //Posiciona no Pedido de venda
cRet := SC6->C6_CCUSTO
EndIf
EndIf
EndIfRestArea(aArea)return cRet
0 Comentarios