Edy

Bem pessoal, não sei se seria aqui o local ideal dos vários itens do fórum, mas caso não seja, me avisa o correto. Atualizei os componentes, para uso no Delphi 7, tudo ocorreu normal, mas ao rodar infelizmente o erro unsupported 16bit resource in file FrmPrincipal.dfm está me impedindo de rodar minha aplicação, que ainda está em fase de implementação, mas estava tudo transcorrendo normal, agora já pesquise tudo quando foi recurso para me livrar desse erro e nada. Já baixe e recompilei tudo várias vezes, inclusive com exclusão total dos componentes anteriores, como também já tentei trocar .~dfm pelo .dfm original, já apaguei .dcu nada, e não sei porque ocorreu somente após essa última atualização feita hoje... alguém tem alguma ideia do porquê? Obs.: Como dito antes, ainda uso Delphi 7, win7 64bits

Bem pessoal, não sei se seria aqui o local ideal dos vários itens do fórum, mas caso não seja, me avisa o correto. Atualizei os componentes, para uso no Delphi 7, tudo ocorreu normal, mas ao rodar infelizmente o erro unsupported 16bit resource in file FrmPrincipal.dfm está me impedindo de rodar minha aplicação, que ainda está em fase de implementação, mas estava tudo transcorrendo normal, agora já pesquise tudo quando foi recurso para me livrar desse erro e nada. Já baixe e recompilei tudo várias vezes, inclusive com exclusão total dos componentes anteriores, como também já tentei trocar .~dfm pelo .dfm original, já apaguei .dcu nada, e não sei porque ocorreu somente após essa última atualização feita hoje... alguém tem alguma ideia do porquê? Obs.: Como dito antes, ainda uso Delphi 7, win7 64bits

Também penso da mesma forma, base de cálculo normal, sem por exemplo MVA, mas já li o manual SEFAZ e não detalha que base de cálculo realmente deve ser, não sei como os colegas ai estão utilizando essa base em casos de ST.

Pessoal, como vocês estão preenchendo o cálculo do campo que estou em dúvida abaixo em situações de ICMS ST? <ICMSSN201> <orig>0</orig> <CSOSN>201</CSOSN> <modBCST></modBCST> <pMVAST></pMVAST> <pRedBCST></pRedBCST> <vBCST></vBCST> <pICMSST></pICMSST> <vICMSST></vICMSST> <pCredSN></pCredSN>... isso sabemos, depende do enquadramento do faturamento fiscal anual da empresa no Simples. <vCredICMSSN>???</vCredICMSSN> Agora esse é minha dúvida, devo calcular sobre o valor VBCST? ou sobre o valor normal do produto sem o ST, pq se for sobre o VBCST, fica um valor muito alto e a empresa estaria fazendo reaproveitamento de crédito a mais, ja que devido ao MVA essa base pode passar de duplicar, ai não entendi e até meu amigo contador tá consultando e nada de me dá resposta. </ICMSSN201>

Bem, se está se referindo à cancelamento de NFe/NFCe, ai trata-se de eventos, assim você terá que imprimir a resposta do servidor referente ao evento ( o arquivo xml resposta do webservice da Sefaz ). Se for o caso, segue como imprimir o evento: ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXML(ArquivoXMLRespostadoWebService) ACBRNFe1.DANFE:=ACBrNFeDANFeRL1 ou ACBrNFeDANFCeFortes1 ou o que estiver usando para imprimir, a depender se NFe ou NFCe. ACBrNFe1.ImprimirEvento;

Infelizmente como não conseguir alguma solução adequada para a situação, a alternativa foi implementar uma gambiarra, lamentável, mas tiver que fazer assim, e caso alguém esteja passando pela mesma necessidade, veja ai a gambiarra: 1. Usei uma função que captura a impressora padrão ( dá uma pesquisada na NET que tem algumas que fazem essa função ). 2. Ao mandar imprimir, ele compara a impressora que foi escolhida para imprimir e identifica se ela é padrão ou não, e caso não seja, a função torna a impressora Definida para NFe como Padrão 3. Após imprimir, ele analisa e retorna com a impressora padrão que estava antes da impressão. Outra coisa, eu tiver que colocar uma observação para quando o usuário escolher uma impressora para NFe que não seja uma padrão, que se possível, ele a torne padrão, para evitar usar a gambiarra. Infelizmente vai ficar assim ate em algum momento achar alguma solução.

