Ir para conteúdo
  • Cadastre-se

CARLOS ADRIANO P MORAES

Membros
  • Total de ítens

    18
  • Registro em

  • Última visita

Posts postados por CARLOS ADRIANO P MORAES

  1. Boa noite!

     Consegui. So que tive que Formata a maquina. Mas agora não consigo instalar o Fortes para depois instalar o ACBr, tentei instalar o ACBr mas da erro...

    NÃO TA FACIL VIU

     

     

    • Curtir 1
  2. Bom dia!

            Já fiz isso 2 vezes. Rodei o apagarAcbr antes de reinstalar.

            Mas achei a solução. Era a mudança de nome do arquivo e obrigado a todos.

           Encerrado..

     

     

  3. ESTA DECLARADO EM OUTRA UNIT: (Global)

      SmtpServerName         : String;
       nSmtpServerPort         : Integer;
       sSmtpServerUserName     : String;
       sSmtpServerPassword     : String;
       nSmtpAuthType           : Integer;

     

    Estou Usando

    uses SQLServer;

     

    procedure TFrmNotaFiscalProcessamento.BtnEnviarEMailNFeClick(Sender: TObject);
    var
     CC: Tstrings;
    begin
       IF (db_Vendas_NFE.IsEmpty) or (db_Vendas_NFE.RecordCount<1) Then
       begin
         AvisoSistemaErro('Primeiro localize a NF (F8) para depois Cancelar');
         exit;
       end;

       if not FileExists(Trim(BaseDados.db_Vendas.FieldByName('NFE_ARQUIVO').AsString)) then
       begin
         Informar('Arquivo XML não foi gerado para enviar por e-mail.');
         exit;
       end;

       sUserNameEmail := LowerCase(FParametros.Empresa.Email) ;
       BaseDados.ACBrNFe1.NotasFiscais.Clear;
       BaseDados.ACBrNFe1.NotasFiscais.LoadFromFile(Trim(db_Vendas_NFE.FieldByName('NFE_ARQUIVO').AsWideString));

       CC:=TstringList.Create;
       CC.Add('[email protected]'); //especifique um email válido
       //CC.Add('');    //especifique um email válido
       BaseDados.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(
                                                  sSmtpServerName
                                                , IntToStr(nSmtpServerPort)
                                                , sSmtpServerUserName
                                                , sSmtpServerPassword  ---ERRO
                                                , sSmtpServerUserName --ERRO
                                                , LowerCase( fncBuscaClienteEmail(inCliente) ) --ERRO
                                                , 'NOTA FISCAL ELETRONICA ' + IntToStr(inNotaFiscal) --ERRO
                                                , MemoMSG.Lines  // mensagem de texto (corpo do email)
                                                , True // SSL - Conexão Segura
                                                , True //Enviar PDF junto
                                                , CC //Lista com emails que serão enviado cópias - TStrings
                                                , nil // Lista de anexos - TStrings
                                                , False  //Pede confirmação de leitura do email
                                                , True  //Aguarda Envio do Email(não usa thread)
                                                , FParametros.Empresa.NomeFantasia // Nome do Rementente
                                                , True ); // Auto TLS
       CC.Free;

    end;

    ERRO:

    [dcc32 Error] FNotaFiscalProcessamento.pas(266): E2010 Incompatible types: 'TStrings' and 'string'
    [dcc32 Error] FNotaFiscalProcessamento.pas(267): E2010 Incompatible types: 'Boolean' and 'string'
    [dcc32 Error] FNotaFiscalProcessamento.pas(268): E2010 Incompatible types: 'TStrings' and 'string'
    [dcc32 Error] FNotaFiscalProcessamento.pas(269): E2010 Incompatible types: 'TStrings' and 'string'

×
×
  • Criar Novo...

Informação Importante

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.

The popup will be closed in 10 segundos...