ssouza_fiscal

Ok, todas as pastas estão verdes e já reinstalei novamente todos os componentes, nesse caso devo apagar o arquivo do danfe que estou usando? no caso estou usando esse: ACBrNFeDANFeRL

Bom dia, estou tentando emitir uma nfe(Simples nacional) para pessoa física e está me retornando a seguinte rejeição: 600-Rejeição:CSOSN Incompatível na operação com Não contribuinte. Após algumas pesquisas verifiquei que nesse caso especifico devo escolher outro CSOSN. Quando for emitida uma NF-e para Destinatário Não Contribuinte do ICMS (indIEDest = 9) e com o Código de Situação da Operação - Simples Nacional (CSOSN) diferente da relação abaixo, sera retornado a rejeição "600 - CSOSN incompatível na operação com Não Contribuinte": 102 - Tributação SN sem permissão de crédito; 103 - Tributação SN, com isenção para faixa de receita bruta; 300 - Imune; 400 - Não tributada pelo Simples Nacional; 500 - ICMS cobrado anteriormente por substituição tributária ou por antecipação. Fiquei com dúvida, qual desses devo informar para esse tipo de emissão? no meu código está assim: se a emissão for para pessoa física: dest.indIEDest := inNaoContribuinte;//inNaoContribuinte,inIsento,inContribuinte; dest.CNPJCPF := TADOStoredProc(srcRegistro.DataSet).FieldByName('numeroCPF').AsString; Ide.indFinal := cfConsumidorFinal dest.IE := ''; Obrigado.

tudo bem, vou continuar a pesquisa em busca da resolução. obrigado, assim que conseguir posto aqui..

Olá, primeiramente obrigado por ajudar, fiz novamente as atualizações mas não resolveu, não queria tentar alterar manualmente para não ter que controlar de forma manual. fica feio mas não impedi a emissão só uma questão visual mesmo. Mas se conseguisse corrigir seria o ideal....obrigado amigo, vou continuar batendo cabeça....

Boa tarde, como poderia corrigir esses espaçamentos na quantidade, especie e os demais campos, estou com os fontes atualizados. Obrigado

Obrigado Juliana, ajudou muito...

Boa noite, tenho algumas dúvidas como preencher corretamente esses campos: Total.ICMSTot.vBC := Acredito que aqui seria o valor total da NFe! Total.ICMSTot.vICMS := esse aqui tenho duvida, essa informações pego da tributação destinada ao estado ou pego da tabela IBPT? Total.ICMSTot.vBCST := 0; Total.ICMSTot.vST := 0 Total.ICMSTot.vProd := Valor total dos itens ; Total.ICMSTot.vFrete := 0; Total.ICMSTot.vSeg := 0; Total.ICMSTot.vDesc := 0; Total.ICMSTot.vII := 0; Total.ICMSTot.vIPI := 0; Total.ICMSTot.vPIS := 0; Total.ICMSTot.vCOFINS := 0; Total.ICMSTot.vOutro := 0; Total.ICMSTot.vNF := 1; // lei da transparencia de impostos Total.ICMSTot.vTotTrib := 0; seria mais para ter certeza de que oque estou fazendo está correto....obrigado

tentei assim: if ACBrNFe1.NotasFiscais.Count > 0 then ACBrNFe1.Enviar(1); ele consegue carregar mas acho que falta mais coisas, tipo: assinar por exemplo...já tentei assinar mas ele dá erro da mesma forma

Boa tarde, aproveitando o assunto, gostaria de saber qual é o procedimento correto para enviar uma nfce que foi emitida em contingencia, já emiti, fiz a impressão tudo certo, digamos que o problema foi resolvido, qual seria o próximo passo? estou tentando fazer assim: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromString(TADOStoredProc(srcRegistro.DataSet).FieldByName('ArquivoXML').AsString); ACBrNFe1.Enviar(1); Mas ele me retorna o seguinte erro: nenhum nfe foi adicionada ao lote

Boa noite, conseguiu concluir a sua homologação? no meu caso já estou nos últimos ajustes, o boleto já está ok, só falta um ajuste na remessa, eles pediram para armazenar o percentual da multa e não o valor na posição 212 a 2016 ainda não descobri aonde posso alterar mas amanhã bato mais cabeça....se souber de alguma coisa e puder compartilhar te agradeço...

No Manual de Orientação não tem essa coluna.

