Linha Microsiga Protheus

Árvore de páginas

Carregando...

Versões comparadas

Versão antiga 1

changes.mady.by.user Roberto Bernardino De Melo

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Roberto Bernardino De Melo

Gravado em

Chave

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

Ponto de Entrada: LJ030ECF - Script de impressão de resumo de caixa

Descrição:

Script de impressão do resumo de caixa. Foi ajustada a passagem de parâmetros para o ponto de entrada LJ030ECF, para que o usuário tenha mais dados para personalização das informações no relatório customizado.

Programa Fonte:

Ponto de entrada chamado no fonte LOJC030

Função:

LJ701A4(  ExpC1 ], [ ExpC2 ], [ ExpD3 ], [ ExpN4 ], [ ExpN5 ],[ ExpN6 ],[ ExpN7 ],[ ExpN8 ],[ ExpN9 ],[ ExpN10 ],[ ExpN11 ],[ ExpN12 ],[ ExpN13 ],[ ExpN14 ],[ ExpN15 ] ) --> Relatório Personalizado pelo Cliente

Nome

Tipo

Descrição

ExpC1

L 

Valor do Parametro MV_LJTROCO

ExpC2ExpN2

N

Somatória dos Trocos de Saída

ExpD3ExpA3

A 

Array com os valores de caixa

ExpN4NValor da entrada do troco
ExpN5NTotal de Créditos
ExpN5ExpN6NTotal de Débitos
ExpN5ExpN7NSaldo Final do Caixa
ExpN5ExpA8ADados de Venda
ExpN5ExpA9ADados de Sangria
ExpN5ExpO10OMovimento da Venda
ExpN5

ExpA11

AArray com os sinais realizados
ExpN5ExpA12AContem o segundo nível de opções , analítico
ExpN5ExpA13AContadores utilizados nos tipos de finalizações 
ExpN5ExpN14NValor do credito utilizado na compensação da NCC
ExpN5ExpN15OMovimentos de Sangria


Retorno:

Não há

 

Exemplo:

#Include 'Protheus.ch'

User Function LJ701A4LJ030ECF()

Local aRec          := aClone(PARAMIXB[1]) // Array com a condição calculada pelo padrao
Local aConNeng := aClone(PARAMIXB[2]) // Array com as informações de negociacao
                                 // aConNen[1] - Tipo juros
                                 // aConNen[2] - Data entrada + Intervalo de dias
                                 // aConNen[3] - Valor Entrada
                                 // aConNen[4] - Taxa de Juros
                                 // aConNen[5] - Parcelas
Local nVlrFin := PARAMIXB[3] // valor Total
Local nVlrEnt := PARAMIXB[4] // Valor de Entrada
Local nDescont := PARAMIXB[5] // Desconto
Local nParc := aConNeng[5] // Numero de parcelas do item calculado
Local nI := 0
Local nJuros := 10 // % de juros a aplicar na parcela

For nI := 1 to Len(aRec) // numero de parcelas

    nValorTot := aRec[nI][2] // retorna a Entrada ao valor
    nValorTot += (nValorTot *10)/100 // acrescenta Juros
    nValorPac := nValorTot // refaz as parcelas
    aRec[nI][2] := nValorPac

Next

Return aRec