rlind

foi feito esse ajuste no .pas e com isso no ACBrXmlBase.pas na pasta ACBrDFe tenho outro erro. em -> function StringInArray(const Value: string; Strings: array of string): Boolean; Me parece que para o Delphi 7 não esta compativel. Obrigado pelo retorno.

Boa Tarde. tentei instar o ACBr_NFSeX.dpk na IDE Delphi 7 e no ACBrXmlDocument.pas esta dando erro Tdate e Ttime em : -> function AsDate(const Format: string = ''): TDate; -> function AsTime(const Format: string = ''): TTime; Será que faltou compilar outro dpk ? Obrigado.

Ola, descobri que eu estou setando valor errado na Tag <Aliquota> ao consultar o lote. Ao ajustar essa TAG validou a NFSe, soh nao consegui identificar como ter essa informação no retorno da função "ACBrNFSe1.Enviar(nroLote, True) ". Pode fechar o topico. Obrigado

Boa Tarde, ao tentar emitir nfse no provedor issCuritiba atraves do comando ACBrNFSe1.Enviar(nroLote, True) em delphi 7 não sai por exception, porem o retorno esta da seguinte forma: ACBrNFSe1.NotasFiscais.Items[0].NFSe.situacao = '' ACBrNFSe1.NotasFiscais.Items[0].NFSe.protocolo = '637497740113649975' ACBrNFSe1.NotasFiscais.Items[0].NFSe.numero = '00000011' ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao = '' ACBrNFSe1.NotasFiscais.Items[0].NomeArq = '' parecendo que não tem erro, porem nao retorna do Webservice e ao consultar atraves do comando ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.NUMERO, ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo)), retorna : 00000011UNICA-rps.xml o arquivo IssCuritiba.ini eh o ultimo versionado. Com isso se alguem poder me orientar, agradeço

Ola. Td certo. alguem sabe informar, por favor se tem como pegar o conteudo da assinatura digital do arquivo binario gravado no arquivo .txt do, Arq MF e copiar para o Arquivo binario e validar na opção "Validar Assinatura PAF-ECF" no aplicativo "eECFc v3.28" ? Obriagdo.

Ok. Obrigado pela informação. Pode Fechar o Topico.

Ola. Bom dia. Estou com dúvida sobre o componente AcbrIntegrador. Eh necessario o aplicativo Integrador do SEFAZ-CE estar rodando para utilizar o componente ou ele simula o Integrador ? Aguardo retorno. Obrigado.

Esta Certo. Vou verificar. Obrigado. Pode encerrar o chamado.

Boa Tarde. Estão atualizados sim. O tópico não apareceu aqui. mostrou => "Não tem permissão para vê-lo." Podes escrever o titulo do tópico ? ou link ? Obrigado.

Olá. Estamos com problemas ao Gerar o arquivo de Estoque do Bloco X , a partir de um número maior de registros ( Mais de 1000 registros), ao executar o comando SaveToFile em ACBrBlocoX_Estoque.pas , pois gera Out of memory. Gostariamos de saber se tem alguma solução para esse problema na rotina do AcbrBlocox. Aguardamos retorno. Rogerio Del Rio Lindemayer Obrigado.

Topico pode ser finalizado. Obrigado.

Entendi. Obrigado Léo.

Muito Obrigado pela dica Lèo. Somente fico na duvida se essa alteração sera efetivada no componete da NFSe?

Ola. Estou com duvidas ao cancelar uma nota de serviço pelo provedor IPM, no qual retorna a mensagem abaixo, através do comando abaixo : - ACBrNFSe1.CancelarNFSe(CodigoCancelamento, TabGlobal.DNOTA_FS.NTF_NUMERO_NOTA.Conteudo); Ao abrir o arquivo "00000014UNICA-rps.xml" na pasta 2019\NFSE\Recibos\, realmente temos a as Tags "forma_pagemento" e "tipo_pagamento" que não deram problema no Envio da NFSE, porem ao enviar o cancelamento retorna essa mensagem. Alguem poderia me orientar o motivo desse retorno e como enviar um xml valido no procedimento de cancelamento da NFSe da IPM? Aguardo retorno. Muito Obrigado. Rogerio Del Rio Lindemayer

