Ponto de entrada para tratamento de recebimento de Título
Descrição: | Esse ponto de entrada é executado após o retorno do Web Service (Comunicação com a Retaguarda para baixa do Título) e antes da impressão do comprovante, esse ponto de entrada pode ser utilizado para apresentação de alguma mensagem ou gravação de alguma informação que seja relevante, deve-se tomar cuidado com o retorno do ponto de entrada pois caso seja alterado o FrontLoja vai entender esse retorno como retorno do Web Service. Caso seja passado o retorno como verdadeiro o FrontLoja vai entender que a baixa dos títulos foi realizada com sucesso, caso o retorno seja retornado como falso o FrontLoja vai entender que a baixa do titulo não foi realizado e não vai realizar a impressão e a geração das informação da movimentação bancária e o valor recebido não vai constar no resumo de caixa. | ||||||||||||||||||||
Eventos: | Após a confirmação dos títulos é solicitado a forma de pagamento e a confirmação do pagamento. Logo em seguida o sistema executa a função para a baixa dos títulos no back-office (via Web Service) ao termino essa informação segue no FrontLoja e em seguida é executado o ponto de entrada LJXRECVLD. | ||||||||||||||||||||
Programa Fonte: | LOJXREC.PRW | ||||||||||||||||||||
Parâmetros: |
| ||||||||||||||||||||
Retorno: | Retorno deverá ser logico. Caso seja retornado verdadeiro o FrontLoja seguirá para a impressão e gravação da movimentação bancária, caso seja falso é apresentado no Console a mensagem de erro do Web Service e não é realizado a impressão e a gravação do movimento bancário. Obs.: Caso não seja enviado retorno ou o retorno não seja lógico o sistema vai assumir o valor anterior que possuía antes do ponto de entrada. |
Exemplo do Ponto de entrada.
User Function LJXRECVLD()
Local cOper := ParamIxb[1]
Local nTotal := ParamIxb[2]
Local aTitulo := ParamIxb[3]
Local lRet := ParamIxb[4]
Conout("Parametro cOper : " + cOper )
Conout("Parametro nTotal : " + AllTrim(Str(nTotal)) )
Conout("Parametro lRet : " + IIf(lRet , ".T." , ".F."))
VarInfo("aTitulo", aTitulo)
lRet := MsgYesno("Teste do Ponto de Entrada LJXRECVLD. Deseja retornar True (.T.) ?")
Return lRet