Edevair Viesa Junior

Ok. Vou fazer a atualização e posto os resultados. Muito Obrigado ! André, o comando NostaFiscais.Validar;

André, desenterrando o assunto. Ainda não consigo usar a validação do arquivo do fornecedor se não estiver usando o certificado digital plugado no computador. Porém no meu cliente a pessoa que gera as NFe de venda não é a mesma que recebe os arquivos dos fornecedores e faz a importação do xml para dentro do nosso sistema, isto é, para eu validar um xml de um fornecedor tenho que estar com o meu certificado plugado.. Como contorno isso ?? É possível eu validar um xml sem o certificado digital ?? JoaoPauloRicardo não acontece só em uma nota, mas em todas, conforme posto para o Andre, acho que se trata da necessidade de ter o certificado plugado na máquina para fazer a validação. Onde será que estou errando ?

Uma outra forma, e utilizo há tempos assim, é criar uma criptografia própria e usar um arquivo .INI com esta configurações, idênticas ao DBExpress. Desta forma toda vez que mudar o local do banco ou utilizar em outros clientes o mesmo .EXE basta mudar o caminho no .INI sendo que as informações estarão lá criptografadas.

Verificou a questão do Firewall do Windows, liberou as portas de entrada e saída 3050 ???

Boa tarde. Estou com problemas para realizar um select com DBExpress e MySql 5.6 remoto. A conexão com o banco ocorre normalmente sem erros, porém ao tentar fazer um select dá o seguinte erro : DBX Error: Unsupported field type O sql é : select C_NOME_CLIENTE, C_CPF_CLIENTE from CC0100 Primeiramente achei que pudesse ser algum tipo de campo na base não suportado pela DBEpress, porém analisando mais a fundo, percebí que se eu efetuar o seguinte sql : select C_NOME_CLIENTE from CC0100 ou select C_CPF_CLIENTE from CC0100 não dá erro e retornam os dados. O problema aparentemente só acontece quando eu efetuo um select com dois ou mais campos, em qualquer tabela da base. No delphi 7 eu conectava usando DBXOpenMySQL50.dll e não dá o erro, já no Delphi Seattle, usando a dbxmys.dll ,está ocorrendo o erro, alguém já passou por isso ? Muito Obrigado !

Isso mesmo, parece erro de permissão, mas resolvi alterando o diretório C: inteiro para como eu o proprietário. Funcionou...

Boa tarde. Formatei o pc e estou instalando tudo de novo o delphi, porém é claro que estou com muitas dificuldades. Começou já com o Forte report. Coloquei o checkout no svn, porém ao dar Ok, retorna esta mensagem : Command: Checkout from https://github.com/fortesinformatica/fortesreport-ce.git, revision HEAD, Fully recursive, Externals included Error: Can't create directory 'C:\Program Files Error: (x86)\Embarcadero\Studio\17.0\lib\FortesReport\.svn': Acesso negado. Estou sem anti vírus instalado, somente a versão do Delphi Seattle na máquina. Já alterei as permissões da pasta da embarcadero no windows e tirei as notificações do UAC O que estou fazendo errado ? Tentei verificar o ACBr também, o mesmo erro : Command: Checkout from svn://svn.code.sf.net/p/acbr/code/trunk2, revision HEAD, Fully recursive, Externals included Error: Can't create directory 'C:\Program Files Error: (x86)\Embarcadero\Studio\17.0\lib\ACBr\.svn': Acesso negado. Com certeza é problema no meu windows, porém o que faço ?? Obs : tb desativei o firewall

Não utilizo o skype, normas da empresa aqui. Mas tenho team viewer, pode ser ? Se sim me chama por mensagem privada por favor que te passo o ID, pode ser ?? Agradeço muito a ajuda.. Olha a última mensagem que está dando agora.. [dcc32 Fatal Error] P_CM.dpr(1): F1027 Unit not found: 'System' or binary equivalents (.dcu) E agora o Library Path está todo em branco, Não tem mais nenhum diretório. Acho que terei que reinstalar mesmo...

O pior de tudo é que tanto os arquivos DCUs, os PASs e o DPR estão no diretório que o delphi indica que não encontra. Eu verifiquei o library path e o search path como você sugeriu, mas mesmo assim continua os erros intermitentes.. O mais estranho é que o erro é intermitente e cada vez com uma dcu, pas diferente e até mesmo com o dpr. Estou morrendo de saudades do delphi 7. Rssss A migração do meu sistema para o Seattle está me deixando louco. São muitos bugs nesta versão... Acho que a solução é a reinstalação... fazer o quê. Mais um dia perdido só pra fazer isso. Vou tentar reinstalar e posto o resultado aqui. Muito Obrigado !

Quando vou compilar meu projeto ou dar um build retorna um erro : [dcc32 Fatal Error] P_CM.dpr(357): F1026 File not found: '.\Win32\Debug\RCIComboBox.dcu' ou [dcc32 Fatal Error] F2039 Could not create output file '.\Win32\Debug\P_CM.exe' ou [dcc32 Fatal Error] P_CM.dpr(357): F1026 File not found: '.\Win32\Debug\fs_ipascal.dcu' ou [dcc32 Fatal Error] P_CM.dpr(357): F1026 File not found: '.\Win32\Debug\synapse.dcu' ou [dcc32 Fatal Error] P_CM.dpr(357): F1026 File not found: '.\Win32\Debug\ACBrBoleto.dcu' ou [dcc32 Fatal Error] P_CM.dpr(357): F1026 File not found: '.\Win32\Debug\FU00000.pas' entre vários outros.. Nãoé somente neste projeto, até os projetos de exemplo do ACBr está dando estes problemas, acredito ser um problema na configuração do Delphi, porém não sei o que é ou como resolver. É intermitente... e depois de tanto tentar compilar acaba compilando e rodo o sistema, debugo, aí saio, quando compilo de novo volta estes erros.. O que será que estou fazendo errado ? Esse é o mais novo erro : [dcc32 Fatal Error] F1026 File not found: 'P_CM.dpr' Agora nem o projeto acha. Rssss Depois de mais umas 3 tentativas roda normal..

O que seria a NFe manifestada ???

Certo. Então como o amigo geanjesus falou existe um outro método que não o consultar ou então que nem seja do webservices que seja possível fazer o download do .xml do sefaz pela chave de acesso, desde que o emitente seja o mesmo que está fazendo o download ??

André Ferreira então neste caso, conforme foi questionado anteriormente, não é possível via algum método ou componente do ACBr fazer o Download do arquivo da NFe armazenado no sefaz, certo ??

Legal vou fazer o teste e posto o resultado !!!! Muito Obrigado !

Juliomar Marchetti existem algumas situações que a simpels consulta não resolve o problema. Por exemplo, se na hora de devolver a NFe assinada e acatada existe por exemplo a perda da conexão (pode ocorrer por conta da operadora de internet) com o servidor do Sefaz, não temos o .XML autorizado no disco, pois o mesmo não foi retornado. Tentei também diversas vezes resolver este problema e até hoje não consegui. Se alguém souber como fazer seria ótimo ! Neste caso ficaria sem a NFe guardada no disco do cliente. Aí é necessário fazer tudo manualmente desde o download do arquivo .xml autorizado quanto as considerações no sistemas. Não é mesmo possível fazer o download automático do XML emitido pela empresa e com o mesmo certificado da emissão ??

