Histórico da Página

Este Ponto de Entrada é executado após acionar a opção "Finalizar Pagamento (CRTL+P)" presente na tela de "Pagamento" na finalização de vendas ou de recebimento de títulos do TOTVS PDV. Possui como parâmetros de entrada, as variáveis array com todas as formas de pagamentos utilizadas na venda/recebimento.

O retorno deste Ponto de Entrada deve ser obrigatoriamente lógico (.T. ou .F.), onde "Verdadeiro" (.T.) permite a finalização da venda/recebimento de título, já "Falso" (.F.), impossibilita sua finalização, permanecendo na tela de pagamentos.

Por padrão quando é ativo este ponto de entrada, caso retorno falso, não é exibido nenhuma mensagem ao usuário. Assim, ficando a cargo do Ponto de entrada sua exibição.

#INCLUDE "PROTHEUS.CH"

User Function STConfSale()
Local lRet := .T. //Retorno logico
Local aFormas := PARAMIXB[1] //Parametro do PE
Local nI := 0 //Para o loop
Local lReceb := STIGetRecTit() //Função padrão que retorna se é recebimento de título

If !lReceb lReceb 
   For nI := 1 To Len(aFormas)
       If AllTrim(aFormas[nI,4]) == "CC" //Tipo da forma de pgto
          lRet := .F.
          MsgInfo("Não é permitido venda paga com cartão de credito.","Atenção")
          Exit
EndIf        EndIf 
Next    Next nI
EndIf

Return lRet

Português(Brasil)

Microsiga_Protheus8_11

Todos

Todas