Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Alberto Deviciente

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Alberto Deviciente

Gravado em

Chave

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

Ponto de Entrada para permitir validar a Tela de digitação manual do NSU e Código de Autorização, caso deseje obrigar a digitação das informações da transação manual de cartão ou realizar outro tipo de validação que achar conveniente.

O ponto de entrada é executado ao clicar no botão "OK" ou ao tentar fechar a tela.

VersõesProtheus 12 (SIGALOJA)
Parâmetros

PARAMIXB[1] - Caractere, Forma de Pagamento (CD / CC)

PARAMIXB[2] - Caractere, ID do Cartão

PARAMIXB[3] - Caractere, Valor

PARAMIXB[4] - Caractere, NSU Digitado pelo usuário

PARAMIXB[5] - Caractere, Código de Autorização Digitado pelo usuário

RetornoLógico (.T. = Permite prosseguir ; .F.=Impede de prosseguir)
Programa FonteLOJXREC.PRW
Exemplo
Bloco de código
languagedelphi
firstline1
linenumberstrue
User Function LJVNSUAU()
Local lRet      := .T.
Local cFormaPG  := PARAMIXB[1] //Forma de Pagamento (CD / CC)
Local cIdCartao := PARAMIXB[2] //ID do Cartão
Local nValor    := PARAMIXB[3] //Valor
Local cNSU      := PARAMIXB[4] //NSU Digitado pelo usuário
Local cAutoriz  := PARAMIXB[5] //Código de Autorização Digitado pelo usuário

If Empty(cNSU)
    MsgAlert("O Código de NSU deve ser informado.")
    lRet := .F.
ElseIf Empty(cAutoriz)
    MsgAlert("O Código de Autorização deve ser informado.")
    lRet := .F.
EndIf

Return lRet

...