Vilmardiogo

Olá pessoal, é possível envio do email para o cliente e transportadora como é feito atualmente para o cliente ? Isso é possível ?

Ok, Daniel deixa comigo, vou entrar em contato com eles. Assim que tiver alguma informação posto aqui.

Bematech

Olá Daniel, esta melhoria esta disponível apenas para o ECF da EPSON ? Pois ainda não consegui resolver o problema emulando USB x Serial com o ACBr.

Pessoal acho que os comandos são estes; DATA e HORA = ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items.RetInfEvento.dhRegEvento; Nº PROTOCOLO = ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items.RetInfEvento.nProt;

Olá, não consegui identificar como pegar o número de protocolo e a data após o envio da CCe, vi que tem as tags no manual nas não consegui pegar o retorno no componente. Alguém tem alguma dica. tentei com a linha abaixo que esta no DEMO, mas não tem as tags para o protocolo e data, ou é de outra forma ? ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].XXXX

Bom dia, seguinte se vc tem o ACBr instalado, verifique na pasta C:\ACBr\Exemplos\ACBrNFe2\Delphi, tem DEMO ACBrNFe_demo é só abrir o projeto que no botão carta correção tem um exemplo prático da CCe.

Olá pessoal, tenho dúvida quanto a estas duas propriedades do componente, qual finalidade de ambas ? ACBrNFe1.WebServices.CartaCorrecao.PathArqEnv ACBrNFe1.WebServices.CartaCorrecao.PathArqResp

Olá, eu tb tenho problemas com a inutilização no componente, na verdade nunca consegui sempre me retorna a seguinte msg de regição: Ambiente..........: 1 Versão Aplicativo.: SVRS20100210132232 Status Código.....: 241 Status Descrição..: Rejeicao: Um numero da faixa ja foi utilizado UF................: RO Recebimento.......: 22/7/2011 10:41:37 e o número que estou tentando inutilizar nunca foi utilizado... estou passando os dados para o componente assim: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.WebServices.Inutilizacao.CNPJ := xCNPJ; ACBrNFe1.WebServices.Inutilizacao.Modelo := StrToInt(fldModelo.Text); ACBrNFe1.WebServices.Inutilizacao.Serie := StrToInt(fldSerie.Text); ACBrNFe1.WebServices.Inutilizacao.Ano := iAno; ACBrNFe1.WebServices.Inutilizacao.NumeroInicial := StrToInt(fldNumInicial.Text); ACBrNFe1.WebServices.Inutilizacao.NumeroFinal := StrToInt(fldNumFinal.Text); ACBrNFe1.WebServices.Inutilizacao.Justificativa := fldJustificativa.Text; ACBrNFe1.WebServices.Inutilizacao.Executar;

Olá juaumkiko muito obrigado pela dica, fiz como vc sugeriu e fico show de bola, estou mandano em anexo a unit com as alterações para vc fazer uma analize e se possível disponibilizar no SVN para que isso fique definitivo no projeto, abaixo segue informações das linhas que alterei na unit ACBrDanfeCBRaveRetrato. alteração nas linhas; 748 a 751 e 756 a 798 Olá juaumkiko, sei que a correria é grande, mas assim que tiver um tempinho de uma olhadinha no que estou propondo neste tópico. Obrigado...

Olá senhores modereadores, acredito que não tenhão muito tempo, não obtive nenhuma resposta qto a este tópico, se possível gostaria dentro do possível que dessem uma olhada nesta questão... obrigado.

Olá colega, especificamente como vc sugere não tem ! Mas no final da página 138 ao início da página 142 tem as CSTs do simples nacional, da pra se ter uma noção do que vc esta querendo.

Olá caros colegas fiz alguns ajustes na unit ACBrNFeWebServices, para melhor visualização das mensagens retornadas, segue em anexo arquivo TXT com exemplo para melhor entendimento e a unit . Peço aos responsáveis do projeto se estas mudanças que fiz não causar nenhum problema ao componente que a disponibilize no projeto, obrigado. ACBrNFeWebServices.pas Msg_WebService.txt

Olá arce, eu estava com este mesmo problema dias atras, fiz o seguinte; exclui dos fontes do ACBrNFe as units referentes ao RaveCB (Code Base), baixei novamente do SVN, exclui tb os arquivos .DCU referente as units, recompilei o projeto, apartir disso após ter compilado o sistema esta funcionando certinho. Detalhe uso Delphi 10 e Rave 7.7 BE.

Olá juaumkiko muito obrigado pela dica, fiz como vc sugeriu e fico show de bola, estou mandano em anexo a unit com as alterações para vc fazer uma analize e se possível disponibilizar no SVN para que isso fique definitivo no projeto, abaixo segue informações das linhas que alterei na unit ACBrDanfeCBRaveRetrato. alteração nas linhas; 748 a 751 e 756 a 798 ACBrDANFeCBRaveRetrato.pas

Olá pessoal me deparei com o seguinte detalhe ao imprimir o DANFE pelo CodeBase o espaço para o detalhamento de Faturas/Duplicatas, o campo do Cobr.Dup.Add.nDup esta remontando com o campo vencimento como podem ver no arquivo em anexo. Isso é um problema para quem prescisa passar por exemplo número de boletos com 17 posições. É possivel aumentar este espaço ou esta limitado mesmo ? No manual da NF-e diz que pode ir até 60 caracteres. Fiz um ajuste no meu código estou passando apens 12 caracteres da direita para a esquerda, mas isso fica incompleto no caso de número de nosso número com 17 posições. Se alguém tiver alguma dica...

Olá pessoal, é possível que o canhoto do DANFE no CodeBase saia no final da página ao invés do inicio ?

Olá pessoal... conforme exigência da legislação, (“§ 6o A partir de 1o de julho de 2011, fica obrigatório o preenchimento dos campos cEAN e cEANTrib da NF-e, quando o produto comercializado possuir código de barras com GTIN (Numeração Global de Item Comercial).”). Já me antecipando, resolvi criar uma função que faça a validação do digito verificador dos códigos de barras, de acordo com o manual da EAN Brasil. Esta função valida todos os códigos, de acordo com o que esta no final da página 57, do manual do usuário. Códigos de barra que a função valida GTIN - 8 UCC - 12 GTIN - 13 GTIN - 14 SSCC - 18 ----------------------------------------------- código da função Valida_EAN function Valida_EAN(vEan: String): Boolean; var Temp1, Temp2, Digito: Integer; Temp3, Temp4: String; begin Result := False; Temp2 := 0; Temp3 := ''; if ((Length(vEan) <> 8) and (Length(vEan) <> 12) and (Length(vEan) <> 13) and (Length(vEan) <> 18)) then Exit; Temp4 := '31313131313131313'; Temp4 := Copy(Temp4,(Length(Temp4)-Length(vEan)),Length(vEan)-1); Digito := StrToInt(Copy(vEan,Length(vEan),1)); Temp3 := Copy(vEan,1,Length(vEan)-1); for Temp1 := 1 to Length(Temp3) do Temp2 := Temp2+StrToInt(Temp3[Temp1])*StrToInt(Temp4[Temp1]); Temp2:=10-Round(Frac(Temp2/10)*10); if Temp2 = 10 then Temp2 := 0; Result := (Temp2 = Digito); end; Peço aos colegas desenvolvedores que analizem o código da função a fim de melhorar o código, pois criei ela na correria... E aos colegas responsáveis pelo projeto ACBr se esta função for de utilidade para o projeto que a coloquem no projeto pra que outras pessoas possão utilizá-la.