F05MONTDD - Elaboração de desdobramento -- 11629

O ponto de entrada F05MONTDD foi disponibilizado para que o cliente monte o desdobramento do seu modo.

1. Momento de execução: após selecionar a opção desdobramento no título a pagar, antes da exibição da tela padrão de condições de pagamento do sistema.

FINA050.PRW

F05MONTDD - Elaboração de desdobramento ( ) --> lRet

lRet(logico)
• Indica se o tratamento foi realizado pelo ponto de entrada.

Regras para utilização do ponto de entrada:

1. Momento de execução: após selecionar a opção desdobramento no título a pagar, antes da exibição da tela padrão de condições de pagamento do Sistema.

1. Regra de utilização:

1. Se existir o ponto de entrada, ele sempre será executado. A rotina padrão aguardará um retorno lógico do ponto de entrada, sendo que:

                                                               i.      O retorno lógico verdadeiro (.T.) indica que o tratamento do desdobramento do título foi realizado pelo ponto de entrada, e o processo retorna para o título a pagar.

                                                             ii.      O retorno lógico falso (.F.) indica que o tratamento do desdobramento do título NÃO foi realizado pelo ponto de entrada, e será exibida a tela de desdobramento padrão do sistema.

1. Sobre o desenvolvimento do ponto de entrada:

1. O ponto de entrada deverá manipular a variável privada APARCELAS da rotina de desdobramento, a qual contém a seguinte estrutura fixa, com data, parcelas e valor a ser gerado:
2. aParcelas[1,1] := Data - Data do vencimento da parcela 1.
3. aParcelas[1,2] := Numerico - Valor da parcela 1.
4. aParcelas[2,1] := Data - Data do vencimento da parcela 2.
5. aParcelas[2,2] := Numerico - Valor da parcela 2.
6.  ,etc
7.  
8. A responsabilidade de desenvolvimento do ponto de entrada e das interfaces necessárias a manipulação da variável citada anteriormente é do cliente. Bem como consistencia do valor da soma das parcelas com relação ao valor do título de forma a não produzir inconsistências na base de dados.
9.  

Considerando um título no valor de R$103.000,00 e as seguintes parcelas:01 a 29 - R$ 1.000,00 (total 29.000,00)30      - R$ 1.500,00 (total  1.500,00)31 a 65 - R$ 2.000,00 (total 70.000,00)66      - R$ 2.500,00 (total  2.500,00)                     -----------------                           103.000,00  Temos o seguinte RdMake:#INCLUDE "RWMAKE.CH"#INCLUDE "PROTHEUS.CH"User Function F05MONTDDLocal nX := 1aParcelas:= {}For nX := 1 to 29	AAdd(aParcelas,{dDataBase+nX, 1000})Next nxAAdd(aParcelas,{dDataBase+nX, 1500})For nX := 31 to 65	AAdd(aParcelas,{dDataBase+nX, 2000})Next nxAAdd(aParcelas,{dDataBase+nX, 2500})Return .T.As variáveis de memória da tela de inclusão de contas a pagar podem ser consultadas para efetuar validações necessárias. Ex.: M->E2_FORNECE,M->E2_LOJA,M->E2_NUM,M->E2_VALOR,M->E2_PARCELAQualquer desposicionamento de tabela provocado pelo RdMake, deve ser restaurado.