igorpatrik

Entendi, eu modifiquei no sistema e funcionou. Obrigado.

Estou utilizando a seguinte tag Na ICMSUFDest: if (Emit.EnderEmit.UF <> Dest.EnderDest.UF) and (Emit.CRT <> crtSimplesNacional) then begin with ICMSUFDest do vBCUFDest := Prod.vProd; vBCFCPUFDest := Prod.vProd; pFCPUFDest := 2; pICMSUFDest := 21 ; //AlicotasEstaduais.Dest; pICMSInter := AlicotasEstaduais.Inter; vDifal := (vBCUFDest * AlicotasEstaduais.Dest / 100) - (vBCUFDest * AlicotasEstaduais.Inter / 100); pICMSInterPart := 100 ; //AlicotasEstaduais.PartilhaDest; vFCPUFDest := RoundTo((vBCUFDest * 2) / 100, -2); vICMSUFDest := RoundTo(vDifal * AlicotasEstaduais.PartilhaDest / 100, -2); vICMSUFRemet := RoundTo(vDifal * AlicotasEstaduais.PartilhaOrig / 100, -2); Sou do PI e a venda é para o MA Aliquota do PI agora é 21% Onde estou errando ? Obrigado desde já. 22230423559112000182550010000004161000141680-nfe.xml

Não quis dizer que esteja no Acbr, pedi mais foi uma ajuda nessa tag que esta gerando duplicado. Vou colocar a minha tag completa. { DUPLICATAS } if dm.IBTransaction.Active then dm.IBTransaction.Commit; dm.IBTransaction.StartTransaction; dm.QConsulta.close; dm.QConsulta.sql.Clear; dm.QConsulta.sql.Text := 'SELECT * from FATURAS_NOTAS_FISCAIS WHERE COD_NF = :CODNF ' + 'ORDER BY VENCIMENTO'; dm.QConsulta.Parambyname('codnf').AsInteger := iCodigoNotaFiscal; dm.QConsulta.open; dm.QConsulta.Last; dm.QConsulta.first; Cobr.Fat.nFat := dm.QNFNUMERO_NOTA_NF.AsString; Cobr.Fat.vOrig := dm.QNFVALOR_TOTAL_NF.AsCurrency; Cobr.Fat.vDesc := 0.00; Cobr.Fat.vLiq := dm.QNFVALOR_TOTAL_NF.AsCurrency; if (not dm.QConsulta.IsEmpty) AND (dm.QConsulta.recordCount > 1) then begin //Se tem fatura //Alterado por Caiman //Tipos permitidos para a tag tPag: //01 - Dinheiro; fpDinheiro //02 - Cheque; fpCheque //03 - Cartão de Crédito; fpCartaoCredito //04 - Cartão de Débito; fpCartaoDebito //05 - Crédito Loja; fpCreditoLoja //10 - Vale Alimentação; fpValeAlimentacao //11 - Vale Refeição; fpValeRefeicao //12 - Vale Presente; fpValePresente //13 - Vale Combustível; fpValeCombustivel //14 - Duplicata Mercantil; fpDuplicataMercantil //90 - Sem pagamento; fpSemPagamento //99 - Outros. fpOutro if dm.ACBrNFe1.Configuracoes.Geral.VersaoDF = ve400 then begin pag.Add.tPag := fpSemPagamento; end else case Ide.indPag of ipPrazo: begin with pag.Add do begin tPag := fpCreditoLoja; vPag := Total.ICMSTot.vNF; end; end; ipOutras, ipVista, ipNenhum: begin with pag.Add do begin tPag := fpDinheiro; vPag := Total.ICMSTot.vNF; end; end; end; while not dm.QConsulta.eof do begin with Cobr.Dup.Add do begin nDup := dm.QConsulta.fieldbyname('PARCELA').AsString; dVenc := dm.QConsulta.fieldbyname('VENCIMENTO').AsDateTime; vDup := dm.QConsulta.fieldbyname('VALOR').AsCurrency; end; dm.QConsulta.next; end; end else //Se não tem fatura begin if dm.QConsulta.fieldbyname('VENCIMENTO').AsDateTime <= Date then begin //Alterado por Caiman if dm.ACBrNFe1.Configuracoes.Geral.VersaoDF = ve400 then begin with pag.Add do begin if Ide.finNFe in [fnDevolucao, fnAjuste] then tPag := fpSemPagamento else begin tPag := fpOutro; vPag := dm.QNFVALOR_TOTAL_NF.AsCurrency; end; end; end else Ide.indPag := ipVista; end else begin if dm.ACBrNFe1.Configuracoes.Geral.VersaoDF = ve400 then begin with pag.Add do begin if Ide.finNFe in [fnDevolucao, fnAjuste] then begin tPag := fpSemPagamento end else begin tPag := fpDuplicataMercantil;; vPag := dm.QNFVALOR_TOTAL_NF.AsCurrency; end; end; end else Ide.indPag := ipPrazo; if not (Ide.finNFe in [fnDevolucao, fnAjuste]) then begin while not dm.QConsulta.eof do begin with Cobr.Dup.Add do begin nDup := dm.QConsulta.fieldbyname('PARCELA').AsString; dVenc := dm.QConsulta.fieldbyname('VENCIMENTO').AsDateTime; vDup := dm.QConsulta.fieldbyname('VALOR').AsCurrency; end; dm.QConsulta.next; end; end; end; end; dm.IBTransaction.Commit; dm.QConsulta.close;

