sergiom

Í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

Bom dia, UNIT anexada. Alteração está no primeiro post. ACBrCTeDACTeRLClass.pas Obrigado Atenciosamente Sérgio

Esta revisão do fonte já foi feita? Caso não tenha sido, há uma previsão? Isto é para o caso de eu atualizar com o repositório ACBr e o problema voltar. Atenciosamente Sérgio

Bom dia Ítalo, realmente a alteração causou um problema na impressão. Alías estas últimas alterações trouxeram um trabalho extra. Não vi necessidade de tirar o R do verbo. Mas é péssimo fazerem uma alteração desta sem testar, pois atualizamos e mandamos o executável e ai começa a chover problemas. Percebi que na parte de CTe, MDFe não há muita gente acompanhando e envolvida. Se houver interesse gostaria de participar mais ativamente. Abraços Sérgio

Boa tarde, após a mudança de Salvar para Salva, etc... ao gerar PDF de vários CTE começou a dar erro nas minhas rotinas. Fui verificar e no DACTERL (Fortes), as linhas em comentário é que causaram o erro. FPArquivoPDF := FPArquivoPDF + PathWithDelim(TACBrCTe(ACBrCTe).DACTE.PathPDF) + OnlyNumber(TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe.infCTe.ID) + '-cte.pdf'; if i < TACBrCTe(ACBrCTe).Conhecimentos.Count - 1 then FPArquivoPDF := FPArquivoPDF + sLinebreak; Havendo mais de um CTe, a variável FPArquivoPDF vai ficando com todos os arquivos separados por um LINE BREAK (#13+#10). Com isso, o primeiro PDF gera corretamente, os demais não. A linha em vermelho corrige. procedure TACBrCTeDACTeRL.ImprimirDACTePDF(CTe: TCTe = nil); var i: integer; begin FPArquivoPDF := ''; if CTe = nil then begin for i := 0 to TACBrCTe(ACBrCTe).Conhecimentos.Count - 1 do begin // FPArquivoPDF := FPArquivoPDF + PathWithDelim(TACBrCTe(ACBrCTe).DACTE.PathPDF) + // OnlyNumber(TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe.infCTe.ID) + '-cte.pdf'; // if i < TACBrCTe(ACBrCTe).Conhecimentos.Count - 1 then // FPArquivoPDF := FPArquivoPDF + sLinebreak; // Linha inserida FPArquivoPDF := PathWithDelim(TACBrCTe(ACBrCTe).DACTE.PathPDF) + OnlyNumber(TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe.infCTe.ID) + '-cte.pdf'; case TamanhoPapel of tpA5: TfrmDACTeRLRetratoA5.SalvarPDF(Self, TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe, FPArquivoPDF); else TfrmDACTeRLRetrato.SalvarPDF(Self, TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe, FPArquivoPDF); end; end; end else begin FPArquivoPDF := PathWithDelim(TACBrCTe(ACBrCTe).DACTE.PathPDF) + OnlyNumber(CTe.infCTe.ID) + '-cte.pdf'; case TamanhoPapel of tpA5: TfrmDACTeRLRetratoA5.SalvarPDF(Self, CTe, FPArquivoPDF); else TfrmDACTeRLRetrato.SalvarPDF(Self, CTe, FPArquivoPDF); end; end; end; Atenciosamente Sérgio

No alto, na chamada Ítalo. Vide abaixo. Atenciosamente Sérgio ACBrMDFe Seguir 35 Manifesto Eletrônico de Documentos Fiscais - https://mdfe-portal.sefaz.rs.gov.br

Boa tarde, Qual foi o motivo para trocar as propriedades: - MostrarPreview -> MostraPreview - MostrarStatus -> MostraStatus e várias outras tanto no CTe como no MDFe? Minha pergunta é porque isto gerou um trabalho de abrir todos os códigos e executar a troca. Obrigado Sérgio

Bom dia favor editar e alterar o endereço do portal Novo endereço https://dfe-portal.sefazvirtual.rs.gov.br/MDFe Obrigado Atenciosament Sérgio

Felipe, obrigado pelo retorno. Eu não utilizo o NFSe ainda, qual seria o melhor caminho para acrescer este de Cotia? Ele funciona como o do BOLETO, com arquivos separados por bancos e um que integra o conjunto? Qual seria a susgestão para poder implementar? Grato Sérgio

Bom dia podem me informar se NFSe de Cotia está implementada no ACBr? https://cotia.giap.com.br/apex/cotia/f?p=907:94 Atenciosamente Sérgio

Boa tarde, é da EFRETE com credenciamento. Sou credenciado e ainda não desenvolvi, dai o meu interesse. contato para troca de whatsapp/fone me envie a mensagem pelo Fórum com o seu e eu entro em contato. Atenciosamente Sérgio

Italo, boa tarde, eu tenho a documentação de um webservice gratuito. Gostaria de desenvolver em conjunto. Todas as operadoras tem que fornecer CIOT gratuito, mas a maioria oferece somente via WEB e muitas forçam o preenchimento total das informações. Este que tenho permite cadastrar e reutilizar o cadastro do motorista/veículo. Atenciosamente Sérgio

Este caso de seguir viagem, fazer uma descarga e depois voltar e terminar, é incomum e anti-econômico, pois o veículo trafegará (ida e volta) com um peso desnecessário, onerando consumo de combustível e pneus. Qual o motivo para não descarregar primeiro em Pernambuco e seguir viagem, fazendo a descarga completa no RN? Normalmente se carrega por ordem de descarga o que inclui o planejamento do percurso.

Boa tarde tenho uma empresa com PROXY , software KERIO, uso abaixo as configurações para MDFe e CTe. No CTe não dá erro, no MDFe dá 12032 ACBrMDFe1.Configuracoes.WebServices.ProxyHost := DadosProxy.proxyServer; ACBrMDFe1.Configuracoes.WebServices.ProxyPort := DadosProxy.porta;; ACBrMDFe1.Configuracoes.WebServices.ProxyUser := DadosProxy.login; ACBrMDFe1.Configuracoes.WebServices.ProxyPass := DadosProxy.password; ACBrCTe1.Configuracoes.WebServices.ProxyHost := DadosProxy.proxyServer; ACBrCTe1.Configuracoes.WebServices.ProxyPort := DadosProxy.porta;; ACBrCTe1.Configuracoes.WebServices.ProxyUser := DadosProxy.login; ACBrCTe1.Configuracoes.WebServices.ProxyPass := DadosProxy.password; Fazendo testes e modificando configurações na computador também apareceu o erro2. Fiz testes em 3 máquinas, 2 com windows 7 e 1 com windows 10. Esse erro apareceu a partir de segunda, sem que eu tivesse modificado ou enviado qualquer atualização do programa. Alguma orientação ou configuração a ser feita? Alguém tem experiência com uso em proxy? Atenciosamente Sérgio

Boa tarde Em exemplos peguei o ACBrNFe_demo e estava tentando consultar alguns CNPJ´s baixados No caso o CNPJ 13762180000190 do RJ. O certificado que estou usando é de uma empresa de São Paulo. if not(InputQuery('WebServices Consulta Cadastro ', 'UF do Documento a ser Consultado:', UF)) then exit; if not(InputQuery('WebServices Consulta Cadastro ', 'Documento(CPF/CNPJ)', Documento)) then exit; Documento := Trim(OnlyNumber(Documento)); ACBrNFe1.Configuracoes.WebServices.UF:= UF; Alterei incluindo esta linha, para consultar a UF do CNPJ e a mensagem de erro que recebi está abaixo. <verAplic>SVRS20170704155122</verAplic> <cStat>265</cStat> <xMotivo>Rejeicao: Sigla da UF da consulta difere da UF do Web Service</xMotivo> <UF>RJ</UF> <CNPJ>13762180000190</CNPJ> <dhCons>2018-07-05T15:59:21</dhCons> <cUF>33</cUF> Pergunto: eu só consigo consultar CNPJ de SP, se minha empresa é de SP? Atenciosamente Sérgio

Boa tarde, fiz o teste simulando com os mesmos dados do CTe que acusou o problema e gerou corretamente. Minha dúvida e preocupação é por que 91, se antes estava 90, já que foi depois da atualização que acusou o erro para mim. Quem foi o responsável pela alteração no fonte deveria explicar o motivo. Deixei a versão baixada via SVN sem alteração e fico no aguardo de um retorno seu. -<ICMS> -<ICMSOutraUF> <CST>90</CST> <vBCOutraUF>18390.17</vBCOutraUF> <pICMSOutraUF>12.00</pICMSOutraUF> <vICMSOutraUF>2206.82</vICMSOutraUF> </ICMSOutraUF> </ICMS> Obrigado Sérgio

Italo, não testei novamente, uma vez deixei meu fonte alterado para 90. Fiz alteração que você me passou. Vou simular e ver se não gera o mesmo erro, deixando 91. Mas o ponto é que não existe CST = 91 e isto pode vir a gerar erros. Por qual motivo foi colocado 91? Você sabe dizer? result := EnumeradoToStr(t, ['', '00' , '10' , '20' , '30' , '40' , '41' , '50' , '51' , '60' , '70' , '80' , '81', '90', '91', 'SN', '10', '90', '41', '60'], [cstVazio, cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstICMSOutraUF, cstICMSSN, cstPart10, cstPart90, cstRep41, cstRep60]); Abraços Sérgio

Boa noite, vai ser mantido o 91? Atenciosamente Sérgio

Bom dia Italo, já alterei para a forma como explicou acima, mas este 91 não tinha e agora tem, sendo que não existe CST 91. Aguardo seu retorno e muito obrigado.

Italo tinha feito assim ICMS.SituTrib := cstICMSOutraUF; ICMS.ICMSOutraUF.CST := cstICMSOutraUF; Mas não deu erro antes, hoje após atualização é que deu. E não existe CST 91. Não está errado? Atenciosamente Sérgio