User Function LJNumTit()
Local _aArea := GetArea()
Local _cLjE1Num := ParamIXB[1] //Informação configurada no parâmetro MV_LJE1NUM.
Local _cNumSe1 := ParamIXB[2] //Número do título definido pela regra padrão do sistema.
//Defina aqui sua regra para determinar o número do título da venda que será gerado na tabela SE1
_cNumSe1:= "XXXXXXXXX" //Novo numero do Título definido
RestArea(_aArea)
Return _cNumSe1LJTelaRec( aRet, cMV_LJRECEB, cRecCart, cRecCPF, cRecCont, lOcioso, aTitulo )
/* Aqui fica a tratativa no desenvolvimento da tela customizada de recebimento de títulos. */
/* aRet é parâmetro de referência e será utilizado para a baixa do título. Deverá ser alimentada na seguinte estrutura: */
aRet := { <valor do título>,;
{;
{;
/* Primeiro título */
TIT_SELE,; //01-Posicao lógica (.T. marca o título para baixa, .F. não marca o título para baixa)
TIT_PREF,; //02-Prefixo do titulo, carácter.
TIT_NUME,; //03-Titulo, carácter.
TIT_PARC,; //04-Parcela, carácter.
TIT_VREA,; //05-Vencimento real, data.
TIT_VALO,; //06-Valor, numérico.
TIT_MULT,; //07-Multa, numérico.
TIT_JURO,; //08-Juros, numérico.
TIT_DESC,; //09-Desconto, numérico.
TIT_RECE,; //10-Recebimento, numérico.
TIT_TIPO,; //11-Tipo, carácter.
TIT_CONT,; //12-Contrato, carácter.
TIT_CLIE,; //13-Cliente, carácter.
TIT_LOJA,; //14-Loja, carácter.
TIT_FILI,; //15-Filial, carácter.
TIT_RECN,; //16-Recno - número da posição do registro da tabela SE1, numérico.
TIT_ACRS,; //17-Acrescimo financeiro, numérico.
TIT_CACR,; //18-Posicao logica, lógico.
TIT_ABAT,; //19-Abatimentos, numérico.
TIT_VENC,; //20-Vencimento original, data.
TIT_LOCK,; //21-Cod de uso do Registro, carácter.
TIT_MOED,; //22-Codigo da moeda do titulo, numérico.
TIT_INTE,; //23-Interes (Juros) - Posicao reservada, numérico.
TIT_DTBX,; //24-Dt. da baixa, data.
TIT_SALD,; //25-Saldo do titulo, numérico.
TIT_VLIQ; //26-Valor Liquido, numérico.
};
{;
/* Segundo título */
};
{;
/* Terceiro título */
};
...
};
}
Return .F. |