| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | TMKA274.PRW |
| 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 |
O Ponto de Entrada é executado no Atendimento de Telecobrança na tela de Simulação de Valores quando alterada a data de pagamento.
TK274SV( { aCols, aRdpCgd, dDataPagto} ) --->aRet
| Nome | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| PARAMIXB[1] | Array | aCols[1] - Títulos para cobrança | X |
| PARAMIXB[2] | Array | aRdpCgd[2] - Valores do rodapé Simulação de Valores | X |
| PARAMIXB[3] | Date | dDataPag - Data de pagamento selecionada |
| Nome | Tipo | Descrição | Obrigatório |
|---|---|---|---|
aRet | Array | Array com os novos valores do rodapé, sendo: | X |
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOTVS.CH"
User Function TK274SV()
Local aCols := PARAMIXB[1] // títulos para cobrança
Local aRdpCgd := PARAMIXB[2] // Valores do rodapé Simulação de Valores
Local dDataPag := PARAMIXB[3] // Data de pagamento selecionada
Local aRet := {}
aRdpCgd[1][2] :=10 // – Abatimentos.
aRdpCgd[2][2] :=10 // – Decréscimos.
aRdpCgd[3][2] :=10 // – Juros.
aRdpCgd[4][2] :=10 // – Acréscimos.
aRdpCgd[5][2] :=10 // – Decréscimos.
aRdpCgd[6][2] :=10 // – Descontos.
aRdpCgd[7][2] :=10 // – Valor Original.
aRdpCgd[8][2] :=10 // – Saldos Moeda Titulo.
aRdpCgd[9][2] :=10 // – Saldos Moeda Corrente.
aRdpCgd[10][2] :=10 // – Pagamentos Parciais.
aRdpCgd[11][2] :=10 // – Valor Corrigido.
aRet :={aCols,aRdpCgd}
Return aRet |