Boa tarde. Segue : Result := true try with l_acbr_boleto do begin with Cedente do begin Nome := g_desc_empresa; CNPJCPF := OnlyNumber(g_cnpj_empresa); Logradouro := g_endereco_nf_empresa; CEP := OnlyNumber(g_cep_empresa); NumeroRes := g_numero_empresa; Complemento := g_complemento_empresa; Conta := l_client_CO0200.FieldByName('C_CONTA_BANCO').AsString; ContaDigito := l_client_CO0200.FieldByName('C_DIGITO_CONTA_BANCO').AsString; Agencia := l_client_CO0200.FieldByName('C_AGENCIA_BANCO').AsString; AgenciaDigito := l_client_CO0200.FieldByName('C_DIGITO_AGENCIA_BANCO').AsString; Modalidade := l_client_CO0200.FieldByName('C_VARIACAO').AsString; Convenio := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; CodigoCedente := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; end; with Banco do begin Numero := l_client_CO0200.FieldByName('C_NUM_BANCO').AsInteger; Nome := l_client_CO0200.FieldByName('C_NOME_BANCO').AsString; LayoutRemessa := c240; if l_client_CO0200.FieldByName('C_LAYOUT_CNAB').AsString = 'c400' then begin LayoutRemessa := c400; end; if l_tipo_cobranca = 'Banco do Brasil' then begin TipoCobranca := cobBancoDoBrasil; end else if l_tipo_cobranca = 'Bradesco' then begin TipoCobranca := cobBradesco; end else if l_tipo_cobranca = 'Itaú' then begin TipoCobranca := cobItau; end else if l_tipo_cobranca = 'Santander' then begin TipoCobranca := cobSantander; end else if l_tipo_cobranca = 'CEF' then begin TipoCobranca := cobCaixaEconomica; end else if l_tipo_cobranca = 'HSBC' then begin TipoCobranca := cobHSBC; end else if l_tipo_cobranca = 'Safra' then begin TipoCobranca := cobSafraBradesco; end else if l_tipo_cobranca = 'Sicred' then begin TipoCobranca := cobSicred; end else begin Result := False; end; end; end; except on E:Exception do begin MessageDlg('Erro Ao carregar as Configurações do Boleto nesta CONTA. '+#13#10+#13#10+ 'Erro: '+E.Message, mterror, [mbOk], 0); Result := False; end; end; os dados do banco de dados estão sendo informados corretamente, verifiquei debugando em run time ...

Boa noite, pessoal estou com problemas ao gerar remessa de boleto do banco itau. O número da conta está saindo zero, tanto no Header quanto nas linhas dos títulos, porém o dígito da conta estão saindo, e informo no mesmo momento tanto a conta quanto o seu respectivo dígito e também a agencia que também sai. Dados de agência : 0562 e Conta Corrente 40177-8 O que estou fazendo errado ?? Segue ilustração :

Juliomar, novamente muito obrigado pela resposta. Fiz exatamente como me falou e mesmo assim não rodou. Inclusive neste mesmo micro já tinha instalado, só atualizei. Aí mãos à obra, e compilei os pacotes separados, como era no início do projeto ACBr e eis que achei o problema. Na unit ACBrNFe, no método NotasFiscais.Items[0].Imprimir; falta o parâmetro (l_impresso : boolean). Inclui True como parâmetro e aí compilou, o mesmo aconteceu em ACBrECFVirtualNFCe (linhas 707, 710 e 730) no mesmo método, também corrigi e funcionou. Será que meus arquivos estão errados ???? Sabe dizer o que é este parâmetro ??? Junior

Atualizei sim, até exclui a instalação inteira e refiz tudo. Permanece o erro. Será que é por quê estou instalando no delphi 7 ?? Muito Obrigado !

Juliomar, muito obrigado por responder. Amigo tentei exatamente como você disse e deu o mesmo erro. Segue em anexo o arquivo log completo. Será que se eu excluir a instalação com o apagar_acbr e depois tentar novamente o svn resolve ??? log_Delphi_7.txt

Boa tarde. Atualizei o svn e tentei fazer a instalação dos pacotes ACBR porém esta dando erro conforme log abaixo orland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\Program Files (x86)\Borland\Delphi7\Projects\ACBr\Fontes\ACBrDFe\ACBrNFe\ACBrNFe.pas(667) Error: Not enough actual parameters C:\Program Files (x86)\Borland\Delphi7\Projects\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\ACBrNFeDANFEClass.pas(214) Fatal: Could not compile used unit 'ACBrNFe' Compilation failure Erro ao compilar o pacote "ACBr_NFe.dpk". Abortando... Ocorreram erros na compilação dos pacotes. O que fiz de errado ? Junior

Pessoal, estou tentando substituir uma UDF que usava com o firebird 2.1, pois estou migrando para o firebird 2.5. No firebird 2.5 não conseguí de forma alguma fazer esta UDF funcionar, então estou tentando outras formas mas está difícil e nem sei se o que estou tentando fazer existe. O problema é o seguinte: Eu criei a seguinte stored procedure no firebird: SET TERM ^ ; CREATE OR ALTER PROCEDURE F_CODIFONPT_BR ( i_string varchar(500)) returns ( c_string varchar(500) collate pxw_intl850) as begin C_STRING = :I_STRING; suspend; end^ SET TERM ; ^ Pois bem, estou tentando usar da seguinte forma : select PR0100.C_COD_PRODUTO, PR0100.C_DESC_PRODUTO, PR0100.C_MODELO_PRODUTO, PR0100.C_TIPO_CODIGO_PRODUTO, PR0100.C_VALOR_UNITARIO_PRODUTO, PR0100.C_QTD_ESTOQUE, PR0100.C_VALOR_CUSTO_PRODUTO, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_A_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_A, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_B_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_B, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_C_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_C, PR0100.C_USA_ESTOQUE_PRODUTO, PR0100.C_PERC_LUCRO_PRODUTO, PR0100.C_ATIVO_PRODUTO from PR0100 where F_CODIFONPT_BR(C_DESC_PRODUTO) LIKE F_CODIFONPT_BR('%' || 'teste' || '%') and (PR0100.C_USA_ESTOQUE_PRODUTO = 'N' or (PR0100.C_QTD_ESTOQUE > 0)) and C_COD_PRODUTO <> '000000000000000' order by C_DESC_PRODUTO Porém preciso usar assim, pois irei implementar na procedure F_CODIFONPT_BR as trocas de acentos, porém ao executar o sql dá o seguinte erro : An error was found in the application program input parameters for the SQL statement. Dynamic SQL Error. SQL error code = -804. Function unknown. F_CODIFONPT_BR. Como consigo resolver ???

Bom dia Pessoal Estou com um problema parecido e gostaria de ver se alguém consegue me ajudar: O arquivo .XML da NFe é do meu fornecedor. Quando tento validar dá o seguinte erro : "Número de Série do Certificado Digital não especificado !" Porém como informei o .XML é do meu fornecedor e não do cliente, aí especifico o número de série com o certificado local (meu cliente) e passa a dar o seguinte erro : "O conjunto de chaves não está definido" Porém é um arquivo válido pois consigo imprimir a danfe e está assinado e consultando no sefaz consta a entrega. Como faço para validar um arquivo de um fornecedor ???

Desencavando o assunto. Estava tudo funcionando com a Elgin Vox até hoje. Começou a dar um erro de "File Acces Denied" para a abertura da Gaveta. Alguém sabe me dizer como resolver ?? Outra coisa, na I9 conforme o colega Jano passou não funcionou, até agora não consigo abrir a gaveta com a I9 por comando, somente o comando automático após a impressão (isso configurado pelo spooler). Muito Obrigado !

As tags de endereço de entrega estão preenchidas no xml porém a danfe do Fast report não possui campo próprio. Na versão do trunk eu usava com o Rave e funcionava, pq na versão do trunk2 não tem ?? Alguma sugestão de como implementar ??