Boa noite, gostaria de implementar uma propriedade para ocultar a coluna de desconto do danfe da NFe (Fast), sei que já tem algo em andamento ou pronto usando o Fortes, gostaria de saber se já tem algo em andamento ou posso iniciar do zero! alguns clientes pedem para não mostrar a coluna de desconto, somente o total na parte superior do danfe....

alterei assim: wLinha := '1' + // 1 a 1 - Identificação do Registro de Transação tipoInscricao + // 2 a 3 - Tipo de Inscrição da Empresa PadLeft(OnlyNumber(ACBrBoleto.Cedente.CNPJCPF), 14, '0') + // 4 a 17 - Número da Inscrição da Empresa aAgencia + aConta + // 18 a 31 - Identificação da Empresa no Banco Space(6) + // 32 a 37 - "Brancos" PadRight(NumeroDocumento,25) + // 38 a 62 - Uso exclusivo da Empresa IfThen(NossoNumero = '000000000', '000000000', PadLeft(RightStr(NossoNumero,TamanhoMaximoNossoNum),TamanhoMaximoNossoNum,'0')) + //CalcularDigitoVerificador(ACBrTitulo)) + // 63 a 71 - Número do título no banco Space(30) + // 72 a 101 - "Brancos" '0' + // 102 a 102 - Código de IOF sobre Operações de Seguro '00' + // 103 a 104 - Identificação do Tipo de Moeda, 00=Real Space(1) + // 105 a 105 - "Branco" IntToStrZero(StrToIntDef(Instrucao3,0), 2) + // 106 a 107 - Terceira Instrução de Cobrança. Utilizar somente quando Instrução2 é igual a 10 Carteira + // 108 a 108 - Identificação do Tipo de Carteira Ocorrencia + // 109 a 110 - Identificação do Tipo de Ocorrência Conseguiu preencher corretamente, vou enviar para homologação.. ficou assim: 001143055, ele removeu o digito verificador e inseriu o zero a esquerda

para ele não acrescentar mais o digito verificador na posição 71, seria só alterar essa linha: IfThen(NossoNumero = '000000000', '000000000', PadLeft(RightStr(NossoNumero,8),8,'0') + CalcularDigitoVerificador(ACBrTitulo)) + // 63 a 71 - Número do título no banco se remover esse CalcularDigitoVerificador(ACBrTitulo)) deve funcionar preciso só ver qual o impacto dessa remoção..

você alterou alguma coisa no arquivo ACBrBoleto.pas? se eu alterar o tamanho do nosso numero para 8 ele para nesse trecho: procedure TACBrTitulo.SetNossoNumero ( const AValue: String ) ; var wTamNossoNumero: Integer; wNossoNumero: String; begin wNossoNumero:= OnlyNumber(AValue); with ACBrBoleto.Banco do begin wTamNossoNumero:= CalcularTamMaximoNossoNumero(Carteira, wNossoNumero, ACBrBoleto.Cedente.Convenio); if Length(trim(wNossoNumero)) > wTamNossoNumero then raise Exception.Create( ACBrStr('Tamanho Máximo do Nosso Número é: '+ IntToStr(wTamNossoNumero) )); fNossoNumero := PadLeft(wNossoNumero,wTamNossoNumero,'0'); end; end;

Bom dia Lowry, usei a sua Unit mas mesmo assim, ele adiciona um número a mais na posição 71, nas posições 63 a 71 deveria ser usada pelo Nosso Número, vou tentar descobrir o motivo..

percebi que vc alterou essa linha (a baixo), sendo que no manual pede que o nosso numero tenha 9 posições, é isso mesmo? fpTamanhoMaximoNossoNum := 8; // 9 posicoes com o digito pagina 20 do manual ex: (XXX XXXXX X); poderia citar o trecho de código que você alterou para resolver essa questão do numero a mais no arquivo de remessa? Obrigado Lowry...

estou testando nesse momento, nela você conseguiu resolver a questão do dígito a mais no arquivo de remessa?

Estou com dois problemas iguais ao seu, 1: nosso numero divergente, resolvi assim: function TACBrBancoSafra.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): string; begin with ACBrTitulo.ACBrBoleto.Cedente do begin //Result := PadLeft(RightStr(Agencia,4), 4, '0') + PadLeft(AgenciaDigito, 1, '0') + ' / ' + PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0'); Result := PadLeft(RightStr(Agencia,5), 5, '0') + ' / ' + PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0'); end; end; Quanto ao digito que ele inclui no final do nosso numero na remessa ainda estou batendo cabeça...