Essa tag foi inserida apenas 1 vez logo acima da tag faturas. então no xml ela esta aparecendo varias vezes seguida.

Amigos estou com um problema aqui na TAG: Cobr.Fat.nFat := dm.QNFNUMERO_NOTA_NF.AsString; Cobr.Fat.vOrig := dm.QNFVALOR_TOTAL_NF.AsCurrency; Cobr.Fat.vDesc := 0.00; Cobr.Fat.vLiq := dm.QNFVALOR_TOTAL_NF.AsCurrency; Mas no xml esta duplicando essa tag de fatura. 22180823559112000182550010000001661000001668-nfe.xml

Amigos estou com um problema aqui na TAG: Cobr.Fat.nFat := dm.QNFNUMERO_NOTA_NF.AsString; Cobr.Fat.vOrig := dm.QNFVALOR_TOTAL_NF.AsCurrency; Cobr.Fat.vDesc := 0.00; Cobr.Fat.vLiq := dm.QNFVALOR_TOTAL_NF.AsCurrency; Mas no xml esta duplicando essa tag de fatura. 22180823559112000182550010000001651000001652-nfe.xml

Amigo obrigado pela ajuda, me deparei com uma outra questão. ERRO: [DCC Error] dxGDIPlusAPI.pas(465): E2003 Undeclared identifier: 'EdxException' Tenho windows 7 64bts e estou com este erro onde instalei o develp express para xe e apresenta essa mensagem de erro. Pode me dá uma luz para resolver. Obrigado.

Juliomar estava trabalhando com a versão 4.0 seria a versão ?

Pessoal estou me deparando com um problema na instalação no Acbr com o componente ACBrMDFeDAMDFEFRDM que dá o erro: frxPDFExport:= TfrxPDFExport.Create(Self); with frxPDFExport do begin UseFileCache := True; ShowProgress := True; OverwritePrompt := False; DataOnly := False; PrintOptimized := True; Outline := False; Background := True; HTMLTags := True; No Quality não localiza: ---> Quality := 95; //Transparency := False; Author := 'FastReport'; Subject := 'Exportando DANFE para PDF'; ProtectionFlags := [ePrint, eModify, eCopy, eAnnot]; HideToolbar := False; HideMenubar := False; HideWindowUI := False; FitWindow := False; CenterWindow := False; PrintScaling := False; end; Já instalei o FASTREPORT e instalei pelo ACBrInstall_Trunk2 também da erro na instalação. Aguardo a ajuda dos amigos, Desde já agradeço