FRANCISCO908

Pernambuco (PE) NCM: 34011190 CEST: 2003500 PIS: 06 COFINS:6 Essa informação foi repassada pelo o contador da empresa inclusive me mandou um txt de uma nota exemplo para que eu seguisse o referido exemplo, inclusive uma foto do referido produto vou anexa-la, falou que o referido produto tem ICMSST e redução "para" 38,89% no ICMS e para 13,89% no ICMS_ST. Mais minha maior dúvida seria aqui: vBC......:38.89 //Aqui está minha duvida não seria de "61.11"? A "vBC" Seria de 38,89 ou de 61,11, por que o contador falou que a base de calculo do produto seria reduzida "para" 38,89% ou seja de 100,00 seria então 100,00 * 38,89% logo "vBC = 38,89", pois antes da informação do contador minha base de cálculo seria tipo 100,00 - 38,89% logo a "vBC = 61,11". Fiz as correções igual ao solicitado pelo o contador mais fiquei com dúvida nessa vBC. Qual é a forma correta para obter a base de cálculo?

Pernambuco (PE) NCM: 34011190 CEST: 2003500 PIS: 06 COFINS:6

Não sei se é o local correto para fazer a pergunta se não for de já peço desculpas. Tenho um cliente com a seguinte situação EMPRESA: INDUSTRIA ALIQUOTA_ICMS: 18 RED_ICMS: 38,89% RED_ICMS_ST: 13,89 MVA: 0,00% //POIS EXISTE UMA PAUTA FISCAL Abaixo fiz os cálculos, e gostaria de saber se tá da forma correta? ------------------------------------------------------------------------------------------------------------ ITEM_001 PRODUTO: SABAO BARRA 250G qCom...: 1.000 uUnCom.: 100.00 IMPOSTO:ICMS_CST_70 pRedBC...:38.89 vBC......:38.89 //Aqui está minha duvida não seria "61.11"? pICMS....:18.00 vICMS....: 7.00 pRedBCST.:13.89 vBCST....:13.89 pICMSST..:18.00 vICMSST..: 2.50

Me fale uma coisa, sou revendedor autorizado de certificados digitais e sou distribuidor de soft de automação comercial, tenho clientes com certificado A1, token e A3, nunca tive esse problema. Minha pergunta é o seguinte quando você fala excluir você tá dizendo que o cartão do certificado A3 tá sendo formatado é isso? porque o certificado A3 é um cartão correto. Por favor me ajude a entender isso.

Passando aqui para agradecer. Ítalo seu último comentário foi show era isso que realmente não estava entendendo agora ficou 100% Obrigado! Ítalo, André...

Boa noite! Executei DistribuicaoDFePorUltNSU, salvei a lista no BD em seguida fiz o manifesto, consultei... Continuo repetindo o processo com o objetivo de que fiquem iguais UltNSU e MaxNSU, porem sem sucesso pois posso clicar quantas vezes eu quiser mais quando chega nas ultimas notas ele nao muda. Vejam arquivos anexos. Por enquanto só tá funcionando DistribuicaoDFePorChaveNFe. 20170721002858-con-dist-dfe.xml 20170721002902-dist-dfe.xml 20170721002908-con-dist-dfe.xml 20170721002912-dist-dfe.xml 20170721002942-con-dist-dfe.xml 20170721002945-dist-dfe.xml 20170721002947-con-dist-dfe.xml 20170721002951-dist-dfe.xml

A consulta ACBrNFe1.DistribuicaoDFe(StrToInt(cUFAutor), CNPJ, ultNSU, ''); deve ser feita enquanto o ultNSU for menor que o maxNSU. André fiz conforme você orientou, porém continuo na mesma a cada click em consultar recebo 50 resumos iniciados a partir do dia 03/04/2017. E assim sigo pegando um ultimo NSU e incluindo na nova consulta até que chega os resumos do dia 01/07/2017. Ao chegar nesse dia recebo 38 arquivos xml completos mas todos referentes ao mês de abril de 2017. Você falou que devo consultar enquanto o ultNSU for menor que o MAXnsu, porem quando recebo os resumos do dia 01/07/2017 junto com os xml de abril posso clicar quantas vezes eu quiser em nova consulta que o NSU não muda continua sempre o mesmo. veja arquivo anexo. 20170714235924-dist-dfe.xml