Não amigo, o retorno do xml é diferente, então veja ai parte do código que uso aqui pra ver se te ajuda... if CDS_CONTROLENFTIPO_NF.Text='NF-e' then ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe else ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; form1.ACBRNFe1.DANFE:=form1.ACBrNFeDANFeRL1; Form1.ACBrNFe1.EventoNFe.Evento.Clear; with Form1.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := VChave; infEvento.CNPJ := VCNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust:= memo_texto_CANC.Text;// campo memo aonde deverá conter no mínimo 15 caracteres e no máximo 255 infEvento.detEvento.nProt:=VnumProt infEvento.nSeqEvento := SeqEvento; end; ACBrNFe1.EventoNFe.GerarXML; ACBrNFe1.EnviarEvento(StrToInt(VNumLote)); Memo_resultado_canc.Lines.Add('Cód.Retorno.: '+ IntToStr( ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat)); if (ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat=135) or (ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat=136) then Memo_resultado_canc.Lines.Add('Situação....:'+ ACBrNFe1.WebServices.EnvEvento.EventoRetorno.xMotivo +' Aprovado!') else Memo_resultado_canc.Lines.Add('Situação....:'+ ACBrNFe1.WebServices.EnvEvento.EventoRetorno.xMotivo +' Com Falha!'); Memo_resultado_canc.Lines.Add('Chave.......:'+ ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe); Memo_resultado_canc.Lines.Add('Data/Hora...:'+FormatDateTime('dd/mm/yyyy hh:mm:ss', ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento)); Memo_resultado_canc.Lines.Add('Nº Protocolo: '+ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt); screen.Cursor:=crDefault; if (Form1.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat=135) or (Form1.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat=136) then begin Form1.ACBrNFe1.ImprimirEvento;

Já tentou usar o mesmo método de arredondamento direto no vDesc? o problema neste arredondamento final do total.

Alguém tem alguma ideia do que pode está ocorrendo?

Bem, estou fazendo a tela de configuração de impressoras a usar no sistema, onde o usuário tem uma lista de impressoras disponíveis na máquina e ele define qual imprimirá NFCe e NFe irá usar. Está tudo ok com as definições para impressoras NFCe ( que usam bobina ), você escolhe qual delas será impressa ( estou com 2 em bobinas, uma Elgin e outra Bematech ), configurei opção para o usuário escolher se imprime em modo nativo mais rápido (EscPos) ou formatado usando Fortes... com NFCe tudo ok, vc define e ao gerar a NFCe sai perfeito na impressora escolhida, mas o problema está no fato da impressão da NFe, onde defino a impressora para esse tipo de nota e ela não manda a impressão e mesmo mostrando previa e após a prévia o usuário vai lá e escolhe a impressora, não sai nada, dai não entendi absolutamente nada do ocorrido. A configuração está assim: ACBrNFeDANFeRL1.Impressora:= ImpressoraNFe; ACBRNFe1.DANFE:=ACBrNFeDANFeRL1; Mesmo que oculte Status ou prévia de ACBrNFeDANFeRL1 não funciona... se aparece a prévia em tela e vc for lá e escolher essa impressora HP ela não sai nada. Obs.: Funciona de 2 formas 1. Se vc definir a empresa para NFe como padrão ( que é uma HP ) 2. Se você não definir no componente qual impressora vai usar ( ai também ela só imprime direto na padrão ) E o detalhe é que quero que ela imprima em qualquer impressora sendo a padrão ou não do windows. O que está errado? Já que para impressoras bobinas vc pode escolher perfeitamente qual imprimirá mesmo sem alguma delas serem definina no windows como padrão...

