Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Varejo | ||||||||
Módulo: | SIGAFRT | ||||||||
Rotina: |
| ||||||||
Cadastros Iniciais: | Cadastro de produtos Cadastro de vales-presentes | ||||||||
Parâmetro(s): | MV_LJVALEP MV_LJVPVAR | ||||||||
Ponto de Entrada: | STGeraCr - STGeraCr_Alteracao de valores na geracao do vale credito - TOTVS PDV | ||||||||
País(es): | Brasil | ||||||||
Banco(s) de Dados: | TODOS | ||||||||
Tabelas Utilizadas: | MDD - Vale Presente | ||||||||
Sistema(s) Operacional(is): | TODOS | ||||||||
| Fontes do Pacote: | LOJA830.PRW 05/04/2016 11:23:29 07 | ||||||||
| Pacote: | TVCWUE.rar |
#Include 'Protheus.ch'
Esta melhoria consiste em realizar a venda de um vale presente como vale crédito, para que ao termino da venda seja gerado um crédito (NCC) para o cliente selecionado na venda. Desta forma quando é vendido o vale crédito para o cliente ao termino da venda será gerado uma NCC no ambiente de retaguarda no mesmo valor da venda, porem o ponto de entrada STGeraCr é responsável por realizar qualquer alteração no valor da NCC a ser gerada ou a sua quantidade de vezes, ou seja, ele fica responsável por dar mais créditos ou dividir o crédito em varias vezes. Este crédito gerado poderá ser utilizado como forma de pagamento nas futuras vendas realizadas pelo cliente.
Exemplo de case:
Venda de um crédito de banho e tosa para cachorro: O cliente pode comprar R$ 100,00 de crédito disponibilizado pela loja e ganhar mais R$ 50,00 como promoção, ou seja, ao comprar um vale crédito por R$ 100,00 ele irá ter um crédito de R$ 150,00 a ser utilizado nas futuras compras. A regra de dar R$ 50,00 pode estar atrelado à um conjunto de informações do cliente (cliente que é identificado para o ponto de entrada) para que seja gerado esse bônus de R$ 50,00.
O sistema é atualizado logo após a aplicação do pacote de atualizações (Patch) deste chamado.
1. Criação de Campos no arquivo SX3 – Campos:
Campo | MDD_TIPO |
Tipo | C |
Tamanho | 1 |
Decimal | 0 |
Título | Tipo de Vale |
Descrição | Tipo de Vale |
Usado | Sim |
Obrigatório | Não |
Opções | P=Presente;C=Credito |
Relação | "P" |
Val. Sistema | Pertence('PC') .And. Lj830VldVP(a,b,c,d) |
Help | Credito: Tipo de vale onde é gerado NCC para o cliente e não é modificado o seu status (vendido/utilizado). Exemplo: Gerar crédito para antecipação de pagamento. Presente: Tipo de vale onde é controlado seus status e modificado de acordo com as operações realizadas(vendido/utilizado). Exemplo: Venda de cartão vale presente. |
Importante:
O tamanho dos campos que possuem grupo pode variar conforme ambiente em uso.
Pré-Requisito:






Sequencia 01: Cadastrando vale presente como vale crédito.




Sequencia 02: Venda do vale crédito.









Descrição: | Ponto de entrada para customização dos valores do crédito do vale crédito. Link: STGeraCr_Alteracao de valores na geracao do vale credito - TOTVS PDV | ||||||||||||
Eventos: | Geração da NCC na retaguarda, apos gravação de venda no TOTVSPDV | ||||||||||||
Programa Fonte: | STIValePresente.PRW | ||||||||||||
Função: | SIGAFRT | ||||||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function stgeracr()
Local aRetorno := {} //Retorno do ponto de entrada
Local cCodValeCredito := PARAMIXB[1] //Codigo do vale presente/credito
Local nValor := PARAMIXB[2] //Valor original da NCC
Local cCliente := PARAMIXB[3] //Cliente da venda
Local cLoja := PARAMIXB[4] //Loja da venda
Local nParcelas := 1 //Quantidade de parcelas de NCC
Local nRetValor := 0 //Valor da NCC por parcela
If nValor > 100
nRetValor := nValor + 50 //Da R$ 50,00 de bonus
EndIf
aRetorno := {nRetValor ,nParcelas }
Return aRetorno