Fabio Brabo Brabo

Na verdade eu baixei ele do site da receita.

Boa Noite pessoal, Está dando um erro numa linha nada a ver, na hora que importo o XML pra dentro de um componente ACBrNFe1, estou usando o método mais simples possível mas mesmo assim não vai, segue o código, um print de onde está o erro e o arquivo XML que estou tentando importar. Código: DMNF.ACBrNFe1.NotasFiscais.Clear; DMNF.ACBrNFe1.NotasFiscais.LoadFromFile(CurDir + NomeArquivo); o Erro acontece no pcnNFeR.pas, na linha 396 : Itens := StringReplace(Itens, ItensTemp, '',[]); 53171021398281000152550010000002711717152288.xml

A estrutura é a seguinte: IntraWeb + ACBrMail, ou seja o cliente acessa pelo browser, minha app está no servidor. O problema: quando o cliente tenta enviar um email pelo app ele não vai, não dá erro nenhum, pelo contrário até confirma o envio, mas não envia. Só que seu eu pegar os dados do email do cliente (que já está configurado), entrar no meu servidor, abrir o browser e logar no email dele, aí vai. Enquanto eu não fazer esse trabalho manual de logar com a conta do meu cliente no meu servidor o ACBr não envia o email. É meio estranho mesmo de explicar mas não sei se consegui dessa vez...

Bom dia pessoal, uso o ACBrMail já faz um tempo, mas sempre enviava direto do email da empresa, agora surgiu uma demanda que o cliente entra com as configurações do email dele e o ACBr mail envia a partir do email dele, estou usando o Delphi XE 10 Seattle, Trunk2, e Intraweb, meu problema está na hora do envio, ele até dá a mensagem de que o email foi enviado com sucesso, mas na verdade não envia, e nem fica na caixa de saída do cliente nem nada, como se não tivesse nem conectado no email, mas seu eu pegar os dados do email do cliente e logar no servidor ele envia, ou seja, tenho que logar manual no browser com os dados do email do meu cliente no meu servidor, já coloquei as DLLs na pasta do aplicativo e nada. Alguém já passou por isso?

Funcionou Wess!! Muito Obrigado Cara!! Valeu mesmo! Principalmente pela rapidez na resposta!

Então, quando for calcular meus totais e o CSOSN for 400 ele não soma no total da base de cálculo é isso? È pq estou calculando os totais separado numa procedure: with DMNF.ACBrNFe1.NotasFiscais[0].NFe.Total.ICMSTot do begin vBC := 0; vICMS := 0; vFrete := 0; vSeg := 0; vOutro := 0; vDesc := 0; vBCST := 0; vST := 0; vIPI := 0; vPIS := 0; vCOFINS := 0; vProd := 0; vNF := 0; while not EoF do begin vBC := vBC + FieldByName('TOTAL').AsCurrency; <-- NÃO Calcular quando for CSOSN 400? vICMS := vICMS + FieldByName('VALORICMS').AsCurrency; vFrete := vFrete + FieldByName('FRETE').AsCurrency; vSeg := vSeg + 0; vOutro := vOutro + 0; vDesc := vDesc + FieldByName('DESCONTO').AsCurrency; //Substituição Tributária vBCST := vBCST + 0; vST := vST + 0; // //Valor do IPI vIPI := vIPI + FieldByName('VALORIPI').AsCurrency; //PIS vPIS := vPIS + FieldByName('VALORALIQPIS').AsCurrency; //COFINS vCOFINS := vCOFINS + FieldByName('VALORALIQCOFINS').AsCurrency; //Somat´roio dos produtos //if not FieldByName('IDMATERIAL').IsNull then vProd := vProd + FieldByName('TOTAL').AsCurrency; //Somatório do total da nota; vNF := vNF + vBC + vICMS + vFrete + vSeg + vOutro + vST + vIPI - vDesc; Next; end; end;

Boa Tarde pessoal, sou novo por aqui e nesse negócio de criação de NFe, consegui gerar toda a nota, ele passa pela função de ACBrNFe1.NotasFiscais.ValidarRegrasdeNegocios(ErrosRegraNegocio); e não dá nenhum erro, mas quando envia pro webservice está retornando com esse erro: Rejeicao: Total da BC ICMS difere do somatorio dos itens segue anexo o XML gerado! Vlw 53170621398281000152550010000000011106577242-nfe.xml

O meu tb! Mesmo erro! F:\Projetos\Components XE10\ACBr\Fontes\ACBrSerial\ACBrBALClass.pas(257) Error: E2003 Undeclared identifier: 'DecimalSeparator' F:\Projetos\Components XE10\ACBr\Fontes\ACBrSerial\ACBrBALClass.pas(257) Error: E2250 There is no overloaded version of 'StringReplace' that can be called with these arguments F:\Projetos\Components XE10\ACBr\Fontes\ACBrSerial\ACBrBALClass.pas(258) Error: E2250 There is no overloaded version of 'StringReplace' that can be called with these arguments F:\Projetos\Components XE10\ACBr\Fontes\ACBrSerial\ACBrBALClass.pas(262) Error: E2250 There is no overloaded version of 'Pos' that can be called with these arguments F:\Projetos\Components XE10\ACBr\Fontes\ACBrSerial\ACBrBAL.pas(2059) Fatal: F2063 Could not compile used unit 'ACBrBALClass.pas' Compilation failure Erro ao compilar o pacote "ACBr_Serial.dpk".