Histórico da Página
...
Descrição: | Este Ponto de Entrada tem por objetivo substituir a tela padrão de Recebimento de Títulos. O Ponto de entrada é executado antes da chamada da tela de Recebimento de Títulos para substituir a tela padrão. | ||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Programa(s) Fonte: | LOJXREC.PRW | ||||||||||||||||||||||||||||||||||||
Parâmetros: |
| ||||||||||||||||||||||||||||||||||||
Retorno: |
| ||||||||||||||||||||||||||||||||||||
Observações: | Quando esse Ponto de Entrada retorna .F. (false), a tela padrão de Recebimento de Títulos não é aberta e o sistema é direcionado direto para a tela de pagamentos da Venda Assistida. |
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function LJTelaRec( aRet, cMV_LJRECEB, cRecCart, cRecCPF, cRecCont, lOcioso, aTitulo ) /* Aqui fica a tratativa no desenvolvimento da tela customizada de recebimento de títulos. */ //Exemplo de recebimento de um título no valor de 30,00 com desconto de 2,00. /* aRet é parâmetro de referência e será utilizado para a baixa do título. Deverá ser alimentada na seguinte estrutura: */ aRet := { <valor28,; //valor do título>,; título (já considerando o desconto) {; {; // Primeiro título /* Primeiro título */ .T.,; //|TIT_SELE,; | Lógico | | //01-Posicao lógica (.T. marca o título para baixa, .F. não marca o título para baixa) TIT_PREF,;"001",; //|TIT_PREF | Caractere | E1_PREFIXO | 02-Prefixo do titulo "000001 ", carácter. ; //|TIT_NUME,; //03-Titulo, carácter. | Caractere | E1_NUM | 03-Número do Titulo "1 ",; //|TIT_PARC,; | Caractere | E1_PARCELA | //04-Parcela ctod("30/12/2022"), carácter. ; //|TIT_VREA,; | Data | E1_VENCREA | //05-Vencimento real 30, data. ; //|TIT_VALO,; | Numérico | | //06-Valor, do numérico.Título TIT_MULT,;0,; //|TIT_MULT | Numérico | E1_MULTA | 07-Multa 0, numérico. ; //|TIT_JURO,; | Numérico | E1_JUROS | //08-Juros 2, numérico. ; //|TIT_DESC,; | Numérico | | //09-Valor de Desconto 28, numérico. ; //|TIT_RECE,; | Numérico | | //10-Recebimento,Valor numérico.recebido TIT_TIPO,; "FI ",; //|TIT_TIPO | Caractere | E1_TIPO | 11-Tipo " ", carácter. ; //|TIT_CONT,; //12-Contrato, carácter. | Caractere | E1_NUMCRD | 12-Número do Contrato CRD TIT_CLIE,;"000002",; //|TIT_CLIE | Caractere | E1_CLIENTE | 13-Cliente "01", carácter. ; //|TIT_LOJA,;_LOJA | Caractere | E1_LOJA | //14-Loja "D SP 01 ", carácter. ; //|TIT_FILI,; | Caractere | E1_FILIAL | // 15-Filial 931, carácter. ; //|TIT_RECN,; //16-Recno - número da posição | Numérico | SE1->(Recno())| 16-Recno do registro da tabela SE1 0, numérico. ; //|TIT_ACRS,; // | Numérico | E1_SDACRES | 17-Acrescimo financeiro .F., numérico. ; //|TIT_CACR,; //18-Posicao logica, lógico. | Lógico | .F. | 18-Posicao lógica - Posicao reservada de uso interno TIT_ABAT0,; //|TIT_ABAT | Numérico | 0 | 19-Valor de Abatimentos ctod("30/12/2022"), numérico. ; //|TIT_VENC,; // | Data | E1_VENCTO | 20-Vencimento original, data. "000002D SP 01 001000001 1 TIT_LOCK",; //|TIT_LOCK | Caractere | SE1->E1_CLIENTE+SE1->E1_FILIAL+SE1->E1_PREFIXO+SE1->E1_NUM+SE1->E1_PARCELA | 21-Cod. de uso do Registro, carácter. para controle de LOCK TIT_MOED1,; //|TIT_MOED | Numérico | E1_MOEDA | 22-CodigoCódigo da moeda do titulo, numérico. título NIL,; //|TIT_INTE,; // | Numérico | Nil | 23-Interes (Juros) - Posicao reservada, numérico. TIT_DTBX,; //24-Dt. da baixa, data. de uso interno ctod(" / / "),; //|TIT_DTBX | Data | E1_BAIXA | 24-Data da baixa 30,; //|TIT_SALD,; // | Numérico | E1_SALDO | 25-Saldo do titulo, numérico. título 0; //|TIT_VLIQ; | Numérico | E1_VALLIQ | //26-Valor Liquido, numérico. }; {; /* Segundo título */ }; {; /* Terceiro título */ }; ... }; } } aTitulo := aRet[2] //Atualiza o Array aTitulo Return .F. |