Jéter Rabelo Ferreira

Bom dia. No exemplo do Regys, ele realmente só testa um cStat: 135., Porém, o método "EnviarEventoNFe" retorna um boolean: True: Ok False: Erro Eu testo o retorno desse método e não tive nenhum tipo de problemas, (ainda ) Atenciosamente

Bom dia. Você tentou "debugar" o programa para ver onde o erro ocorre? Se é o criar o arquivo PDF ou na leitura das logos? Tive um problema num cliente meu tempos atrás que o usuário não tinha permissão para gravar na pasta, e também não tinha permissão para ler na pasta de Logos dos bancos. Atenciosamente

Boa tarde. Existe uma property chamada ACBrBoleto.ACBrBoletoFC.NomeArquivo. Coloque o NomeArquivo completo: Path\nome.pdf Atenciosamente.

Ok Daniel, Sem problemas. Atenciosamente.

Boa tarde. Efetuei umas poucas alterações no componente e também na estrutura da pasta do arquivo, para ficar igual aos pacotes ACBr. Atenciosamente. ACBrConvenio115.rar

Boa tarde. Eu tive problemas com a impressão em alguns clientes que utilizavam o tamanho da Fonte do Desktop como 125%. (DPI) Ocorre de alguns usuários colocarem uma resolução muito grande em monitores pequenos e não conseguirem ler, e aí, em vez de diminuir a resolução, eles colocam 125% do DPI da fonte. Em alguns casos ferrava com a impressão no fortes. Verifica se não é o teu caso. Atenciosamente.

http://eugostododelphi.blogspot.com.br/2010/01/como-fazer-icone-para-seus-componentes.html

Você testou noutra impressora?

Daniel, bom dia. Segue anexo um arquivo contendo: - Pacote - Componente - Exemplo Qualquer dúvida, estou a disposição. Atenciosamente ACBrConvenio115.rar ACBrConvenio115.rar

Esse erro ocorre em mais de uma impressora? Atenciosamente

Daniel Vou providenciar isso, começando em renomear meu componente para TACBrConvenio115. Meu único problema é o ícone, sou péssimo nisso Depois que estiver tudo OK, eu anexo aqui para vocês analizarem. Atenciosamente

Seguem anexos arquivos de demonstração Uma informação. O componente vai trabalhar da mesma que forma o sintegra: Apenas geração dos arquivos Caso acharem necessário a impressão, posso alterar meu form de impressão para ler as classes do referido componente. Pois eu fiz todo o processo de impressão e deixei a geração dos arquivos magnéticos por último, por isso não está sendo utilizado o mesmo na impressão. Mas, como eu disse no Post Anterior, a impressão é livre para cada empresa. Atenciosamente arquivos.7z arquivos.7z

Sem probelmas. Vamos as respostas: "A ideia é fazer apenas a geração dos Arquivos ? ou também a impressão da NF ?:" O componente que criei gera apenas os arquivos. Eu fiz a impressão utilizando como base o form da NF-e/Fortes, mas utilizando as minhas classes. Como disse no Post anterior, não há nenhuma regulamentação a respeito do impressão, portanto as empresas podem imprimir sua NF como quiser, criando seus prórpios LayOuts desde que contenha o MD5 (Assinatura) num campo de 12cm2 com as informações "Reservado ao Fisco" "Há alguma necessidade de transmitir esses arquivos para algum WebService ?" Não. Deve-se gravar um CD/DVD e enviar à SEF até o 5º dia do mês subsequente (ainda estamos verificando isso, pois varia de estado para estado) "O MD5 poderia ser computado com o ACBrEAD" Sim, estou utilizando essa classe mesmo. Sempre a disposição.

