Linha Microsiga Protheus

Árvore de páginas

Carregando...

Versões comparadas

Versão antiga 2

changes.mady.by.user Roberto Bernardino De Melo

Gravado em

comparado com

Nova versão Atual

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 Parâmetro MV_LJTROCO

ExpN2

N

Somatória dos Trocos de Saída

ExpA3

A 

Array com os valores de caixa

ExpN4NValor da entrada do troco
ExpN5NTotal de Créditos
ExpN6NTotal de Débitos
ExpN7NSaldo Final do Caixa
ExpA8ADados de Venda
ExpA9ADados de Sangria
ExpO10OMovimento da Venda

ExpA11

AArray com os sinais realizados
ExpA12AContem o segundo nível de opções , analítico
ExpA13AContadores utilizados nos tipos de finalizações 
ExpN14NValor do credito utilizado na compensação da NCC
ExpN15OMovimentos de Sangria


Retorno:

Não há

 

Exemplo:

#Include 'Protheus.ch'

User Function LJ030ECF()

Local aRec lmvTroco           := 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

  ..... 

Local oMov := PARAMIXB[15]

/* Personalização do Cliente*/

 

Return .T.Return aRec