Ir para conteúdo
  • Cadastre-se

Alexsandro Lopes

Membros
  • Total de ítens

    254
  • Registro em

  • Última visita

Posts postados por Alexsandro Lopes

  1. Em 19/07/2013 at 13:19, Sidney_Souza disse:

    Bom dia pessoal, depois de muita luta consegui realizar todos os ajustes que o banco bradesco solicitou para o boleto e remessa, quem tiver com dúvidas estarei a disposição....

     

    Estou com um pequeno probleminha, tenho uma lista de 10 parcela, quando clico na primeira e peço pra imprimir o boleto, beleza, os dados ficam perfeito! quando clico na segunda parcela o boleto é impresso mas com os dados do primeiro! estive analisando e eu acho que o componente está imprimindo sempre o primeiro boleto da lista....pergunda: como faço pra ele imprimir sempre o boleto com os dados atuais? realizei o debug (Delphi xe2) e os parametros são passados corretamentes....

     

    Valeu

    bom dia amigo estou fazendo a homologacao mas naoconsigo pagar o boleto vc poderia me passar quais procedimentos vc tomou

     

  2. Em 20/03/2018 at 18:21, Fernando Leite Barreto disse:

    Estou tentando emitir uma nota fiscal de serviço usando o ACBR, mas não estava obtendo sucesso. 

    Eu entrei em contato com o pessoal da SEMFAZ e eles me forneceram os xsd's. No arquivo ReqEnvioLoteRPS.xsd, temos lá o elemento TokenEnvio.

    Pois bem, olhando a fundo o código do ACBR, vi que este elemento é carregado quando o provedor for CTA, mas lá no arquivo Cidade.ini diz que o provedor do Maranhão é IssDSF.

    Depois, pesquisei a respeito e vi tópicos falando que o CTA  é a "mesma coisa que o IssDSF", mas vi que este elemento TokenEnvio não carregava usando o provedor IssDSF.

    Ok, dae eu alterei o arquivo Cidade.ini, substituindo o Provedor de IssDSF para CTA.

    Alterando o sistema conseguiu gerar o arquivo xml de envio e foi orientado a informar qualquer valor para o campo TokenEnvio. Vou colocar o arquivo de envio caso queira verificar:

     

    
    <?xml version="1.0" encoding="UTF-8"?>
    <ns1:ReqEnvioLoteRPS xmlns:ns1="http://localhost:8080/WsNFe2/lote" xmlns:tipos="http://localhost:8080/WsNFe2/tp" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://localhost:8080/WsNFe2/lote http://localhost:8080/WsNFe2/xsd/ReqEnvioLoteRPS.xsd">
        <Cabecalho>
            <TokenEnvio>999999999999999999</TokenEnvio>
            <CodCidade>0921</CodCidade>
            <CPFCNPJRemetente>12877192000106</CPFCNPJRemetente>
            <RazaoSocialRemetente>Santa Fe Ensino Medio e Fundamental LTDA - EPP</RazaoSocialRemetente>
            <transacao>false</transacao>
            <dtInicio>2018-03-20</dtInicio>
            <dtFim>2018-03-20</dtFim>
            <QtdRPS>1</QtdRPS>
            <ValorTotalServicos>10.00</ValorTotalServicos>
            <ValorTotalDeducoes>0.00</ValorTotalDeducoes>
            <Versao>1</Versao>
            <MetodoEnvio>WS</MetodoEnvio>
        </Cabecalho>
        <Lote Id="4680821">
            <RPS  Id="rps:1">
                <Assinatura>909edc0f77fe965078e4ca48edacc3258cda4f71</Assinatura>
                <InscricaoMunicipalPrestador>74544002</InscricaoMunicipalPrestador>
                <RazaoSocialPrestador>Santa Fe Ensino Medio e Fundamental LTDA - EPP</RazaoSocialPrestador>
                <TipoRPS>RPS</TipoRPS>
                <SerieRPS>NF</SerieRPS>
                <NumeroRPS>1</NumeroRPS>
                <DataEmissaoRPS>2018-03-20T16:51:50</DataEmissaoRPS>
                <SituacaoRPS>N</SituacaoRPS>
                <SeriePrestacao>99</SeriePrestacao>
                <InscricaoMunicipalTomador>00000986821</InscricaoMunicipalTomador>
                <CPFCNPJTomador>86994239187</CPFCNPJTomador>
                <RazaoSocialTomador>Diogo Moraes Antunes</RazaoSocialTomador>
                <TipoLogradouroTomador>Rua</TipoLogradouroTomador>
                <LogradouroTomador>Antonio Raposo</LogradouroTomador>
                <NumeroEnderecoTomador>300</NumeroEnderecoTomador>
                <TipoBairroTomador>Bairro</TipoBairroTomador>
                <BairroTomador>Cutim</BairroTomador>
                <CidadeTomador>0921</CidadeTomador>
                <CidadeTomadorDescricao>Sao Luis/MA</CidadeTomadorDescricao>
                <CEPTomador>65045215</CEPTomador>
                <EmailTomador>[email protected]</EmailTomador>
                <CodigoAtividade>851390000</CodigoAtividade>
                <CodigoServico>0801</CodigoServico>
                <AliquotaAtividade>2.0000</AliquotaAtividade>
                <TipoRecolhimento>A</TipoRecolhimento>
                <MunicipioPrestacao>0921</MunicipioPrestacao>
                <MunicipioPrestacaoDescricao>Sao Luis/MA</MunicipioPrestacaoDescricao>
                <Operacao>A</Operacao>
                <Tributacao>T</Tributacao>
                <ValorPIS>0.00</ValorPIS>
                <ValorCOFINS>0.00</ValorCOFINS>
                <ValorINSS>0.00</ValorINSS>
                <ValorIR>0.00</ValorIR>
                <ValorCSLL>0.00</ValorCSLL>
                <AliquotaPIS>0.0000</AliquotaPIS>
                <AliquotaCOFINS>0.0000</AliquotaCOFINS>
                <AliquotaINSS>0.0000</AliquotaINSS>
                <AliquotaIR>0.0000</AliquotaIR>
                <AliquotaCSLL>0.0000</AliquotaCSLL>
                <DescricaoRPS>Pagamento a Vista</DescricaoRPS>
                <DDDPrestador/>
                <TelefonePrestador/>
                <DDDTomador>67</DDDTomador>
                <TelefoneTomador>30261818</TelefoneTomador>
                <Itens>
                    <Item>
                        <DiscriminacaoServico>Teste</DiscriminacaoServico>
                        <Quantidade>1.0000</Quantidade>
                        <ValorUnitario>10.00</ValorUnitario>
                        <ValorTotal>10.00</ValorTotal>
                        <Tributavel>S</Tributavel>
                    </Item>
                </Itens>
            </RPS>
        </Lote>
    </ns1:ReqEnvioLoteRPS>

     

    E além disso o suporte da SEMFAZ disse que o a url de homologação é homo.stm.semfaz.saoluis.ma.gov.br e o de produção é stm.semfaz.saoluis.ma.gov.br.

    Ou seja, tá tudo errado no Cidade.ini segundo o pessoal da SEMFAZ. Sendo assim, alterei o arquivo Cidade.ini conforme descrito abaixo.

     

    
    Provedor=CTA
    NomeURL_H=homo.stm.semfaz.saoluis.ma.gov.br
    NomeURL_P=stm.semfaz.saoluis.ma.gov.br

     

    Dae rodando o sistema, o acbr me retornou uma mensagem em branco, sem dados, sem protocolo, sem nada.

    Utilizo o mesmo sistema para outra empresa ele envia normal usando certificado A1, este que está com erro estou usando certificado A3.

    O que pode ser?????

    boa noite amigo estou com a mesma resposta em branco vc conseguiu resolver e se possivel pode me informar como !

     

  3. 1 hora atrás, Italo Jurisato Junior disse:

    Bom dia Alexsandro,

    Muito obrigado pelos arquivos, ainda não consegui resolver o problema do erro 500.

    Verifica com o provedor se o RPS e o Lote devem ser assinados?

    Pois segundo os Schemas eles devem ser assinados e nesses exemplos não consta o grupo <Signature> que se refere a assinatura digital.

    vou verificar

     

  4. 3 horas atrás, Italo Jurisato Junior disse:

    Boa tarde Alexsandro,

    Favor atualizar os fontes, note que fiz uma alteração no arquivo Cidades.ini

    Utilize o programa exemplo do componente para realizar os testes.

    oi boa tarde @Italo Jurisato Junior erro que retornou foi o seguinte erro http://500

    indicando que pagina nao existe mas existe  https://catu.saatri.com.br/servicos/nfse.svc 

    existe segue fotoimage.thumb.png.fb8a0d74fd6f311b2e2046fb4d01d947.png

    informações contidas no site

    Você criou um serviço.

    Para testar esse serviço, você precisará criar um cliente e usá-lo para chamar o serviço. Você pode fazer isso usando a ferramenta svcutil.exe na linha de comando com a seguinte sintaxe:

     

    svcutil.exe https://catu.saatri.com.br/Servicos/nfse.svc?wsdl

    Você também pode acessar a descrição do serviço como um único arquivo:

    https://catu.saatri.com.br/Servicos/nfse.svc?singleWsdl

    Sem título.png

  5. 1 hora atrás, Italo Jurisato Junior disse:

    Boa tarde Alexsandro,

    Favor atualizar os fontes, note que fiz uma alteração no arquivo Cidades.ini

    Utilize o programa exemplo do componente para realizar os testes.

    opa, boa tarde  irei realizar os testes e dou um retorno ainda hoje

     

    • Curtir 1
  6. Em 15/03/2019 at 12:30, Daniel Simoes disse:

    @Alexsandro Lopes, somente agora consegui analisar a questão mais a fundo...

    Creio que há uma confusão nos parâmetros a serem enviados ao SAT / MFE... Veja o que diz a especificação do SAT:

    6.1.8.1. ConsultarNumeroSessao - Descrição e Parâmetros
    image.png

    Ou seja, o primeiro parâmetro, DEVE ser um novo número de Sessão aleatório... e não a Sessão que se deseja consultar (e que já é informada no 3o parâmetro)...

    Me parece que a implementação atual do ACBrSAT está correta... e portanto não apliquei as modificações sugeridas...

    OK, compreendo totalmente sua colocação  no entanto, no Ceara / MFe esta com essa divergência onde retorna o erro : sessao nao existe apos mudança erro foi sanado, foram realizados testes em diversos MFe's  não sei por qual rasão isso acontece com os equipamentos MFe's  mas desde já grato .

     

    - @Daniel Simoes  percebi que no caso do equipamentos mfe's se houver demora na resposta('Que esta constante em alguns equipamentos') e for consultada sessao pra recuperar cupom que isso acontece na rotina AcbrSat.pas não consigo devido a forma como esta , ocasionado o pulo do cupom.

     

     

      if (Resposta.numeroSessao <> numeroSessao) then
      begin
        if (Resposta.numeroSessao <> fsSessaoAVerificar) then
        begin
          if fsSessaoAVerificar = 0 then
            SessaoEnviada := numeroSessao
          else
            SessaoEnviada := fsSessaoAVerificar;
    
          AStr := Format('ERRO: Sessao retornada pelo SAT [%d], diferente da enviada [%d].',
                         [Resposta.numeroSessao, numeroSessao] );
          DoLog( '   '+AStr);
    
          if fsValidarNumeroSessaoResposta then    // Tenta se recuperar da resposta inválida ?
          begin
            Inc( fsErrosSessaoCount );
            if fsErrosSessaoCount > fsNumeroTentativasValidarSessao then
              raise EACBrSATErro.Create(AStr);
    
            AStr := Format('   Consultando Sessao [%d], tentativa: %d', [SessaoEnviada, fsErrosSessaoCount]);
            DoLog(AStr);
            ConsultarNumeroSessao(SessaoEnviada);
            Exit;
          end;
        end
        else
        begin
          if fsSessaoAVerificar > 0 then
            DoLog(Format('   Sessao [%d] recuperada com sucesso',[fsSessaoAVerificar]));
        end;
      end
      else
      begin
        if (Resposta.codigoDeRetorno = 11003) and  // 11003 = Sessão não existe
           (fsSessaoAVerificar > 0) and
           (fsErrosSessaoCount > 0) then
        begin
          raise EACBrSATErro.Create(Format('ERRO: SAT nao respondeu a sessao [%d]', [fsSessaoAVerificar] ));
        end;
      end;

     

  7. Precisei consultar uma sessão no mfe para trazer o xml do cupom e sempre me retomava  a resposta : sessão não existe.

    Analisando o código percebi que a função ACBrSAT1.ConsultarNumeroSessao(nSessao) gerava um novo numero de sessão fazendo

     assim com que a sessão que consultei deixasse de ser a ultima retornando a resposta :sessão não existe .

    Então fiz as mudanças necessárias para evitar um possível pulo do cupom.

    procedure IniciaComando(cUltimaSessao : Integer) ;//acresentei (cUltimaSessao : Integer)
    
    procedure TACBrSAT.IniciaComando(cUltimaSessao : Integer) ;
    var
      AStr : String ;
    begin
      VerificaInicializado;
      if fsAguardandoResposta then
         raise EACBrSATErro.CreateFmt( cACBrSATOcupadoException, [numeroSessao] ) ;
    
      fsSessaoAVerificar := 0;
    
      if cUltimaSessao=0 then //Acrescentei essa linha para saber se vai gerar uma nova sessao ou nao
        GerarnumeroSessao;
    
      fsRespostaComando := '';
      AStr := 'NumeroSessao: '+IntToStr(numeroSessao) ;
      if fsComandoLog <> '' then
         AStr := AStr + ' - Comando: '+fsComandoLog;
    
      DoLog( AStr );
      SetAguardandoResposta(True);
    end ;
    
    function TACBrSAT.ConsultarNumeroSessao(cNumeroDeSessao : Integer ) : String ;
    var
      SATResp: String;
    begin
      fsComandoLog := 'ConsultarNumeroSessao( '+IntToStr(cNumeroDeSessao)+' )';
      IniciaComando(cNumeroDeSessao);//nos demais fica IniciaComando(0);
     
      try
        fsSessaoAVerificar := cNumeroDeSessao;
    
        SATResp := '';
        if Assigned(fsOnConsultarNumeroSessao) then
          fsOnConsultarNumeroSessao(IntToStr(cNumeroDeSessao), SATResp);
    
        if EstaVazio(SATResp) then
          SATResp := fsSATClass.ConsultarNumeroSessao( cNumeroDeSessao );
      finally
        Result := FinalizaComando( SATResp );
      end;
    
      DecodificaRetorno6000;
      DecodificaRetorno7000;
    end ;

    segue arquivos modificados 

    ACBrSAT.pas ACBrSATMFe_integrador.pas

    • Curtir 1
  8. 4 horas atrás, Juliana Tamizou disse:

    Bom dia,

    Recomendo que veja o demo do ACBrSAT, uma vez que agora a utilização é parecida.

    Obs. Caso tenha novas dfvidas, por favor crie um tópico especifico.

    Att.

    boa tarde , ja o utilizo o componente a algum tempo e mesmo no demo não existe ainda nenhuma informação referente ao assunto sitador mesmo assim agradecido ..

    2 horas atrás, Daniel Simoes disse:

    O @André Ferreira de Moraes de morais, deve publicar um artigo sobre isso, ainda hoje... logo enviamos o Link...

    Bom tarde obrigado pelo esclarecimento, vou ler mais um pouco a respeito e juntar informações  ,tentar ver junto a Sefaz - CE  documento qualquer novidade abro um tópico referente ao assunto  

    • 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.