Descrição: | Este Ponto de Entrada é executado após a finalização de uma baixa de títulos |
Programa Fonte: | STWReceiptTitle.PRW |
Função: | A função recebe os parâmetros: PARAMIXB[1]: Carácter - Texto padrão da impressão do comprovante PARAMIXB[2]: Array - Contém os títulos para customização inteira do comprovante PARAMIXB[3]: Boolean - Recebimento realizado offline PARAMIXB[4]: Carácter - Prefixo do Título informado na seleção PARAMIXB[5]: Carácter - Número do Título informado na seleção PARAMIXB[6]: Carácter - Parcela do Título informado na seleção PARAMIXB[7]: Numérico - Valor informado no recebimento offline PARAMIXB[8]: Carácter - CPF do cliente informado na seleção PARAMIXB[9]: Carácter - Código do Cliente (localizado localmente) PARAMIXB[10]: Carácter - Loja do Cliente (localizado localmente) PARAMIXB[11]: Carácter - Nome do Cliente (localizado localmente) PARAMIXB[12]: Date - Data do Recebimento PARAMIXB[13]: Caractere - Hora do Recebimento |
| Retorno: | Deve ser uma variável do tipo Carácter, pois será o novo texto a ser impresso |
Exemplo:
=======================================================================================
CUSTOMIZAÇÃO DE TITULO POR TITULO
User Function STRECTIT()
Local cText := PARAMIXB[1] //texto padrão do comprovante
Local aTitle := PARAMIXB[2] //array dos titulos
Local nI := 0 //contador
Local cRet := "" //texto personalizado
cRet += "C O M P R O V A N T E D E R E C E B I M E N T O" + CHR(10) + CHR(10)
For nI = 1 To Len(aTitle[4])
// PREFIXO TITULO VALOR
cRet += aTitle[4][nI][2] + " / " + aTitle[4][nI][3] + " / " + "R$" + AllTrim(Str(aTitle[4][nI][10])) + CHR(10)
Next nI
Return cRet
=======================================================================================
CUSTOMIZAÇÃO PARA ADIÇÃO DE TEXTO NO INICIO E NO FINAL DO COMPROVANTE PADRÃO
User Function STRECTIT()
Local cText := PARAMIXB[1] //texto padrão do comprovante
Local aTitle := PARAMIXB[2] //array dos titulos
//Complemento no inicio do comprovante
cText := "TITULOS BAIXADOS" + CHR(10) + cText
//Complemento no final do comprovante
cText += CHR(10) + "Obrigado!"
Return cText
