Gr@c@

a pasta XE3: C:\ComponentesDelphi\fortesreport-ce-master\fortesreport-ce.git\trunk\Binary\LibD17 é onde está o componente fortes para instalar. o caminho C:\Program Files (x86)\Embarcadero\RAD Studio\10.0\fortesreport-ce\Binary\LibD17 é onde o componente é instalado.

Realmente na pasta Trunk do Fortes-report-ce existe a pasta Binary com as pastas LibD17 e LibD7. Mas essas pastas vem na atualização git. Eu instalo e compilo tudo através do Install que vem na pasta do Fortes. Não faço nada manual. O instalador está usando a pasta LibD17 para o XE3. Devo supor que existe uma pasta LibD17 exclusiva para essa versão do Delphi e ela não foi corrigida na questão do UnlimitedHeigth? os passos que segui no XE3: 1-deletei da Library todos os path ref a fortes report e ACBr 2-Exclui a pasta Fortes-report-ce e criei uma nova em seguida fiz o Checkout via SVN 3-Na pasta Trunk\Binary vem as duas pastas LIBD17 e LibD7 4-Fiz a instalação / compilação do Fortes atraves do instalador que vem na pasta. Instala com sucesso para ambas as versões do Delphi. 5-Instalo/compilo o ACBr marcando as duas versões do Delphi 6-Delphi ok (pegando da LibD7) 7-XE3 erro (pegando da LibD17) ---> não tenho como mudar isso para pegar da LibD7.

log_Delphi_7.rar log_Delphi_XE3.rar

Estou tentando instalar o ACBr em uma máquina que tem Delphi7 e Delphi XE3 Enterprise, já usando o Fortes Report com a correção do UnlimitedHeight. Antes de instalar o ACBr, atualizei e instalei o Fortes-report-ce para as duas versões do Delphi, sendo que a pasta do Fortes é a mesma para os Delphis. Executo primeiro o install do fortes para o Delphi e depois novamente para o XE3. Não ocorre erro em nenhuma das instalações. Ao instalar o ACBr, instala com sucesso no Delphi 7, mas no Delphi XE3 dá erro ACBr - ACBrDANFCeFortesFr.pas(1371) Error: Undeclared Identifier: 'UnlimitedHeight' log_Delphi_7.txt log_Delphi_XE3.txt

Acredito que você deva checar a situação das empresas na Receita e no Sintegra. Se estiverem inativas/suspensas de pouco vai resolver o certificado, porque tudo que se fizer será denegado. Mas não acredito que o certificado seja corrompido/bloqueado por esse motivo, já que ele pode ser necessário para fazer algumas regularizações da empresa junto ao fisco. De qualquer forma, vc só vai ter certeza do fato quando a empresa regularizar a sua situação de inadimplencia.

acho que não. 4% é aliquota aplicada na venda de produtos de origem exterior, seja compra direta do exterior ou adquirida no mercado interno.

