Ir para conteúdo
  • Cadastre-se

Valmir Gomes Ribeiro

Membros
  • Total de ítens

    71
  • Registro em

  • Última visita

Posts postados por Valmir Gomes Ribeiro

  1. 8 horas atrás, Juliomar Marchetti disse:

    Sim continua a funcionar no Delphi 7 e vai seguir por muito tempo

    Fiz a atualização do componente,  (obrigado), porem a minha etiqueta a margem dela continua saindo errado mandando a foto em anexo para voce olhar, obrigado antecipadamente, sim a margem esquerda esta 0.

    foto1.jpeg

    foto2.jpeg

  2. 15 horas atrás, Juliana Tamizou disse:

    Boa tarde.

    Observe como é feito no demo.

    Att.

    bom dia, eu vi, so uma coisa, o acbr ainda compila para o delphi 7, pois na versao que tenho não tem a propriedade margem esquerda, se ele ainda compila resolvido o problema, caso ele não compile mais tem o acbretq separado ?

     


  3.   // acertar quebras de linhas e abertura e fechamento da lista de parametros
      ParamAdic := StringReplace(Trim(ParametrosAdicionais.Text), sLineBreak, ';', [rfReplaceAll]);
      ParamAdic := '['+ ParamAdic + ']';

      if NaoEstaVazio(CNPJEstabelecimento) and NaoEstaVazio(CNPJSoftwareHouse) then
         ParamAdic := ParamAdic + '[ParmsClient=1='+CNPJEstabelecimento+';2='+CNPJSoftwareHouse+']';

     

    debuguei e vi esta linha acho que é neste

      ParamAdic := '['+ ParamAdic + ']'; que ta gerando seria isto ?

     

  4. Bom dia não fiz nenhuma mudança no meu codigo e agora esta dando  Falha no reconhecimento da autoria ou da integridade do arquivo digital

    ja atualizei o acbr e os schemas, e não mudei nada no codigo.

  5. Fast report 

     

     

     

    Quanto a homologação dos boletos, precisaremos ajustar os pontos abaixo:

    RECIBO DO PAGADOR

    Informar o endereço do cedente.  

    FICHA DE COMPENSAÇÃO

    Local de Pagamento – alterar para a expressão “PREFERENCIALMENTE NAS CASAS LOTÉRICAS ATÉ O VALOR LIMITE”.

    Informar o endereço do cedente. 

    Alterar na 1ª linha do campo Instruções a expressão para “Texto de Responsabilidade do Beneficiário ou Cedente”.

    Alterar a expressão “Pagador/Avalista” para “Sacador/Avalista”.

    Alterar o Campo ”(+)Mora/Multa” para “(+)Mora/Multa/Juros”

     

     

    este do texto de responsabilidade do beneficiário ou cedente não consegui nenhum que tenha isso

  6. existe algum boleto ja com todas estas caracteristicas no acbrboleto, 

     

    sacador/avalista, endereco do cedente, mora/multa/juros e texto de responsabilidade do beneficiario ou cedente.

     

    por encontrei um mas esta ultima opção de texto de responsabilidade do benefciario ou cedente não esta assim e a caixa ela implica com isso.

  7. nesta rotina abaixo

      // XML já deve estar em UTF8, para poder ser assinado //
      XMLUTF8 := ConverteXMLtoUTF8(XMLStr);

      with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do
      begin
        FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'NFe', 'infNFe');
        // SSL.Assinar() sempre responde em UTF8...
        FXMLOriginal := FXMLAssinado;

        Leitor := TLeitor.Create;
        try
          leitor.Grupo := FXMLAssinado;
          NFe.signature.URI := Leitor.rAtributo('Reference URI=');
          NFe.signature.DigestValue := Leitor.rCampo(tcStr, 'DigestValue');
          NFe.signature.SignatureValue := Leitor.rCampo(tcStr, 'SignatureValue');
          NFe.signature.X509Certificate := Leitor.rCampo(tcStr, 'X509Certificate');
        finally
          Leitor.Free;
        end;

        // Se for NFCe, deve gera o QR-Code para adicionar no XML após ter a
        // assinatura, e antes de ser salvo.
        // Homologação: 01/10/2015
        // Produção: 03/11/2015

        if (NFe.Ide.modelo = 65) then
        begin
          with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do
          begin
            NFe.infNFeSupl.qrCode := GetURLQRCode(NFe.Ide.cUF, NFe.Ide.tpAmb,
                                      onlyNumber(NFe.infNFe.ID),
                                      trim(IfThen(NFe.Dest.idEstrangeiro <> '', NFe.Dest.idEstrangeiro, NFe.Dest.CNPJCPF)),
                                      NFe.Ide.dEmi, NFe.Total.ICMSTot.vNF,
                                      NFe.Total.ICMSTot.vICMS, NFe.signature.DigestValue,
                                      NFe.infNFe.Versao);

            if NFe.infNFe.Versao >= 4 then
              NFe.infNFeSupl.urlChave := GetURLConsultaNFCe(NFe.Ide.cUF, NFe.Ide.tpAmb, NFe.infNFe.Versao);

            GerarXML;
          end;
        end;

        if Configuracoes.Arquivos.Salvar and
           (not Configuracoes.Arquivos.SalvarApenasNFeProcessadas) then
        begin
          if NaoEstaVazio(NomeArq) then
            Gravar(NomeArq, FXMLAssinado)
          else
            Gravar(CalcularNomeArquivoCompleto(), FXMLAssinado);
        end;
      end;

    eu debuguei e vi que ate onde ta em negrito esta variavel FXMLAssinado esta com o xml la, depois que chega no FXMLAssinado ta em branco ai so grava no arquivo  <?xml version="1.0" encoding="UTF-8"?>

     

  8. Grande Juliomar, agora de cabelo curto, irmão ver bem, não mudei nada o meu programa só fiz atualizar o acbr, a rotina que tenho é bem simples, tipo

          try
           FDataModule.ACBrNFe.NotasFiscais[0].NFe.Ide.dSaiEnt := Now;
           FDataModule.ACBrNFe.NotasFiscais[0].NFe.Ide.hSaiEnt := Now;
           FDataModule.ACBrNFe.NotasFiscais[0].NFe.Ide.dEmi    := Now;

           fCaixa.labelMensagens.Caption     := 'Gerando Nfc-e...';
           Application.ProcessMessages;
           FDataModule.ACBrNFe.NotasFiscais.GerarNFe;

           fCaixa.labelMensagens.Caption     := 'Assinando Nfc-e...';
           Application.ProcessMessages;
           FDataModule.ACBrNFe.NotasFiscais.Assinar;

           fCaixa.labelMensagens.Caption     := 'Validando Nfc-e...';
           Application.ProcessMessages;
           FDataModule.ACBrNFe.NotasFiscais.Validar;

           fCaixa.labelMensagens.Caption     := 'Enviando Nfc-e...';
           Application.ProcessMessages;
           if FDataModule.ACBrNFe.Enviar(1,true,true) then

     

    ja debuguei e no gerarnfe, ta tudo na memoria, quando ele assina que volta para o xmlassinado fica somente esta duas tags

     

    outra amigo, eu pego agora o mesmo programa que tava funcioando, so faco recompilar e dar este erro.

    • Curtir 1
  9. Bom Dia, sobre o cancelamento descobri junto com o pessoal do desenvolvimento da getcard, existe uma opção no gerenciador padrão deles que faz com que a confirmação seja confirmada ou fique pendente, to mandando a foto anexo, com ela desmarcada o acbr consegue fazer o NCN normalmente, agradecer a atenção a todos e deixar aqui por que acredito que outros sistemas  também tenham este problema e desenvolveram alguma rotina.

    configuracao.jpg

    • Curtir 2
    • Obrigado 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.

The popup will be closed in 10 segundos...