Esta certo. Vou tentar esse procedimento então.

Ok. Obrigado.

Obrigado pelo retorno. Segue imagem do problema. Isto eh no Delphi7.0. Não esta correto o que relatei sobre as duas releases. com isso peço desculpas. A acentuação no arquivo .PAS esta correta. O problema eh ao abrir o arquivo no delphi7.

Olá. Tudo Certo. Venho pedir orientação quanto ao arquivo fonte ACBrNFeDANFeRLRetrato.pas em ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes, referente a "Ajustes de acentuação após o Refactoring" do release 3663. Onde efetivamente foi corrigido, porém no próximo release 3696 referente a "[-] Remoção de units não utilizadas nas cláusulas uses", o problema de acentuação esta com problemas novamente, como se fosse perdido algum Update. Alguém sabe o que ocorreu efetivamente. Aguardo retorno. Obrigado.

Bom dia. Apos verificar rotinas de envio no ACBrMonitorPLUS e no ACBrBlocoXSign , ambos não informam "WebServices.enviarBlocoX.XMLZipado" , que eh exatamente onde esta ocorrendo o problema. Se eu nao estivesse no Delphi 7 , somente passaria o conteudo do arquivo em "WebServices.enviarBlocoX.XML" e o componente ACBRBLOCOX gerava o zip e usava o EncodeBase64. porem não eh o caso. segue abaixo trecho do codigo fonte , se alguem puder me dar uma orientação, agradeço ZipMaster1.ZipFileName:= sNomearqXMLZIPADO ; ZipMaster1.FspecArgs.Clear; ZipMaster1.FspecArgs.Add(sNomearqXML); ZipMaster1.Add; WebServices.EnviarBlocoX.Clear; FXMLOriginal := TStringList.Create; try FXMLOriginal.LoadFromFile(sNomearqXML ); WebServices.EnviarBlocoX.XML := FXMLOriginal.Text; finally FXMLOriginal.Free; end; stream := TMemoryStream.Create; stream.LoadFromFile(sNomearqXMLZIPADO); WebServices.enviarBlocoX.XMLZipado := EncodeBase64( ansistring( stream ) {sNomearqXMLZIPADO} ); WebServices.EnviarBlocoX.Executar; Obrigado.

Ok. Obrigado Juliomar.

Certo Juliomar, seria na pasta Projetos em ACBrBlocoXSign ? com fonte em Lazarus ? Obrigado.

Boa tarde. Estou implementando em Delphi7 envio bloco x , sendo que o retorno eh sempre "arquivo zip inválido". em anexo segue o trecho do fonte, onde por ser Delphi7 , estou zipando o XML com zipmaster e usando o metodo EncodeBase64 alguem pode me orientar o que estou fazendo de errado. Muito Obrigado. EnvioBlocox.txt

Obrigado pelo retorno.

Esta certo, verifiquei por aqui. No caso voce se refere a função function Zip(AStream: TStream): AnsiString; overload; em acbrUtil, certo? Obrigado pelo retorno.

Boa Dia , ao executar Envio de XML da Redução Z do bloco X "WebServices.EnviarBlocoX.XMLZipado := EncodeBase64('c:\ReducaozX'+ copy(dataConv(leitura.data),7,2)+copy(dataConv(leitura.data),5,2)+copy(dataConv(leitura.data),1,4) + '.zip');" , retorna a Tag <mensagem> da SituaçaoProcessamentoDescrição com o texto "Arquivo ZIP invalido" Segue em anexo rotina em "Delphi7" executada , onde eh chamada a função EncodeBase64, passando o caminho do arquivo Zipado ( que esta na pasta referenciada no codigo fonte) Alguem poderia orientar porque não eh um arquivo .ZIP valido? Aguardo retorno. Muito Obrigado. erroZIPADO.txt