Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

MarcosRWeimer

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    376

  • Registro em

  • Última visita

  • Days Won

    1

 Tipo de Conteúdo 

Posts postados por MarcosRWeimer

    NFSeX - Equiplano - Novo campo: nrCidadeIbgeServico

    em ACBrNFSe

    Postado · Editado por -=Ma®©oS=-
    incluido informação do listanfse

    Voltei, identificado um problema na procedure TACBrNFSeProviderEquiplano.TratarRetornoConsultaLoteRps(Response: TNFSeConsultaLoteRpsResponse); (arquivo Equiplano.Provider.pas)

     

    Acaba não carregando os dados pois não encontra o node 'nfse':

    image.thumb.png.8c2e685d25fbb92dd4b2ebf086b7dfc5.png

    logo não carrega o número da nota, código de verificação e afins.

    Arquivo retorno: 

    <?xml version="1.0"?>
<es:esConsultarLoteRpsResposta xsi:schemaLocation="http://www.equiplano.com.br/esnfs esConsultarLoteRpsResposta_v01.xsd" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:es="http://www.equiplano.com.br/esnfs">
  <listaNfse class="list">
    <nfse>
      <nrNfse>22</nrNfse>
      <cdAutenticacao>EEC56D647FCBAFC2B0710C659EE2734F</cdAutenticacao>
      <dtEmissaoNfs>2022-11-23T17:19:52</dtEmissaoNfs>
      <nrRps>24</nrRps>
      <nrEmissorRps>1</nrEmissorRps>
    </nfse>
  </listaNfse>
</es:esConsultarLoteRpsResposta>

     

    Se olhar no fonte, logo abaixo verá que considerava o "listaNfse":

    image.thumb.png.ed1fabd4671ccfecdc0e7b57cf80d0f6.png

    NFSeX - Equiplano - Novo campo: nrCidadeIbgeServico

    em ACBrNFSe

    Postado · Editado por -=Ma®©oS=-
    incluido thread

    13 horas atrás, Renato Rubinho disse:

    Boa tarde,

    Veja este tópico que o Italo explica o que cada propriedade Salvar faz.

    A referência é de NFe mas se aplica aos demais DFes.

    qual topico? faltou o link, estou utilizando a busca mas não estou encontrando

     

    Achei:

     

    • Curtir 1

    NFSeX - Equiplano - Novo campo: nrCidadeIbgeServico

    em ACBrNFSe

    Postado

    Ola!

    Atualizei novamente (revision 27522), reinstalei removendo as DLLs e não ocorreu mais o erro.

     

    A parte de emissão está com o departamento de suporte, aqui emiti, consultei nfse por rps e cancelei, não tive problemas mas o departamento de testes irá realizar alguns testes mais específicos (retenção, prestador fora do municipio, entre outro detalhes)

     

    Até agora o que me retornaram é que está salvando os arquivos:

    image.png.51cefb6c85c60a6e7fd565aa5893c11c.png

    Pelo que sei não deveria salvar já que estou passando:

      

    ACBrNFSeX.Configuracoes.Arquivos.Salvar := False;

     

    Alguma configuração que foi alterada e não percebi?

     

     

    NFSeX - Equiplano - Novo campo: nrCidadeIbgeServico

    em ACBrNFSe

    Postado · Editado por -=Ma®©oS=-
    xsd

    Boa Tarde!

    Configuração: 

    Configuracoes.Geral.ConsultaLoteAposEnvio     := True;
