Sergio Augusto

Pessoal para quem precisar tem este anexo aqui que acho ter mais detalhado os códigos para serem usados verifiquem https://www.confaz.fazenda.gov.br/anexo-i.pdf Eu tenho uma dúvida: "I - campo ID I18 (xCampoDet): preencher com “Cod. CEST”; II - campo ID I19 (xTextoDet): utilizar o Código Especificador da Substituição Tributária - CEST, conforme definido no convênio ICMS 92, de 20-08-2015.” (NR)." Qual a diferença entre o valor que devo informar no campo 18 e campo 19????? Parece ser a mesma coisa.

Eu achei melhor assim... vou postar com //sergio onde alterei... se alguem quiser dar uma olhada... não custa postar...rsrs function TACBrSATExtratoFortesFr.CalcularTamanhoDaPagina(AReport: TRLReport ): Integer; var TotalPaginaPixel: Integer; i:integer; //sergio begin if AReport = rlVenda then // Calculando o tamanho da Página em Pixels // TotalPaginaPixel := rlbsCabecalho.Height + rlbRodape.Height + //round( rlsbDetItem.Height * ACBrSATExtrato.CFe.Det.Count ) + //sergio rlObsContrib.Height else TotalPaginaPixel := rlbCabecalhoCan.Height + rlbDadosCupomCancelado.Height + rlbCanRodape.Height + ifthen( (ACBrSATExtrato.CFe.ide.tpAmb = taHomologacao), rlbTeste.Height, 0 ) ; //SERGIO inicio if AReport = rlVenda then for i := 0 to ACBrSATExtrato.CFe.Det.count-1 do begin TotalPaginaPixel:=TotalPaginaPixel+rlbDetItem.Height; if (not Resumido) and (ACBrSATExtrato.CFe.Det.Items.Prod.vDesc > 0) then begin TotalPaginaPixel:=TotalPaginaPixel+rlbDescItem.Height; end; if (not Resumido) and (ACBrSATExtrato.CFe.Det.Items.Prod.vOutro > 0) then begin TotalPaginaPixel:=TotalPaginaPixel+rlbOutroItem.Height; end; if (not Resumido) and (ACBrSATExtrato.CFe.Det.Items.Imposto.ISSQN.vDeducISSQN > 0) then begin TotalPaginaPixel:=TotalPaginaPixel+rlbDeducISSQN.Height; end; if i=ACBrSATExtrato.CFe.Det.count-1 then begin //ultimo TotalPaginaPixel:=TotalPaginaPixel+rlbSubTotal.Height; TotalPaginaPixel:=TotalPaginaPixel+rlbDescontos.Height; TotalPaginaPixel:=TotalPaginaPixel+rlbAcrescimos.Height; TotalPaginaPixel:=TotalPaginaPixel+rlbTotal.Height; TotalPaginaPixel:=TotalPaginaPixel+rlbGap.Height+20; end; end; //sergio fim Result := max( 100, 10 + round(TotalPaginaPixel/MMAsPixels)); end;

No meu teste fim-a-fim deu este erro, com o emulador do Sefaz... mas eu estava usando os CNPJ e IE do emitente inválidos... Quando coloquei para usar conforme abaixo (visto que era com o emulador), funcionou: with ACBrSAT1 do begin Config.emit_CNPJ := '11111111111111'; Config.emit_IE := '111.111.111.111'; Config.emit_IM := '123123'; end; Espero ter ajudado.

Na verdade eu estou com os fontes do repositorio truck, ainda não migrei para o "truck2" pois nem estava funcionando o link do repositório e NFSe parece não estar completo ainda. Com os fontes atualizados do truck enviou normalmente (provedor Betha). Não fiz nada de diferente. O que posso lhe alertar é que algumas prefeituras não aceitam cancelamento via webservice, tem que ser solicitado a prefeitura mesmo. Era o caso da prefeitura de Jacutinga-MG, mas no ambiente de testes funcionou. Carreguei o XML e enviei com o comando ACBrNFSe1.CancelarNFSe('1'); por exemplo. Verifique se não é problema com o webservice. Espero ter ajudado, grande abraço.

Ok Daniel, realmente eles estão com problemas Abraço

Aqui para mim não abre nem https://svn.code.sf.net/p/acbr/code/trunk2/ nem o antigo.