André, primeiro quero agradecer sua colaboração. Veja atualizei os fontes ok, porém continuo sem conseguir baixar os XML da NFe, veja um exemplo de código abaixo, e um arquivo anexo a este. Var i: integer; cUFAutor, CNPJ, ultNSU, ANSU: string; begin ConfigurarNFe; cUFAutor := SoNumeros(DTModule.QrEmpresaIBGE_UF.Text); CNPJ := SoNumeros(DTModule.QrEmpresacnpj.Text); ultNSU := '4331'; // Tentei dessa forma e não baixo //DT_NFe.ACBrNFe1.DistribuicaoDFe(StrToInt(cUFAutor), CNPJ, ultNSU, ''); // Tentei dessa forma e não baixo //DT_NFe.ACBrNFe1.DistribuicaoDFePorUltNSU(StrToInt(cUFAutor), CNPJ, ultNSU); // Tentei dessa forma e não baixo DT_NFe.ACBrNFe1.DistribuicaoDFePorNSU(StrToInt(cUFAutor), CNPJ, ultNSU); case DT_NFe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat of 138: begin for I := 0 to DT_NFe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1 do begin case DT_NFe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.schema of schprocNFe: ; // NF-e schresNFe: ; // Resumo de NF-e schresEvento: ; // Resumo de Evento schprocEventoNFe: ; // Evento end; end; end; 137: ; // Nenhum documento retornado end; Importante: Já consulta pela chave tá baixando normal o xml DT_NFe.ACBrNFe1.DistribuicaoDFePorChaveNFe(StrToInt(cUFAutor),CNPJ,SoNumeros(CDSNotasChave.Text)); 20170714011816-dist-dfe.xml

Boa tarde! André, obrigado pelo contato. Por favor dê uma olhada na imagem anexa e me fale porque não consigo usar a função: DistribuicaoDFePorUltNSU Tenho que declarar alguma coisa? De já agradeço muito.

Ao executar a linha: DT_NFe.ACBrNFe1.DistribuicaoDFe(StrToInt(cUFAutor),CNPJ,4325,ANSU); não ocorre erro? Foi só um exemplo que citei, eu passo os valores conforme você falou tipo string para NSU e para ANSU passo uma string vazia "". Veja só você tocou em ponto importante: DT_NFe.ACBrNFe1.DistribuicaoDFePorUltNSU(StrToInt(cUFAutor), CNPJ, aUltNSU); Não tenho essa função no acbr que está na minha máquina, pois ainda não migrei o projeto ainda uso o D7. Existe uma forma de implementar ela? Veja que dá um erro quando coloco ela.

Beleza italo, veja só anexei alguns dos arquivos que estou recebendo. Também anexei uma imagem baseada na consulta a DistribuiçãoDFe desses arquivos. Por exemplo: DT_NFe.ACBrNFe1.DistribuicaoDFe(StrToInt(cUFAutor),CNPJ,4325,ANSU); Eu executo essa consulta e não recebo nenhum XML da NFe continuo recebendo somente os arquivos abaixo: "1-eve.xml" "1-ped-eve" "-resNFe.xml" "20170621223452-dist-dfe" "20170621224254-con-dist-dfe" 49-eve.xml 49-ped-eve.xml 50-eve.xml 20170713014537-con-dist-dfe.xml 20170713014539-dist-dfe.xml 21170400405762000178550010002756671027566764-resNFe.xml 21170401838723032240550010002107501834254751-resNFe.xml 21170401838723032240550010002117751764012898-resNFe.xml 21170403145305000180550010008413331111013045-resNFe.xml 2102002117046490429500215755003000034940141336585601-procEventoNFe.xml 2102002217040482078500010855001000068872135706299101-procEventoNFe.xml 2102002217040589154600010155002000124786111102404701-procEventoNFe.xml

