Linha Microsiga Protheus

Árvore de páginas

CONTEÚDO

  1. Dados Gerais
  2. Descrição
  3. Sintaxe
  4. Parâmetros
  5. Retorno
  6. Exemplo

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:SIGATMK - Call Center
Função:TMKA273C - Funções Auxiliares Televendas
Abrangências:Microsiga Protheus 12
Versões:Microsiga Protheus 12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível com as Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Todos


02. DESCRIÇÃO

Ponto de Entrada permite a alteração das parcelas na Forma de Pagamento do Televendas, e será executado após o cálculo padrão das parcelas.

Alteração das parcelas

Através do PE é possível alterar, não apenas a Forma de Pagamento, mas também as parcelas calculadas pela condição de pagamento. Esta alteração deve ser feita apenas quando a condição for do TIPO 9, caso contrario as parcelas serão calculadas conforme condição de pagamento no momento do faturamento.


03. SINTAXE

TKTLVPAG( PARAMIXB ) ---> aParcelas

04. PARÂMETROS

RetornoTipoDescrição
PARAMIXBVetor

Vetor com os parâmetros passados para o ponto de entrada, sendo:
[ 1 ]  - aParcelas - Parcelas Originais - Tipo: Array
[ 2 ]  - nOpc - Operação (3- Inclusão, 4- Alteração) - Tipo: Numérico

05. RETORNO

RetornoTipoDescriçãoObrigatório
aParcelasVetor

Vetor com os dados para montagem das parcelas, sendo:
[ 1 ]  - Data - Data de Vencimento - Tipo: Data - Formato: dd/mm/aaaa
[ 2 ]  - Valor - Valor da Parcela - Tipo: Numérico
[ 3 ]  - Forma de Pagamento - Forma de Pagamento - Tipo: Caractere
[ 4 ]  - Observação - Observação - Tipo: Caractere
[ 5 ]  - Valor em Percentual - Percentual da Parcela - Tipo: Numérico
[ 6 ]  - ID Cartão (quando utilizar Multi-TEF) - ID do cartão - Tipo: Caractere

X

06. EXEMPLO


TKTLVPAG
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOTVS.CH"

User Function TKTLVPAG()
    Local aParcAtu  := PARAMIXB[1] //Parcelas Atuais
    Local nOpc      := PARAMIXB[2] //Operação (3- Inclusão, 4- Alteração)
    Local aParc := {}

    If nOpc == 3
        Aadd(aParc, { Date(),;		//Data
                    250.0,;			//Valor
                    "R$    ",;		//Forma de Pagamento
                    "Teste",;		//Observação
                    0,;				//Valor em Percentual
                    ""})			//ID Cartão

        Aadd(aParc, { Date()+30,;	//Data
                    250.0,;			//Valor
                    "CC    ",;		//Forma de Pagamento
                    "Teste",;		//Observação
                    0,;				//Valor em Percentual
                    ""})			//ID Cartão

        Aadd(aParc, { Date()+60,;	//Data
                    250.0,;			//Valor
                    "CH    ",;		//Forma de Pagamento
                    "Teste",;		//Observação
                    0,;				//Valor em Percentual
                    ""})			//ID Cartão

        Aadd(aParc, { Date()+90,;	//Data
                    250.0,;			//Valor
                    "CC    ",;		//Forma de Pagamento
                    "Teste",;		//Observação
                    0,;				//Valor em Percentual
                    ""})			//ID Cartão
    EndIf

Return aParc