[Dúvidas uso Exemplo NFS-e (instalação)]

Bom dia,

No Lazarus está faltando o caminho dos Provedores e arquivo .lfm da impressão.

..\..\..\..\Fontes\ACBrDFe\ACBrNFSeX\Provedores

ACBrNFSeXDANFSeRL.pas(212,1) Error: Can't open resource file "C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\DANFSE\Fortes\ACBrNFSeXDANFSeRL.lfm"
 

[Homologação Banco Safra]

Bom tarde,

Fiz a homologação e não tive rejeição com nosso numero, apenas com Agência Encarregada da Cobrança, está fixo no fonte.

att.

//              '00000'                                                                        + // Agência Encarregada da Cobrança
ACBRBoleto.Cedente.Agencia +
ACBRBoleto.Cedente.AgenciaDigito +

 

[REST Dataware está incrível.]

Noix, parabéns Gilberto !!!

[TDI nova aba não aparece dbedit com inteiro/decimal]

Coloquei um dbedit com componentes de acesso nativo do Lazarus no demo e funcionou. Estou usando Rest Dataware,  vou testar mais...pra ver onde está o erro. Obrigado Daniel. 

[TDI nova aba não aparece dbedit com inteiro/decimal]

Daniel estou utilizando última versão (At revision: 6078),  Trocando ShowFormInPage por ShowModal aparece, obrigado.

 

[TDI nova aba não aparece dbedit com inteiro/decimal]

Uso Lazarus 1.8.0RC5 com TDI, está apresentando um comportamento estranho, DBEdit com inteiro ou decimal não aparece em uma nova aba, trocando de aba ao retornar aparecem. 

Inserir anexo existente

[TTDINotebook aba ativa em negrito]

Olá,

Utilizo o componente  TTDINotebook [1] com Lazarus e não encontrei uma forma para deixar a aba ativa em negrito, descrição vem do caption do formulário, é possível ?

frmConsultaPessoa := TfrmConsultaPessoa.Create(self);
tdiMenuPrincipal.ShowFormInPage(frmConsultaPessoa);  

Encontrei uma solução [2] para o PageControl:

1) Add TPageControl on TForm
2) Set PageControl .ParentFont:=False;
    Set PageControl.Font.Style:=[fsBold];
3) Add TTabSheet to TPageControl
4) Set TabSheet .ParentFont:=False;
    Set TabSheet.Font:=Form.Font;

1 - http://wiki.freepascal.org/TTDINotebook
2 - http://forum.lazarus.freepascal.org/index.php?topic=11759.0

[NFSe Passo Fundo/RS - erro 500]

Estava recebendo o mesmo erro com provedor Betha, verifiquei o xml de envio do SOAP e o cabeçalho também estava duplicado, efetuei a mesma correção no Betha.ini e consegui enviar o lote sem erro. Mas a impressão não é efetuada,  a nota consta no site da Betha, usei o comando abaixo para enviar.

 

NFSe.Enviar(intNumLote,True);

 

[Erro ao Consultar Lote ou RPS: Erro Interno:0 Erro Http: 500]

Bom tarde @Leonardo Pavanello, efetuei as mudanças e mesmo erro. Não estou informando condição de pagamento (A_VISTA), está sendo preenchida automaticamente, fiz teste informando cpAPrazo ou cpAVista e não alterou a descrição.

Inicio TNFSeEnviarLoteRPS
ERRO: 
Erro Interno: 0
Erro HTTP: 500
 

obrigado, abraço.

 

1-env-lot.xml

[Erro ao Consultar Lote ou RPS: Erro Interno:0 Erro Http: 500]

Estou recebendo o mesmo erro no provedor da Betha, fontes/schemas/dlls atualizados hoje. Componente configurado com libCapicom, testei com as duas versões (Betha e Bethav2), neste computador (Windows server 2008) emite NF-e sem problema. No exemplo também apresenta o mesmo erro.

Anexo xml das versões.

 

 

 

 

1-env-lot-soap.xml

1-env-lot-soap-v2.xml

1-env-lot-v2.xml

1-env-lot.xml

100101-rps.xml

100101-rps-v2.xml

[None of the dynamic libraries can be found or is not loadable: libmysqld.so.18]

Olá, estou desenvolvendo com Ubuntu 16.04.1 + Lazarus 1.6 + mysql + zeoslib algum meses sem problema, ontem antes de dormir estava normal e hoje começou apresentar o erro abaixo, computador não foi desligado.

None of the dynamic libraries can be found or is not loadable: libmysqld.so.18, libmysqld.so.16, libmysqld.so.15, libmysqld.so !

