Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Alberto Jose

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Francisco do Carmo de Oliveira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de Entrada: F645QYABT - Tratamento de datas para seleção de títulos no abatimento

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços.

Módulo:

Financeiro

Rotina:

Rotina

Nome Técnico

FINA645

Provisão de PDD

Ponto de Entrada:

F645QYABT

Chamados Relacionados

PCDEF-102385

Requisito (ISSUE):PCREQ-7787 

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

Todos

Sistema(s) Operacional(is):

Todos

Versões/Release:12.1.23

Descrição

Ponto de entrada para tratamento de datas de seleção de títulos no abatimento, vencidos apos atrasoapós atraso, somente os vencidos e todos os titulos.


Ponto de Entrada

Descrição:

Condição da Query do cliente

Localização:

Miscelâneas / Contábil

Eventos:

Provisão de PDD

Programa Fonte:

FINA645.PRW

Função:

FA645TiCon

Retorno:

cQuery: Condição do cliente

 

Exemplo:

#Include 'Protheus.ch'

User Function F645QYDTF645QYABT()

Local

cCab:= PARAMIXB[1]Local cTipo

cQuery := PARAMIXB

[2]

Local dDataRef:= PARAMIXB[3]

Local dDtAtraso:= PARAMIXB[4]

If mv_par01 If MV_PAR03 == 1
            cQuery += " AND EX_DATA  BETWEEN    E1_EMISSAO BETWEEN '" + Dtos(MV_PAR02PAR08) + "'     AND AND '" + Dtos(MV_PAR03PAR09) + "' " + CRLF // Todos

    EndIf

    If mv_par01 ElseIf MV_PAR03 == 2
            cQuery += " AND TABELA."+cTipo+" < E1_VENCTO <= '" + DToS(dDataRefMV_PAR01) + "' " + CRLF // Só Todos os vencidos     ElseIf mv_par01 que tenha 01 acima da quantidade de dias
ElseIf MV_PAR03 == 3
            cQuery += " AND TABELA."+cTipo+" < E1_VENCTO <= '" + DToS(dDtAtrasoMV_PAR01 - MV_PAR02) + "' " + CRLF //Só os vencidos a mais de 90 dias    

    EndIf

cQuery := ChangeQuery(cQuery)dias
EndIf

Return