#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 

EndIf 

RestArea(aArea)

return cRet

<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>