Oi Daniel Obs: Estou criando outro post pois não consigo acessar o original " Oi Jeter, A NFe não contempla esta operação ? Qual seria a base para o novo componente. ( ACBrSintegra, ACBrSPED, etc ) ?" Respondendo as suas perguntas: A NFe não contempla esta operação ? Não. Segue abaixo a primeira cláusula do referido convênio: Cláusula primeira A emissão, escrituração, manutenção e prestação das informações relativas aos documentos fiscais a seguir enumerados, com emissão em uma única via por sistema eletrônico de processamento de dados obedecerão ao disposto neste convênio: I - Nota Fiscal/Conta de Energia Elétrica, modelo 6; II - Nota Fiscal de Serviço de Comunicação, modelo 21; III - Nota Fiscal de Serviço de Telecomunicações, modelo 22; IV - qualquer outro documento fiscal relativo à prestação de serviço de comunicação ou ao fornecimento de energia elétrica. Qual seria a base para o novo componente. ( ACBrSintegra, ACBrSPED, etc ) ? Ele não se parece com nenhum dos dois, pois são gerados 4 arquivos contendo as seguintes informações: - Mestre: (Dados da NF,e valores) - Items: (Detalhamento do items que compõem o mestre) - Destinatario: (Todos os destinatários, mesmo que repetidos. Esse arquivo deve ter o mesmo tamanho do Mestre em bytes. Os dois tem o tamanho de 258 caracteres) - Totalizador (O programa validador cria esse, por isso eu nem implementei a geração desse) Obs: O arquivo é delimitado por espaços, como o Sintegra. Caso queira, pode ler a respeito no endereço: http://www.fazenda.gov.br/confaz/confaz/convenios/icms/2003/CV115_03.htm Programa validador e demais informações podem ser acessadas em: http://www.fazenda.sp.gov.br/download/comunica_energia.shtm Deu muito trabalho para reunir as informações. Procuramos a SEF e eles não sabiam nada para poder nos ajudar. Um detalhe que me chamou a atenção nesse convênio é que a numeração das Notas são zeradas a cada mês, começando em 1 novamente. A semelhança com a NF-e é a impressão, não há necessidade de ser formulário autorizado. É feita em folha tipo A4 mesmo. A única exigência é a respeito da assinatura MD5 que deve ficar numa região de 12 cm2. No demais, não tem mais nenhhum regra na impressão. Outra coisa, essa NF é emitida somente para os serviços que envolvam - Provimento de Internet, TV por Assinatura, Fornecimento de Energia e etc (Conforme informações no convênio). Quando a empresa for vender equipamentos, deve-se utilizar a NF-e mesmo. Quanto a isso não há alteração. Outra coisa é que devem ser lançados nessas NF's a cobrança referente a Juros/Multa, Taxas e etc. Mesmo os valores que não fazem parte da BC de ICMS. Tome como base uma conta de Telefone, Internet, Energia elétrica e etc. Essas empresas utilizam esse convênio para pode emitir suas NF's. Qualquer outra dúvida estou a disposição. Atenciosamente.

Olá. Tenho um cliente (Provedor de Internet) que me solicitou que as NF's dele fossem emitidas "eletronicamente". Pesquisando, verificamos que as empresas prestadoras de serviço de Energia e Telecomunicações são abrangidas pelo Convênio 115/03. Esse convênio, entre outras coisas, dá a possibilidade da empresa emitir NF's "eletrônicamente", que podem ser impressas em folha A4 e etc, obedecendo poucas regras. Uma dessas regras é que sejam gerados (4) arquivos textos contendo os dados dessas notas. Partindo dessa premissa, desenvolvi um componente para faz a geração desses arquivos, o mesmo é composto de apenas uma unit. Depois desse discurso, vai minha pergunta: Estou disposto a doar esse componente para o ACBr. Há interesse? Atenciosamente..

Olá. Abra o arquivo RLibWinD7vcl.dpk (Delphi 7 mesmo). Compile e instale e pronto. Obs: Coloque a pasta na Library do delphi Atenciosamente.

Boa tarde. Ok Tati. Se possível, clique em Resolvido para marcar esse como tal. Atenciosamente.

Bom dia. A tag do desconto no ítem é vDesc mesmo. Verifique no manual (Na versão 5.0 pág. 161) É feita uma conferência se os valores informados nos ítems conferem com o total informado: (vICMS, vSeg, vFrete e etc) Se a soma dos ítems não conferir com o total, retorna o erro que você obteve. Atenciosamente

Bom dia. O valor do desconto deve ser fornecido também no ítem. Atenciosamente

Bom dia. Se não me engano, com o SP do windoqws XP dá problemas. Atualize para o o SP3 e instale as novas cadeias de certificado. Atenciosamente,

