sergiom

Ítalo abaixo o XML gerado, o CNPJ da filial eu apaguei para não expor a empresa. E o de retorno. Grato Sérgio

Fiz o teste agora em Rondônia, a filial gerou MDF-e e também encerrou MDF-e. O que está acontecendo é somente a consulta de não encerrados usando o ACBrMDFe. Solicito a gentileza de verificar se há alguma mudança ou correção. Fiz a consulta via página de não encerrados, utilizando o CNPJ e o certificado A1 e listou corretamente os em aberto. Grato Sérgio

Bom dia detectei agora o problema em outra empresa, a filial de SP e a matriz BA, a consulta de não encerrados deu como emissor não habilitado na filial de SP. Na Matriz na BA a consulta resulta OK. Alguém pode me explicar o que está falhando? Atenciosamente Sérgio

Boa noite, hoje após as 17 horas, 2 empresas, CNPJ´s distintos, sendo 1 com filial no RJ e outra com filial em RO e AC, em São Paulo, ao consultar MDFe não encerrado, retorna a mensagem, erro 203 - Emissor não habilitado. A filial conseguiu consultar e fazer o encerramento sem problemas, tanto no RJ como em RO. No AC não havia e não fizemos a operação. Alguma sugestão sobre o que pode estar ocorrendo? Certificado é A1 comprado via CNPJ da matriz, em São Paulo. Nas duas empresas as filiais usam o mesmo certificado digital A1. Grato Atenciosamente Sérgio

Com o novo sistema, será o fim do manifesto da suframa feito pelo transportador. Estas informações interessa para quem tem clientes que remetem mercadorias para a zona da SUFRAMA. Novo sistema de internamento Convênio ICMS 134/2019 Comparativo do convênio anterior e atual Fluxograma simplificado Atenciosamente Sérgio Apresentação do PIN NOVO.pdf fluxograma-simplificado.pdf relatorio-comparativo.pdf

Sou contra colocar data de entrega (previsão/prevista) no DACTE. Uma vez colocado, você estará comprometido e no transporte é um risco enorme. Greves, acidentes, tempestadades, congestionamentos inesperados constantemente impactam a coleta e entrega. Com este valor impresso, uma pessoa insatisfeita pode acionar juridicamente a transportadora pelo atraso. Atenciosamente Sérgio

Bom dia estou gerando com 0 (Zero), somente campos de alíquotas preenchidos. Está autorizando, mas a SEFAZ devia corrigir isso. Obrigado Sérgio

Boa tarde, estou com fontes e schemas atualizados. Inclusive apaguei e deixei baixar novamente. No entanto tenho 2 casos SP -> RJ empresa Simples Nacional -> O recolhimento do ICMS DIFAL suspenso, conforme medida cautelar na ADI 5.464/DF. Mas se eu gerar sem DIFAL com a nova versão que contém o QR Code, ele recusa. Se gero com DIFAL com valores zerados, ele gera e valida (testei no homologação). RO -> SP -> empresa não simples. Alíquota destino SP = 12%. Alíquota interna de SP = 12% para transporte. Diferença de alíquotas é zero. Se gerar sem DIFAL rejeita, se gerar com DIFAL zerado, só informando as 2 alíquotas, ele gera. Na versão existe a versão 3.00a ou ainda mantemos somente ve300? Pois não encontrei outro valor válido. ACBrCTe1.Configuracoes.Geral.VersaoDF := ve300; Atenciosamente Sérgio

Por favor, quem está usando CREDISIS? Eu tenho um cliente em RONDÔNIA com CREDISIS e eu tinha feito uma versão somente para registro 400 e estava OK. Implantei esta liberada (antes não tinha suporte no ACBR) e rejeitou. Não tinha enviado a minha, pois eu não tinha homologado 240. Inclusive o nosso número está com tamanho diferente. Registro detalhe opcional deveria começar com 2 e gerou com 5. Atenciosamente Sérgio

