ssouza_fiscal

Bom dia, podem dá um help por favor, como preencher corretamente uma NFe com desconto, já fiz de tudo mas continuo apanhando, sempre rejeita dizendo que Total do produto / Serviço difere do somatório dos itens, preenchendo da seguinte forma: Prod.nItem := numeroItem; // Número sequencial, para cada item deve ser incrementado Prod.cProd := TADOStoredProc(srcRegistroItem.DataSet).FieldByName('idProduto').AsString; Prod.cEAN := TADOStoredProc(srcRegistroItem.DataSet).FieldByName('codigoBarra').AsString; //'7896523206646'; Prod.xProd := TADOStoredProc(srcRegistroItem.DataSet).FieldByName('nomeProduto').AsString; Prod.NCM := TADOStoredProc(srcRegistroItem.DataSet).FieldByName('NCM').AsString; Prod.EXTIPI := ''; Prod.CFOP := TADOStoredProc(srcRegistroItem.DataSet).FieldByName('CFOPInterno').AsString; //'5101'; Prod.uCom := TADOStoredProc(srcRegistroItem.DataSet).FieldByName('nomeUnidade').AsString; Prod.qCom := TADOStoredProc(srcRegistroItem.DataSet).FieldByName('Quantidade').Value; Prod.vUnCom := RoundTo(TADOStoredProc(srcRegistroItem.DataSet).FieldByName('valorUnitario').Value,-2); Prod.vProd := (RoundTo(TADOStoredProc(srcRegistroItem.DataSet).FieldByName('valorUnitario').Value,-2) * TADOStoredProc(srcRegistroItem.DataSet).FieldByName('Quantidade').Value); Prod.cEANTrib := 'SEM GTIN';//TADOStoredProc(srcNFeItemConsultar.DataSet).FieldByName('codigoBarra').AsString; Prod.uTrib := TADOStoredProc(srcRegistroItem.DataSet).FieldByName('nomeUnidade').AsString; Prod.qTrib := TADOStoredProc(srcRegistroItem.DataSet).FieldByName('Quantidade').Value; Prod.vUnTrib := RoundTo(TADOStoredProc(srcRegistroItem.DataSet).FieldByName('valorUnitario').Value,-2); //Prod.IndTot := itNaoSomaTotalNFe; Prod.vOutro := 0; Prod.vFrete := 0; Prod.vSeg := 0; Prod.vDesc := TADOStoredProc(srcRegistroItem.DataSet).FieldByName('valorDesconto').Value; Prod.CEST := TADOStoredProc(srcRegistroItem.DataSet).FieldByName('codigoCEST').AsString; infAdProd := ''; Segue o xml anexo, obrigado... XMLTEste.xml

Obrigado Juliomar!

Bom dia, surgiu uma dúvida com relação ao envio de NFCe após ela ter sido gerado em contingencia, quando gero uma NFCe em contingencia, ela gera o xml, não gera: chave, protocolo, data da autorização e recibo, acredito que até aí tudo bem, certo? quando o problema é resolvido e vou enviar, devo pegar os campos: chave, protocolo, data da autorização e recibo, devo pegar também o xml que é retornado, ou mantenho o xlm que foi gerado em modo de contingencia? Obrigado

Bom dia Valter, no meu sistema quando esse erro ocorre(ausência de internet) mando em contingência, eu capturo ele pela try except e faço o envio em modo de contingência: try Tenho enviar normalmente, se der erro cai na excessão: except //Envio em contigência on E:Exception do if (pos('12007 - ', E.Message.ToUpper) > 0) or // erro de conexão (pos('12002 - ', E.Message.ToUpper) > 0) or // timeout (pos('12029 - ', E.Message.ToUpper) > 0) or // limite de tempo de conexão (pos('0 - ', E.Message.ToUpper) > 0) or //Sem internet (pos('ERRO NAO CATALOGADO', E.Message.ToUpper) > 0) then begin Envio em codo de contigência end

Boa tarde senhores(as), consegui descobrir o erro dos espaçamentos, quer dizer, descobrir como os tamanhos voltam ao normal! quando o transportador era por conta do destinatário, não sei porque isso ocorre (espaçamentos) mas tá aí, está imprimindo certinho, removi essas linhas, ou seja, na condição em que o frete era por conta do destinatário na minha concepção tinha que limpar os campos abaixo, aí que estava o erro...fica a dica ai...comentei essas linhas. Transp.Transporta.CNPJCPF := ''; Transp.Transporta.xNome := ''; Transp.Transporta.IE := ''; Transp.Transporta.xEnder := ''; Transp.Transporta.xMun := ''; Transp.Transporta.UF := ''; Transp.retTransp.vServ := 0; Transp.retTransp.vBCRet := 0; Transp.retTransp.pICMSRet := 0; Transp.retTransp.vICMSRet := 0; Transp.retTransp.CFOP := ''; Transp.retTransp.cMunFG := 0; Transp.veicTransp.placa := ''; Transp.veicTransp.UF := ''; Transp.veicTransp.RNTC := ''; // Transp.Vol.New.qVol := 0; Transp.Vol.New.esp := ''; Transp.Vol.New.marca := ''; Transp.Vol.New.nVol := ''; Transp.Vol.New.pesoL := 0; Transp.Vol.New.pesoB := 0;

ok, obrigado, no meu caso acredito que terei que fazer porque emito nfce

Aproveitando o post, qual o comando para imprimir o DAV, ou preciso desenvolver um danfe específico? para imprimir a nfce, uso: ACBrNFe1.NotasFiscais.Imprimir! minha dúvida, se teria um danfe para impressão do DAV e como usar. Obrigado.

Ok Juliana, muito obrigado

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...