Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Sivaldo Santos Oliveira

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Sivaldo Santos Oliveira

Gravado em

Chave

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


01. DADOS GERAIS

Produto:TOTVS Backoffice
Linha de Produto:

Linha Protheus ®

Módulo:Financeiro
Função:FINA677APP - Prestação de Contas


02. DESCRIÇÃO

O ponto de entrada FN677CLIP tem como objetivo permitir alterar o cliente e loja do título a ser gerado no contas a receber no processo em que
é liberado o pagamento de uma prestação de contas com saldo negativo. Ou seja, quando o participante tem saldo remanescente do adiantamento
que será devolvido para a empresa. Quando o ponto de entrada retornar novo cliente ou loja a ser usado na geração do título, o conteúdo padrão
do parâmetro MV_RESCLIP será desconsiderado.

03. PARÂMETROS


NomeDescrição
cCliOriCódigo do cliente original (padrão do parâmetro MV_RESCLIP)
cLojaOriCódigo da loja original (padrão do parâmetro MV_RESCLIP)
cParticCódigo do participante viajante 


04. RETORNO


NomeDescrição
aCliDest

Código do cliente/loja destino, ou seja, que irá sobrepor o cliente/loja original.

Estrutura do vetor:
1º posição: Código do cliente

2ª posição: Código da loja


05. EXEMPLO DE UTILIZAÇÃO


Bloco de código
languagejava
themeMidnight
titleFN677CLIP
#Include "Protheus.ch"

Static _aCliParts   := NIL

User Function FN677CLIP()

Local aCliDest := Array(2)  // [1] - Cliente, [2] - Loja
Local cCliOri  := ParamIXB[1]
Local cLojaOri := ParamIXB[2]
Local cPartic  := ParamIXB[3]
Local nY       := 0

If _aCliParts == NIL
    _aCliParts := {} 
    // [1] - Partipante, [2] - Cliente, [3] - Loja
    Aadd(_aCliParts,{"005428","002   ","01"})
    Aadd(_aCliParts,{"005445","005   ","01"})
EndIf

If nY := AScan(_aCliParts,{|x| x[1] == cPartic })
    aCliDest[1] := _aCliParts[nY,2]
    aCliDest[2] := _aCliParts[nY,3]
Else
    aCliDest[1] := cCliOri
    aCliDest[2] := cLojaOri
EndIf

Return aCliDest

...