Boa tarde, estou com problema somente com Destinatário TOMADOR com operação indIEToma = 9, não contribuinte. Destinatário pessoa física TOMADOR também. Alguma dica? O resto passando normal, com QR CODE impresso sem problemas. São Paulo e Acre.

Bom dia, eu só alterei o texto em vermelho, trocando de 4 para 10. A imagem do CTe, anexei a parte da metade para baixo, apagando alguns dados, pois meus clientes são muito chatos com divulgação de informação da empresa, por conta da grande concorrência atual. Se precisar, no privado te envio a informação completa. Grato Sérgio cteteste.pdf ACBrCTeDACTeRLRetrato.pas ACBrCTeDACTeRLRetrato.dfm

Boa noite Qual o problema em modificar de 4 para 10, aumentando a quantidade de NFe na impressão no Fortes Reports modo Retrato? cdsDocumentos.recNo > 4 ->>>> cdsDocumentos.recNo > 10 Tenho alguns clientes que reclamam que dá 2 páginas,a impressão do CTe e sobra espaço em branco no final da primeira página. Atenciosamente Sérgio Unit ACBrCTeDACTeRLRetrato.Pas localizada em ACBr\Fontes\ACBrDFe\ACBrCTe\DACTE\Fortes. procedure TfrmDACTeRLRetrato.rlb_07_HeaderItensBeforePrint(Sender: TObject; var PrintIt: boolean); begin inherited; rlb_07_HeaderItens.Enabled := (((fpCTe.Ide.tpCTe = tcNormal) or (fpCTe.Ide.tpCTe = tcComplemento) or (fpCTe.Ide.tpCTe = tcSubstituto)) and (fpCTe.ide.modelo <> 67)); if (rlb_07_HeaderItens.Enabled) then begin rlDocOrig_tpDoc1.Lines.Clear; rlDocOrig_tpDoc2.Lines.Clear; if (RLCTe.PageNumber <= 1) then cdsDocumentos.First else PrintIt := (not cdsDocumentos.EOF); while not cdsDocumentos.EOF do begin if cdsDocumentos.FieldByName('TIPO_1').AsString <> '' then begin rlDocOrig_tpDoc1.Lines.Add(PadRight(cdsDocumentos.FieldByName('TIPO_1').AsString, 33, ' ') + PadRight(cdsDocumentos.FieldByName('CNPJCPF_1').AsString, 54, ' ') + cdsDocumentos.FieldByName('DOCUMENTO_1').AsString); end; if cdsDocumentos.FieldByName('TIPO_2').AsString <> '' then begin rlDocOrig_tpDoc2.Lines.Add(PadRight(cdsDocumentos.FieldByName('TIPO_2').AsString, 33, ' ') + PadRight(cdsDocumentos.FieldByName('CNPJCPF_2').AsString, 54, ' ') + cdsDocumentos.FieldByName('DOCUMENTO_2').AsString); end; cdsDocumentos.Next; if (RLCTe.PageNumber > 1) then Inc(Linhas); if ((cdsDocumentos.recno > 10) and (RLCTe.PageNumber = 1) or (Linhas > 70)) then break; end; rlDocOrig_tpDoc1.Height := Round(rlDocOrig_tpDoc1.Lines.Count * 12); rlDocOrig_tpDoc2.Height := Round(rlDocOrig_tpDoc2.Lines.Count * 12); rld_07_headerItens.Height := rlb_07_HeaderItens.Height - 12; end else begin rlb_07_HeaderItens.AutoSize := False; rlb_07_HeaderItens.Height := 0; end; end; procedure TfrmDACTeRLRetrato.rlb_11_ModRodLot104AfterPrint(Sender: TObject); begin inherited; if ((cdsDocumentos.recNo > 10) and (rlCte.PageNumber = 1)) then RLCte.newpage; end;

