ricardomendes

14 Maio, 2011

Bom dia Juliana...

Eu sei que codigo do cedente e numero da nota estão no boleto...

É que hj nos boletos que gero eu coloco informações adicionais abaixo das mensagens que o caixa precisa saber...

Essas informações é mais para meus clientes saberem como originou o boleto e demais controle...

Não sei se é possivel fazer isso no AcbrBoleto...

14 Maio, 2011

Desculpe msnigres ...mas sua mensagem ficou sem identificação.

Gostaria de tirar a seguinte duvida contigo sobre o seu metodo de escolha de CFOP.

Como vc gerencia o CFOP por UF? O CFOP é produto a produto e não mais nota a nota!!

pois por ex:

A venda pra dentro de SC determindo produto, por ex suplemento alimentar é ST ja por PR, nao é, porem pro RS tb é ST.

No caso de venda Dentro do Estado, o CFOP vai comecar com 5 pra fora, inicia com 6

porem pra UF com ST, o CFOP é diferente pra venda sem ST.

eu ja vi algo mais sinistro ainda

pra cada tipo de nota

o sistema solicitava q se informasse o CFOP

pior ainda... posso vender pra outro estado um prod com ST, vamos supor 6405

mas se o cliente for isento, ou consumidor final... ja nao vai ser ST.

Desculpe as duvidas....

14 Maio, 2011

Gostaria de ver com o pessoal que utiliza o AcbrBoleto o seguinte.

Hj eu tenho alguns bancos homologados no meu sistema...

E tenhos alguns campos que são para controle...tipo codigo do cliente, codigo do representante, codigo da nota que gerou o boleto e assim por diante.

Existe essa opção no AcbrBoleto ou é algo ainda a ser implementado.

Fico no aguardo

13 Maio, 2011

Se vc atualizou seu acbr...isso foi implementado a ligação dos componentes.

11 Maio, 2011

Boa tarde a todos...

Gostaria de saber como os nobres colegas controlam a liberação de usuario dentro do sistema.

Eu sei que tem diversas formas e assim por diante...

Mas vamos ao cenário para melhor entendimento:

Usuario acessa o sistema, monto o menu dinamico de acordo com as liberações de tela que ele tem acesso.

Ele possui acesso ao cadastrar um cliente...até tudo bem...

Mas agora que vem as duvidas...

Na tela de cadastro tem campos que ele não pode ver, pois contem valores. Tem campos que ele pode ver, porem não pode mexer. Tem campo que ele pode ver e mexer.

Como vcs estão fazendo esse tipo de controle....

Além disso ele pode ter acesso a tela de cadastro de cliente, porem tem campos que ele não pode ver, mesmo em modo de consulta.

Gostaria de ver uma melhor solução para poder gerenciar tudo isso...

Pois alem de gerenciar os menus que ele pode ou não ter acesso, preciso gerenciar as informações internas de cada tela.

Fico no aguardo

11 Maio, 2011

Durante o desenvolvimento vc pode utilizar o emulador

Mas antes de homologar vc vai precisar gerar todos os comprovantes em uma ecf fiscal.

Alem da bematech existe outros emuladores que vc pode usar tbem

10 Maio, 2011

desculpe a pergunta...mas vc chegou a programar o evento correpondente no componente acbr?

se não me engano isso é tratado direto no componente

10 Maio, 2011

Parabens Moacir.

Anexe as units alteradas aqui mesmo no forum compactadas que o pessoal utiliza um programa para verificar as suas modificações e depois sobre para todos os outros usuário.

10 Maio, 2011

Bom dia

Não sei se vai ajudar essa informação....mas tivemos problemas aqui na geração dos arquivos do santander justamente com essa parte de layout de boleto e arquivo...

O fato é que hj possuem tres layouts diferentes para o santander...

Santander - Banespa (Codigo do Banco = 33);

Santander - Real (Codigo do Banco = 356);

Santander - Santader (Codigo do Banco = 353);

É interessante verificar qual é o layout a ser adotado em cada cliente...

Não é uma ajuda, mas talvez sirva..

9 Maio, 2011

Obrigado novamente Italo.

Agora vou correr atras é de pq da os erros de instalação para os dois componentes... tanto o Cte quanto o Danfe...

