Gr@c@

Obrigada

Essa alteração também não está no SVN. E está ocorrendo o erro ao validar os arquivos das transportadoras. procedure TBloco_D.WriteRegistroD110(RegD100: TRegistroD100) ; var intFor: integer; begin if Assigned( RegD100.RegistroD110 ) then begin for intFor := 0 to RegD100.RegistroD110.Count - 1 do begin with RegD100.RegistroD110.Items[intFor] do begin Add( LFill('D110') + LFill(NUN_ITEM,3) + LFill(COD_ITEM ) + LFill(VL_SERV ) + LFill(VL_OUT ) ); end; /// Registros FILHOS WriteRegistroD120( RegD100.RegistroD110.Items[intFor] ); RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroD110Count := FRegistroD110Count + RegD100.RegistroD110.Count; end; end;

Essas alteração ainda não estão no SVN. Mas sem ela, o arquivo não valida. Sempre que atualizo o SpedFiscal, tenho que refazer essas alterações. As transportadoras já são obrigadas a enviar o SPED Fiscal até dia 15/01/2011 **********************************************************************ACBrEFDBloco_D ********************************************************************** /// Registro D162 - IDENTIFICAÇÃO DOS DOCUMENTOS FISCAIS (COD. 08, 8B, 09, 10, 11, 26, 27) TRegistroD162 = class private fCOD_MOD: String; /// Código do documento fiscal FSER: String; /// Série do documento FNUM_DOC: String; /// Numero FDT_DOC: TDateTime; /// Data de emissão FVL_DOC: currency; /// Valor total do documento fiscal FVL_MERC: currency; /// Valor das mercadorias constantes no documento fiscal //FQTD_VOL: currency; /// Quantidade de volumes transportados FQTD_VOL: integer; /// Quantidade de volumes transportados FPESO_BRT: currency; /// Peso bruto FPESO_LIQ: currency; /// Peso liquido public property COD_MOD: String read FCOD_MOD write FCOD_MOD; property SER: String read FSER write FSER; property NUM_DOC: String read FNUM_DOC write FNUM_DOC; property DT_DOC: TDateTime read FDT_DOC write FDT_DOC; property VL_DOC: currency read FVL_DOC write FVL_DOC; property VL_MERC: currency read FVL_MERC write FVL_MERC ; //property QTD_VOL: currency read FQTD_VOL write FQTD_VOL; property QTD_VOL: integer read FQTD_VOL write FQTD_VOL; property PESO_BRT: currency read FPESO_BRT write FPESO_BRT; property PESO_LIQ: currency read FPESO_LIQ write FPESO_LIQ; end; ********************************************************************************************* ACBrEFDBloco_D_Class ********************************************************************************************* procedure TBloco_D.WriteRegistroD162(RegD160: TRegistroD160) ; var intFor: integer; begin if Assigned( RegD160.RegistroD162 ) then begin for intFor := 0 to RegD160.RegistroD162.Count - 1 do begin with RegD160.RegistroD162.Items[intFor] do begin Add( LFill('D162') + LFill( COD_MOD ) + LFill( SER ) + LFill( NUM_DOC ) + LFill( DT_DOC ) + LFill( VL_DOC,0,2 ) + LFill( VL_MERC,0,2 ) + //LFill( QTD_VOL,0 ) + LFill( QTD_VOL ) + LFill( PESO_BRT,0,2 ) + LFill( PESO_LIQ,0,2 ) ) ; end; RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroD162Count := FRegistroD162Count + RegD160.RegistroD162.Count; end; end;

Para solucionar o erro acima (a nivel provisório) foi necessário desconsiderar as NFs de Serviço canceladas. Mas essas notas devem fazer parte do Registro D100 Então no registroD100 deveria jogar vazio nos campos se a nota estiver cancelada: COD_PART := ''; DT_DOC := ''; DT_A_P := ''; TP_CT_e := ''; CHV_CTE_REF := ''; VL_DOC := ''; VL_DESC := ''; IND_FRT :=tfNenhum; VL_SERV := ''; VL_BC_ICMS := ''; VL_ICMS := ''; VL_NT := ''; COD_INF :=''; COD_CTA :=''; só que alguns campos são tipo currency ou data.

