Ir para conteúdo
  • Cadastre-se

centuryinf

Membros
  • Total de ítens

    428
  • Registro em

  • Última visita

  • Days Won

    2

Posts postados por centuryinf

  1. Boa tarde

    Desculpem mas procurei por topicos e nao encontrei nada que me ajuda-se

    tenho 2 clientes que trabalham com

    quantidade        3 casas decimais

    valor unitario     6 casas decimais

    valor total          4 casas decimais

    estou com o seguinte problema,  informo   um produto      qtde = 2000.000          vl. unitario= 0,033040        total prod = 66,08

    quando gero o xml o valor unitario do xml fica da seguinte forma  0,033000  , ai rejeita o calculo, logo se multiplicar este valor  o total seria,  66,00  

    mas nao posso arredondar , pois os clientes nao aceitam, pois trabalham com grandes quantidades e a diferença total da nota chega ate a 300,00 reais....

    alguem tem alguma sugetao,    obs. este problema começou ocorrer agora depois de ter instalado a versao 4.0 da Nfe

     

  2. Bom dia Italo, aproveitando o topico, notei o seguinte erro:  envio a nota e imprimi normalmente

    mas se eu tentar re-imprimir  surge o erro  ""2,79" is not valid integer value.

    se eu zerar a aliquota do iss no componente, re-imprime normalmente

    provedor pronim   cidade de mirassol-sp

     

     

  3. Boa tarde, procurei no site em varios topicos e nao encontrei resposta

    testei a nfe nfce com certificado a1 e deu tudo certo

    nfe   homologacao ok

            producao  ok

    nfce  homologacao ok

             producao  intaivo ou inoperante erro http:404

     

    estou tentando agora com o certicado A3

    executo status do serviço, pede a senha do pin normalmente, mas logo em seguida

    retorna inativo  erro:=http 404

    tanto em homologacao como em producao

    ja tentei com openssl  e capicom , wincrypt

     1.2  e 1.1

    alguem tem alguma configuracao valida que possa me dar uma luz...

    obrigado

     

  4. Boa tarde

    Hoje me deparei com algo estranho

     

    emiti uma nota na versao 4 em homologaçao

    consultei tudo normal,  depois por um erro meu

    mudei para producao, e consultei novamente a nota de homologacao

    e rretornou a nota autorizada, mas se foi emitida em homologacao,

    como pode retornar da base de dados de producao...

    Agora estou tentando cancelar a nota em homologacao, mas so me retorna

    consumo indevido o dia inteiro,

    nao entendi. agora estou preocupado se esta nota realmente esta na sefaz em modo de producao..

    segue xml anexo.

    35180100721388000110550010000076871000076876-nfe.xml

  5. Boa tarde

    após quebrar a cabeça consegui o funcionamento com certificado A1

    provedor Ginfes

    Configuracoes.webservices.SSLtype = LT_All
    Configuracoes.Geral.SSLLib = libcapicomdelphisoap
    Configuracoes.Geral.SSLCryptLib = cryCapicom
    Configuracoes.Geral.SSLHttpLib = httpWinINet
    Configuracoes.Geral.SSLXmlSignLib = xsXmlCapicom

  6. Bom dia, nao sei se estou no topico errado

    mas estou com o  mesmo problema na instalacao do acbr_nfedanfeRL.dpk

    ja atualizei mas nao instala nem manualmente e nem pelo instalador

    poderia ser algum erro no meu delphi 2010, pois é o unico pacote que nao instala..

    Obrigado

     

  7. Ola José

    Tentei utilizar da forma que voce me mostrou,  o que ocorre é que tenho varios bancos na mesma empresa, ou seja gero 3 arquivos de remessa de cada vez, 

    fiz o seguinte, iformei ao componenete

    ex:  acbrboleto1.dirarqremessa:='f:\sistema\remessa\banespa';

            acbrboleto1.dirarqremessa:='f:\sistema\remessa\Brasil';

    para que ao gerar cada banco, em pastas separadas,   mas o componente nao respeita e grava

    os arquivos sempre na pasta f:\sistema\remessa       misturando os arquivos dos outros bancos

    e ja com a mudanca que havia mencionado acima, cria-va os arquivos seprados

     

  8. Sugestáo

    Implementei no arquivo AcbrBoleto.pas uma forma de o usuário determinar onde gerar os arquivos

    pena que toda vez que atualizo o Acbr, tenho que alterar este fonte

    function GerarRemessa( NumeroRemessa : Integer; destino : STRING ) : String;     <<<<<<<---------------------

    ////chamada

       ACBrBoleto1.GerarRemessa( strtoint(edlote.text),editDestino.txt );           <<<<<<<---------------------     //EX:       f:\remessa

    Function TACBrBoleto.GerarRemessa( NumeroRemessa : Integer; destino : STRING ) : String;         <<<<<<<---------------------
    var
       SLRemessa   : TStringList;
       ContTitulos : Integer;
       NomeArq     : String ;
    begin
       Result:= '';
       if ListadeBoletos.Count < 1 then
          raise Exception.Create(ACBrStr('Lista de Boletos está vazia'));

       ChecarDadosObrigatorios;
        dirarqremessa:=dirarqremessa+destino;                  <<<<<<<---------------------
       if not DirectoryExists( DirArqRemessa ) then                                         
          ForceDirectories( DirArqRemessa );

       if not DirectoryExists( DirArqRemessa ) then
          raise Exception.Create( ACBrStr('Diretório inválido:' + sLineBreak + DirArqRemessa) );

       if ( NomeArqRemessa = '' ) then
          NomeArq := Banco.CalcularNomeArquivoRemessa
       else
          NomeArq := DirArqRemessa + PathDelim +NomeArqRemessa;

       SLRemessa := TStringList.Create;
       try
          if LayoutRemessa =c400 then
          begin
             Banco.GerarRegistroHeader400( NumeroRemessa, SLRemessa );

             for ContTitulos:= 0 to ListadeBoletos.Count-1 do
                Banco.GerarRegistroTransacao400( ListadeBoletos[ContTitulos], SLRemessa);

             Banco.GerarRegistroTrailler400( SLRemessa );

          end
          else
          begin
            SLRemessa.Add( Banco.GerarRegistroHeader240( NumeroRemessa ) );

             for ContTitulos:= 0 to ListadeBoletos.Count-1 do
                 SLRemessa.Add( Banco.GerarRegistroTransacao240( ListadeBoletos[ContTitulos] ) );

             SLRemessa.Add( Banco.GerarRegistroTrailler240( SLRemessa ) );
          end;
          SLRemessa.SaveToFile(NomeArq );
           Result:= NomeArq;
       finally
          SLRemessa.Free;
       end;
    end;
     

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