Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:TOTVS Backoffice (Linha Protheus)
Segmento:Serviços
Módulo:Financeiro

02. DESCRIÇÃO

Ponto de entrada que possibilita o retorno das datas e valores do pedido de vendas para o  Fluxo de Caixa - FINC021.
É executado uma vez a cada pedido de vendas.
Caso o retorno for vazio, será tratado conforme o padrão.

03. EXEMPLO DE UTILIZAÇÃO


Exemplo
#include 'Protheus.ch'

/*
    É chamado apenas 1 vez por pedido
    O tratamento do padrão sem Ponto de Entrada compilado considera todos os itens data de entrega C6_ENTREG de cada item. Proporcionaliza frete, despesa e seguro.
*/
User Function FC020VDC()

Local cPedido   := PARAMIXB[1]      // C6_NUM
Local aVenc     := {} 
Local nValTot   := 0
Local dData     := Date()
Local aArea     := GetArea()
Local aAreaSC6  := SC6->(GetArea())

DbSelectArea("SC6")
SC6->(DbSetOrder(1))
SC6->(DbSeek( SC5->C5_FILIAL + SC5->C5_NUM ))
While SC6->(!EOF()) .AND. SC5->C5_FILIAL == SC6->C6_FILIAL .AND. SC5->C5_NUM == SC6->C6_NUM 

    dData := SC6->C6_ENTREG
    nValTot += SC6->C6_VALOR

    SC6->(DbSkip())
    
EndDo

aVenc := Condicao(nValTot,SC5->C5_CONDPAG,,dData)

RestArea(aAreaSC6)
RestArea(aArea)

Return aVenc

04. DEMAIS INFORMAÇÕES

Não há

05. ASSUNTOS RELACIONADOS

        https://tdn.totvs.com/x/3aNc