Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagedelphi
firstline1
linenumberstrue
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 := { 28,; //valor do título (já considerando o desconto)
{;
 {; // 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)
     "001XXX",;                            //|TIT_PREF | Caractere | E1_PREFIXO    |   02-Prefixo do titulo
     "000001XXX001   ",;                      //|TIT_NUME | Caractere | E1_NUM        |   03-Número do Titulo
     "1  ",;                            //|TIT_PARC | Caractere | E1_PARCELA    |   04-Parcela
     ctod("30/12/20222030"),;               //|TIT_VREA | Data      | E1_VENCREA    |   05-Vencimento real
     30,;                               //|TIT_VALO | Numérico  |               |   06-Valor do Título
     0,;                                //|TIT_MULT | Numérico  | E1_MULTA      |   07-Multa
     0,;                                //|TIT_JURO | Numérico  | E1_JUROS      |   08-Juros
     2,;                                //|TIT_DESC | Numérico  |               |   09-Valor de Desconto
     28,;                               //|TIT_RECE | Numérico  |               |   10-Valor recebido
     "FI ",;                            //|TIT_TIPO | Caractere | E1_TIPO       |   11-Tipo
     "          ",;                     //|TIT_CONT | Caractere | E1_NUMCRD     |   12-Número do Contrato CRD
     "000002",;                         //|TIT_CLIE | Caractere | E1_CLIENTE    |   13-Cliente
     "01",;                             //|TIT_LOJA | Caractere | E1_LOJA       |   14-Loja
     "D SP 01 ",;                       //|TIT_FILI | Caractere | E1_FILIAL     |   15-Filial
     931,;                              //|TIT_RECN | Numérico  | SE1->(Recno())|   16-Recno do registro da tabela SE1
     0,;                                //|TIT_ACRS | Numérico  | E1_SDACRES    |   17-Acrescimo financeiro
     .F.,;                              //|TIT_CACR | Lógico    | .F.           |   18-Posicao lógica - Posicao reservada de uso interno
     0,;                                //|TIT_ABAT | Numérico  | 0             |   19-Valor de Abatimentos
     ctod("30/12/20222030"),;               //|TIT_VENC | Data      | E1_VENCTO     |   20-Vencimento original
     "000002D SP 01 001000001XXXXXX001   1  ",;  //|TIT_LOCK | Caractere | SE1->E1_CLIENTE+SE1->E1_FILIAL+SE1->E1_PREFIXO+SE1->E1_NUM+SE1->E1_PARCELA | 21-Cod. de uso do Registro para controle de LOCK
     1,;                                //|TIT_MOED | Numérico  | E1_MOEDA      |   22-Código da moeda do título
     NIL,;                              //|TIT_INTE | Numérico  | Nil           |   23-Interes (Juros) - Posicao reservada de uso interno
     ctod("  /  /  "),;                 //|TIT_DTBX | Data      | E1_BAIXA      |   24-Data da baixa
     30,;                               //|TIT_SALD | Numérico  | E1_SALDO      |   25-Saldo do título
     0;                                 //|TIT_VLIQ | Numérico  | E1_VALLIQ     |   26-Valor Liquido
  };
 ,;
  {;
    //* Segundo título */
  };
 ,;
  {;
    //* Terceiro título */
  };
 

 };
}


aTitulo := aRet[2] //Atualiza o Array aTitulo

Return .F.