Linha Microsiga Protheus

Árvore de páginas

Descrição

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 e os títulos do recebimento que foram encontrados na pesquisa de títulos.

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.

Observações

Quando o ponto de entrada é ativado e retorna falso, não é exibido nenhuma mensagem ao usuário. Assim, ficando a cargo do Ponto de entrada sua exibição.

Exemplos

#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 := PARAMIXB[3] variável que indica se é recebimento de título

Local aPayment := PARAMIXB[5] // pagamentos informados no sistema com todos os campos da SL4


If !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 
   Next nI
EndIf

Return lRet

Preview

Veja também


Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates


Parâmetros

NomeTipoDescrição
aMdlParcArray

Dados do Model de Parcelas

As ordem e as informações desse array varia de dicionário de dados para dicionário de dados (SX3), pois é respeitado os campos e ordens da tabela SL4 do dicionário SX3 (campos) da base. Assim sendo, segue abaixo os 20 primeiro campos com referencia na base padrão:

aMdlParc[1] = (Array) - Formas de pagamentos  

aMdlParc[1][1] - Numero do orçamento (L4_NUM)  

aMdlParc[1][2] - Data Orçamento (L4_DATA)  

 aMdlParc[1][2] - Valor Parcela (L4_VALOR)  

aMdlParc[1][4] - Forma Pgto (L4_FORMA)  

aMdlParc[1][5] - Administradora (L4_ADMINIS)  

aMdlParc[1][6] - Num. Cartao (L4_NUMCART)

aMdlParc[1][7] - Agencia (L4_AGENCIA)  

aMdlParc[1][8] - Conta Cheque (L4_CONTA)  

aMdlParc[1][9] - RG do Cheque (L4_RG)  

aMdlParc[1][10] - Telefone Ch (L4_TELEFON)  

aMdlParc[1][11] - Obs (L4_OBS)  

aMdlParc[1][12] - Terceiro (L4_TERCEIR)  

aMdlParc[1][13] - Situacao (L4_SITUA)  

aMdlParc[1][14] - Data TEF (L4_DATATEF)  

aMdlParc[1][15] - Hora TEF (L4_HORATEF)  

aMdlParc[1][16] - Documento TEF (L4_DOCTEF)  

aMdlParc[1][17] - Autorização TEF (L4_AUTORIZ)  

aMdlParc[1][18] - Data Cancelamento TEF (L4_DATCANC)  

aMdlParc[1][19] - Hora Cancelamento TEF (L4_HORCANC)  

aMdlParc[1][20] - Doc. Cancelamento TEF (L4_DOCCANC)

aMdlHeaderArrayHeader do Model de
lRecebTitleLógicoIndica se o pagamento é recebimento de títulos
oWFReceiptObjeto

oWFReceipt[4] = (Array) - Títulos de Recebimento  

oWFReceipt[4][1] = (Array) -Lista de Títulos Recebidos

oWFReceipt[4][1][4][1][1] = indica se o título foi selecionado para recebimento

oWFReceipt[4][1][4][1][2]= Série da nota

oWFReceipt[4][1][4][1][3]= Numero do orçamento

oWFReceipt[4][1][4][1][5]=data de emissão

oWFReceipt[4][1][4][1][6]= valor do título

aPaymentArrayFormas de pagamento informadas no TOTVS PDV (Issue MVAR-4805)

Retorno

Seu retorno deve ser obrigatoriamente um retorno lógico (.T. ou .F.), onde verdadeiro (.T.) indica que todas as formas de pagamento estão de acordo com a regra do Ponto de entrada, sendo assim a venda/recebimento pode ser finalizado, já o retorno falso (.F.) indica que houve alguma inconformidade com alguma das formas de pagamento selecionada, assim o processo de finalização será cancelado e a venda/recebimento continuará ativa para alterações.

Eventos de chamada do Ponto de Entrada

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.

Variáveis


Programa Fonte

 STBPayment.prw
  • Sem rótulos