Ir para conteúdo
  • Cadastre-se

centuryinf

Membros
  • Total de ítens

    437
  • Registro em

  • Última visita

  • Days Won

    2

Posts postados por centuryinf

  1. Boa tarde Italo,

     

    achei este topico nas pesquisas, estou iniciando um sistema em Cedral-SP  , me passsaram a Ginfes,  mas de acordo com eles , a Ginfes nao atende Cedral-SP  e neste topico foi mencionado o FIORILLI, tentei enviar um teste , mas na pasta de schemas do acbr, o provedor fiorilli esta sem os schemas, onde consigo estes esquemas??

    meu acbr esta atualizado..

    agradeço antecipadamente

     

  2. Bom dia amigos

     

    um cliente meu, pulou a numeraçao de 132.000 notas

    segundo o contador ,  a SEFAZ -SP autorizou a inutilizacao, mas quando

    tento faze-la da erro de limite de quantidade excedido.

    nao consegui achar nada a respeito disto, alguem sabe me informar a quantidade de notas

    que posso inutilizar de cada vez..

    obrigado

     

  3. Não sei se tem a ver com vcs, mas tive este problema, e era porque eu nao tinha

    alimentado o componente com qual tipo de danfe iria utilizar, inclusive tambem o path no danfe

    no caso do fastreport

     

  4. Bom dia

    eu faço da seguinte forma ao criar o form

     LerConfiguracao;

    ex: edtemailpath.text:='c:\seu sistema';

     edtpdf.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Pdf';
     edtNFE.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\NFE';
     edtinu.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Inu';
     edteve.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\eventos'; //eve
     edtman.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Eventos\confirmacao';
     edtcce.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Cce';
     edtdepec.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Dpec';
     edtpathlogs.text:=edtnfe.text;

    Dir := trim(edtpdf.Text);
    if not DirectoryExists(Dir) then
      BEGIN
         ForceDirectories(Dir);
      END;

         GravarConfiguracao;

    ///gravo os paths no INI a partir dos edits
         LerConfiguracao;
    //carrego os edits a partir do ini

    Espero que ajude

     

  5. Bom dia

     

    utilizo assim

         table3CHAVE.Value:=trim(copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml');
         TABLE3NRPROT.value:=ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt;
         TABLE3recibo.value:=ACBrNFe1.WebServices.Retorno.NFeRetorno.nRec;
     

     

    Espero que ajude

     

  6. Bom dia Regys,

    sim eu utilizo um arquivo de configurações .INI como no exemplo do acbr, logo que abro a aplicação passo os parametros ao componente,

    tentei até mesmo na hora de gerar a NFE informando novamente a pasta, mas não resolveu, da mesma forma faço na NFe e não da problemas,

    apenas na NFCe. ja tentei assim

    acbrnfe1.configuracoes.arquivos.pathschemas:='c:\centcons\schemas\ve310';

    também não acatou...

    criei um display para ver se o componente estava recebendo o path, e me mostrou o path normal..

    utilizei os esquemas da pasta ...\exemplos\schemas\nfe  como o Ítalo citou em outro topico

    o erro ocorre no fonte AcbrDfeSSL na linha 343

    function TDFeSSL.Validar(const ConteudoXML: String; ArqSchema: String;
      out MsgErro: String): Boolean;
    begin
      if EstaVazio(ArqSchema) then
        raise EACBrDFeException.Create('Arquivo de Schema não especificado');

    utilizo capicom, delphi7 e windows7 profissional original

     

  7. Bom dia,

    Bem, vai ai 

    acesse o site da sefaz /SAT

    menu-->  acesso ao sistema de retaguarda-->contribuinte/desenvolvedor--->acesso ao acgrSat

    1- entre em contribuinte e  credencie a empresa com certificado digital proprio

    vincular o sistema para uso próprio

    2 - entre em software house  e vincule a softhouse com o cnpj e certificado da propria empresa citando que o sistema e de uso proprio

    após isto vá em

    ---> Gerenciar cód. de segurança

    gere  o codigo CSC

    imprima tudo que puder, pois alguns dados são solicitados na ativação do SAT

    a partir do proprio programa que acompanha o SAT, efetue o credenciamento informando os dados que voce imprimiu

    RESUMINDO:  a ativação é feita da mesma forma que se fosse uma softhouse, so muda ao cadastrar o sistema, informando

    o que e de uso proprio, o cnpj e certificado da propria empresa.   Note que com o certificado da SEFAZ, eu tentei e não funcionou.

    Detalhe: optamos pela Nfce, por ser mais simples no momento da emissão, mas mesmo assim tivemos que ativar o sat, para

    efeito de contingencia. (estamos falando do abmbiente de Produção).

    baixe o manual passo a passo de ativação do SAT na sefaz.

    espero que ajude..

     

  8. Boa tarde,

    Hoje migrei  a  NFCe para o trunk 2, mas estou com o problema do erro:

    Arquivo de schema não informado.

    ja defini no componente,  informei em tempo de execução e nada, da o erro e não gera o xml.

    EX: acbrnfe1.Configuracoes.arquivos.Pathschemas:=edtpathschemas.Text;

    Alguém tem alguma sugestão.

    Obrigado

     

    Desculpem fiz o post acima  no local errado

     

  9. Bom dia,

    não achei nenhum tópico ref. a este erro não mudei nada no sistema, e hoje ao emitir a primeira nota 

    para Ginfes, apos digitar a senha do certificado A3 retorna o seguinte erro.

    Não foi possivela cessar a CRL do certificado.

    Já tentei todo tipo de configuração e não resolveu.

    Alguem já passou por issso

     

     

  10. Bom dia, Wilson_jr

    Apos analizar o programa exemplo da Nfe, e o arquivo .INI  ,

    verifiquei que havido sido implementado alguns atributos no

    componente, os quais eu não estava configurando corretamente,

    após fazer estas correções, resolvi varios erros que estavam dando

    no meu sistema.

    EX: de erros

    Numero de copias

    não existem mais arquivos

    etc...

     

  11. Bom dia,

    Desculpem se dupliquei o tópico, mas efetuando pesquisas ha uma semana e tudo

    que achei ref. ao assunto não resolveu meu problema.

    formatei o PC, re-instalei win,delphhi7 ,acbr  Trunk2  e ao utilizar o fast ou fortsreport da nfe, não respeita o nro de copias

    esta duplicando, se informo 1 imprime 2, se inf. 2 imprime 4.. etc...

    tentei usar um printdialogs mas não respeita também o nro de copias.

    informei em tempo de execução, mas também nao funcionou.

    utilei o preview , mas também não funcionou

    ex:

    if (edtimp.text='1') then
    begin
      //FORTSREPORT
     ACBrNFe1.DANFE:=ACBrNFEDANFERL1;
    ACBrNFEDANFERL1.NUMCopiAs := strtoint(nrcopias.TEXT);
    ACBrNFEDANFERL1.LOGO := EDTLOGOMARCA.TEXT;
    ACBrNFEDANFERL1.PATHPDF := EDTPDF.TEXT;
    end
    else
    begin
    //FASTREPORT
     ACBrNFe1.DANFE:=ACBrNFEDANFEFR1;
    ACBrNFEDANFEFR1.dmDanfe.frxReport.PrintOptions.Copies := strtoint(nrcopias.TEXT);
    ACBrNFEDANFEFR1.dmDanfe.frxReport.PrintOptions.ShowDialog := True;
    ACBrNFEDANFEFR1.FastFile := ExtractFileDir(application.ExeName) + '\Report\DANFERETRATONOVO.fr3';
    ACBrNFEDANFEFR1.LOGO := EDTLOGOMARCA.TEXT;
    ACBrNFEDANFEFR1.PATHPDF := EDTPDF.TEXT;
    ACBrNFEDANFEFR1.NUMCOPIAS := strtoint(nrcopias.TEXT);
    end;

    Alguem ja passou por  isto ???

     

  12. Boa Tarde,

    apos varios testes com a partilha de icms, me deparei com um problema

    utilizei as valores mostrados na nt 2015;003 v1.40 

    formula

                Bsorig         :=(valorproduto+frete)-desconto+ipi;
                Basedest       :=BsOrig;
                PicmSufDest    :=18.00-2.00;  //2 fcp
                PicmsInter     :=12.00; //% aliquota destino (normal)
                PicmsinterPart := 40.00;             //40% 2016, 60% 2017  , 80% 2018  ,% 100 2019
                bsorig         :=bsorig/(1-(picmsinter/100));    //valor icms remetente
                Basedest       :=Basedest/(1-(xperc/100));  //base destino
                VbcUfDest      :=Basedest;               //base destino
                Vfcpufdest     :=(VbcUfDest*Pfcpufdest)/100;        // valor icms pobreza
                VicmsUFDest    :=((vbcufDest*Picmsufdest)/100);  //icms destino                  //valor icms destino
                VicmsUFRemet   :=(bsorig*Picmsinter)/100;  //valor icms remetente

    resultado

    -<ICMSUFDest>

    <vBCUFDest>1219.51</vBCUFDest>

    <pFCPUFDest>2.0000</pFCPUFDest>

    <pICMSUFDest>16.0000</pICMSUFDest>

    <pICMSInter>12.00</pICMSInter>

    <pICMSInterPart>40.0000</pICMSInterPart>

    <vFCPUFDest>24.39</vFCPUFDest>

    <vICMSUFDest>195.12</vICMSUFDest>

    <vICMSUFRemet>136.36</vICMSUFRemet>

    </ICMSUFDest>

    DIFAL = R$ 83,15 JA SOMADO O FCP

    os cantadores estão contestando dizendo que o site abaixo utiliza outra formula e disponibilizou um simulador o

    qual da diferença do calculo anterior

    http://www.asseinfo.com.br/blog/difal-diferencial-de-aliquota-icms/

    formula

                Bsorig         :=(valorproduto+frete)-desconto+ipi;
                Basedest       :=BsOrig;
                PicmSufDest    :=18.00-2.00;  //2 fcp
                PicmsInter     :=12.00; //% aliquota destino (normal)
                PicmsinterPart := 40.00;             //40% 2016, 60% 2017  , 80% 2018  ,% 100 2019
                VbcUfDest      :=Basedest;               //base destino
                Vfcpufdest     :=(VbcUfDest*(Pfcpufdest/100));        // valor icms pobreza
                xdifal         :=bsorig*((xperc-picmsinter)/100);
                VicmsUFDest    :=xdifal*(40.00/100);  //icms destino                  //valor icms destino
                VicmsUFRemet   :=xdifal*(60.00/100);;  //valor icms remetente
                IcmPobre:=icmpobre+Vfcpufdest;
                Icmdest :=icmdest +VIcmsUFdest;      //totais
                Icmremet:=icmremet+VIcmsUFremet;
     

    resultado

    -<ICMSUFDest>

    <vBCUFDest>1000.00</vBCUFDest>

    <pFCPUFDest>2.0000</pFCPUFDest>

    <pICMSUFDest>16.0000</pICMSUFDest>

    <pICMSInter>12.00</pICMSInter>

    <pICMSInterPart>40.0000</pICMSInterPart>

    <vFCPUFDest>20.00</vFCPUFDest>

    <vICMSUFDest>24.00</vICMSUFDest>

    <vICMSUFRemet>36.00</vICMSUFRemet>

    </ICMSUFDest>

    VALOR DIFAL  R$ 44,00  JA SOMADO O FCP

     

    alguém tem alguma sugestão

     

  13. Ola

     

    eu nao uso o preview, portanto defino o s paths a partir de edit´s

    //defino o path

     edtpdf.text:= ExtractFileDir(application.ExeName) +'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Pdf';

    ex: no fastreport

    ACBrNFEDANFEFR1.FastFile := ExtractFileDir(application.ExeName) + '\Report\DANFERETRATONOVO.fr3';
    ACBrNFEDANFEFR1.LOGO := EDTLOGOMARCA.TEXT;
    ACBrNFEDANFEFR1.PATHPDF := EDTPDF.TEXT;    <<<-------------------------
    PRINTDIALOG1.EXECUTE;
        ACBrNFe1.NotasFiscais.Imprimir;
        ACBrNFe1.NotasFiscais.ImprimirPDF;
     

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