Rejeição 663: Alíquota do ICMS com valor superior a 4 por cento na operação de saída interestadual com produtos importados [nItem:1] Esse erro começou a ocorrer no Maranhão a partir de hoje (01/02/2018) O produto é origem = 2 / Cliente Pessoa Juridica e tem IE = ISENTO Venda interestadual antes enviava origem = 2 mas a aliquota interna 12% (e não 4% conf essa orientação -> Na operação interestadual destinada a não contribuinte do ICMS, poderá ser utilizada a alíquota de 4%? Não. Na venda interestadual destinada a não contribuinte de ICMS, deve ser utilizada a alíquota interna do Estado de origem. (CF/1988, art. 155, § 2º) Porém agora está dando a rejeição. Nesse caso, embora o produto seja de origem importação, devo mudar para 0-origem nacional? Está correta essa interpretação?

Pela chave de acesso que você vai informar ao fazer a solicitação do cancelamento extemporaneo.

Em MG, para fazer o cancelamento extemporaneo tem que entrar no SIARE e solicitar o cancelamento. Se o cancelamento extemporâneo for aprovado, faz-se o cancelamento normal somente informando o motivo do cancelamento. Não precisa mencionar q se trata de extemporaneo, porque o SEFAZ já reconhece isso pela data de emissão X data de cancelamento. Lembrando que, o emitente tem 30 dias de prazo para fazer o cancelamento extemporaneo a partir da data de aprovação da solicitação. É bem simples aqui em MG.

Os fiscais estão realmente exigindo essa informação, principalmente no Maranhão e Rio Grande do Sul e isso desde o ano passado. Eu sempre coloquei a informação no campo Observação do DAMDFe. A implementação acima (Vlr da Mercadoria) será de grande valia.

Alguem com esse erro no Maranhão? Falha no processamento do webservice MA

Acho que o erro era somente no arquivo remessa cnab400. veja esse trecho da unit. wLinha:= '1' + // ID Registro TipoCedente + // Identificação do Tipo de Inscrição do Sacado 01 - CPF 02 - CNPJ PadLeft(onlyNumber(Cedente.CNPJCPF),14,' ') + // Número de Inscrição do Cedente PadLeft(OnlyNumber(Cedente.Agencia), 4, '0') + // Agência PadLeft( Cedente.AgenciaDigito, 1, '0') + // Agência digito PadLeft( RightStr(OnlyNumber(Cedente.Conta),8), 8, '0') + // Conta Corrente

Foi alterado a forma do PathPDF do CT-e? Antes informava o caminho geral (C:\DACTe) e o proprio componente criava as pastas dentro desse caminho CTe->AnoMes. A propriedade SepararPorAnoMes está TRUE diretamente no meu aplicativo (o usuario escolhia). Só que não gera mais as pastas e grava tudo dentro do caminho informado(C:\DACTe). Vi que a NFe foi alterado, mas está funcional. Porém o CTe não está gravando correto. Atualizei os componentes ACBr dia 24/01/2018

Estou com um entrave aqui em um cliente MG. Foi feito um CTe, em seguida MDF-e e o mesmo foi encerrado. Porém, o tomador verificou que o CT-e foi enviado com uma NFe incorreta. Sendo assim, emitiu uma NF-e de Anulação do frete para a transportadora. Em seguida, a transportadora fez um CT-e de Substituição, retirando a NFe que estava a mais no primeiro CT-e. Porém, ocorre a rejeição Todas NF-e transportadas no CT-e substituto devem ser as mesmas informadas no CT-e substituído Facult. 734 Rej Como resolver isso, se o que estava errado no primeiro CT-e era justamente uma das NFe que estava a mais?

RESOLVIDO

eu tambem estou obtendo o mesmo retorno

Algumas vezes, no Maranhão, quando se envia uma inutilização de NFC-e, dá um erro de HTTP e é como se a função de inutilização não tivesse sido executada com sucesso. Porém foi. Se tento enviar a inutilização novamente, dá o erro "A numeração já se encontra inutilizada na base do SEFAZ". No primeiro envio de inutilização, meu aplicativo não consegue atualizar a inutilização da nota no Banco de Dados porque não veio retorno de inutilização bem sucedida. Pergunta: como obter o cStat da nota ao tentar enviar a inutilização novamente? (nesse caso, enviarei apenas uma mesma numeração inicial e final)

Não atualizei o Fortes. Como vejo o número da ultima revisão do SVN?

problema resolvido com a versao 14516 que acabaram de subir (eu ainda não fiz a atualização do Fortes Report-ce).

A revisão 14515 está dando erro no ACBr_NFeDanfeRL.dpk Tentei fazer a atualização do fortes report via SVN mas não consigo. log_Delphi_7.txt

Ok Juliomar, mas a última vez que postei um trecho de codigo como arquivo, me solicitaram para postar na propria mensagem entre <>. Você, como moderador, pode excluir a resposta que dei ao tópico para que possa anexar como arquivo?

um trecho do meu codigo. Vê se te ajuda: {--------------------------------------------------------------------------------------------------------------} {veicTracao - inicio } {--------------------------------------------------------------------------------------------------------------} if DM.qryMDFeCabDisponiveis.FieldByName('vei1_Codigo').AsInteger > 0 then begin With RODO.veicTracao do begin cInt := FormatFloat('0',DM.qryMDFeCabDisponiveis.FieldByName('vei1_Codigo').AsInteger); placa := TrataPlaca(DM.qryMDFeCabDisponiveis.FieldByName('vei1_Placa').AsString,8); RENAVAM := DM.qryMDFeCabDisponiveis.FieldByName('vei1_RENAVAN').AsString; While Length(RENAVAM) < 9 do RENAVAM := '0'+RENAVAM; tara := DM.qryMDFeCabDisponiveis.FieldByName('vei1_Tara').AsInteger; capKG := DM.qryMDFeCabDisponiveis.FieldByName('vei1_capKG').AsInteger; capM3 := DM.qryMDFeCabDisponiveis.FieldByName('vei1_capM3').AsInteger; {--------------------------------------------------------------------------------------------------------------} {prop - inicio } {--------------------------------------------------------------------------------------------------------------} sCNPJProprietario := TrataCPFCNPJ(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioPessoa').AsString, DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioCpfCnpj').AsString); sRNTRCProprietario := TrataRNTRC(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioRNTRC').AsString,8); If (sCNPJProprietario <> sCNPJEmitente) and (sRNTRCProprietario <> sRNTRCEmitente) then begin With prop do begin CNPJCPF := sCNPJProprietario; RNTRC := sRNTRCProprietario; xNome := Trim(Copy(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioNome').AsString+space(60),1,60)); IE := TrataInscricao(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioIE').AsString); UF := DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioUF').AsString; tpProp := StrToTpProp(OK,'1'); //TpcteProp = (0=tpTACAgregado, 1=tpTACIndependente, 2=tpOutros); end; end; {--------------------------------------------------------------------------------------------------------------} {prop - fim } {--------------------------------------------------------------------------------------------------------------} {--------------------------------------------------------------------------------------------------------------} {condutor - inicio } {--------------------------------------------------------------------------------------------------------------} DM.qryBusca.Close; DM.qryBusca.Sql.Clear; If (bCTe) then begin DM.qryBusca.Sql.Add('Select TOP 10 ite.Motorista,mot.Nome,mot.pessoa,mot.cpfcnpj'); DM.qryBusca.Sql.Add('From TB_MDFeIte ite,TB_Motorista mot'); DM.qryBusca.Sql.Add('where ite.Empresa = :Empresa'); DM.qryBusca.Sql.Add(' and RTrim(ite.Modelo) = RTrim(:Modelo)'); DM.qryBusca.Sql.Add(' and RTrim(ite.Serie) = RTrim(:Serie)'); DM.qryBusca.Sql.Add(' and ite.Numero = :Numero'); DM.qryBusca.Sql.Add(' and ite.Motorista IS NOT NULL'); DM.qryBusca.Sql.Add(' and ite.Motorista > 0'); DM.qryBusca.Sql.Add(' and mot.Empresa = ite.Empresa'); DM.qryBusca.Sql.Add(' and mot.Codigo = ite.Motorista'); DM.qryBusca.Sql.Add('Group by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj'); DM.qryBusca.Sql.Add('Order by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj'); end Else If (bNFe) then begin DM.qryBusca.Sql.Add('Select TOP 10 ite.Motorista,mot.Nome,mot.pessoa,mot.cpfcnpj'); DM.qryBusca.Sql.Add('From TB_MDFeIte ite,TB_Transportadora mot'); DM.qryBusca.Sql.Add('where ite.Empresa = :Empresa'); DM.qryBusca.Sql.Add(' and RTrim(ite.Modelo) = RTrim(:Modelo)'); DM.qryBusca.Sql.Add(' and RTrim(ite.Serie) = RTrim(:Serie)'); DM.qryBusca.Sql.Add(' and ite.Numero = :Numero'); DM.qryBusca.Sql.Add(' and ite.Motorista IS NOT NULL'); DM.qryBusca.Sql.Add(' and ite.Motorista > 0'); DM.qryBusca.Sql.Add(' and mot.Empresa = ite.Empresa'); DM.qryBusca.Sql.Add(' and mot.Codigo = ite.Motorista'); DM.qryBusca.Sql.Add('Group by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj'); DM.qryBusca.Sql.Add('Order by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj'); end; DM.qryBusca.Parameters.ParamByName('Empresa').value := wpar_Empresa; DM.qryBusca.Parameters.ParamByName('Modelo').value := DM.qryMDFeCabDisponiveis.FieldByName('Modelo').AsString; DM.qryBusca.Parameters.ParamByName('Serie').value := DM.qryMDFeCabDisponiveis.FieldByName('Serie').AsString; DM.qryBusca.Parameters.ParamByName('Numero').value := DM.qryMDFeCabDisponiveis.FieldByName('Numero').AsInteger; DM.qryBusca.Open; While not DM.qryBusca.Eof do begin With CONDUTOR.Add do begin xNome := Trim(Copy(DM.qryBusca.FieldByName('Nome').AsString+space(60),1,60)); CPF := TrataCpfCnpj(DM.qryBusca.FieldByName('Pessoa').AsString, DM.qryBusca.FieldByName('CpfCnpj').AsString); end; DM.qryBusca.Next; end; {--------------------------------------------------------------------------------------------------------------} {condutor - fim } {--------------------------------------------------------------------------------------------------------------} {--------------------------------------------------------------------------------------------------------------} {tpRod/tpCar/UF - inicio } {--------------------------------------------------------------------------------------------------------------} If (DM.qryMDFeCabDisponiveis.FieldByName('vei1_TipoRodado').AsInteger = 0) then begin tpRod := StrToTpRodado(OK,'06'); end else begin tpRod := StrToTpRodado(OK,FormatFloat('00',DM.qryMDFeCabDisponiveis.FieldByName('vei1_TipoRodado').AsInteger)); end; tpCar := StrToTpCarroceria(OK,FormatFloat('00',DM.qryMDFeCabDisponiveis.FieldByName('vei1_TipoCarroceria').AsInteger)); UF := DM.qryMDFeCabDisponiveis.FieldByName('vei1_UFPlaca').AsString; {--------------------------------------------------------------------------------------------------------------} {tpRod/tpCar/UF - fim } {--------------------------------------------------------------------------------------------------------------} end; end; {--------------------------------------------------------------------------------------------------------------} {veicTracao - fim } {--------------------------------------------------------------------------------------------------------------} {--------------------------------------------------------------------------------------------------------------} {veicReboque - inicio } {--------------------------------------------------------------------------------------------------------------} if DM.qryMDFeCabDisponiveis.FieldByName('vei2_Codigo').AsInteger > 0 then begin With RODO.veicReboque.Add do begin cInt := FormatFloat('0',DM.qryMDFeCabDisponiveis.FieldByName('vei2_Codigo').AsInteger); placa := TrataPlaca(DM.qryMDFeCabDisponiveis.FieldByName('vei2_Placa').AsString,8); RENAVAM := DM.qryMDFeCabDisponiveis.FieldByName('vei1_RENAVAN').AsString; While Length(RENAVAM) < 9 do RENAVAM := '0'+RENAVAM; tara := DM.qryMDFeCabDisponiveis.FieldByName('vei2_Tara').AsInteger; capKG := DM.qryMDFeCabDisponiveis.FieldByName('vei2_capKG').AsInteger; capM3 := DM.qryMDFeCabDisponiveis.FieldByName('vei2_capM3').AsInteger; {--------------------------------------------------------------------------------------------------------------} {prop - inicio } {--------------------------------------------------------------------------------------------------------------} sCNPJProprietario := TrataCPFCNPJ(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioPessoa').AsString, DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioCpfCnpj').AsString); sRNTRCProprietario := TrataRNTRC(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioRNTRC').AsString,8); If (sCNPJProprietario <> sCNPJEmitente) and (sRNTRCProprietario <> sRNTRCEmitente) then begin With prop do begin CNPJCPF := sCNPJProprietario; RNTRC := sRNTRCProprietario; xNome := Trim(Copy(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioNome').AsString+space(60),1,60)); IE := TrataInscricao(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioIE').AsString); UF := DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioUF').AsString; tpProp := StrToTpProp(OK,'1');//TpcteProp = (0=tpTACAgregado, 1=tpTACIndependente, 2=tpOutros); end; end; {--------------------------------------------------------------------------------------------------------------} {prop - fim } {--------------------------------------------------------------------------------------------------------------} {--------------------------------------------------------------------------------------------------------------} {tpCar/UF - inicio } {--------------------------------------------------------------------------------------------------------------} tpCar := StrToTpCarroceria(OK,FormatFloat('00',DM.qryMDFeCabDisponiveis.FieldByName('vei2_TipoCarroceria').AsInteger)); UF := DM.qryMDFeCabDisponiveis.FieldByName('vei2_UFPlaca').AsString; //codAgPorto := ''; {--------------------------------------------------------------------------------------------------------------} {tpCar/UF - fim } {--------------------------------------------------------------------------------------------------------------} end; end; {--------------------------------------------------------------------------------------------------------------} {veicReboque - fim } {--------------------------------------------------------------------------------------------------------------} end;