Configuracoes.WebServices.AguardarConsultaRet := 10000;
Configuracoes.WebServices.IntervaloTentativas := 5000;

     

    - Faço a emissão da nota fiscal e o ACBr acaba interpretando com erro (X203 - Não foi retornado nenhuma NFSe.)

    - Verifico status retorna como autorizada

    - O problema está ao Consultar o lote após o envio.

    - Retorno da prefeitura: 

    <es:esConsultarLoteRpsResposta xmlns:es="http://www.equiplano.com.br/esnfs" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.equiplano.com.br/esnfs esConsultarLoteRpsResposta_v01.xsd">
  <listaNfse class="list">
    <nfse>
      <nrNfse>12</nrNfse>
      <cdAutenticacao>297951B17408408CF0A8ZZZZZZZZ</cdAutenticacao>
      <dtEmissaoNfs>2022-11-10T16:25:32</dtEmissaoNfs>
      <nrRps>14</nrRps>
      <nrEmissorRps>1</nrEmissorRps>
    </nfse>
  </listaNfse>
</es:esConsultarLoteRpsResposta>

     

    Fontes\ACBrDFe\ACBrNFSeX\Provedores\Equiplano.Provider.pas,  procedure TACBrNFSeProviderEquiplano.TratarRetornoConsultaLoteRps(Response: TNFSeConsultaLoteRpsResponse); 

    ...
      AuxNode := ANode.Childrens.FindAnyNs('mensagemRetorno');

      if AuxNode <> nil then
        ProcessarMensagemErros(AuxNode, Response);

      Response.Sucesso := (Response.Erros.Count = 0);

