MARCOS OLIVEIRA SOUZA

Obrigado Julio. De fato existia um componente em um dfm antigo. Grato, Marcos

Bom Dia. - Ao executar a aplicação recebi a mensagem 'suporte a xsmsxml' foi desativado'. Então atualizei o componente, a compilação e instalação foi concluida com sucesso ( log anexo) . - Ao executar a compilação compilação da aplicação aparece a seguinte mensagem : [Fatal Error] TransmitirNFE_IE.pas(352): File not found: 'pcnNFe.dcu' - na linha : Uses pcnConversao, ACBrValidador, pcnConversaoNfe, Math, ACBrDFeSSL, DM_Nfe_IB, ACBrDFeUtil , pcnNFe; - retirei a referencia à pcnNFe : Uses pcnConversao, ACBrValidador, pcnConversaoNfe, Math, ACBrDFeSSL, DM_Nfe_IB, ACBrDFeUtil ; // , pcnNFe; e a compilação foi concluida. ---- - ao executar o programa aparece o erro 'carregarcertificadonumeroserie' não suportado em TDFeOpenSSL' ( tela2 ) então comentei a linha : // F_DM_NFe.ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Trim(NumSerie) ; - Nova compilação e ao executar aparece a mensagem ' erro ao ler informações do certificado ' ( tela3 ). - a configuração do certificado A1 : F_DM_NFe.ACBrNFe1.SSL.SSLType := LT_TLSv1_2 ; F_DM_NFe.ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL ; // libWinCrypt; F_DM_NFe.ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL ; // cryWinCrypt; F_DM_NFe.ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL ; // httpWinHttp; F_DM_NFe.ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsLibXML2 ; Res := 0 ; If (Trim(TipoCert) = '1') Then Begin F_DM_NFe.ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := Trim(PathCert) ; F_DM_NFe.ACBrNFe1.Configuracoes.Certificados.Senha := Trim(SenhaCert) ; F_DM_NFe.ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Trim(NumSerie) ; F_DM_NFe.ACBrNFe1.SSL.CarregarCertificado ; End ; ---* - Assim peço a orientação dos colegas. ( usando delphi 7 ) Grato Marcos. log_Delphi_7_Win32.txt

Boa tarde. Resolvido. Alterei a tag qBCMonoRet e continuou apresentando a mesma rejeição em homologação. Em produção a nota foi enviada normalmente. Obrigado.

Bom dia -- No produto oleo diesel, na nfe do distribuidor ( nfe de entrada) tem o grupo -<imposto> -<ICMS> -<ICMS61> <orig>0</orig> <CST>61</CST> <qBCMonoRet>12000.0000</qBCMonoRet> <<---- <adRemICMSRet>0.9456</adRemICMSRet> <vICMSMonoRet>11347.20</vICMSMonoRet> </ICMS61> --- Na minha nfe de saida, produto oleo diesel a tag assinalada acima não é gerada. Parece que o componente não está gerando a tag <qBCMonoRet> quando cst igual a 61. -<imposto> -<ICMS> -<ICMS61> orig>0</orig> <CST>61</CST> <adRemICMSRet>0.9456</adRemICMSRet> <vICMSMonoRet>4728.00</vICMSMonoRet> </ICMS61> Componente e schemas, sistema compilado e recebo a rejeição : 769 = obrigatório o preenchimento da quantidade tributada retida anteriormente. no programa está assim : With Imposto do Begin vTotTrib := 0 ; //T_ImpItem ; //0 ; // lei da transparencia nos impostos T_ImpNota := T_ImpNota + T_ImpItem ; With ICMS do Begin If (cst_nf = 61) Then // ICMS MONOFASICO Begin Quantidade := F_DM_NFe.CDS_NFEItens.FieldByName('INFE_Quantid').AsFloat ; vr_ICMSMonoRet := (Quantidade * ALIQ_AD_REM) ; T_vICMSMonoRet := T_vICMSMonoRet + vr_ICMSMonoRet ; T_qICMSMonoRet := T_qICMSMonoRet + Quantidade ; qBCMonoReten := Quantidade ; adRemICMSRet := ALIQ_AD_REM ; vICMSMonoRet := vr_ICMSMonoRet ; End ; End ; // icms End ; GRATO PELA ATENÇÃO Marcos

Bom dia; Resolvido. foi um erro de preenchimento das tags referentes ao icms monofásico de combustiveis. Obrigado. -------- -<ICMS> -<ICMS61> <orig>0</orig> <CST>61</CST> <adRemICMSRet>0.9456</adRemICMSRet> <vICMSMonoRet>4728.00</vICMSMonoRet> </ICMS61>

Prezados boa tarde. Até sexta-feira, 30/06/23, o cliente faturou normalmente venda de óleo diesel. Hoje fiz atualização do acbr e alterações no programa para acatar as mudanças do NT 2023/001, na venda de combustiveis com cobrança monofásica de icms. desde então as nfe's são rejeitadas. segue anexo xml. no primeiro xml rejeitada nos schemas atualizados até 01/06/2023 com o qual foi faturado ate sexta passada. erro na figura 1. no segundo xml gerada com schemas atualizados hoje 01/07/2023. no faturamento de hoje. erro figura 2. Grato pela atenção que dispensar. 52230703840360000190550010000335871000165100-nfe.xml 52230703840360000190550010000335871000165100-nfe.xml