Também tenho essa dúvida, mas...Deixei isso de lado para numa oportunidade testar em prática. Fazer que o programa gere um desses códigos até que fácil, forçando, na minha estrutura, existe a variável CodRet:=PegaCodigoRetorno, dai uso esse CodRet para tudo, testar, etc... lógico que posso forçar a variável a setar com o código=110, para testar, mas e ai, se houver exception? Acredito eu que só existe quando inicia com Rejeição na descrição, já tentei debugando o método que obtém esses retornos mais não cheguei a uma conclusão, ou não tiver atenção direita ainda pra ver... apenas deixei pra lá isso por enquanto e fui cuidar de outras coisas, mas terá que voltar a analisar isso quando for colocado sim em produção.

OK, achei que ao ser enviado e não houvesse retornado, gerando o erro 12002, já entraria direto com uma consulta para obter o protocolo e caso positivo na consulta, já lançaria a mesma como "Nota Autorizada" (Cstat 100 ), caso negativo na consulta a mesma entraria no controle de Notas para Analise, mas vou colocar ao obter esse erro 12002 a nota para ser lançado com parâmetro de "Nota para Análise" e retransmitir a mesma com outra numeração e só entrar em consulta direta para e obter o protocolo apenas em caso de duplicidade.. Valeu!!!

Bem, era isso que precisava, do código de erro, no caso é o 12002, mas não cheguei a testar, pois não conseguir mesmo mudando o arquivo .INI especificado no video e recompilando o ACBrNFeServicos.rc dele, mas tudo bem, pra concluir, me detalha uma coisa, em primeira instância, começo o tratamento do erro fazendo a consulta imediata pra saber se obtenho o protocolo de autorização quando ocorrer esse erro? Ou só devo efetuar a consulta para obter protocolo somente quando o retorno do erro for duplicidade...?

e qual código de erro, descrição etc ocorre para eu tratar? Pois não consigo simular esse erro aqui.

Opa Daniel... isso, quando há há retorno. Assim, gostaria de saber qual erro ou descrição de erro que ocorrerá quando a SEFAZ não nos retornar o protocolo/recibo da nf enviada... o componente entra em algum try/exception e mostra algum erro? Algum código/descrição?

E ai pessoal que já tá com o sistema rodando a muito tempo que já deve ter passado por isso, que erro ocorre? Qual número de erro pra eu tratar ou descrição do erro, poderia me passar?

Tentei diminuir o Timeout mais aqui não ocorreu nenhum erro... testei 5 notas emitidas mas não rola esse erro da sefaz, alguém aí sabe qual código de erro nos é emitida para eu tratar? Cstat não nos é retornado, já que o mesmo só quando há retorno da sefaz, então, quem ai tá com o sistema em prática, poderia me dizer qual erro aparece?

Pessoal, estou fazendo a parte de controle de duplicidade, e simular uma nf emitida com duplicidade até que é fácil, mas quando enviamos uma NFe ou NFCe e não há o retorno da sefaz com o protocolo/recibo etc, qual erro nos é emitido? Até agora em faze de teste, homologação não houve nenhuma nota onde a sefaz deixou de nos retornar dados da NF enviada.

OK perfeito, é que peguei essa NF das em produção que existe de um sistema que dou suporte aqui na cidade... e usei ela para consultar posição SEFAZ pelo meu e depois use o DEMO e esqueci que tanto o meu em desenvolvimento e o Demo estão no modo Homologação.. faz sentido. Valeu Grande!

Hummm como a NF foi em produção deveria consultar em Produção não é? Bem, vou testar, o que achei estranho é tá mostrando a realidade dos dados via XML e já via chave não.. vou testar e posto aqui o resultado.

Ai agora tá uma novela... aqui não vai, usando DEMO mesmo, e atualizado tudo a semana passada, não vai, pela chave dá isso ai, acabei de testar, veja a imagem anexa...

Pessoal, porque (usando DEMO ), ao consultar uma nfc-e via chave tenho o retorno que a NF não conta na base da sefaz, e a mesma NF sendo consulta via carregamento do XML dela mostra o resultado como Autorizada... porquê? Chave:28170410441497000137650010000000501000000503 Em anexo segue o xml dessa chave. Obs.: Operação:Produção UF:SE 28170410441497000137650010000000501000000503-nfe.xml