Consegui fazer, vejam tópicos caso ajude e os links ainda sejam válidos. http://desenvolvimentonfse.forumeiros.com/t254-permissao-de-acesso-ao-ambiente-de-homologacao?highlight=cadastro+homologa%C3%A7%C3%A3o http://desenvolvimentonfse.forumeiros.com/t177-resolvidocadastramento-de-cnpj-no-ambiente-de-homologacao?highlight=cadastro+homologa%C3%A7%C3%A3o

Pessoal como consigo fazer um cadastro para acesso e testes (homologação) no provedor Ginfes ?? Por favor se alguém puder me ajudar.

Eu só consegui resolver isso editando o ACBr.inc da pasta "Fontes\AcbrComum" e retirando o comentário na linha //{$DEFINE SoapHTTP} e compilando denovo AcbrComum, AcbrCapicom, PCN2 e AcbrNFe2

Ola Italo, não mudei .. agora que você mencionou estou pesquisando. Vou atualizar meus componentes e mudar. Fico grato por sua atenção e resposta. Abração e ótima semana.

Pessoal, desculpe ressuscitar o tópico mais recentemente os Webservices de MG estão resultando em "consumo indevido" se fica-se pesquisando as notas até que "indCont" retorne 0. Alguém esta tendo este problema ou só eu?? Na verdade em MG recentemente nada esta funcionando.

Também gostaria de saber como anda seu projeto Jeter. Abraço.

Alguém por favor. Abraço a todos e boa quarta.

Oi Italo, muito obrigado, acho que 10 segundos esta legal. Eu fiz muitas adaptações do código, se alguém conseguir postar para mim parte do código que faz isso no tempo eu ficaria agradecido, para eu não ter que baixar tudo denovo (quando alterarem para 5) caso necessite diminuir na minha aplicação. Se não tiverem esta informação não tem problema. Grande abraço a todos.

Alguém por favor... aguardando retorno da questão acima.

Tive este problema eu coloquei vcl.Forms ou vcl.Graphics e compilou. Espero ter ajudado abração

Oi Juliomar obrigado pela resposta.. rsrs Mas este bem baixo é quanto? Você tem idéia no código qual é o comando que caracteriza o tempo? Desculpe mas eu procurei e confesso que não achei. Até nem consegui simular um timeout, porque eu dependo do retorno da receita estar lento para conseguir testar isso. Fico grato.

Pessoal vou começar agora o projeto de NFCe e a questão do tempo de envio, consulta de retornos o tempo de tudo é muito crucial. Eu procurei em outros tópicos e não achei. Existe algum parâmetro ou linha de código que me indiquem para eu setar o timeout destes procedimentos. As vezes a gente clica para consultar retorno a aplicação fica demorando, esperando o retorno, eu queria por exemplo 5 segundos. Espero que consigam me ajudar, desde já sou muito grato.

Gente resolvido, hoje consegui cancelar a nota no Betha, voltou a funcionar e o ACBR atualizado esta perfeito a rotina. Abraço e obrigado a todos.

Valeu, desculpe por não ver

Por favor me ajudem eu já fiz de tudo e não consigo cancelar ums NFSe no provedor Betha, estou com os fontes atualizados. Faço assim: ACBrNFSe1.NotasFiscais.LoadFromFile(arq); ACBrNFSe1.NotasFiscais.Items[0].NFSe.MotivoCancelamento:='teste'; ACBrNFSe1.CancelarNFSe('1'); Apos o comando: ReqResp.Execute(Acao.Text, Stream); o conteúdo da variável FRetornoWS é: <env:Envelope xmlns:env=''http://schemas.xmlsoap.org/soap/envelope/''><env:Header></env:Header><env:Body><env:Faultxmlns:env=''http://schemas.xmlsoap.org/soap/envelope/''><faultcode>env:Server</faultcode><faultstring>javax.xml.bind.UnmarshalException: unexpected element (uri:"http://www.w3.org/2000/09/xmldsig#", local:"Signature"). Expected elements are <{}InfPedidoCancelamento></faultstring></env:Fault></env:Body></env:Envelope> Já conferi o Xml e de acordo com exemplo que tenho esta certo ver anexo. 12-ped-can.xml