Jump to content

Search the Community

Showing results for tags 'Registro 200'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Categories

There are no results to display.

Forums

  • Fórum Aberto - ACBr
    • ACBr News
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrDFe
    • Dúvidas sobre TEF
    • Dúvidas sobre PIX
    • ACBrMonitor PLUS
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
  • ACBr Pro
    • Dúvidas gerais
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • ACBr's Pub
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Data Base
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categories

  • ACBr Pro
    • ACBrLib - PRO
    • ACBrMonitorPLUS - PRO
    • Utilitários - PRO
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
    • ACBrLib Android - Pro
  • Free Download
    • ACBrLib - DEMO
    • ACBrMonitorPLUS - DEMO
    • Demos / Testes / Utilitários
    • Apresentações - Palestras
    • ACBrLib Android - Demo

Calendars

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Community Calendar
  • ACBr Papo Pro
  • Feriados Nacionais

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Website URL

Found 1 result

  1. Galera o seguinte, esse ajuste deve servir tanto para FISCAL quanto CONTRIBUIÇÕES: Segundo um consultor, o registro 200 quando for matéria prima para industrias, não é necessário informar a alíquota de icms, então ocorreu uma situação na empresa que sou programador, em que o programador simplesmente não enviou a propriedade para o objeto do registro 0200 foi feito dessa forma: aDatasetInfo.First; //dados da consulta de itens de todas as notas envolvidas no período while not aDatasetInfo.Eof do begin with ACBrSPEDFiscal.Bloco_0.Registro0200New do begin COD_ITEM := aDatasetInfo.FieldByName('Cod_Item').AsString; DESCR_ITEM := aDatasetInfo.FieldByName('Descricao').AsString; COD_BARRA := aDatasetInfo.FieldByName('Cod_Barra').AsString; UNID_INV := aDatasetInfo.FieldByName('Unid_Medida').AsString; case aDatasetInfo.FieldByName('Tipo_Item').AsInteger of 0: TIPO_ITEM := tiMercadoriaRevenda; 1: TIPO_ITEM := tiMateriaPrima; 2: TIPO_ITEM := tiEmbalagem; 3: TIPO_ITEM := tiProdutoProcesso; 4: TIPO_ITEM := tiProdutoAcabado; 5: TIPO_ITEM := tiSubproduto; 6: TIPO_ITEM := tiProdutoIntermediario; 7: TIPO_ITEM := tiMaterialConsumo; 8: TIPO_ITEM := tiAtivoImobilizado; 9: TIPO_ITEM := tiServicos; 10: TIPO_ITEM := tiOutrosInsumos; 99: TIPO_ITEM := tiOutras; end; COD_NCM := aDatasetInfo.FieldByName('NCM').AsString; COD_GEN := Copy(aDatasetInfo.FieldByName('NCM').AsString, 1, 2); ///////// {NÃO FOI DEFINIDO VALOR DEFAULT PARA ALIQ_ICMS} //////// // Cfe visto no eAuditor, qdo materia prima n precisa preencher a Aliq ICMS if TIPO_ITEM <> tiMateriaPrima then ALIQ_ICMS := aDatasetInfo.FieldByName('AliqICMS_Interna').AsFloat; end; // Fim do with ACBrSPEDFiscal1.Bloco_0.Registro0200New aDatasetInfo.Next; end; // FIm do While aDatasetInfo.First; Não informando o default da aliquota, ocorre um erro no objeto de formatação, porém o erro não informa uma mensagem exata, apenas que houve um erro de formatação de valores %a..... Tratei a solução colocando valor ALIQ_ICMS = 0, porém se alguém interpretar da mesma forma que não é necessário informar a propriedade, fiz um ajuste para evitar o erro dentro fonte do Acbr.... na unit... ACBR\Fontes\ACBrComum\ACBrTXTClass.pas na linha: 373 // Se o parametro Value = Null, será retornado '|' if (Value = Null) (acrescentei aqui...) or (Value = Unassigned) then begin Result := FDelimitador; Exit; end; Assim, se a propriedade não for passada para o OBJ, não ocorre o erro. Porque a mensagem o raise.... não é executada, pois não consegue tratar o valor como númerico... if not VarIsNumeric(Value) then raise Exception.Create( Format('[%a] Não é um valor numérico!', [Value]) );
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.