dominioararangua

Valeu André, Muito Obrigado T+

Boa tarde a todos, Estou tendo o seguinte problema. Desde 01/01/2012 entrou em vigor a alteração do artigo 57 onde TODAS AS EMPRESAS SIMPLES NACIONAL ao emitirem nota fiscal de devolução devem destacar o ICMS na base de calculo, ou seja, no campo próprio. Preencho os campos no sistema normalmente ICMS.vBC := DMX.IBDetailFiscalBCICMS.Value; ICMS.vICMS := DMX.IBDetailFiscalVALORICMS.Value; ICMS.pICMS := DMX.IBDetailFiscalPORCICMS.Value; So que no XML esses campos não aparecem. Estou fazendo algo errado? Grato, 42121015287520000102550020000000011000000019-nfe.xml

Boa noite, Queria saber se é possivel enviar varias correçoes na carta de correção Estou fazendo assim: DM.ACBrNFe1.CartaCorrecao.CCe.Evento.Clear; DM.ACBrNFe1.CartaCorrecao.CCe.idLote := StrToInt(idLote) ; envia:= 0; Application.CreateForm(TFCorrecoes, FCorrecoes); // nesse form insiro as correcoes em um listbox FCorrecoes.ShowModal; if FCorrecoes.Tag = 1 then begin envia:= 1; sequencia:= dmx.IBNotaFiscalSEQCORRECAO.Value; for i:= 0 to FCorrecoes.ListBox1.Count- 1 do begin Sequencia:= Sequencia + 1; correcao:= FCorrecoes.ListBox1.Items.Strings; with DM.ACBrNFe1.CartaCorrecao.CCe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.cOrgao := StrToInt(codOrgao); infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := 110110; FCorrecoes.ListBox1.ItemIndex:= FCorrecoes.ListBox1.Items.IndexOf(FCorrecoes.ListBox1.Items.Strings); infEvento.nSeqEvento := sequencia; infEvento.versaoEvento := '1.00'; infEvento.detEvento.descEvento := 'Carta de Correção'; infEvento.detEvento.xCorrecao := Correcao; infEvento.detEvento.xCondUso := ''; //Texto fixo conforme NT 2011.003 - http://www.nfe.fazenda.gov.br/portal/ex ... iloeZ6vBw= end; end; end; FCorrecoes.Release; if Envia = 1 then DM.ACBrNFe1.EnviarCartaCorrecao(StrToInt(idLote)); Nao gera erro nenhum, mas tambem não gera o xml, o xml fica em branco. Se puderem me ajudar... grato, Rodrigo