Enviar NF-e da erro de compilação

08/07/2013

2

o código está igual ao exemplo do ACBr, mas na linha em destade da erro descrito abaixo:

procedure TF_NFeDanfe.lb_emailClick(Sender: TObject);
var
Para : String;
CC: Tstrings;
begin
CC:=TstringList.Create;

F_DMdados.cdsEmail.Close;
F_DMdados.cdsEmail.CommandText := 'SELECT * FROM STEMAIL WHERE EML_CODPARCEIRO = :EML_CODPARCEIRO';
F_DMdados.cdsEmail.Params[0].AsInteger := codparceiro;
F_DMdados.cdsEmail.Open;

if (F_DMdados.cdsEmail.RecordCount <> 0) then
begin
while not F_DMdados.cdsEmail.Eof do
begin
CC.Add(Trim(F_DMdados.cdsEmailEML_EMAIL.AsString)); //especifique um email válido
// CC.Add('andrefmoraes@gmail.com'); //especifique um email válido
F_DMdados.cdsEmail.Next;
end;
F_DMdados.cdsEmail.Close;
end;

F_DMdados.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(F_DMdados.sHostSMTP
, F_DMdados.sPortaSMTP
, F_DMdados.sUsuarioSMTP
, F_DMdados.sPassSMTP
, email_emitente
, ed_destemail.Text
, F_DMdados.sAssunto
, F_DMdados.sMsg
, BoolToStr(F_DMdados.sSSL)
, True
, CC
, nil
, False
, False
, ed_EMRazao.Text
, BoolToStr(F_DMdados.sSSL)
, False);
CC.Free;

lb_fechar.Enabled := True;
lb_fechar.SetFocus;
end;


erro:
[Error] U_NFeDanfe.pas(7644): Incompatible types: 'TStrings' and 'String'

help!!!!!!!!!!!!!
Responder

Posts

08/07/2013

Luiz Estevam

desculpe.

a linha do erro

, BoolToStr(F_DMdados.sSSL)

grato
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar