Ir para conteúdo
  • Cadastre-se

colmanetti

Membros Pro
  • Total de ítens

    101
  • Registro em

  • Última visita

Posts postados por colmanetti

  1. Não estou conseguindo compilar no trunk2. já fiz a atualização.

    Vários erros:  

    unit ACBrNFSeWebServices; erro na linha FPDFeOwner.SSL.UseCertificate := FPConfiguracoesNFSe.Geral.ConfigGeral.UseCertificado;

     

    Existe outra versão que consiga compilar junto com o trunk2?

     

    obrigado,

     

     

  2. PRIMEIRO: Parabéns pela mudança do Trunk2 ficou muito bom.

    Quando Crio o Bloco P mostra acess violation em:

    RegistroP030New   = Erro acess violation.

    Onde estou fazendo algo de errado?

    Se puderem me ajudar agradeço.

    ========================================================

    debugando Na Unit:ACBrECFBloco_P_Class.pas   

    FRegistroP001.RegistroP030   ==== nil  {deve ser por isto o access violation}

    Linha 200: se mudar não dá o erro: 

    function TBloco_P.RegistroP030New: TRegistroP030;
    begin
       //Result := FRegistroP001.RegistroP030.New;
       Result := RegistroP030.New;               {Ezequiel alterou esta linha não existia}
    end;

     

    ==========================================================

    Abaixo Meu Código a Sequencia de Criação do Bloco P

    TP200,TP030,TP300 = Dataset´s

    ==========================================================

      with ACBrSPEDECF1.Bloco_P do
      begin
        with RegistroP001New do
        begin
          IND_DAD:=idComDados;
          if TP200.IsEmpty  then
          begin
            IND_DAD:=idSemDados;
            exit;
          end;
        end;
        TP030.First;
        while not TP030.Eof do
        begin
          with RegistroP030New do                                          <=========ERRO AQUI=========
          begin
            DT_INI:=TP030DT_INI.AsDateTime;
            DT_FIN:=TP030DT_FIM.AsDateTime;
            PER_APUR:=TP030PER_APUR.AsString;
            TP200.First;
            while not TP200.Eof do
            begin
              with RegistroP200New do
              begin
                CODIGO   :=TP200CODIGO.AsString;
                DESCRICAO:=TP200DESCRICAO.AsString;
                VALOR    :=TP200VALOR.AsCurrency;
              end;

     

     

     

     

  3. Na unit ACBrGNREWebServices.pas  na linha 658 está causando erro.

     

     

     {$IFDEF SoapHTTP}
            Stream := TMemoryStream.Create;
            StrStream := TStringStream.Create('');
            try
              ReqResp.Execute(Acao.Text, Stream);  // Dispara exceptions no caso de erro
              StrStream.CopyFrom(Stream, 0);
              FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
            finally
              StrStream.Free;
              Stream.Free;
            end;
          {$ELSE}
            ReqResp.Data := Acao.Text;
            FRetornoWS := ReqResp.Execute;
          {$ENDIF}
          FRetWS     := SeparaDados( FRetornoWS, 'processarResponse');
     
          //StrStream.Free;   *********LINHA COM ERRO
     

     

  4. ao meu ver deve ter o mesmo nome o xml e o PDF e assim mesmo não está ocorrendo.

     

    exemplo XML=351304094197130001695500200000000910000000901101103-procEventoNFe.xml

     

    o PDF não tem o mesmo nome e esta somando o TipoEvento no inicio e final do nome.

     

    como está a linha 294:

     

        NomeArq := TACBrNFe(ACBrNFe).EventoNFe.Evento[0].InfEvento.TipoEvento;
        NomeArq := NomeArq + TACBrNFe(ACBrNFe).EventoNFe.Evento[0].InfEvento.chNFe;
     
        dmDanfe.frxPDFExport.FileName := PathWithDelim(Self.PathPDF) + NomeArq + 'evento.pdf';
  5. Italo,

    Consegui criar um outro componente copia do NFSE.

    Para o PROVEDOR SMARAPD

    Estou gerando o XML ja com assinatura e pronto para envio.

    Tenho 2 duvidas:

    1- O provedor pode ser tratado como os outros que são gerados com case é possível integrar tudo em componente unico, após eu testar e funcionar?

    2- Para envio onde fica (qual unit) a URL de envio, resposta... etc. dos webservices?

    obrigado,

    Ezequiel

  6. Tenho que implementar um provedor NOVO, quais units tenho que criar.

    Se tiver um esqueleto para eu trabalhar vai ficar mais facil.

    Ja implementei uma prefeitura de Ribeirao Preto/SP que ja existe funciona bem.

    Mas a outra de Sertaozinho/SP não tem o provedor.

    Obrigado.

  7. Bom dia.

    No manual de Integração Mostra:

    Código de identificação do regime especial de tributação

    1 – Microempresa municipal

    2 - Estimativa

    3 – Sociedade de profissionais

    4 – Cooperativa

    5 - Microempresário Individual (MEI)

    6 - Microempresário e Empresa de Pequeno Porte (ME EPP)

    MAS no site da Prefeitura de Ribeirao Preto-SP tem a opção 0(zero)=Nenhuma para o Regime Especial de Tributação.

    O Contador da Empresa afirma que deve ser 0(zero) é o correto.

    Se passo com a opção zero para gerar a NFE mostra a mensagem de valor invalido.

    como devo proceder?

    Obrigado.

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

The popup will be closed in 10 segundos...