Encontrei estes conversores de RS 232 para WIFI no Mercado Livre. https://produto.mercadolivre.com.br/MLB-1022845011-conversor-rs232485-para-wifi-2-ethernet-usr-wifi232-630-_JM?quantity=1 https://produto.mercadolivre.com.br/MLB-1244307766-itach-wf2sl-wifirs232-to-serial-rs232-global-cache-_JM https://produto.mercadolivre.com.br/MLB-1102313448-conversor-serial-rs232-rs485-para-ethernet-tcpip-wi-fi-_JM Alguém já usou algo similar? Sérgio

Boa tarde, as balanças Digitron tem uma saída serial. A empresa oferece dois módulos para fazer comunicação por RF e assim ter a saída serial distante da balança, que pode ser uma acomplada a um porta palete. Alguém conhece módulos de RF (transmissor/Receptor) de custo mais acessível com conexão serial? Existe alguma outra alternativa para comunicar a balança com o computador? A interface WI-FI é ainda mais cara. Atenciosamente Sérgio

Como faço para baixar as NFe´s emitidas no dia ou período, sendo que a transportadora foi indicada na nota fiscal, com seu CNPJ? Como posso baixar CTe também, quando o CNPJ fizer parte? Uma seguradora está baixando os CTe que estão com o CNPJ dela na tag AUTxml. Como posso fazer isso sem ter DANFE ou DACTE? Só pelo DFE é possível? O componente DMDFe.NFe permite baixar somente o Destinatário ou também o transportador indicado? DMDFe.NFe.DistribuicaoDFePorUltNSU( DM_CTA.EmpresaCodigoEstado.AsInteger, CNPJ, edtUltNSU.Text ); Só reforçando, estou falando em NFe e CTe onde a empresa faz parte e vou usar com o certificado. Atenciosamente Sérgio

O componente DMDFe.NFe permite baixar somente o Destinatário ou também o transportador indicado? DMDFe.NFe.DistribuicaoDFePorUltNSU( DM_CTA.EmpresaCodigoEstado.AsInteger, CNPJ, edtUltNSU.Text ); Atenciosamente Sérgio

Bom dia, como faço para baixar as NFe´s emitidas no dia ou período, sendo que a transportadora foi indicada na nota fiscal, com seu CNPJ? Como posso baixar CTe também, quando o CNPJ fizer parte? Uma seguradora está baixando os CTe que estão com o CNPJ dela na tag AUTxml. Como posso fazer isso sem ter DANFE ou DACTE? Só pelo DFE é possível? Atenciosamente Sérgio

Boa tarde, é possivel fazer download do XML com o ACBRCte, sendo: - emitente - ou um dos figurantes do CTe (remetente, destinatário, expedidor, recebedor, tomador) - ou sendo um dos CNPJ autorizados na tag <AutXML> ? Caso afirmativo, como proceder? Grato Sérgio

NumCopias não encontrado. Alterei para FNumCopias e compilou. Anexo a unit alterada. with Create(AOwner) do try FGNRe := AGNRe; FEmail := AEmail; FNumCopias := ANumCopias; FMargemSuperior := AMargemSuperior; FMargemInferior := AMargemInferior; FMargemEsquerda := AMargemEsquerda; FMargemDireita := AMargemDireita; FImpressora := AImpressora; if FImpressora > '' then RLPrinter.PrinterName := FImpressora; if RLPrinter.Copies <> NumCopias then begin RLPrinter.Copies := NumCopias; end; RLGNRe.PrintDialog := APrintDialog; if APreview = True then RLGNRe.PreviewModal else RLGNRe.Print; finally Free; end; Atenciosamente Sérgio ACBrGNReGuiaRL.pas

Ítalo estou sendo paciente, mas para quem alterou é fácil identificar onde mexeu. Não consegui achar como configurar copias no FORTES REPORTS. Tem algumas referencia a CARBONCOPIES. Atenciosamente Sérgio

Em algum lugar não teria que ter a informação onde NumCopias é informado no Report? Atenciosamente Sérgio