Boa tarde. Ops!, Desculpe a falha! É que quando eu homologuei a remessa com o Bradesco, eu enviei a remessa e os boletos em pdf diretamente para a Scopus, e os mesmos tinhma a extensão .rem. Atenciosamente

Bom dia. Tenho cliente enviando arquivos remessa para o Bradesco e a extensão sempre foi .rem. Atenciosamente.

Boa tarde. Dando um "Google" no seu problema, vi o seguinte: http://stackoverflow.com/questions/3520186/delphi-jpeg-error-53 Ítem 2 " Does it occur to a single jpeg image or with all jpegs you try? JPEG error #53 error will come due to Insufficient memory. If file is corrupted, this error may occur. So opening this image in paint or photoshop and re-saving it in jpeg can solve the problem." Resumindo: Falta de Memória ou Imagem Corrompida! Atenciosamente.

Bom dia. O MySQL é CaseSensitive quando está instalado em sistemas Linux Like. Mas em ambientes Windows não. Atenciosamente.

Bom dia. Faça o inverso que você faz para emitir uma NF-e. No meu caso, eu coloco os dados numa classe e depois no Banco de Dados. Segue abaixo minha rotina: function TACBrNFeConfig.CarregaNFe(Sender: TObject; ATerceiro: Boolean): Boolean; var loNF_Ref: TNotaFiscalReferenciada; loItem: TNotaFiscalIT; LoFat: TNotaFiscalFaturas; I: Integer; begin Result := False; if TACBrNFeConfig.GetInstance.AbrirXML(True) = '' then Exit; with Sender as TNotaFiscal do begin ClearValues; with FNFe.NotasFiscais.Items[0].NFe do begin NFeOK := True; PropriaTerceiro := iif(ATerceiro, tTerceiro, tPropria); EntradaSaida := iif(ATerceiro, tEntrada, tSaida); NaturezaOperacao := Ide.natOp; ControleNF := Ide.cNF; NumeroNF := Ide.nNF; NotaFiscalCFG.Modelo := IntToStr(Ide.modelo); NotaFiscalCFG.Serie := IntToStr(Ide.serie); Emissao.Data := Ide.dEmi; Emissao.Saida := Ide.dSaiEnt; Emissao.Contabil := Ide.dEmi; TipoPagamento := Ide.indPag; Empresa.Endereco.IBGE.Municipio := IntToStr(Ide.cMunFG); TipoNFe := Ide.finNFe; SCAN.DataHora := Ide.dhCont; SCAN.Motivo := Ide.xJust; for I := 0 to Ide.NFref.Count - 1 do begin if Ide.NFref.Items[I].refNFe <> '' then begin loNF_Ref := TNotaFiscalReferenciada.Create; Referenciada.Items[I].ChaveNFe := Ide.NFref.Items[I].refNFe; Referenciada.Add(loNF_Ref); end; end; // Emitente é sempre a EMPRESA Empresa.Clone(TUsuario.GetInstance.CentroCusto); // Origem if ATerceiro then begin if not TEmpresa.CNPJFilial(Dest.CNPJCPF) then raise Exception.Create('NF-e não é destinada a empresa!'); Destinatario.Tipo := tcfFornecedor; if Destinatario.GetRecord(FormatarCnpjCpf(Emit.CNPJCPF)) = 0 then begin with Destinatario do begin with Cadastro do begin RazaoSocial := Utf8ToAnsi(Emit.xNome); if Utf8ToAnsi(Emit.xFant) <> '' then Nome := Utf8ToAnsi(Emit.xFant) else Nome := Utf8ToAnsi(Emit.xNome); Inscricao := EMit.IE; Cnpj_Cpf := FormatarCnpjCpf(EMit.CNPJCPF); end; with Endereco do begin Endereco := Utf8ToAnsi(EMit.EnderEmit.xLgr); Numero := EMit.EnderEmit.nro; Complemento := Utf8ToAnsi(EMit.EnderEmit.xCpl); Bairro := Utf8ToAnsi(EMit.EnderEmit.xBairro); CEP := IntToStr(EMit.EnderEmit.CEP); FormatarCEP; IBGE.Municipio := IntToStr(EMit.EnderEmit.cMun); Cidade := Utf8ToAnsi(EMit.EnderEmit.xMun); UF := EMit.EnderEmit.UF; end; with Telefone do begin Telefone := FormatarFONE(EMit.EnderEmit.fone); end; if not Destinatario.PutRecord then begin MsgErro('O fornecedor não está cadastrado!' + CRLF + 'O sistema tentou cadastrar mas houve um erro.' + CRLF + 'Efetue o cadasto do fornecedor dessa NF-e' + CRLF + 'para prosseguir com a importação.'); Exit; end; end; end; end else begin if not TEmpresa.CNPJFilial(Emit.CNPJCPF) then raise Exception.Create('NF-e não é emissão própria!'); Destinatario.Tipo := tcfCliente; if Destinatario.GetRecord(FormatarCnpjCpf(Dest.CNPJCPF)) = 0 then begin with Destinatario do begin with Cadastro do begin RazaoSocial := Utf8ToAnsi(Dest.xNome); Nome := Utf8ToAnsi(Dest.xNome); if Length(OnlyNumber(Dest.CNPJCPF)) > 11 then begin FJ := 'J'; Inscricao := Dest.IE; end else begin FJ := 'F'; Inscricao := 'ISENTO'; end; Cnpj_Cpf := FormatarCnpjCpf(Dest.CNPJCPF); end; with Endereco do begin Endereco := Utf8ToAnsi(Dest.EnderDest.xLgr); Numero := Dest.EnderDest.nro; Complemento := Utf8ToAnsi(Dest.EnderDest.xCpl); Bairro := Utf8ToAnsi(Dest.EnderDest.xBairro); CEP := IntToStr(Dest.EnderDest.CEP); FormatarCEP; IBGE.Municipio := IntToStr(Dest.EnderDest.cMun); Cidade := Utf8ToAnsi(Dest.EnderDest.xMun); UF := Dest.EnderDest.UF; end; with Telefone do begin Telefone := FormatarFONE(Dest.EnderDest.fone); end; if not PutRecord then begin MsgErro('O Cliente não está cadastrado!' + CRLF + 'O sistema tentou cadastrar mas houve um erro.' + CRLF + 'Efetue o cadasto do cliente dessa NF-e' + CRLF + 'para prosseguir com a importação.'); Exit; end; end; end; end; // Produtos for I := 0 to Det.Count - 1 do begin loItem := TNotaFiscalIT.Create; with Det.Items[I], loItem do begin InfoAdicionais := StringReplace(Utf8ToAnsi(infAdProd), ';', #13#10, [rfReplaceAll]); NumeroOrdem := Prod.nItem; CFOP.ID := Prod.CFOP; with Produto do begin if not ATerceiro then ID := StrToInt(Prod.cProd) else ID := 0; Descricao := Utf8ToAnsi(Prod.xProd); Produto.NCM := Prod.NCM; end; EanTrib := Prod.cEANTrib; Unidade := Prod.uTrib; UnidadeTrib := Prod.uTrib; if Prod.qTrib > 0 then Quantidade := Prod.qTrib else Quantidade := Prod.qCom; QuantidadeTrib := Prod.qTrib; with Valor do begin Unitario := Prod.vUnCom; UnitarioTrib := Prod.vUnTrib; Desconto := Prod.vDesc; Produto := Prod.vProd; with Outros do begin Frete := Prod.vFrete; Seguro := Prod.vSeg; end; end; with Imposto, Valor do begin with ICMS do begin loItem.CST.ID := OrigToStr(Orig) + CSTICMSToStr(CST); Tributos.ICMS.Modalidade := modBC; Tributos.ICMS.ReducaoBase := pRedBC; Tributos.ICMS.Aliquota := pICMS; Tributos.ICMS.Valor := vICMS; Tributos.ICMS.BaseCalculo := vBC; // ST Tributos.ICMS_ST.Modalidade := modBCST; Tributos.ICMS_ST.ReducaoBase := pRedBCST; Tributos.ICMS_ST.Aliquota := pICMSST; Tributos.ICMS_ST.BaseCalculo := vBCST; Tributos.ICMS_ST.Valor := vICMSST; Tributos.ICMS_ST.IVA := pMVAST; if vBCSTRet > 0 then Tributos.ICMS_ST.BaseCalculo := vBCSTRet; if vICMSSTRet > 0 then Tributos.ICMS_ST.Valor := vICMSSTRet; end; with PIS do begin Tributos.PIS.SituacaoTributaria := CSTPISToStr(CST); Tributos.PIS.BaseCalculo := vBC; Tributos.PIS.Aliquota := pPIS; Tributos.PIS.Valor := vPIS; end; with COFINS do begin Tributos.COFINS.SituacaoTributaria := CSTCOFINSToStr(CST); Tributos.COFINS.BaseCalculo := vBC; Tributos.COFINS.Aliquota := pCOFINS; Tributos.COFINS.Valor := vCOFINS; end; with IPI do begin Tributos.IPI.SituacaoTributaria := CSTIPIToStr(CST); Tributos.IPI.BaseCalculo := vBC; Tributos.IPI.Aliquota := pIPI; Tributos.IPI.ValorIPI := vIPI; Tributos.IPI.QtdeUnidPadrao := qUnid; Tributos.IPI.ValorUnidade := vUnid; end; Total := Produto - Desconto + Tributos.ICMS_ST.Valor + Tributos.IPI.ValorIPI + Outros.Frete + Outros.Seguro; end; end; Produtos.Add(loItem); end; // Totais da NF Valor.Tributos.icms.baseCalculo := total.ICMStot.vBC; Valor.Tributos.ICMS.Valor := total.ICMStot.vICMS; Valor.Tributos.ICMS_ST.baseCalculo := total.ICMStot.vBCST; Valor.Tributos.ICMS_ST.Valor := total.ICMStot.vST; Valor.Produto := total.ICMStot.vProd; Valor.Outros.Frete := total.ICMStot.vFrete; Valor.Outros.Seguro := total.ICMStot.vSeg; Valor.Desconto := total.ICMStot.vDesc; Valor.Outros.Frete := total.ICMStot.vFrete; Valor.Outros.Seguro := total.ICMStot.vSeg; Valor.Tributos.IPI.ValorIPI := total.ICMStot.vIPI; Valor.Tributos.PIS.Valor := total.ICMStot.vPIS; Valor.Tributos.COFINS.Valor := total.ICMStot.vCOFINS; Valor.Outros.OutrasDespAcess := total.ICMStot.vOutro; Valor.Total := total.ICMStot.vNF; //Transportadora with Transp do begin case modFrete of mfContaEmitente: Frete := tfEmitente; mfContaDestinatario: Frete := tfDestinatario; mfContaTerceiros: Frete := tfTerceiros; mfSemFrete: Frete := tfTerceiros; end; with Transporta do begin Transportadora.Cadastro.Cnpj_Cpf := FormatarCnpjCpf(CNPJCPF); Transportadora.Cadastro.RazaoSocial := xNome; Transportadora.Cadastro.Inscricao := IE; Transportadora.Endereco.Endereco := xEnder; Transportadora.Endereco.Cidade := xMun; Transportadora.Endereco.UF := UF; end; if Vol.Count > 0 then begin with Vol.Items[0], Volumes do begin Quantidade := qVol; Especie := Utf8ToAnsi(esp); Marca := Utf8ToAnsi(marca); Numero := nVol; PesoBruto := PesoB; PesoLiquido := PesoL; end; end; end; for I := 0 to Cobr.Dup.Count - 1 do begin LoFat := TNotaFiscalFaturas.Create; LoFat.Fatura := Cobr.Dup.Items[I].nDup; LoFat.Data := Cobr.Dup.Items[I].dVenc; LoFat.Valor := Cobr.Dup.Items[I].vDup; Faturas.Add(LoFat); end; // Informações InfAdicionaisContribuinte.Text := StringReplace(Utf8ToAnsi(infAdic.infCpl), ';', crlf, [ rfReplaceAll]); InfAdicionaisFisco.Text := StringReplace(Utf8ToAnsi(infAdic.infAdFisco), ';', crlf, [ rfReplaceAll]); ChaveNFe := OnlyNumber(infNFe.ID); end; end; Result := True; end; Atenciosamente.