Quando instalei o Lazarus criei um link simbólico para libmysqld.so.20  e resolveu, mas agora voltou o problema, já tentei criar link para ".so18/16/15" e nada.

binho@ablon:/usr/lib/x86_64-linux-gnu$ ll libmysqlclient*
-rw-r--r-- 1 root root 5757614 Set 12 16:28 libmysqlclient.a
lrwxrwxrwx 1 root root      20 Set 12 16:27 libmysqlclient.so -> libmysqlclient.so.20
lrwxrwxrwx 1 root root      24 Set 12 16:27 libmysqlclient.so.20 -> libmysqlclient.so.20.3.2
-rw-r--r-- 1 root root 4237408 Set 12 16:28 libmysqlclient.so.20.3.2

 

Encontrei o problema, o protocolo no componente ZConnection estava "mysqld-5" e o correto é "mysql-5", devo ter trocado com sono e não vi hehehe

[DBCtrlGrid para lazarus]

MWA Software is pleased to announce that IBX For Lazarus 1.2.2 is now available as a pre-release. This release includes several user suggested enhancements including a Delphi Control Grid lookalike (TDBControlGrid). Although packaged in with IBX, there are no IBX dependencies in the Control Grid which should work with any TDataSet based component set.

This release builds on 1.2 and is requires Lazarus 1.4 RC2.

Download from http://www.mwasoftware.co.uk/downloads/category/16-pre-release-1-2

[Cotação Moeda]

Bom dia,

Utilizo D7, quando executo a consulta de cotação no meu sistema pelo delphi funciona 100%, executando o sistema diretamente a consulta apresenta a mensagem:

Erro HTTP: 500 

URL: https://www3.bcb.gov.br/ptax_internet/consultarTabelaMoedas.do?method=consultaTabelaMoedas

 

O mesmo erro ocorre no exemplo do ACBrCotacao, alguma dica de por que no delphi funciona e fora não? 

 

[Acbrcaixaeconomica Para Acbrcaixa]

Olá,

 

Utilizo Delphi 7 e encontrei um erro no segmento "T" (linha 685) no ACBrBancoCaixa.pas.

 

 

           // prevenir quando o seunumero não vem informado no arquivo

           if StrToIntDef(SeuNumero,0) = 0 then

            begin

              SeuNumero := NossoNumero;

              NumeroDocumento := NossoNumero

            end;         

 

O conteúdo de "SeuNumero" é "7684            ", por ter espaço após o número a função StrToIntDef está retornando zero, está certo ? Adicionei um "trim" para resolver.

 

 

          // prevenir quando o seunumero não vem informado no arquivo

            if StrToIntDef(trim(SeuNumero),0) = 0 then

            begin

              SeuNumero := NossoNumero;

              NumeroDocumento := NossoNumero

            end;            

 

 

 

ACBrBancoCaixa.pas

[Porto Velho, Erro Ao Alocar Uma Conexao.]

Olá,

 

Estou recebendo a mensagem abaixo do provedor de Porto Velho/RO, anexo xml, alguém com mesmo problema ?

 

 

<Mensagem>

java.sql.SQLException: Erro ao alocar uma conexao. Motivo: java.lang.RuntimeException: Got exception during XAResource.start:

</Mensagem>

<Correcao>

Verifique sua mensagem SOAP e a passagem dos parametros necessarios.

</Correcao>

 

19-env-lotS.xml

19-lista-nfse.xml

1401-Rps.xml

19-env-lotS.xml

19-lista-nfse.xml

1401-Rps.xml

[Cnpj Emitente Nao Cadastrado]

Descobri o problema,

 

Estou utilizando o certificado de Santa Catarina e o endereço do Emitente estava cadastrado em Rondônia.

 

Mensagem recebida: Autorizado o uso do MDF-e

[Cnpj Emitente Nao Cadastrado]

Esta mensagem recebo configurando o componente (VersaoDF) para ve100a, trocando para ve100 recebo outra.

 

Falha na validação dos dados do Manifesto 1

Content for element '{http://www.portalfiscal.inf.br/mdfe}veicTracao'is incomplete according to the DTD/Schema.

 

Estou usando os schemas do diretório de exemplo do Demo.

[Cnpj Emitente Nao Cadastrado]

Bom dia,

 

Estou recebendo a mensagem:  CNPJ Emitente não cadastrado, é necessário fazer o cadastro em algum lugar para emitir MDF-e? Consigo emitir NF-e e CT-e com o certificado utilizado, e segundo o contador do cliente não precisa.

 

 

[Migrando Da Versao Nf-E 2.00 Para Nf-E 3.10]

SIm Italo,

 