Ítalo foi exatamente o que fiz sobre o "UltNSU" informei zero só na primeira vez que consultei daí pra frente sempre consulto usando o último NSU recebido. //DistribuicaoDFe(21,07472246000105, 4714, ''); //Veja esse código abaixo está correto? DistribuicaoDFe(DTModule.QrEmpresaIBGE_UF.Value, SoNumeros(DTModule.QrEmpresacnpj.Text), IntToStr(vULT_NSU), '');

Boa tarde ítalo, veja abaixo os últimos NSU recebidos. E sobre as notas de abril que recebo os xml é exatamente porque informo "0" NSU para iniciar o processo pela primeira vez logo essas são as primeiras a serem manifestadas, mas a manifestação continua normalmente até a ultima nota encontrada. <?xml version="1.0" encoding="UTF-8" ?> - <retDistDFeInt xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versao="1.01" xmlns="http://www.portalfiscal.inf.br/nfe"> <tpAmb>1</tpAmb> <verAplic>1.1.9</verAplic> <cStat>138</cStat> <xMotivo>Documento(s) localizado(s)</xMotivo> <dhResp>2017-07-08T01:12:51-03:00</dhResp> <ultNSU>000000000004714</ultNSU> <maxNSU>000000000005439</maxNSU> - <loteDistDFeInt> <docZip NSU="000000000004665" <docZip NSU="000000000004668"

1º Faço a consulta conforme abaixo: Para primeira consulta o vULT_NSU := 0 vULT_NSU := MaiorNum('xmlcfg','ultNSU', ''); with DT_NFe.ACBrNFe1 do begin try Application.ProcessMessages; DistribuicaoDFe(DTModule.QrEmpresaIBGE_UF.Value, SoNumeros(DTModule.QrEmpresacnpj.Text), IntToStr(vULT_NSU), ''); //Salvo a lista das notas no BD //Também salvo os NSU no BD //DETALHE: Essa lista vem informando as notas desde ABRIL DE 2017. end; 2º Faço a manifestação da lista encontrada na primeira busca. DT_NFe.ACBrNFe1.EventoNFe.Evento.Clear; with DT_NFe.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.cOrgao := 91; infEvento.chNFe := xmldfe.FieldByName('chNFe').AsString; infEvento.CNPJ := SoNumeros(DTModule.QrEmpresacnpj.Text); infEvento.dhEvento := Now; infEvento.tpEvento := teManifDestConfirmacao; end; try //ENVIAR if DT_NFe.ACBrNFe1.EnviarEvento(xmldfe.FieldByName('ID').AsInteger) then begin //Aqui atualizo BD e informo que a nfe já foi MANIFESTADA end; 3º Faço a consulta novamente utilizando o Último NSU encontrado na primeira consulta vULT_NSU := MaiorNum('xmlcfg','ultNSU', ''); with DT_NFe.ACBrNFe1 do begin try Application.ProcessMessages; DistribuicaoDFe(DTModule.QrEmpresaIBGE_UF.Value, SoNumeros(DTModule.QrEmpresacnpj.Text), IntToStr(vULT_NSU), ''); Esse processo segue normalmente mas, só recebo os arquivos abaixo relacionados. { "1-eve.xml" "1-ped-eve" "-resNFe.xml" "20170621223452-dist-dfe" "20170621224254-con-dist-dfe" } Sigo repetindo os processos anteriores (1,2 e 3) e as a lista vem sendo atualizada, Até chegar a lista do o mês de Julho/2017. IMPORTANTE: Quando chega na ultima lista (Julho/2017): Eu recebo uns 25 XML completos só que do mês de Abril/2017. De já agradeço muito pela ajuda...

Eu fiz utilizando um arquivo de lote e o registro do windows. Coloquei no youtube um vídeo pesquise por ele e siga as instruções que certamente resolverá seu problema. Pesquise por: Daruma DR700 USB/Serial Fixar Porta

