Enviar NF-e da erro de compilação
08/07/2013
0
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!!!!!!!!!!!!!
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!!!!!!!!!!!!!
Luiz Estevam
Curtir tópico
+ 0
Responder
Posts
08/07/2013
Luiz Estevam
desculpe.
a linha do erro
, BoolToStr(F_DMdados.sSSL)
grato
a linha do erro
, BoolToStr(F_DMdados.sSSL)
grato
Responder
Clique aqui para fazer login e interagir na Comunidade :)