//      Response.Protocolo := ObterConteudoTag(ANode.Childrens.FindAnyNs('nrProtocolo'), tcStr);

      AuxNode := ANode.Childrens.FindAnyNs('listaNfse');

      if AuxNode <> nil then
      begin
        ANodeArray := ANode.Childrens.FindAllAnyNs('nfse'); ---> AQUI
        if not Assigned(ANodeArray) then
        begin
          AErro := Response.Erros.New;
          AErro.Codigo := Cod203;
          AErro.Descricao := Desc203;
          Exit;
        end;

        for i := Low(ANodeArray) to High(ANodeArray) do
        begin
          ANode := ANodeArray[i];
          AuxNode := ANode.Childrens.FindAnyNs('nfse');
          AuxNode := AuxNode.Childrens.FindAnyNs('nrRps');

          if AuxNode <> nil then
          begin
            NumRps := AuxNode.AsString;

            ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps);

            ANota := CarregarXmlNfse(ANota, ANode.OuterXml);
            SalvarXmlNfse(ANota);
          end;
        end;
      end;

    No ponto indicado acima com o "AQUI" não encontra o node nfse (ANode = Document.RootElement)

    Tentei alterar para AuxNode, que ao meu ver seria o mais correto, porem a parte do FOR tambem não bate os campos.

    Não sei se todos as prefeituras equiplano o retorno é o mesmo, por isso não prossegui alterando os demais campos.

     

    EDIT: Pelo que comparei o retorno da prefeitura confere com o xsd citado alguns posts acima.

    NFSeX - Equiplano - Novo campo: nrCidadeIbgeServico

    em ACBrNFSe

    Postado

    Bom dia!

    Estamos com problemas quanto a cidade onde efetivamente é prestado o serviço, quando prestador e tomador são da mesma cidade e o serviço é prestada em outra.

     

    Cenário hipotético:

    - Prestador de Toledo/PR

    - Tomador de Toledo/PR

    - Cidade de prestação Marechal Cândido Rondon/PR (serviço prestado em uma fazenda ou filial por exemplo)

     

    Segundo suporte da equiplano tenho de enviar o campo: nrCidadeIbgeServico com o código Ibge da cidade onde efetivamente ocorreu a prestação do serviço.

     

    Print fornecido pelo próprio suporte da equiplano destacando o novo campo que tem de ser enviado.

    image

     

    Buscando nos fontes não encontrei nenhum outro provedor que utilize tal campo.

     

    Sei onde mudar (Equiplano.GravarXML, function GerarXml) só não estou muito certo do campo a ser utilizado, pensei no NFSe.Servico.MunicipioIncidencia porêm meu conhecimento no componente é limitado e não tenho certeza se este seria o campo correto a ser utilizado.

     

     

    SAT validação XSD

    em ACBrSAT

    Postado

    1 hora atrás, Daniel Simoes disse:

    Os Schemas são para uso interno do equipamento.. são baseados em Lotes de XML

    Isso quer dizer que não devo fazer uma validação usando XSD, apenas mandar para o equipamento e "boa" ?

     

    SAT validação XSD

    em ACBrSAT

    Postado

    Ola!

     

    Estou desenvolvendo o SAT com integração usando o emulador fornecido pelo Sefaz/SP (segundo me passaram não tem mais SAT de homologação e deve ser utilizado o emulador).

    Meu problema está em validar o XML gerado com o XSD, usando o disponivel na pasta schemas do ACBr (que tem para a versão 7 e 8 ) como tambem com os XSD disponibilizados pela Sefaz/SP (ambos são bem diferentes diga-se de passagem, ACBr tem 2 XSDs para cada versão do SAT, enquanto do Sefaz tem vários arquivos bem ao estilo da NFe).

    Se envio para o Emulador sem validar com o XSD é autorizado sem problemas, poderia enviar sem validar mas este não é o correto.

     

     

     

     

    ACBrBAL - Balança Urano UDC 30000/5

    em ACBrSerial

    Postado

    Ola!

    Tenho uma balança dessas UDC 30000/5 aqui, é uma balança "antiga", somente tem porta serial e utiliza mesmo o protocolo UDC.

     

    Consegui fazer funcionar criando um novo modelo devido ao "SolicitarPeso" que neste caso da UDC tem de ser: 

      fpDevice.EnviaString(#04);

    enquanto o padrão de todas as outras balanças serem  (ACBrBalClass.pas, para todas as balanças e não só Urano) 

    fpDevice.EnviaString(#05)

     

    Anexo alterações.

    ACBrBalUranoUDC é a que interessa nesta thread, mas inclui também as balanças Toledo IP:  balToledoIP_W9091, balToledoIP_WOhaus, balToledoIP_WMSI3360, balToledoIP_WMSI6260 que utilizamos aqui a algum tempo e não conseguimos fazer funcionar sem alterar o ACBrBal.

     

     

    ACBrBAL.pas

    ACBrBALUranoUDC.pas ACBRBALToledoIP_WMSI3360.pas ACBRBALToledoIP_WMSI6260.pas ACBRBALToledoIP_WOhaus.pas ACBRBALToledoIP.pas ACBRBALToledoIP_W9091.pas

    Teste feito aqui com o "BalancaTeste" do ACBr depois de alterar o componente com as units acima:

    image.png.58146fe772ede44033692dbe05d0ec34.png

     

    Peso retornado bateu com o exibido no display da balança.

     

    • Obrigado 1

    Imprimir PDF em fast no delphi 11 (Alexandria) erro "Invalid ZStream operation!"

    em ACBrCTe

    Postado · Editado por -=Ma®©oS=-

    Em 10/12/2021 at 10:59, Emerson Teixeira disse:

    bom dia.

    aparentemente tem um correção pra isso: https://quality.embarcadero.com/projects/RSP/issues/RSP-35516

    copia a System.ZLib.pas na pasta do seu projeto, e faz as alterações acima

    att.

    Bom dia!

     

    Para mim não funcionou com estas alterações, tive de alterar diretamente no Fast Report (frxZLib).

     

    Com a alteração que fiz não precisa desativar a compactação do PDF.

    Sem compactar estava inviável gerar PDF e enviar para o destinatário.

    Temos clientes que emitem centenas de notas por dia e sem compactar aumenta de 8 a 10x o tamanho do PDF.

    Pasta das notas do dia com pdf compactado beirava 1Gb e sem compactação quase chegou a 10Gb.... totalmente inviável.

    Vendo o fonte parece pouca alteração (faça um compare e verá) mas levei quase 7 horas para chegar no resultado esperado.

     

    EDIT: Só para afirmar, é um problema para quem usa o Delphi Alexandria (11 / 11.1)

    frxZLib.pas

    • Curtir 1
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.