Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Financeiro
Função:FINA645 - Provis Dev Duvidos

02. DESCRIÇÃO

O ponto de entrada F645LDFW, desenvolvido na função FA645LoadW, preenche os campos customizados encontrados na tabela FWZ - Rateio NF PDD.


Tabela posicionada

  • FJZ - FWZ - Rateio NF PDD

03. PARÂMETROS      

Nome

Tipo

Descrição

PARAMIXB[1]CaracterCampo que o sistema está realizando a carga da informação.
PARAMIXB[1]ArrayDados referentes a tabela SD2.

04. RETORNO

Tipo

Descrição

Variável

Retorna o valor conforme campo customizado a ser preenchido.

05. EXEMPLO DE UTILIZAÇÃO


F645LDFW()
#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