Eu também tive um pouquinho de trabalho para formar a composição do Regime Normal ( Lucro Presumido/Real ) para o Simples Nacional. Algumas tags mudam, como também informar os códigos de tratamento da situação tributária que muda da procedure CST(x) e passa-se a usar a procedure CSOSN(x), sendo que os códigos(x) são diferentes entre eles e deverão ser obtidos com seu contador ou em sites de áreas contábil e há cálculos diferentes entre eles também a depender do código e deverá ser tratado ... ...melhor entendimento eu obtive ao ler neste link, veja se isso te ajuda também. http://www.flexdocs.com.br/guianfe/gerarNFe.detalhe.imp.ICMS.html

nossa, ufa... descobrir finalmente esse erro, mas poxa foi um pequeno erro por não entender direto a construção do objeto, mas tai ai para quem passar por isso: Dentro da função GerarNFCe(ed_numNF.Text) existe a estrutura de preenchimento das variáveis do objeto da nfe usando WITH que é esse ( with ACBrNFe1.NotasFiscais.Add.NFe do ) onde se preenchia Ide.cNF, Ide.NatOp, etc e o que aconteceu, simples, eu na falta de conhecimento, acabei setando a variável digitando dentro do with mas dessa forma: ACBrNFe1.NotasFiscais.Add.nfe.Ide.tpEmis:=teOffLine ao invés de nfe.Ide.tpEmis:=teOffLine dai não entendi como, mais como já explicado antes, falta de conhecimento mesmo, e essa adição de valor pra variável tpEmis dessa forma, fez com que houvesse uma repetição de procedimentos dentro do método Assinar onde o método TNFeW.GerarXml acabava ficando sem valores para [ nfe.ide.cUF, nfe.ide.cNF, nfe.ide.modelo ] etc. Obrigado ai as tentativas de iniciar a ajuda pessoal!

André, deburando obtenho dados das variáveis... function TNFeW.GerarXml: Boolean; var chave: AnsiString; Gerar: Boolean; xProtNFe : String; xCNPJCPF : string; begin Gerador.ListaDeAlertas.Clear; Usar_tcDe4 := (NFe.infNFe.Versao >= 3.10); Versao := Copy(NFe.infNFe.VersaoStr, 9, 4); chave := ''; if NFe.infNFe.Versao >= 2 then begin xCNPJCPF := nfe.emit.CNPJCPF; if not EstaVazio(nfe.Avulsa.CNPJ) then xCNPJCPF := nfe.Avulsa.CNPJ; if not GerarChave(Chave, nfe.ide.cUF, nfe.ide.cNF, nfe.ide.modelo, nfe.ide.serie, nfe.ide.nNF, StrToInt(TpEmisToStr(nfe.ide.tpEmis)), nfe.ide.dEmi, xCNPJCPF) then Gerador.wAlerta('A01', 'infNFe', DSC_CHAVE, ERR_MSG_GERAR_CHAVE); end else begin if not GerarChaveCTe(chave, nfe.ide.cUF, nfe.ide.cNF, nfe.ide.modelo, nfe.ide.serie, nfe.ide.nNF, nfe.ide.dEmi, nfe.emit.CNPJCPF) then Gerador.wAlerta('A01', 'infNFe', DSC_CHAVE, ERR_MSG_GERAR_CHAVE); end; showmessage('UF: '+ IntToStr(nfe.ide.cUF) + 'Num Série: '+IntToStr(nfe.ide.serie)); O que acontece... essa rotina é chamada umas 4 vezes antes de concluir o processamento da assinatura... no DEMO todas obtenho dessas variáveis que estão no Showmessage os valores certos: a UF e Nº de série por exemplo vem em todos os processos da rotina, mas... na minha aplicação, apesar de usar a mesma forma e sequencia do DEMO, ele aparece a 1ª vez com os dados capturados corretos, na 2ª vem vazia... dai na 3ª vem capturada, na 4ª que finaliza vazia, quer dizer, não sei pq há essa alternância de vir preenchidas e vazias.