Problema: Descrição do Problema:  Ao validar o módulo compras, mensagem:

Não é possivel obter dados do cursor CUR_E440RAT porque este está sem registro ativo ou está no fim.

Quando ocorre / onde se aplica:Tela F645CTB
Solução: Solução: A mensagem ocorre porque:
Na forma de contabilização, a tabela base é a E440NFC, porém existe um cursor para tabela de rateios(E440RAT) e a Nota Fiscal de compras estava sem rateio nos dados gerais, havia rateios apenas nos itens.
Ou a forma de contabilização deve alterar a tabela base para tabela de itens ou a Nota fiscal deverá ter rateios nos dados gerais, não nos itens.

Ou;
Na regra não tinha:
se (Cur_E440RAT.Achou)

Segue regra correta:

Definir Alfa VCodSnf;

Definir Cursor cUR_E440RAT;

VCodEmp = 1;

VCodFil = 1;

VNumNfc = E440Nfc.NumNfc;

VCodSnf = E440Nfc.CodSnf;

VSeqRat = 1;

Cur_E440RAT.Sql Select CtaRed From E440RAT
where CodEmp=:VCodEmp and
CodFil=:VCodFil and
NumNfc=:VNumNfc and
CodSnf=:VCodSnf and
SeqRat=:VSeqRat;

Cur_E440RAT.Abrircursor();

se (Cur_E440RAT.Achou)

vCtaDeb2=Cur_E440RAT.CtaRed;


Cur_E440RAT.Fecharcursor();