para ocultar a coluna desconto usando o Fast poderia seguir o mesmo exemplo?

Bom dia, li que foi implementado a opção para ocultar de desconto do danfe nfe, onde ela fica? pode passar um exemplo do uso dela? obrigado

Bom dia amigos, podem me dizer se existe uma propriedade para mostrar a quantidade de parcelas na impressão do tipo carnê? no meu caso, quando defino que é do tipo carnê ele só mostra duas parcelas em cada página. Obrigado...

Seque o arquivo de Pedido Eletrônico de ressarcimento, homologado pelo site da sefaz-AM, se puder gerar um método, seria bom, aqui eu passei o xml como parâmetro: nfe.NotasFiscais.Clear; try nfe.NotasFiscais.LoadFromFile(OpenDialog1.FileName); // AssignFile(f,'c:\Temp\' + nfe.NotasFiscais.Items[0].NFe.procNFe.chNFe+ '-nfe-ressarcimento' + '.xml'); Rewrite(f); //abre o arquivo para escrita Writeln(f,'<?xml version="1.0" encoding="UTF-8" standalone="yes"?>'); Writeln(f,'<enviOperacaoRessarcimento xmlns="http://www.sefaz.am.gov.br/ressarcimento">'); Writeln(f,'<versao>2.00</versao>'); Writeln(f,'<dadosDeclaracao>'); Writeln(f,'<cnpjRaiz>' + copy(nfe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1,8) + '</cnpjRaiz>'); Writeln(f,'<ieContribuinteDeclarante>' + nfe.NotasFiscais.Items[0].NFe.Emit.IE + '</ieContribuinteDeclarante>'); Writeln(f,'<razaoSocial>' + nfe.NotasFiscais.Items[0].NFe.Emit.xNome + '</razaoSocial>'); Writeln(f,'<nomeResponsavel>' +nfe.NotasFiscais.Items[0].NFe.infRespTec.xContato + '</nomeResponsavel>'); Writeln(f,'<foneResponsavel>' +nfe.NotasFiscais.Items[0].NFe.infRespTec.fone + '</foneResponsavel>'); Writeln(f,'<emailResponsavel>'+ nfe.NotasFiscais.Items[0].NFe.infRespTec.email + '</emailResponsavel>'); Writeln(f,'<anoPeriodoReferencia>'+ copy(dateToStr(nfe.NotasFiscais.Items[0].NFe.Ide.dEmi),7,4) + '</anoPeriodoReferencia>'); Writeln(f,'<mesPeriodoReferencia>'+ copy(dateToStr(nfe.NotasFiscais.Items[0].NFe.Ide.dEmi),4,2) + '</mesPeriodoReferencia>'); Writeln(f,'</dadosDeclaracao>'); Writeln(f,'<listaOperacoes>'); Writeln(f,'<operacao>'); Writeln(f,'<chaveNFe>' + nfe.NotasFiscais.Items[0].NFe.procNFe.chNFe +'</chaveNFe>'); Writeln(f,'<listaItens>'); Writeln(f,'<item>'); for i :=0 to (nfe.NotasFiscais.Items[0].NFe.Det.Count - 1) do begin Writeln(f,'<codInternoProduto>' + nfe.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.cProd + '</codInternoProduto>'); Writeln(f,'<numItemNfe>' + intTostr(nfe.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.nItem) + '</numItemNfe>'); end; Writeln(f,'</item>'); Writeln(f,'</listaItens>'); Writeln(f,'</operacao>'); Writeln(f,'</listaOperacoes>'); // Writeln(f,'<listaNFeEntrada>'); Writeln(f,'<chaveNFeEntrada>' + nfe.NotasFiscais.Items[0].NFe.procNFe.chNFe + '</chaveNFeEntrada>'); Writeln(f,'</listaNFeEntrada>'); Writeln(f,'</enviOperacaoRessarcimento>'); Closefile(f); // showMessage('Pedido eletrônico gerado com sucesso'); Except Application.MessageBox('Erro ao gerar o Pedido eletrônico','Atenção', MB_ICONERROR) end;

Bom dia sabem me dizer se no projeto ACBr já esta gerando o pedido de ressarcimento? segue a legislação em anexo doc.pdf

Resolvido Leandro, era exatamento as margens que estavam todas com 10 e precisa ficar com 0,7.. Obrigado