Os demais instalei normalmente...so esses dois que estão me dando trabalho....

Mas isso é assunto para outro topico...

9 Maio, 2011

Desculpe o erro nos componentes.... mas é que a nomeclatura é bem semelhante...

ACBrCTeDacteFRpkg - Esse é para fast report?

Mensagem Original -> No que diz respeito a NFe existe um pacote de instalação do DANFe para o Fortes Reports chamado: ACBrNFeDanfeFRpkg

ACBrNFeDanfeFRpkg - Esse é para Fortes report?

Eu tentei novamente instalar os componentes, mas da erro de vclimg e se removo e mando compilar da erro nos frx14...

Obrigado pela resposta Italo.

PS.: Utilizo D7

9 Maio, 2011

Bom dia a Todos.

Gostaria apenas de tirar uma duvida....desculpe se postei em lugar errado.

Eu atualizo sempre o acbr e a minha duvida é a seguinte...

Não consigo instalar os componentes do CTe e NFe para Fortes, ja o Boleto para Fortes instala sem problemas.

Ja pesquisei no forum e não consegui entender porque os dois componentes eu não consigo.

Imagino que as diretivas de compilações estão diferentes entres os 3 componentes.

Não estou critiando quem fez, mas sim a minha dificuldade de saber como proceder para instala-los da mesma forma.

Obrigado

6 Maio, 2011

Blz Fernando...

Essa parte não é facil mesmo...burocracia é o que mais temos que enfrentar.

Mas vamos vendo conforme surgir novidades vamos nos informando pelo forum.

PS.. Eu e o Fernando não somos parentes...kkkk

6 Maio, 2011

Eu andei vendo o seguinte, como eu tenho certificado de alguns clientes quando eu acessei o link tive acesso normalmente...

Acho que se fosse virar um componente o acesso seria baseado ao da NFe que precisa ter um certificado...

Desculpe se estiver errado.

4 Maio, 2011

Fernando, o que eu te falei foi o seguinte

http://www.consultacpf.com/ nesses site vc tem como fazer a integração que vc falou ..mas usando consultas ao banco de dados da serasa.

Eu ja fiz isso em outra empresa que trabalhei e funcionava perfeitamente...digitava o cpf ou cnpj e o sistema preenchia os dados disponiveis...

Mas agora sobre essa parte da receita eu vou analisar ainda...

3 Maio, 2011

Isso funciona se vc tiver um convenio com o pessoal do serasa express....ou cheque express tbem...

O funcionamento é como se fosse a nfe

vc passa os parametros de consulta, usuario e senha e ele te traz uma lista dos dados consultados..

27 Abril, 2011

Hilan, aqui eu fiz a instalação normalmente...

Vc ja tentou instalar o componente pelo group de projetos que tem nele...

nesse arquivo BuildWithNFe2.bpg

vc tem toda a sequencia....

ai é so compilar tudo e depois vir instalando apenas o que é preciso...

27 Abril, 2011

Vc vai ter que instalar o componente AcbrEAD tbem para instalação antes de instalar eles

18 Abril, 2011

Bom dia Thiago,

Favor disponibilizar as suas alterações zipadas aqui no forum, que a Juliana verifica se da para incorporar essas atualizações ao componente, assim todos podem ter as atualizações.

11 Abril, 2011

Tive problemas em alguns cliente de MG para transmitir via scan.

Ai procurando no forum encontrei isso.

"Apos um tempo procurandno aqui descobri que tem que mudar nas configurações do componente também e não apenas na nota.

Código:

ACBrNFe1.Configuracoes.Geral.FormaEmissao := Ide.tpEmis;"

Depois que corrigi isso e mandei transmitir....demorou um pouco mais foi transmitido em modo SCAN normalmente.

Talvez ajude.

1 Abril, 2011

Não sei se ajuda.

Mas vou passar exatamente o que eu fiz no meu PDV.


procedure Tfrm_ConfigPDV.proListarECFBanco(pMarca, pModelo: string);

var

  Query             : TIBQuery;