Para notas fiscais com destino à Zona Franca de Manaus e que possuam operação Isenta de ICMS, deve ser utilizada uma natureza de operação que possua CFOP (Código Fiscal de Operações e Prestações) vinculado com o código 6.109 ou 6.110: 6.109 - Venda de produção do estabelecimento, destinada à Zona Franca de Manaus ou Áreas de Livre Comércio. 6.110 - Venda de mercadoria adquirida ou recebida de terceiros, destinada à Zona Franca de Manaus ou Áreas de Livre Comércio ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Essa regra de validação foi imposta pela NT 2011.004, sofrendo uma pequena modificação na NT 2012.003. Segundo essa validação, se não forem informados os CFOPs 1203, 1204, 1208, 1209, 2203, 2204, 2208, 2209, 5109, 5110, 5151, 5152, 6109, 6110, 6151, 6152, 6122 e 6123, nos casos em que o campo motDesICMS tiver o valor 7, a NF-e sofrerá a rejeição 626. Segundo a Nota Técnica, essa rejeição ocorre quando o campo modDesICMS é informado com o valor 7 (Operação Incentivada com a Suframa) e não é informado um dos seguintes CFOPs: 1203, 1204, 1208, 1209, 2203, 2204, 2208, 2209, 5109, 5110, 5151, 5152, 6109, 6110, 6151, 6152, 6122 e 6123. Vale lembrar que na NT 2011.004 foi estipulado que essa validação se dava apenas quando os CFOPs 6109 ou 6110 não eram informados, quando o campo modDesICMS = 7. Vale lembrar que essa validação ocorre somente quando o campo motDesICMS tiver o valor 7. Caso tenha outro valor, a validação em cima do CFOP não será feita.

Emitente: Transportadora de Mudança Remente: Funcionário com endereço antigo Destinatário: Funcionário com endereço novo Tomador do Serviço: (outros) Transportadora de Mercadoria Tipo de CT-e = Normal Tipo de Serviço = Normal Com esses parametros dá rejeição Tipo de Serviço inválido para Tomador. Para conseguir autorizar o CT-e tive que alterar o remetente para ser o mesmo tomador.