Fontes atualizados, apaguei os .dcu antes compilar, aplicação já emiti versão 2.0 sem problemas, então apenas alterei ModeloDF/VersaoDF. Tentarei em outro computador, obrigado.

[Migrando Da Versao Nf-E 2.00 Para Nf-E 3.10]

Efetuei a pesquisa antes de alterar, carrego em apenas um lugar da aplicação, tentei:

 

  NFe.Configuracoes.Geral.ModeloDF := moNFe;

  NFe.Configuracoes.Geral.VersaoDF := ve310;

 

e 

 

  NFe.Configuracoes.Geral.VersaoDF := ve310;

  NFe.Configuracoes.Geral.ModeloDF := moNFe;

 

e 

 

with NFe.NotasFiscais.Add.NFe do

    begin

      infNFe.Versao := 3.1;

 

Sempre sem sucesso, somente após alterar os fontes resolveu, agora estou com este erro nos impostos.

[Migrando Da Versao Nf-E 2.00 Para Nf-E 3.10]

Bom dia, 

 

Também estava com este erro, Schemas\nfe_v2.00.xsd não encontrado, alterei a ordem de carregamento sem sucesso, tentei também:

 

with NFe.NotasFiscais.Add.NFe do

    begin

      infNFe.Versao := 3.1;

 

Notei que no Create do ACBrNFeConfiguracoes é atribuido ve200;

 

  FVersaoDF           := ve200;

 

function ValidaMSXML(XML: AnsiString; out Msg: AnsiString; const APathSchemas: string = '';

                     AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): Boolean;

 

Alterei em todo fonte de ve200 para ve310, não está apresentando o erro de schema não encontrado, mas este:

 

Element '{http://www.portalfiscal.inf.br/nfe}ICMSSN'is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/nfe}ICMS'.

Expecting: {http://www.portalfiscal.inf.br/nfe}ICMS00,{http://www.portalfiscal.inf.br/nfe}ICMS10,

NFe.xml

[Algumas Tags Do Xml Com Espaço Em Branco (Pvh)]

Obrigado Italo, entrarei em contato com eles.

[Algumas Tags Do Xml Com Espaço Em Branco (Pvh)]

Bom tarde, 

 

Algumas tags (cpnj,razão social,endereco,bairro) estão com espaço em branco após o conteúdo no provedor de Porto Velho.

 

 

<Cnpj>13951709000114      </Cnpj></CpfCnpj><InscricaoMunicipal>14234924       </InscricaoMunicipal></IdentificacaoPrestador><RazaoSocial>BARBOSA E HERNANDES LTDA                          </RazaoSocial><NomeFantasia>TECNOCONT INFORMATICA</NomeFantasia><Endereco><Endereco>MANOEL LAURENTINO DE SOUZA              </Endereco><Numero>2718</Numero><Complemento>A                                       </Complemento><Bairro>EMBRATEL                                </Bairro>

 

Comparando o xml de outros provedores não acontece isso, este bloco é gerado pelo ACBr  com o retorno do Provedor? Vi que a funcão Leitor.rCampo já tem "trim" no pnfsGerarNfseResposta.pas, o problema é no provedor ?

 

 

               if Leitor.rExtrai(7, 'IdentificacaoPrestador') <> ''

                 then begin

                  if VersaoXML='1'

                   then begin

                    if Leitor.rExtrai(8, 'CpfCnpj') <> ''

                     then begin

                      ListaNfse.FCompNfse

.FNFSe.PrestadorServico.IdentificacaoPrestador.Cnpj := Leitor.rCampo(tcStr, 'Cpf');

                      if ListaNfse.FCompNfse

.FNFSe.PrestadorServico.IdentificacaoPrestador.Cnpj = ''

                       then ListaNfse.FCompNfse

.FNFSe.PrestadorServico.IdentificacaoPrestador.Cnpj := Leitor.rCampo(tcStr, 'Cnpj');

                     end;

                   end

                   else ListaNfse.FCompNfse

.FNFSe.PrestadorServico.IdentificacaoPrestador.Cnpj := Leitor.rCampo(tcStr, 'Cnpj');

                  ListaNfse.FCompNfse

.FNFSe.PrestadorServico.IdentificacaoPrestador.InscricaoMunicipal := Leitor.rCampo(tcStr, 'InscricaoMunicipal');

                 end;

 

 

[Impressao Do Cte 1.04 No Componente Da Versão 2.0]

obrigado Juliomar! 

[Impressao Do Cte 1.04 No Componente Da Versão 2.0]

Bom tarde, como baixar os fontes referente a versão 2.0 ?

Estou fazendo um checkout em svn://svn.code.sf.net/p/acbr/code/branches e não tem componente o ACBrCTe em \fontes.