Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:BackOffice / Serviços
Módulo:Financeiro
Função:FINA665
Requisito/Story/Issue (informe o requisito relacionado) :DSERFINP-29423


02. DESCRIÇÃO

A finalidade do ponto de entrada F665INC é validar a inclusão de uma nova viagem via integração Protheus x Reserve.

03. EXEMPLO DE UTILIZAÇÃO


F665INC
#INCLUDE "PROTHEUS.CH"
 
User Function F665INC()

Local nOper    := PARAMIXB[1]
Local lNovoReg := .F.
 
If nOper == 4//Alteraçao
    DbSelectArea("FLD")
    FLD->(DbSetOrder(1))//FLD_FILIAL+FLD_VIAGEM+FLD_PARTIC+FLD_ADIANT
    If FLD->(DbSeek(xFilial("FLD")+FL5->FL5_VIAGEM))
        DbSelectArea("SE2")
        SE2->(DbSetOrder(1))//E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+E2_FORNECE+E2_LOJA
        If SE2->(DbSeek(xFilial("SE2")+FLD->(FLD_PREFIX+FLD_TITULO+FLD_PARCEL+FLD_TIPO+FLD_FORNEC+FLD_LOJA)))
            If !Empty(SE2->E2_NUMBOR) .Or. !Empty(SE2->E2_BAIXA)

                nOper := 3  //Inclusao

                lNovoReg := .T.
            EndIf 
        EndIf
    EndIf
EndIf

Return lNovoReg

Parâmetros Recebidos

Tipo

Descrição

PARAMIXB[1]NNúmero que corresponde a operação corrente: 3 - Inclusão, 4 - Alteração, 5 - Exclusão e 0 - Nenhuma operação válida foi atribuída.

Retorno

Tipo

Descrição

lNovoRegLValida e determina se uma nova viagem será criada no processamento, caso o retorno for positivo (.T.), será definida a operação corrente como INCLUSÃO (3).

04. DEMAIS INFORMAÇÕES

Não há.


05. ASSUNTOS RELACIONADOS

         Não há.