Jump to content

afnsldd

Membros
  • Content Count

    8
  • Joined

  • Last visited

Community Reputation

1 Neutral

About afnsldd

  • Rank
    Novato

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Alguém sabe alguma informação sobre qual a posição SEFAZ do RJ para esta tag específica do Responsável Técnico?
  2. Obrigado pelas respostas. Muito agradecido! Parabéns pelo Fórum.
  3. Nem mesmo o do exemplo do ACBr funciona. Segue uma imagem utilizando o mesmo XML.
  4. Boa tarde. Estou tendo problemas com os relatórios de impressão desde que eu atualizei o meu ACBr na última segunda feira. Não estão aparecendo os itens na nota. Já procurei em vários lugares mas nenhum fórum me trouxe resposta por isso estou postando aqui. Nem mesmo no exemplo do Acbr em \Acbr\Exemplos\ACBrDFe\ACBrNFe\Delphi DANFe FR está funcionando. Eis o problema com um XML de exemplo para vocês darem uma olhada: 33181229589199000117650010000040061000040065-nfe.xml
  5. Obrigado. Já resolvi. a sua dica de olhar o exemplo do acbr foi útil.
  6. Uma dúvida, a variável dett tem que ser do tipo TDetCollectionItem? Ou TDetCollection?
  7. Obrigado! já Resolvi. Mas agora não estou conseguindo adicionar itens no XML . Meu código está assiM: ============================================================================== while not cdsPedItens.Eof do //================================================== Para cada item do pedido faremos este processo begin Inc(numItem); DadosProduto(cdsPedItensID_PRODUTO.AsInteger); dett.Add.Prod.nItem := numItem; dett.Add.Prod.cProd := IntToStr(cdsPedItensID_PRODUTO.AsInteger); dett.Add.Prod.cEAN := cdsPedItensEAN13.AsString; dett.Add.Prod.xProd := cdsPedItensDESCRICAO.AsString; dett.Add.Prod.NCM := cdsProdutosCODIGO_NCM.AsString; dett.Add. Prod.EXTIPI := ''; case cdsPedItensTIPOPROD.AsInteger of 0,1,2,4: dett.Add.Prod.CFOP := '5102'; 3: dett.Add.Prod.CFOP := '5403'; end; dett.Add.Prod.uCom := cdsProdutosUNIDADE.AsString; dett.Add.Prod.qCom := cdsPedItensQUANTIDADE.AsCurrency; dett.Add.Prod.cEANTrib := ''; dett.Add.Prod.uTrib := cdsProdutosUNIDADE.AsString; if cdsPedItensTIPOPROD.AsInteger = 0 then dett.Add.Prod.qTrib := cdsPedItensQUANTIDADE.AsCurrency else dett.Add.Prod.qTrib := 0; dett.Add.Prod.vFrete := 0; dett.Add.Prod.vSeg := 0; dett.Add.Prod.vDesc := cdsPedItensDESCONTO.AsCurrency; //IMPORTAÇÃO with dett.Add.Prod.DI do begin end; //VEÍCULOS with dett.Add.Prod.veicProd do begin end; //MEDICAMENTOS with dett.Add.Prod.med do begin end; //MATERIAL BÉLICO with dett.Add.Prod.arma do begin end; //COMBUSTÍVEL with dett.Add.Prod.comb do begin end; //TRIBUTAÇÃO DOS ITENS //ICMS if cdsPedItensTIPOPROD.AsInteger = 0 then //======== 0 - TRIBUTADO begin dett.Add.Imposto.ICMS.CST := cst00; dett.Add.Imposto.ICMS.CSOSN := csosn101; dett.Add.Imposto.ICMS.orig := oeNacional; dett.Add.Imposto.ICMS.modBC := dbiValorOperacao; dett.Add.Imposto.ICMS.vBC := cdsPedItensVALOR_TOTAL.AsCurrency; dett.Add.Imposto.ICMS.pICMS := cdsProdutosALIQUOTA_ICMS.AsFloat; //======== PRODUTO TRIBUTADO COM BASE NAO REDUZIDA dett.Add.Imposto.ICMS.vICMS := (cdsPedItensVALOR_TOTAL.AsFloat * cdsProdutosALIQUOTA_ICMS.AsFloat) / 100; dett.Add.Imposto.ICMS.modBCST := dbisMargemValorAgregado; dett.Add.Imposto.ICMS.pMVAST := 0; dett.Add.Imposto.ICMS.pRedBCST := 0; dett.Add.Imposto.ICMS.vBCST := 0; dett.Add.Imposto.ICMS.pICMSST := 0; dett.Add.Imposto.ICMS.vICMSST := 0; dett.Add.Imposto.ICMS.pRedBC := 0; end; if cdsPedItensTIPOPROD.AsInteger = 3 then //======== 3 - SUBS. TRIBUTARIA begin dett.Add.Imposto.ICMS.CST := cst60; dett.Add.Imposto.ICMS.orig := oeNacional; dett.Add.Imposto.ICMS.modBC := dbiValorOperacao; dett.Add.Imposto.ICMS.vBC := cdsPedItensVALOR_TOTAL.AsCurrency; dett.Add.Imposto.ICMS.pICMS := 0; //======== PRODUTO TRIBUTADO COM BASE NAO REDUZIDA dett.Add.Imposto.ICMS.vICMS := 0; dett.Add.Imposto.ICMS.modBCST := dbisMargemValorAgregado; dett.Add.Imposto.ICMS.pMVAST := 0; dett.Add.Imposto.ICMS.pRedBCST := 0; dett.Add.Imposto.ICMS.vBCST := 0; dett.Add.Imposto.ICMS.pICMSST := cdsProdutosALIQUOTA_ICMS.AsFloat; dett.Add.Imposto.ICMS.vICMSST := (cdsPedItensVALOR_TOTAL.AsFloat * cdsProdutosALIQUOTA_ICMS.AsFloat) / 100; dett.Add.Imposto.ICMS.pRedBc := 0; end; //II if (cdsPedItensTIPOPROD.AsInteger = 1) or //======== 1 - PRODUTO ISENTO (cdsPedItensTIPOPROD.AsInteger = 2) then //======== 2 - NÃO TRIBUTADO begin dett.Add.Imposto.II.vBc := 0; dett.Add.Imposto.II.vDespAdu := 0; dett.Add.Imposto.II.vII := cdsPedItensVALOR_TOTAL.AsFloat; dett.Add.Imposto.II.vIOF := 0; end; //ISSQN if cdsPedItensTIPOPROD.AsInteger = 4 then //======== 4 - SERVIÇO begin dett.Add.Imposto.ISSQN.vBC := cdsPedItensVALOR_TOTAL.AsFloat; dett.Add.Imposto.ISSQN.vAliq := cdsProdutosALIQUOTA_ICMS.AsFloat; dett.Add.Imposto.ISSQN.vISSQN := (cdsProdutosALIQUOTA_ICMS.AsFloat * cdsPedItensVALOR_TOTAL.AsFloat)/100; dett.Add.Imposto.ISSQN.cMunFG := 0; dett.Add.Imposto.ISSQN.cListServ := '0'; end; cdsPedItens.Next; end; Por quê no meu XML não está vindo os itens? Se quiserem posso enviar um demo do meu projeto para vcs com o BD junto. Estranho, acho que é na hora de ler o BD, mas quando debugo consigo ler os itens da tabela Pedido_itens.
  8. Já dei um update na pasta do acbr mas nada. Será isto um problema de unit?
×
×
  • Create New...