Leonardo Gregianin

Bom dia, Por enquanto eu passo para a data do serviço (qrlDataServ.Caption) o mesmo conteúdo da data de emissão: DFeUtil.FormatDateTime(DateTimeToStr(FNFSe.DataEmissao))

Utilizo Xe2 e Quickreport 5.05, peguei seu xml e gerou normalmente a impressão em 1 folha. Será que não é problema no seu Quickreport? Pode ser problema de instalação entre versões oficial e "pirata".

Muito obrigado Ítalo, ótimo trabalho.

Bom dia Ítalo, Na unit ACBrNFSeDANFSeQRRetrato na linha 297 o label "qrlCodigoMunicipio" é preenchido pelo código da cidade, porém se não for informado este código a impressão é emitida com o nome do label. Poderia implementar a situação abaixo? if trim(FNFSe.Servico.CodigoMunicipio)<>'' then qrlCodigoMunicipio.Caption := FNFSe.Servico.CodigoMunicipio + ' - ' + CodCidadeToCidade(StrToInt(FNFSe.Servico.CodigoMunicipio)) else qrlCodigoMunicipio.Caption := ''; Uma dúvida: Que eu lembre a informação "Data do serviço" no label "qrlDataServ" foi criada recentemente, está informada sempre em branco na linha 283, tem alguma necessidade dela existir? Grato.

Boa tarde, A classe do provedor fISSLex não foi criada no ACBrNFSeConfiguracoes.pas: proFISSLEX: FProvedorClass := TProvedorfISSLEX.Create; Segue em anexo arquivo com a correção. Grato.

O nome do concentrador é Fusion da empresa Dresser Wayne, o site é www.wayne.com. Eu só consegui fazer simulações com a DLL disponibilizada pela filial no Brasil (FusionClass.dll).

Boa noite, Geralmente cada cidade disponibiliza um modelo diferente mas não tem restrição de uso um modelo genérico único para várias cidades diferentes contendo as informações necessárias, é o que acontece aqui no ACBr, só existe um modelo para mais de 300 cidades

infoel, Você precisa incluir a cidade na unit \fontes\ACBrNFSe\pnfsConversao.pas na função CodCidadeToProvedor(const ACodigo: Integer): string; onde há várias cidades do provedor Betha.

Depois do comando Enviar eu utilizo, por exemplo, estes comandos: ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo ACBrNFSe1.NotasFiscais.Items[0].NFSe.dhRecebimento ACBrNFSe1.NotasFiscais.Items[0].NFSe.DataEmissao ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao Se você quer todo o conteúdo do XML mesmo, tenta carregar novamente o arquivo já salvo com LoadFromFile.

Boa tarde, Fiz algumas alterações no pacote de instalação do QuickReport para MDFe para facilitar e compatibilizar a instalação em várias versões do Delphi, seguindo outros pacotes de instalação do próprio ACBr: {$IFDEF VER150} QR5RunD7, vcljpg, visualclx, {$ENDIF} // D7 {$IFDEF VER170} QR5RunD2005, vcljpg, {$ENDIF} // D2005 {$IFDEF VER180} {$IFNDEF VER185} QR5RunD2006, vcljpg, {$ENDIF} // D2006 {$ENDIF} {$IFDEF VER185} QR5RunD2007, vcljpg, {$ENDIF} // D2007 {$IFDEF VER190} QR5RunD2007, vcljpg, {$ENDIF} // D2007 {$IFDEF VER200} QR5RunD2009, vclimg, {$ENDIF} // D2009 {$IFDEF VER210} QR5RunD2010, vclimg, {$ENDIF} // D2010 {$IFDEF VER220} QR5RunDXE, vclimg, {$ENDIF} // XE {$IFDEF VER230} QR5RunDXE2, vclimg, {$ENDIF} //XE2 {$IFDEF VER240} QR5RunDXE3, vclimg, {$ENDIF} //XE3 {$IFDEF VER250} QR5RunDXE4, vclimg, {$ENDIF} //XE4 Até.

Isaque e Italo, A fim de compatibilizar o pacote de instalação para funcionar no ACBrInstall proponho a seguinte alteração no ACBrNFSeDanfseQRpkg, para que o visualclx seja utilizado somente no Delphi7, da mesma forma que está o pacote do Fortes Report: - //visualclx, // se ocorrer erro, comente. - {$IFDEF VER150} QR5RunD7, vcljpg; {$ENDIF} // D7 + {$IFDEF VER150} QR5RunD7, vcljpg, visualclx; {$ENDIF} // D7 Abraço.

Boa tarde Leandro, A cidade de 3119401-Coronel Fabriciano - MG já está adicionada no componente, atualize seus fontes.

A chave de acesso ao Webservice eu passei na geração do XML: Prestador.Senha := 'chave fornecida pela prefeitura';

Faltou anexar o schemas e um manual.