begin


  Query := TIBQuery.Create(nil);

  Query.Database := Dados.IBDatabase;


  Query.Close;

  Query.SQL.Text := 'select i.codigo_ecf, i.tipo_ecf, i.versao_sb, i.mfd, i.marca_ecf, i.modelo_ecf '+#13#10+

    'from identifica_ecf i '+#13#10+

    'where upper(i.marca_ecf) = upper(:marca) and upper(i.modelo_ecf) = upper(:modelo) ';

  Query.ParamByName('marca').Value := AnsiUpperCase(trim(fncRetornarPrimeiroEspaco(pMarca)));

  Query.ParamByName('modelo').Value := AnsiUpperCase(trim(pModelo));

  Query.Prepare;

  Query.Open;


  if not(Query.IsEmpty) then

    begin

      cdsListaECF.EmptyDataSet;

      while not(Query.Eof) do

        begin

          cdsListaECF.Append;

          cdsListaECFCodNacional.AsString := Query.fIELDByName('codigo_ecf').AsString;

          cdsListaECFTipoECF.AsString := Query.fIELDByName('tipo_ecf').AsString;

          cdsListaECFModelo.AsString := Query.fIELDByName('modelo_ecf').AsString;

          cdsListaECFMarca.AsString := Query.fIELDByName('marca_ecf').AsString;

          cdsListaECFMFD.AsString := ifthen((Query.fIELDByName('mfd').AsString='0'), 'NÃO', 'SIM');

          cdsListaECFVersaoSB.AsString := Query.fIELDByName('versao_sb').AsString;

          cdsListaECF.Post;

          Query.Next;

        end;

      pnlListaECF.BringToFront;

      pnlListaECF.Visible := true;

      cdsListaECF.First;

      gdLista.SetFocus;

    end

  else

    begin

      Mensagem('Não foi encontrado ECF com a MARCA e MODELO informado.'+#13#10+

        'Será aberto a listagem contendo as ECF pela MARCA apenas.', 'I');

      Query.Close;

      Query.SQL.Text := 'select i.codigo_ecf, i.tipo_ecf, i.versao_sb, i.mfd, i.marca_ecf, i.modelo_ecf '+#13#10+

        'from identifica_ecf i '+#13#10+

        'where upper(i.marca_ecf) containing  upper(:marca)';

      Query.ParamByName('marca').Value := AnsiUpperCase(trim(fncRetornarPrimeiroEspaco(pMarca)));

      Query.Prepare;

      Query.Open;

      if not(Query.IsEmpty) then

        begin

          cdsListaECF.EmptyDataSet;

          while not(Query.Eof) do

            begin

              cdsListaECF.Append;

              cdsListaECFCodNacional.AsString := Query.fIELDByName('codigo_ecf').AsString;

              cdsListaECFTipoECF.AsString := Query.fIELDByName('tipo_ecf').AsString;

              cdsListaECFModelo.AsString := Query.fIELDByName('modelo_ecf').AsString;

              cdsListaECFMarca.AsString := Query.fIELDByName('marca_ecf').AsString;

              cdsListaECFMFD.AsString := ifthen((Query.fIELDByName('mfd').AsString='0'), 'NÃO', 'SIM');

              cdsListaECFVersaoSB.AsString := Query.fIELDByName('versao_sb').AsString;

              cdsListaECF.Post;

              Query.Next;

            end;

          pnlListaECF.BringToFront;

          pnlListaECF.Visible := true;

          cdsListaECF.First;

          gdLista.SetFocus;

        end

      else

        begin

          Query.Close;

          Query.SQL.Text := 'select i.codigo_ecf, i.tipo_ecf, i.versao_sb, i.mfd, i.marca_ecf, i.modelo_ecf '+#13#10+

            'from identifica_ecf i '+#13#10+

            'order by i.marca_ecf, i.modelo_ecf';

          Query.Prepare;

          Query.Open;

          if not(Query.IsEmpty) then

            begin

              cdsListaECF.EmptyDataSet;

              while not(Query.Eof) do

                begin

                  cdsListaECF.Append;

                  cdsListaECFCodNacional.AsString := Query.fIELDByName('codigo_ecf').AsString;

                  cdsListaECFTipoECF.AsString := Query.fIELDByName('tipo_ecf').AsString;

                  cdsListaECFModelo.AsString := Query.fIELDByName('modelo_ecf').AsString;

                  cdsListaECFMarca.AsString := Query.fIELDByName('marca_ecf').AsString;

                  cdsListaECFMFD.AsString := ifthen((Query.fIELDByName('mfd').AsString='0'), 'NÃO', 'SIM');

                  cdsListaECFVersaoSB.AsString := Query.fIELDByName('versao_sb').AsString;

                  cdsListaECF.Post;

                  Query.Next;

                end;

              pnlListaECF.BringToFront;

              pnlListaECF.Visible := true;

              cdsListaECF.First;

              gdLista.SetFocus;

            end

          else

            begin

              Mensagem('Não foi encontrado ECF cadastrado.', 'W');

              pnlListaECF.Visible := false;

              pnlListaECF.SendToBack;

              exit;

            end;

        end;


    end;


  FreeAndNil(Query);