Boa Tarde. Instalando no windows 10 tudo OK. Ao instalar o ACBr em Windows11 ocorreu o erro : -------- Pacote "DCLACBr_LCDPR.dpk" compilado com sucesso. Compiling package C:\ACBR\Pacotes\Delphi\ACBrTCP\ACBr_TCP.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "C:\ACBR\Pacotes\Delphi\ACBrTCP\ACBr_TCP.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\ACBR\Fontes\ACBrTCP\ACBrNCMs.pas(339) Error: Record, object or class type required C:\ACBR\Fontes\ACBrTCP\ACBrNCMs.pas(345) Error: '.' expected but ';' found ACBr_TCP.dpk(68) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrTCP\ACBrNCMs.pas' Compilation failure Erro ao compilar o pacote "ACBr_TCP.dpk". Abortando... Ocorreram erros na compilação dos pacotes. --------- log anexo. Ao instalar assinalei a opção "remover arquivos antigos" e como administrador. Grato marcos. log_Delphi_7_Win32.txt

Obrigado Felipe e Hélio. Na máquina com windows 7 em produção resolveu a dica acima e tá tudo OK. EM windows 10, homologação continua com o mesmo problema, mas foi testando ... Grato pelas dicas ... Marcos

Pessoal, assumi um projeto em andamento de NFE, instalado em windows 10 e em windows 7, certificado A3, e DELPHI 7. estava tudo Ok , após atualizar o SVN começou os erros das imagens Ja passa das 16 horas e estou desde em 09 neste imbroglio que não consigo resolver . Ja pesquisei muito nos foruns mas nada de conseguir resolver grato por qualquer ajuda.

Resolvido ... não havia configurado corretamenmte ACBreSocial1.Configuracoes.Geral.IdEmpregador := '12345678000110' ; ACBreSocial1.Configuracoes.Geral.IdTransmissor := '12345678000110'

COLEGAS Ao enviar evento S-1000 (evento incial) está ausando um erro. Os esquemas estão atualizados, e procurei proceder como o programa exemplo. Em anexo tela com a msg de erro e XML gerado. o numero da inscrição (nrinsc) foi passado para o componente com 14 posições. Por certo, dada minha limitada capacidade ainda não consegui sair deste erro. Então se algum colega ja passou por esta fase possa indicar-me o caminho que há dias não estou conseguindo encontrar. Grato marcos [email protected] --------- evtInfoEmpregador.ModoLancamento := mlInclusao ; evtInfoEmpregador.Sequencial := 0 ; //ContaEvento ; If F_MD_Folha.CDS_Filial.FieldByName('FIL_AMBIENTE').AsString = '1' then evtInfoEmpregador.ideEvento.TpAmb := taProducao ; If F_MD_Folha.CDS_Filial.FieldByName('FIL_AMBIENTE').AsString = '2' then evtInfoEmpregador.ideEvento.TpAmb := taProducaoRestrita ; evtInfoEmpregador.ideEvento.ProcEmi := TpProcEmi(0) ; evtInfoEmpregador.ideEvento.VerProc := '1.0' ; evtInfoEmpregador.ModoLancamento := TModoLancamento(0); // 0=inclusão evtInfoEmpregador.ideEmpregador.TpInsc := tiCNPJ ; If F_MD_Folha.CDS_Filial.FieldByName('FIL_TPINSCESTAB').AsString = '2' then evtInfoEmpregador.ideEmpregador.TpInsc := tiCPF ; If F_MD_Folha.CDS_Filial.FieldByName('FIL_TPINSCESTAB').AsString = '3' then evtInfoEmpregador.ideEmpregador.TpInsc := tiCAEPF ; ==> evtInfoEmpregador.ideEmpregador.NrInsc := Trim(F_MD_Folha.CDS_Filial.FieldByName('FIL_NRINSCESTAB').AsString) ; ------------------ Para enviar, como neste fragmento. F_MD_Folha.ACBreSocial1.AssinarEventos; F_MD_Folha.ACBreSocial1.Enviar(TESocialGrupo(1)) ; // TeSocialGrupo = (egIniciais = 1, egNaoPeriodicos = 2, egPeriodicos = 3); ---------------------- tb tentei assim : F_MD_Folha.ACBreSocial1.Eventos.GerarXMLs; <<=== erro aqui F_MD_Folha.ACBreSocial1.Eventos.SaveToFiles; ---------------------------- 1368344300000002018062817031761772-S-1000-0.xml

Voltei a enviar e recebi a rejeição referente ao numero sequencial da duplicata. Alterei o programa colocando o numero da dup sequencial (1,2 e 3) e passou. Na semana passada estas rejeições não existiam, o num da dup estava configurado para ser o num da NF mais a sequencia de letras A.B,C (no caso de 3 parcelas). Após a alteração sugerida em outro tópico do forum deu certo. Grato a todos marcos

Olá , sou de GO e estou com o mesmo problema. Semana passada estava normal hoje apresentou a rejeição " rejeição: campos do grupo fatura não informados" XML anexo Grato marcos 52180603840360000190550010002000211000000169-nfe.xml

Boa Tarde. É possivel, através do ACBr, informando o CNPJ da empresa, obter todas as Nfe emitidas por nossos fornecedores e a partir dai importar para o BD os dados relativos a produtos, contas a pagar, ETC., grato pela atenção MARCOS -