Bom dia, a rotina de impressão do DACTE, pelo Forte Reports não tem mais a configuração do número de cópias? A do Fast Report tem. Após as alterações que foram feitas e causaram problema reportado em outro tópico, descobri que ao mandar imprimir vários CTe´s, antes a impressão saia cada CTe com suas cópias subsequentes. Agora sai todo o conjunto de CTe, e depois novo conjunto de cópia. Exemplo: Carrego os CTe 1000, 1001, 1002, 1003 e mando imprimir 2 cópias. Antes 1000, 1000 1001, 1001 1002, 1002 1003, 1003 Agora 1000, 1001, 1002, 1003 Cópia 1000, 1001, 1002, 1003 Acredito que possa ter relação com não ter NUMCOPIAS na UNIT do FORTES REPORTS e tem na do FAST REPORT. Atenciosamente Sérgio unction TACBrCTeDACTEFR.PrepareReport(ACTE: TCTe): Boolean; var i: Integer; Stream: TStringStream; begin Result := False; if Trim(FastFile) <> '' then begin if not (UpperCase(Copy(FastFile, Length(FastFile)-3, 4)) = '.FR3') then begin Stream := TStringStream.Create(FastFile); frxReport.FileName := ''; frxReport.LoadFromStream(Stream); Stream.Free; end else if FileExists(FastFile) then frxReport.LoadFromFile(FastFile) else raise EACBrCTeDACTEFR.CreateFmt('Caminho do arquivo de impressão do DACTE "%s" inválido.', [FastFile]); end else raise EACBrCTeDACTEFR.Create('Caminho do arquivo de impressão do DACTE não assinalado.'); frxReport.PrintOptions.Copies := NumCopias; frxReport.PrintOptions.ShowDialog := MostraSetup; frxReport.ShowProgress := MostraStatus; frxReport.PreviewOptions.AllowEdit := False;

Bom dia, a rotina de impressão do DACTE, pelo Forte Reports não tem mais a configuração do número de cópias? A do Fast Report tem. Atenciosamente Sérgio unction TACBrCTeDACTEFR.PrepareReport(ACTE: TCTe): Boolean; var i: Integer; Stream: TStringStream; begin Result := False; if Trim(FastFile) <> '' then begin if not (UpperCase(Copy(FastFile, Length(FastFile)-3, 4)) = '.FR3') then begin Stream := TStringStream.Create(FastFile); frxReport.FileName := ''; frxReport.LoadFromStream(Stream); Stream.Free; end else if FileExists(FastFile) then frxReport.LoadFromFile(FastFile) else raise EACBrCTeDACTEFR.CreateFmt('Caminho do arquivo de impressão do DACTE "%s" inválido.', [FastFile]); end else raise EACBrCTeDACTEFR.Create('Caminho do arquivo de impressão do DACTE não assinalado.'); frxReport.PrintOptions.Copies := NumCopias; frxReport.PrintOptions.ShowDialog := MostraSetup; frxReport.ShowProgress := MostraStatus; frxReport.PreviewOptions.AllowEdit := False;

Bom dia Ítalo, muito obrigado, um feliz 2019 para você, grupo ACBR e familiares, com muita saúde e felicidades. Contem com minha ajuda. Abraços Sérgio

Ítalo continua errado FPArquivoPDF := FPArquivoPDF + PathWithDelim(TACBrCTe(ACBrCTe).DACTE.PathPDF) + OnlyNumber(TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe.infCTe.ID) + '-cte.pdf'; TACBrCTe(ACBrCTE).Conhecimentos.Items.NomeArqPDF := FPArquivoPDF; No segundo PDF ele gera assim. Bem óbvio. Vai acumulando. D:\xml\201812\CTe\35234513190756000273570010000904671027466519-cte.pdfD:\xml\201812\CTe\35234513190756000273570010000904681027466524-cte.pdf Correto (Favor substituir) FPArquivoPDF := PathWithDelim(TACBrCTe(ACBrCTe).DACTE.PathPDF) + OnlyNumber(TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe.infCTe.ID) + '-cte.pdf'; TACBrCTe(ACBrCTE).Conhecimentos.Items.NomeArqPDF := FPArquivoPDF; Eu passei correto, que fez este remendo? Atenciosamente Sérgio