Estou com um problema a dias fiz uma nota fiscal de remessa para venda fora do estabelecimento. Como não vendi todos os itens preciso da entrada nos itens que sobrou da referida nota. Para este procedimento estou fazendo uma nota de "4-Devolucao/Retorno" usando o CFOP 1904 "Retorno de remessa para venda fora do estabelecimento". Porem recebo o erro como mostrado abaixo: 405 -> Rejeição: CFOP invalido para NF-e com finalidade de devolução de mercadoria. Postei o XML e estou aqui pedindo ajuda dos colegas, de já muito obrigado. 21170107472246000105550010000004051000004050-nfe.xml

Régys, tem como me enviar uma breve explicação e uma proposta por e-mail? [email protected]

Você deve informar em valor do pagamento o mesmo valor da venda.

//Veja eu faço dessa forma, adapte a sua necessidade... {$IFNDEF ACBrNFeOpenSSL} QrCadastroCertificado_NumSerie.Text := DT_NFe.ACBrNFe1.SSL.SelecionarCertificado; QrCadastroCertificado_Vencimento.Value := DT_NFe.ACBrNFe1.SSL.CertDataVenc; {$ENDIF}

//Parceiro uso dessa forma, adapte a sua necessidade with ACBrETQ do begin if Modelo = etqPpla then begin ImprimirTexto(orNormal, 2, 2, 2, 200, 55, vNomeProduto); ImprimirTexto(orNormal, 2, 2, 1, 170, 55, vComplemento); ImprimirBarras(orNormal, 'F', '2', '2', 32, 55, QrCadastrocodigo_barra.Text, 90, becSIM); ImprimirTexto(orNormal, 3, 3, 2, 15, 350, 'R$'); ImprimirTexto(orNormal, 3, 4, 4, 15, 500, FormatFloat(',0.00', QrCadastrovalor.Value)); end else begin ImprimirTexto(orNormal, 2, 2, 2, 15, 55, vNomeProduto); ImprimirTexto(orNormal, 2, 2, 1, 65, 55, vComplemento); ImprimirBarras(orNormal, 'E30', '2', '2', 95, 55, QrCadastrocodigo_barra.Text, 90, becSIM); ImprimirTexto(orNormal, 3, 3, 2, 110, 355, 'R$'); ImprimirTexto(orNormal, 3, 4, 5, 90, 500, FormatFloat(',0.00', QrCadastrovalor.Value)); end ; Imprimir(1, StrToInt(vAvanco)); //Imprimir 1 Copia e Avancar 300 ou 600 Desativar; end;

Igor, Resolvi desta forma: DT_NFe.ACBrNFe1.DANFE := DT_NFe.ACBrNFeDANFEFR1; DT_NFe.ACBrNFeDANFEFR1.FastFile := 'C:\GoodSystem\Report\DANFeRetrato.fr3'; veja também se seus aquivos estão atualizados

Amigo Faça os Seguintes Procedimentos. Se você usar o Ante Virus AVAST Desative ele até terminar toda instalação. 1º Exclua da Pasta "C:\Windows\System32\ ssleay32.dll e libeay32.dll 2º Instale o AcbrMonitor Como Administrador. 3º Localize a Pasta Capicom e Localize o Arquivo de Lote "Instalar.bat" Execute ele Como Administrador. 4º Clique na Pasta "Programas a Instalar" e Instale "capicom_dc_sdk" e "msxml6_x86". Como Administrador. 5º Instale o CAPICOM Como Administrador. Reinicie o Computador... Resolvo sempre assim inclusive o ultimo tem menos de 20 minutos que resolvi... caso não consiga me adicione no SKYPE posso lhe ajudar FRANCISCOANDRADE908

Amigo Saulo Lima, compartilhe sua impressora como exemplo: com9 e use este nome como sendo uma porta paralela funcionará normal, direcione assim sua impressao: \\nomedoseucomputador\nomedocompartilhamento

pessoal já resolvi gostaria que excluíssem este poste que fiz... procurei e nao encontrei onde excluir..

Também tava com o mesmo problema... funcionou 100% obrigado...