Em caso de NFs de serviço canceladas está dando erro: "Para documento fiscal cancelado (código da situação = 02 ou 03) ou NFe denegada (04) ou NFe inutilizada (05), somente os campos código da situação, indicador de operação, código do modelo e a "chave do documento" e os campos CHV_NFE e CHV_CTE para os registros que possuam os campos." Então no registroD100 deveria jogar vazio nesses campos, mas os campos marcados não tem como COD_PART := ''; >>>> DT_DOC := ''; >>>> DT_A_P := ''; TP_CT_e := ''; CHV_CTE_REF := ''; >>>> VL_DOC := ''; >>>> VL_DESC := ''; IND_FRT :=tfNenhum; >>>> VL_SERV := ''; >>>> VL_BC_ICMS := ''; >>>> VL_ICMS := ''; >>>> VL_NT := ''; COD_INF :=''; COD_CTA :='';

Sim onde está >>>>>> // é o que comentei onde está >>>>>> é o que alterei

Obrigada, realmente, o problema é esse mesmo. Segue o que alterei no componente (ACBrEFDBloco_D_Class) procedure TBloco_D.WriteRegistroD110(RegD100: TRegistroD100) ; var intFor: integer; begin if Assigned( RegD100.RegistroD110 ) then begin for intFor := 0 to RegD100.RegistroD110.Count - 1 do begin with RegD100.RegistroD110.Items[intFor] do begin Add( LFill('D110') + >>>>> LFill(NUN_ITEM,3) + <<<<<<< LFill(COD_ITEM ) + LFill(VL_SERV ) + LFill(VL_OUT ) ); end; /// Registros FILHOS WriteRegistroD120( RegD100.RegistroD110.Items[intFor] ); RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroD110Count := FRegistroD110Count + RegD100.RegistroD110.Count; end; end;

Estou com problemas na geração do bloco D110 de transportadoras que emitem NF de serviço serie A (quando transportam carga dentro da propria cidade, a prefeitura não aceita CTRC nem CT-e, e sim somente NF modelo 07 (serie A) ou NFS) Está gerando o registro D110 assim |D110|31121899|P0000000393|04121900|| quando deveria ficar assim |D110|001|P0000000393|04121900|| mas a estrutura do registro é: REG NUM_ITEM -> inteiro ---> estou enviando 1 COD_ITEM -> string ---> estou enviando P0000000393 VL_SERV -> currency VL_OUT -> currency já debuguei meu programa e dei display nos dados antes de enviar para o registro e estou enviando 1 no NUM_ITEM. Mas ele está jogando uma data nula (31121899) Não encontrei o erro no componente. No ACBrEFDBloco_D está assim /// Registro D110 - COMPLEMENTO DOS BILHETES (CÓDIGO 13, CÓDIGO 14 E CÓDIGO 16) mas aqui deveria ser /// Registro D110 - ITENS DO DOCUMENTO - NOTA FISCAL DE SERVICOS DE TRANSPORTE (CODIGO 07) TRegistroD110 = class private >>>>>>>>>>>>>>>estão fora de ordem fCOD_ITEM: string; fMUN_ITEM: integer; fVL_SERV: currency; fVL_OUT: currency;

[post RESOLVIDO] Isaque, está funcionando correto. Foi mineirada minha. Esqueci do Build no pacote. Obrigada.

ACBrEFDBloco_D --------------- public property COD_MOD: String read FCOD_MOD write FCOD_MOD; property SER: String read FSER write FSER; property NUM_DOC: String read FNUM_DOC write FNUM_DOC; property DT_DOC: TDateTime read FDT_DOC write FDT_DOC; property VL_DOC: currency read FVL_DOC write FVL_DOC; property VL_MERC: currency read FVL_MERC write FVL_MERC; >>>>>>>>>>// property QTD_VOL: currency read FQTD_VOL write FQTD_VOL; >>>>>>>>>> property QTD_VOL: integer read FQTD_VOL write FQTD_VOL; property PESO_BRT: currency read FPESO_BRT write FPESO_BRT; property PESO_LIQ: currency read FPESO_LIQ write FPESO_LIQ; end; TRegistroD162 = class private fCOD_MOD: String; /// Código do documento fiscal FSER: String; /// Série do documento FNUM_DOC: String; /// Numero FDT_DOC: TDateTime; /// Data de emissão FVL_DOC: currency; /// Valor total do documento fiscal FVL_MERC: currency; /// Valor das mercadorias constantes no documento fiscal >>>>>>>>>// FQTD_VOL: currency; /// Quantidade de volumes transportados >>>>>>>>> FQTD_VOL: integer; /// Quantidade de volumes transportados FPESO_BRT: currency; /// Peso bruto FPESO_LIQ: currency; /// Peso liquido ACBrEFDBloco_D_Class procedure TBloco_D.WriteRegistroD162(RegD160: TRegistroD160) ; var intFor: integer; begin if Assigned( RegD160.RegistroD162 ) then begin for intFor := 0 to RegD160.RegistroD162.Count - 1 do begin with RegD160.RegistroD162.Items[intFor] do begin Add( LFill('D162') + LFill( COD_MOD ) + LFill( SER ) + LFill( NUM_DOC ) + LFill( DT_DOC ) + LFill( VL_DOC,0,2 ) + LFill( VL_MERC,0,2 ) + >>>>>>>>>// LFill( QTD_VOL,0 ) + >>>>>>>>> LFill( QTD_VOL ) + LFill( PESO_BRT,0,2 ) + LFill( PESO_LIQ,0,2 ) ) ; end; RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroD162Count := FRegistroD162Count + RegD160.RegistroD162.Count; end; end;

