ítalo tinha outra pessoa com o mesmo problema mas era no cancelamento e lá você pediu para atualizar os fontes... Fiz o mesmo procedimento, e funcionou perfeitamente... atualizando o tópico como resolvido.
with DM.SqlAux5 do begin
LimpaSQL(DM.SqlAux5);
SQL.Add('SELECT * FROM CTE05 WHERE CODC=:xCODC');
Parameters.ParambyName('xCODC').Value := StrToInt(txtCod.Text);
Open;
First;
end;
j := 0;
j := DM.SqlAux5.RecordCount;
if j > 0 then begin
for i := 1 to j do begin
with infCTeNorm.infDoc.infNFe.Add do begin
chave := Trim(DM.SqlAux5.FieldByName('CHAVE').AsString);
PIN := Trim(DM.SqlAux5.FieldByName('PIN').AsString);
dPrev := StrToDate(txtGeraDtPrevista.Text);
end;
DM.SqlAux5.Next;
end;
end;
Faço assim e dá certo...
Abraço,
Wagner
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.
