Histórico da Página
Descrição | Ponto de Entrada para customização, disponível após a gravação dos registros da tabela SLV - Tabela de Transação TEF na Baixa de Títulos - na Retaguarda, na execução do job LjGrvBatch(). Os dados virão em forma de Array, agrupados por número do título (LV_PREFIXO/LV_NUMERO/LV_PARCELA/LV_TIPO), sendo que cada linha corresponde a uma transação TEF. |
---|---|
Versões | Protheus 12 |
Parâmetros | PARAMIXB[1] : |
Carácter, Prefixo (LV_PREFIXO) |
Carácter, Número (LV_NUMERO) |
TEF (LV_DATATEF) PARAMIXB[1] [12] - Carácter, Hora da transação TEF (LV_HORATEF) PARAMIXB[1] [14] - Carácter, Código de Autorização TEF (LV_AUTORIZ) PARAMIXB[1] [15] - Carácter, Instituição TEF (LV_INSTITU) PARAMIXB[1] [16] - Carácter, NSU TEF (LV_NSUTEF) PARAMIXB[1] [17] - Carácter, Tipo de Cartão (LV_TIPCART) PARAMIXB[1] [18] - Carácter, Sequência de Operação (LV_SEQOPER) |
#Include 'Protheus.ch'
User Function STRECFCX()Local aPaym := PARAMIXB[1]
Local sCaixa := PARAMIXB[2]
Local sEstacao := PARAMIXB[3]
Local sPdv := PARAMIXB[4]
Local sDtAbert := PARAMIXB[5]
Local sAbHora := PARAMIXB[6]
Local sDtFech := PARAMIXB[7]
Local sFcHora := PARAMIXB[8]
Local sNumMov := PARAMIXB[9]
Local cTexto := ""
Local nTotApu := 0
Local nTotDig := 0
Local cCRLF := Chr(13) + Chr(10)
Local nX := 0
cTexto := cCRLF + cCRLF
cTexto += 'caixa.....: ' + sCaixa + cCRLF
cTexto += 'estação...: ' + sEstacao + cCRLF
cTexto += 'pdv.......: ' + sPdv + cCRLF
cTexto += 'abertura..: ' + sDtAbert + ' - ' + 'hora: ' + AllTrim(sAbHora) + cCRLF
cTexto += 'fechamento: ' + sDtFech + ' - ' + 'hora: ' + AllTrim(sFcHora) + cCRLF
cTexto += 'movimento.: ' + sNumMov + cCRLF
cTexto += cCRLF + cCRLF
cTexto += 'Forma !Descrição ! Valor Dig ! Valor Ap.'
cTexto += cCRLF
For nX := 1 To Len(aPaym)
cTexto += aPaym[nX][1] + '!' + SubStr(aPaym[nX][2],1,22) + Space(3) + '!' + Str(Val(aPaym[nX][7]),10,2) + '!' + Str(aPaym[nX][8],10,2) + cCRLF
nTotApu := nTotApu + aPaym[nX][8]
nTotDig := nTotDig + Val(aPaym[nX][7])
Next nX
cTexto += cCRLF + cCRLF
cTexto += cCRLF + "Total Apurado :" + Str(nTotApu,10,2)
cTexto += cCRLF + "Total Digitado:" + Str(nTotDig,10,2)
cTexto += cCRLF + 'ass. caixa :' + Replic("_",28)
cTexto += cCRLF + 'ass. superior :' + Replic("_",28) + cCRLF
Return cTexto
A partir da versão 12.1.30: PARAMIXB[1] [23] - Carácter, Código da Administradora ou Bandeira (LV_BANDEIR) PARAMIXB[1] [24] - Carácter, Código da Rede Autorizada ou Adquirência (LV_REDEAUT) PARAMIXB[2]: Lógico, indica a gravação bem-sucedida. Default .T. PARAMIXB[3]: Lógico, após aparecer a mensagem de alerta "O estorno do recebimento será feito porque, ao menos, uma operação de estorno TEF foi realizada." # "Utilize a rotina de Cancelamento Manual TEF para as demais transações." Default .F. | |
Retorno | Nulo |
---|---|
Programa Fonte | LOJXREC.PRW |
Exemplo | User FUNCTION LjRecSlv()
|
HTML |
---|
<!-- esconder o menu --> <style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |