Jefferson Alves da Silva

BigWings, Boa Tarde! Depois de atualizar, executou o ACBrInstall_Trunk2.exe, pra compilar os pacotes? R: Sim Recompilou também a aplicação, no caso o programa exemplo do componente? R: Sim Tem algum arquivo ACBrNFeServicos.ini desatualizado no diretório da aplicação? R: Não O componente está configurado para a versão 4.00 do layout da NFe? R: Não estava, ao alterar para versao ve400 e clicar em salvar configuraçções no próximo teste o consumo deu certo. Obrigado pelo suporte.

Boa Tarde , BigWings! Fiz update Hoje. E permaneceu na mesma. Configurei somente o necessário como Certificado , Propriedades SSL, Caminho de Schemas e outros path. E preencho os inputquery da rotina.

Prezados, boa tarde! Vou implementar a Manifestação do Destinatário da NFe. Eu testei o exemplo configurando o mínimo e ao tentar Manifestar Confirmando a Operação. Preenchendo Chave de Acesso, Cnpj da o erro 404. Se eu testar a Distribuição DF-e por Chave ele comunica e retorna que não encontrou o documento. Isso deve ser por conta que não consegui manifestar. Alguém sabe o que pode ser ? URL esta fora do Ar , mudou ou estou configurando algo de errado ?

Prezados, bom dia! Fiz um etiqueta para um cliente usando o ACBRETQ. Porém o cliente esta acostumado com o Visual de um Zebra Designer e não consegui reproduzir o resultado esperado. Essa é a etiqueta gerada pelo ZDesigner Esse acima foi a que desenvolvi. A impressora do Cliente é uma Zebra ZD220 - Eu usei a minha Zebra GC420t. O Cliente Gostaria de usar a Fonte Morden : Vi que é possível carregar font's na impressoa GC420t Minha dúvia é : Se eu carregar fonts na impressora irei conseguir imprimir com ela via ACBRETQ? procedure ImprimirTexto(Orientacao: TACBrETQOrientacao; Fonte, MultiplicadorH, MultiplicadorV, Vertical, Horizontal: Integer; const Texto: String; SubFonte: Integer = 0; ImprimirReverso: Boolean = False); overload; procedure ImprimirTexto(Orientacao: TACBrETQOrientacao; const Fonte: String; MultiplicadorH, MultiplicadorV, Vertical, Horizontal: Integer; const Texto: String; SubFonte: Integer = 0; ImprimirReverso: Boolean = False); overload; Vi que a imprimirTexto tem overload e o parametro Fonte é uma const string. Atualmente estou passando valores que são aceito de 0 a 5 . ImprimirTexto(or90, 3, 2, 2, 5 + fMargemEsquerda, 42 - fMargemSuperior, tblPsq.FieldByName('DESC_PR').AsString); E estou tentando ajustar o tamanho pelo Multiplicador Vertial e Horizontal. Mas concordo que ficou um pouco quadrado e esticado como podem ver na foto anexo. Aguardo uma dica de como melhorar o visual dessa etiqueta.

Bom dia Italo! Gratidão!

Italo, boa tarde! Conseguir homologar o provedor SMARAPD padrão ABRASF 2.04 , cidade de ourinhos. Segue o INI com as URL do provedor. E Link onde pode encontrar todo o resto, Manuais, XSD, WSDL, Validador de Schema deles e etc. Favor adicionar ao repositório a alteração. PS: Consegui emitir e cancelar, as vezes o retorno vem num formato que não faz o parse e da erro de TAG. Mas salvando o XML do response consegue se ver o real motivo da não validação. https://tributacao.smarapd.com.br/abrasf/loginWeb.jsp?execobj=ABRASFAcessoWS&hostProducao=http://e-gov.ourinhos.sp.gov.br:8080/tb&hostHomologacao=https://tributacao.smarapd.com.br/ourinhos/&rpsSincrono=10&rpsAssincrono=100&titulo=Prefeitura+de+Ourinhos ACBrNFSeXServicos.ini

Deu certo . Obrigado!

Bom dia. Galera após atualizar o ACBR ontém o ACBREtiq parou de funcionar. Adicionei no uses a unit ACBREtiqClass que resolvou 99,99 % dos problemas. Ficou somente o metodo CarregarImagem sem aceitar os argumentos que eram passado até então; Meu código esta assim With ACBrETQ do begin try DMI_LoadImageFromDB(Image, TBlobField(dtmEtiqDespPrime.tblLoja.FieldByName('LOGO_ETIQUETA'))); MS := TMemoryStream.Create; Image.Picture.SaveToStream(MS); MS.Position := 0; try CarregarImagem( MS, 'Logo', True, 'PCX'); except on E:Exception do begin DMI_MsgWarning('Erro ao Carregar Imagem para Impressora. Mensagem Original: ' + E.Message); FinalizarEtiqueta; Desativar; Abort; end; end; finally MS.Free ; end; Na unit acbretq.pas temos dois overload do metodo procedure CarregarImagem(aStream: TStream; var NomeImagem: String; Flipped: Boolean = True; const Tipo: String = ''); overload; procedure CarregarImagem(const ArquivoImagem: String; var NomeImagem: String; Flipped: Boolean = True); overload; Sendo que o primeiro pede um TStream, uma string, uma boleano e uma string. Que é exatamente o que passo para envocar o metodo. No exemplo do ACBR esta bem parecido if rbStream.Checked then begin if (Image1.Picture.Bitmap.Empty) then begin if OpenPictureDialog1.Execute then begin try Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); except Image1.Picture.Bitmap := Nil; end ; end; end; MS := TMemoryStream.Create; try Image1.Picture.Bitmap.SaveToStream(MS); MS.Position := 0; ACBrETQ.CarregarImagem( MS, NomeImagem, True, ExtractFileExt(OpenPictureDialog1.FileName) ); OK := True; finally MS.Free ; end ; end else A diferença é que carrego o strem do TImage com o banco de dados e não com um arquivo fazendo um loadfromfile. Mas o Problemas esta chamada do metodo que nao esta aceitando os argumento enviados Alguém teve o mesmo problema?

Italo, Boa Tarde! Bastou informar o <MunicipioIncidencia> que passou a fazer o parser. Diminuiu somente 1 erro da lista no XML e foi o suficiente. Estou validando um por um e assim que finalizar reporto se tive sucesso na homologação.

Italo , bom dia! Hoje entra no ar o padrão ABRASF 2.04 para cidade de Ourinhos SP. Alterei o arquivo ACBrNFSeXServicos.ini colocando as URLs informada pelo provedor [3534708] Nome=Ourinhos UF=SP Provedor=SmarAPD Versao=2.04 ProRecepcionar=http://e-gov.ourinhos.sp.gov.br:8080/tb/services/nfseSOAP HomRecepcionar=https://tributacao.smarapd.com.br/ourinhos/services/nfseSOAP Fiz a compilação do RES. Ao tentar transmitir uma NFS-e esta dando problemas no parse do retorno Método Executado: Enviar Lote Síncrono Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : Não Erro(s): Código : X999 Mensagem: Erro de Conexão: StartTag: invalid element name Isso ocorre na função > TACBrNFSeXWebservice.ExtrairRetorno Bem nesse ponto : Document.LoadFromXml(xRetorno); A váriavel xRetorno esta preenchida com a string do xml em anexo. A Diferença é que foi retirado as tag de envelopamento e alguns tratamentamentos. Estou lendo pelo xml salvo o que precisa ser preenchido ou alterado. Mas gostaria que desse em tela a lista de erros. Tem alguma alteração que preciso fazer para que o retorno receba o devido tratamento? 1-lista-nfse-sinc-soap.xml

Então eu comentei as 3 Tags justamento por isso. Eu não informo o número da Nota. Eu envio o RPS e capturo o numero da nota convertida no retorno e atualizo. E não funcionava mesmo. Quem quiser controlar o número da nota e enviar deve fazer o controle. Pois se enviar repetido retorna erro dizendo que o numero da nota já existe. Eu testei as duas possibilidade e sem informa o número e gerando a tag não validava.