Está dando o erro MSG_TIPO_CAMPO O Tipo de campo é numérico (sem decimais) Eu estou enviando inteiro = 504 mas o componente está jogando 504,00 TRegistroD162 = class private fCOD_MOD: String; /// Código do documento fiscal FSER: String; /// Série do documento FNUM_DOC: String; /// Numero FDT_DOC: TDateTime; /// Data de emissão FVL_DOC: currency; /// Valor total do documento fiscal FVL_MERC: currency; /// Valor das mercadorias constantes no documento fiscal >>>>>> FQTD_VOL: currency; /// Quantidade de volumes transportados FPESO_BRT: currency; /// Peso bruto FPESO_LIQ: currency; /// Peso liquido

Não estou conseguindo gerar corretamente o registro D162, porque dá erro de data no formato 'ddmmyyyy'. Acontece que a data está correta mas não está indo para a montagem do registro. Add( LFill('D162') + LFill( COD_MOD ) + LFill( SER ) + LFill( NUM_DOC ) + >>>>>>>>>>>>>>>>>aqui deveria ter LFill(DT_DOC) + LFill( VL_DOC,0,2 ) + LFill( VL_MERC,0,2 ) + LFill( QTD_VOL,0 ) + LFill( PESO_BRT,0,2 ) + LFill( PESO_LIQ,0,2 ) ) ;

O ACBR SPED Fiscal não está aceitando a versão 103 para movimento a partir de 01/01/2011 e o arquivo não está validando. Gerei o SPED de vários clientes de Janeiro de 2010 a Dezembro de 2010. Mas a partir de 2011, nada feito. /// Versão do Leiaute do arquivo - TRegistro0000 TACBrVersaoLeiaute = (vlVersao100, // Código 001 - Versão 100 Ato COTEPE 01/01/2008 vlVersao101, // Código 002 - Versão 101 Ato COTEPE 01/01/2009 vlVersao102, // Código 003 - Versão 102 Ato COTEPE 01/01/2010 vlVersao103 // Código 004 - Versão 103 Ato COTEPE 01/01/2011 ); onde mais teria que ser alterado? Não estou encontrando o relacionamento do vlversao102 Graça

Realmente existe esse impasse no Paraná sim. Pra resolver isso, você terá que ter 2 aplicativos: um na versão 1 e outro na versão 2.

Conforme comunicado abaixo, gostaria de saber se essa opção será desenvolvida no componente ACBrNFe ou se alguém poderia me ajudar a desenvolver uma rotina para fazê-lo. O problema é que já começaram as multas ref a NF-e sem placa e sem data de saida quando o transportador é o emitente da NFe e a operação é interestadual. Todos os meus clientes credenciados como emissores de NFe já receberam o email do SEFAZ/MG. ABRE ASPAS Prezado(a)(s), Informo que foi liberado o “Registro de Saída da NF-e”, ou seja, a funcionalidade para que o contribuinte possa informar a Data de Saída da NF-e. Esse registro poderá ser feito via WebService, como os demais serviços da NF-e, ou via SIARE. Para oficializar essa liberação foi publicado Comunicado SRE até que seja alterado o RICMS/02. Foi disponibilizado na opção “Downloads” do Portal NF-e da SEF/MG o Manual do Registro de Saída da NF-e. FECHA ASPAS

