Paulo R Vieira Jr

Olá a todos! Tenho o habito de atualizar os fontes do projeto toda 2f e hoje ao fazê-lo deu um erro no pacote "ACBr_TEFD.dpk" na unit "\ACBr\Fontes\ACBrTEFD\ACBrTEFDVeSPague.pas" C:\Desenvolvimento\ComponentesXE10\ACBr\Fontes\ACBrTEFD\ACBrTEFDVeSPague.pas(1400) Error: E2029 ')' expected but ';' found Eu já arrumei no meu fonte aqui pra poder compilar e instalar o pacote, porém estou avisando para corrigir no SVN. Abs e obrigado.

Boa tarde Victor, atualizei hoje os fontes, recompilei, fiz os testes e está tudo certo. A meu ver o tópico pode ser encerrado. Abs e obrigado.

olá Victor, ACBrSATExtratoFR.pas segue a unit modificada as 2 linhas add em destructor...

Olá à todos! Tenho uma unit que cria o componente TACBrSATExtratoFR na mão e estava tendo problema de memory leak; No destructor desta unit (ACBrSATExtratoFR.pas) eu acrescentei as 2 linhas abaixo e aparentemente resolveu o problema. Podem dar uma verificada por favor se é isso mesmo? Obrigado. if Assigned(frxReport) then frxReport.Free; Exemplo: function TEmissor.CriarComponenteDANFESat: TACBrSATExtratoClass; begin Result := TACBrSATExtratoFR.Create(nil); TACBrSATExtratoFR(Result).FastExtrato := 'caminho do .fr3'; TACBrSATExtratoFR(Result).LarguraBobina := 290; TACBrSATExtratoFR(Result).MargemSuperior := 0; TACBrSATExtratoFR(Result).MargemInferior := 0; TACBrSATExtratoFR(Result).MargemEsquerda := 0; TACBrSATExtratoFR(Result).MargemDireita := 4; TACBrSATExtratoFR(Result).MostraPreview := False; TACBrSATExtratoFR(Result).EspacoFinal := 0; Result.ACBrSAT := FACBrSAT; end; function TEmissor.DownloadPdfSat(cFile: string): TBytes; var DANFESat: TACBrSATExtratoClass; begin DANFESat := CriarComponenteDANFESat; try FACBrSAT.CFe.Clear; FACBrSAT.CFe.LoadFromFile(cFile); DANFESat.Filtro := TACBrSATExtratoFiltro.fiPDF; DANFESat.NomeDocumento := copy(cFile, 1, LastDelimiter('.', cFile)) + 'pdf'; DANFESat.NumCopias := 1; DANFESat.PathPDF := copy(cFile, 1, LastDelimiter('\', cFile)); try DANFESat.ImprimirExtrato(); finally ; end; try Result := TFile.ReadAllBytes(DANFESat.ArquivoPDF); finally ; end; finally FreeAndNil(DANFESat); end; end; Obrigado. Paulo R Vieira Jr Wisesoft Sistemas

Olá a todos! neste cenário de a SEFAZ estar "fora-do-ar" os cupons enviados ao SAT não serão enviados à SEFAZ, lógico. No ACBr existe o comando "ConsultarStatusOperacional" mas retorna erro ao executar. Estou com um SAT da bematech aqui (em ambiente de homologação) e quando executo a chamada ACBrSAT1.ConsultarStatusOperacional e é retornado o erro: -- 13:56:37:421 - numeroSessao: 930577 - Comando: ConsultarStatusOperacional EStringListError - List index out of bounds (2) Estou fazendo alguma coisa errada? ou o componente ACBr ainda não foi codificado para esse retorno de erro? Agradeço a todos antecipadamente. Paulo Vieira

Bom dia Italo, Peço a gentileza de adicionar no Provedor Fiorilli a cidade de Serra Negra/SP Código do Município: 3551603 -> unit ACBrProvedorFiorilli.pas -> function TProvedorFiorilli.GetConfigURL(ACodCidade: Integer): TConfigURL; URL Homologação := é a mesma que já está 3551603 : // Serra Negra/SP cURL_Producao := 'http://intra.serranegra.sp.gov.br/IssWeb-ejb/IssWebWS/IssWebWS'; -> unit pnfsConversao.pas -> function CodCidadeToProvedor(const ACodigo: Integer): string; linha 755 (+/-) Um abraço e Obrigado. Paulo R Vieira Jr Wisesoft Sistemas (19) 3892-1858