Italo, bom dia! No começo dos testes sem alterar nenhum código eu percebi que a validação de usuário e senha fazia. E além delas mais algumas. Como o imposto retido era validado. Mas chegou num ponto que ficou tendo retorno "ERRO AO GERAR NF" E depois de meses com o suporte da SMARAPD orientando mudar URL, Alterar alguma TAG. Veio a recomendação de trocar o cabeçalho do XML. Quando fiz isso a API passou a Validar mais coisas. Fora isso vi no um tópico no qual teve um membro que fez a alteração do enconding. Então tudo me levou a crer que tinha que fazer as alterações. A mudança levou a ajustes no XML que na verdade deviam ser o real problema da não validação. Eu voltei o fonte para o original e mantive somente pouca alterações na geração do XML. Segue a UNIT e a alterações para avaliação. Porém hoje no Portal esta já comunicando a migração para o ABRASF 2.04 em 04/04/2022. Ou seja temos ai menos de 20 dias nesse padrão Agradeço toda ajuda nessa homologação. SmarAPD.GravarXml.pas

Italo, Bom dia! Colocado isso então somente a alteração do cabeçalho do XML seria o suficiente. Eu fiz alterações fixas no código somente para efeito de teste e consegui emitir e cancelar a NFS-e. ACBrNFSeXProviderBase.pasPorém como esta fixa iria deixar de funcionar os demais provedores. Então estou tentando de alguma forma colocar os desvios em pontos estratégicos para fazer funcionar o SMARPAD Versão 1.00 sem prejudicar o resto. Peço a gentileza de avaliar o que produzir até agora. Envio em anexo as units alteradas "As alterações estão comentadas pois" Se estiver muito fora do padrão, aceito sugestão de outro caminho. As vezes pode ter um jeito mais fácil e não estou enxergando por não ter habito de dar manutenção no ACBR. Outra coisa é que após as alterações esta dando o erro 87 ao tentar setar o header da requisição. Eu fixei um True lá para seguir. O Erro seria esse abaixo ACBrDFe.pas ACBrDFeSSL.pas ACBrDFeXsLibXml2.pas ACBrDFeXsMsXml.pas ACBrWinINetReqResp.pas ACBrWinReqRespClass.pas pcnConsts.pas SmarAPD.GravarXml.pas ACBrNFSeXProviderBase.pas ACBrNFSeXProviderProprio.pas ACBrConsts.pas ACBrUtil.pas

Prezados , bom dia! Obtive um retorno do provedor SMARAPD solicitando uma alteração. Mudar o cabeçalho do xml para enconding ISO-5589-1. Peguei o programa exemplo e fui depurando no código para ver onde seria preciso alterar essa informação. Alterei hard code para fins as constantes que tem a informação do cabeçalho do XML e Charset da requisição; Porém depurando ao chegar na Unit ACBrWinINetReqResp O Metodo Result := HttpAddRequestHeaders(FpRequest, PChar(AHeader), Length(AHeader), HTTP_ADDREQ_FLAG_ADD); Retorna False e a seguinte mensagem de erro : Falha ajustando o Cabeçalho da Requisição. Erro: 87 Se por um acaso eu trocar para True o Result , Acontece o consumo e parece que começa a ter alguma validação com sentido. Gostaria de saber se alguém consegue me orientar no impacto da alteração do encondig no cabeçalho da requisição. Não alterei em nenhum momento a codificação do arquivo, mantive UTF-8 em todo momento , so alterei o cabeçalho mesmo. Gostaria de uma orientação de quem conhece mais a arquitetura do ACBR do real impacto dessa alteração. E teria dica de onde devo alterar para conseguir finalizar a homologação ?

Fernando, bom dia ! A Previsão de migrar a Cidade de Ourinhos para o ABRASF é Abril de 2022. Essa cidade esta ainda no servidor antigo. Vou atualizar o componente para o ACBrNFSeX e fazer os testes lá. Abraços