end;

arquivos em anexo

TabelaECF.rar

29 Março, 2011

Extamente isso que está ocorrendo, na integração ele espera as sequencias em minusculo.

Pois em upper case ele desconhece, conforme a imagem demonstra.

So que isso só está ocorrendo para txt de SS

29 Março, 2011

pag 141 do manual 4.01

coluna Pai

N10g

N10h

e de qq forma o emissor paulista nao importou por nao encontrar a tag

conteudo da linha 14

N10G|0|500||13.00|2.21

o arquivo txt é o correto

mas na linha 14 mudei p/ N10G

nota-se q nas demais linhas esta correto

N10g

pag 141 manual

# ID Campo

245.47 N10g ICMSSN500

em anexo as imagens

002223_1000_001_18_11_2010-NFe.txt

29 Março, 2011

Bom dia a todos.

Conforme foi me reportado, foi encontrado erro em dois lugares na geração do txt para NFe 2.0 para empresa do regime Super Simples.

Espero que ajude ao grupo .


unit pcnLayoutTXT;


function CarregarLayoutTXT(const versao: string): AnsiString;

linha 202


    LoadLayout('  N10c|Orig¨|CSOSN¨|pCredSN¨|vCredICMSSN¨');

    LoadLayout('  N10d|Orig¨|CSOSN¨');

    LoadLayout('  N10e|Orig¨|CSOSN¨|modBCST¨|pMVAST¨|pRedBCST¨|vBCST¨|pICMSST¨|vICMSST¨|pCredSN¨|vCredICMSSN¨');

    LoadLayout('  N10f|Orig¨|CSOSN¨|modBCST¨|pMVAST¨|pRedBCST¨|vBCST¨|pICMSST¨|vICMSST¨');

    LoadLayout('  N10g|Orig¨|CSOSN¨|modBCST¨|vBCSTRet¨|vICMSSTRet¨');

    LoadLayout('  N10h|Orig¨|CSOSN¨|modBC¨|vBC¨|pRedBC¨|pICMS¨|vICMS¨|modBCST¨|pMVAST¨|pRedBCST¨|vBCST¨|pICMSST¨|vICMSST¨|pCredSN¨|vCredICMSSN¨');

as tags

estão com codigo alfa

exemplo

qdo na real usam o

como a funcao

procedure LoadLayout(s: string);

begin

Layout := Layout + UpperCase(s + #10 + #13);

end;

retorna td upper... nao tem como usar as tags com letra minusculas

ex: N10g

unit pcnGerador;

linha 763

for i := 0 to FLayoutArquivoTXT.Count - 1 do

if pos('<' + ID + '>', UpperCase(FLayoutArquivoTXT.Strings)) > 0 then

FArquivoFormatoTXT := FArquivoFormatoTXT + FLayoutArquivoTXT.Strings + #13;

FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10C', 'N10c', []);

FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10D', 'N10d', []);

FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10E', 'N10e', []);

FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10F', 'N10f', []);

FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10G', 'N10g', []);

FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10H', 'N10h', []);

inclui as conversões

substituindo as strings

so nao sei se realmente no xml esta correto a nomenclatura

-

0

500

42.00

7.14

11 Março, 2011

Boa Tarde Allan

Vc pode compactar suas units alteradas e postar no forum

O pessoal logo faz um merge e sobi as alterações se as mesmas não tiverem nenhum erro de hierarquia.

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por ricardomendes

Sobre nós...

Informação Importante