Foi esse mesmo relacionamento que eu fiz entre CST e CSOSN. As coisas estão ficando bem mais claras quanto a CRT CST CSOSN. No caso do destinatario com inscrição de produtor rural, cairá na situação do "não gera direito a credito"? Como ficará o caso do diferimento com produto agricola vendido para produtor rural?

Desculpe a demora, mas estava pesquisando isso. Vc perguntou: "Outra dúvida e no caso de substituição tributária? Criar campos para eles tb?" Ao que parece, os campos de substituição tributária não precisa criar outros para o Simples Nacional. Serão os mesmos. Então, até agora ficaria + ou - assim: campos novos da Tabela de itens da NFiscal CSOSN BaseCredito AliquotaCredito ValorCredito Gente, mais alguma sugestão? Alguém aí pode esclarecer melhor esse assunto? Acender uma luz no final do túnel?

Fiz o download completo do componente hoje, mas ao tentar dar build all no componente ACBrNFe2 o Delphi simplesmente fecha sozinho. Já fiz o download várias vezes. Alguma sugestão? Graça

Pelos meus estudos e pesquisas junto ao plantão fiscal e assessoria fiscal... >>>>o campo BASE de ICMS que no SN ficava zerado. Podemos usa-lo para guardar a base do credito do SN? não, o credito não tem nada a ver com a base de calculo do icms. Tem que criar um campo especifico VlrBaseCreditoAplicavelSimplesNacional >>>>o campo Aliquota de ICMS. Podemos usa-lo para guardar a aliquota de crédito? não, tem que criar um campo especifico AliqCreditoAplicavelSimplesNacional >>>>o campo Valor do ICMS que no SN ficava zerado. Podemos usa-lo para guardar o valor do crédito? não, tem que criar um campo especifico VlrCreditoAplicavelSimplesNacional >>>>o Campo CSOSN, temos que cria-lo realmente. sim e manter o CST Se pudermos usar alguns campos fica a dúvida, pois não sei como iria ficar o sintegra, sendo que a CST seria 41, mas teria valores de Base de ICMS, Valor de ICMS. Será que nesse caso, aproveitando os campos, podemos colocar a CST para "00", para que os valores calculados vá para o sintegra e a CST não seja 41? >>>>>Não pode usar os mesmos campos por causa do Sintegra e outros relatorios fiscais já existentes. >>>>>Pensei tb em criar outros campos somente para esse crédito do SN então ficaria assim: CSOSN Aliquota Crédito Base de Crédito Valor do Crédito Assim mandaria para o sintegra CST 41, com os valores Base ICMS, Valor ICMS etc... zerado, e o sintegra, não receberia nenhuma informação, do crédito do SN. Só não sei se é possível isso. sim, também estou adotando esse caminho porque esse não irá interferir tanto no processo já existente das empresas que se enquadram no regime normal. Graça

Mas se na minha tabela de empresa eu vou ter a aliquota de credito aplicavel dá pra saber quando usar o 101 ou 102. Se CST = 00 Se aliquota aplicavel = 0 <=> CSOSN = 102 Se aliquota aplicavel > 0 <=> CSOSN = 101 Então ficaria assim: na tabela de empresa: CRT e Aliquota de Credito Aplicavel SN na tabela de produto: somente CST na tabela de itens da nota fiscal: CRT,Aliquota de credito aplicavel SN, CST e CSOSN -> nesse caso, quando for simples nacional irei colocar CST = 41 (como de costume por causa do Sintegra) e informar o CSOSN correto

O que ocorre é que a empresa SN pode sair do SN e voltar ao Débito-Credito. Então passará a usar o CST. A minha idéia seria: manter apenas o CST no cadastro do produto e tentar converter para CSOSN quando a empresa for SN, sem precisar colocar mais esse campo no cadastro de produto. Isso seria possivel? Por exemplo: cst = 60 <=> csosn = 500 cst = 00 <=> csosn = 101 Assim eu acharia o CSOSN atraves do CST Lógico que na tabela de itens da nota fiscal eu terei um campo de CST e outro de CSOSN, além da aliquota de permissão de credito e o valor do credito. Sendo que na tabela de empresa eu teria 2 campos: CRT Aliquota de credito (para CRT = 1) Será que estou seguindo o raciocinio correto ou tô nas nuvens?

Gostaria de sugestões da melhor forma de tratar CSOSN e CST, tendo em vista que o Sintegra não enxergará CSOSN. É possível tratar o CSOSN pelo CST sem ter que criar um campo a mais no cadastro de produtos? Como vocês estão tratando isso no Simples Nacional?