LJ7026 - Criação de regra para seleção das NCCs.

Esse ponto de entrada é executado antes da exibição da tela com as NCCs do cliente. Permite que seja criada uma regra para seleção das NCCs.

O parâmetro MV_USACRED = 'S' influencia esse ponto de entrada. Se estiver desabilitado (igual a 'N'), o ponto de entrada não será executado.

nenhum

Não existe retorno da função.

Deve ser preenchido o array bidimensional Private aNccItens. Em cada dimensão deve conter seguintes informações:

[1] - .T. para que a NCC venha selecionada, .F. para que não venha não selecionada
[2] - Valor da NCC (E1_SALDO)
[3] - Número da NCC (E1_NUM)
[4] - Data de emissão da NCC (E1_EMISSAO)
[5] - Número do registro no (SE1->(Recno())
[6] - Saldo do título (E1_SALDO)
[7] - Simbolo Moeda ( exemplo : SuperGetMV("MV_MOEDA1") )
[8] - Moeda ( E1_MOEDA )
[9] - Prefixo ( E1_PREFIXO )
[10] -Parcela ( E1_PARCELA )
[11] -Tipo (E1_TIPO)
[12] -Filial (E1_FILIAL)

LOJA701B.PRW

User Function LJ7026() 
Local cQry  := ""   

cQry := "SELECT * "
cQry += "FROM " + RETSQLNAME("SE1") + " "
cQry += "WHERE E1_FILIAL = '"+  xFilial('SE1') + "' AND "
cQry += "(E1_TIPO = 'RA ' OR E1_TIPO = 'NCC') AND "
cQry += "E1_CLIENTE = '" + M->LQ_CLIENTE + "' AND "
cQry += "E1_LOJA = '" + M->LQ_LOJA + "' AND "
cQry += "E1_SALDO > 0 AND " 
cQry += "D_E_L_E_T_ = '' "
cQry += "ORDER BY E1_NUM, E1_EMISSAO"

TCQUERY cQry NEW ALIAS "QRY"

DbSelectArea("QRY")

While (QRY->(EOF()) == .F.)
    
    aAdd(aNCCItens,{.F.,;
                    QRY->E1_SALDO,;
                    QRY->E1_NUM,;
                    STOD(QRY->E1_EMISSAO),;
                    QRY->R_E_C_N_O_,;
                    QRY->E1_SALDO,;
                    SUPERGETMV("MV_MOEDA1"),;
                    QRY->E1_MOEDA,;
                    QRY->E1_PREFIXO,;
                    QRY->E1_PARCELA,;
                    QRY->E1_TIPO,;
                    QRY->E1_FILIAL})

    QRY->(DbSkip())
End  

QRY->(DbCloseArea())
    
Return