Ágili Softwares para Área Pública Ltda Sede: Londrina/PR Site: http://www.agili.com.br Padrão Abrasf 1.0 Prefeituras: Nova Mutum/MT Homologação: http://201.57.87.179:9292/ServicoNFSe.asmx Produção do WebService: http://201.57.87.179:92/ServicoNFSe.asmx Juína/MT Homologação: http://187.6.65.35:9292/ServicoNFSe.asmx Produção do WebService: http://187.6.65.35:92/ServicoNFSe.asmx O provedor ainda precisa de ajustes, ajuda bem vinda.

Atualizei a função GetLinkNFSe com todas as cidades do provedor Saatri.

Foi utilizado a versão 5.02 do Quick Report em Delphi 7 para fazer o DANFSE. Altere a variável no ACBr.inc e teste a exportação.

Você descomentou a opção abaixo do arquivo trunk/Fontes/ACBrComum/ACBr.inc ?? // Definições para o Quick Report // Descomente a linha abaixo caso o Quick Report tenha suporte a PDF //------------------------------------------------------------------------------ //{$DEFINE QReport_PDF}

Pra mim também sempre aparece esta mensagem. Eu só consigo abrir o ACBrNFSeDANFSeQRRetrato.pas sem erros quando o ACBrNFSeDANFSeQR.pas já está aberto.

Alguém poderia esclarecer minha dúvida no post acima? Grato.

Para deixar registrado no fórum, na rev. 5597 foi removida a divisão por 100 do ValorISS na impressão.

Fonte: FlexDocs <homologacao> <EnviarLoteRPS SoapAction=""></EnviarLoteRPS> <EnviarLoteRPSSincrono SoapAction=""></EnviarLoteRPSSincrono> <GerarNfse SoapAction="http://www.abrasf.org.br/nfse.xsdaction/AGERARNFSE_BARRADOGARCAS.Execute">http://financas.barradogarcas.com:8080/SCEM/servlet/agerarnfse_barradogarcas</GerarNfse> <CancelaNfse SoapAction="NFSE_BarradoGarcasaction/ANFSE_BARRADOGARCAS.CANCELARNFSE">http://financas.barradogarcas.com:8080/SCEM/servlet/anfse_barradogarcas</CancelaNfse> <SubstituirNfse SoapAction=""></SubstituirNfse> <ConsultaLoteRPS SoapAction=""></ConsultaLoteRPS> <ConsultaNfseRPS SoapAction=""></ConsultaNfseRPS> <ConsultaNfseServPrestado SoapAction=""></ConsultaNfseServPrestado> <ConsultaNfseServTomado SoapAction=""></ConsultaNfseServTomado> <ConsultaNfseFaixa SoapAction=""></ConsultaNfseFaixa> </homologacao> <producao> <EnviarLoteRPS SoapAction=""></EnviarLoteRPS> <EnviarLoteRPSSincrono SoapAction=""></EnviarLoteRPSSincrono> <GerarNfse SoapAction="http://www.abrasf.org.br/nfse.xsdaction/AGERARNFSE_BARRADOGARCAS.Execute">http://financas.barradogarcas.com:8080/SCEM/servlet/agerarnfse_barradogarcas </GerarNfse> <CancelaNfse SoapAction="NFSE_BarradoGarcasaction/ANFSE_BARRADOGARCAS.CANCELARNFSE">http://financas.barradogarcas.com:8080/SCEM/servlet/anfse_barradogarcas</CancelaNfse> <SubstituirNfse SoapAction=""></SubstituirNfse> <ConsultaLoteRPS SoapAction=""></ConsultaLoteRPS> <ConsultaNfseRPS SoapAction=""></ConsultaNfseRPS> <ConsultaNfseServPrestado SoapAction=""></ConsultaNfseServPrestado> <ConsultaNfseServTomado SoapAction=""></ConsultaNfseServTomado> <ConsultaNfseFaixa SoapAction=""></ConsultaNfseFaixa> </producao>

Boa tarde, O tópico é antigo mas vou continuá-lo. Estou com o mesmo erro "TMemoBuf.PrintEnd must be greater than TMemoBuf.PrintStart" Informações: * O arquivo xml tem 251KB, 270 produtos e 12 páginas. * Margens da Danfe: * ACBrNFe1.DANFE.MargemInferior := 2.0; * ACBrNFe1.DANFE.MargemSuperior := 0.8; * ACBrNFe1.DANFE.MargemEsquerda := 0.6; * ACBrNFe1.DANFE.MargemDireita := 0.6; Ao debugar o ACBr encontrei onde está o problema: Mais ou menos na página 10 ou 11 o Memo.PrintEnd fica menor que Memo.PrintStart na linha 1273/1274, isso ocorre quando a configuração da MargemDireita é diferente de 0.51 que faz com que execute as linhas 1029 e 1030 então a ColsWidth[2] vai diminuindo de tamanho a cada página. Utilizo a margem direita com no mínimo 0.6 para não cortar na impressão, por enquanto tive que comentar as linhas 1029 e 1030 e não tive problemas. Até mais. Editado: referente a unit ACBrDANFeCBRaveRetrato.pas

Ou seja, hetoandrade, Depois da alteração do Isaque e da sua alteração no pacote você conseguiu resolver tudo?

O repositório está com erro. Na revisão 5549 foi retirado o "qrlCodServico" do dfm.