leufmt

Vem um novo valor a partir da consulta ao banco de dados: ADOQConsulta.SQL.Text := 'SELECT MAX(NUMERORPS_NOT) ULTIMO FROM NFSE_NOTA ' + 'WHERE (AMBIENTE_NOT = ' + QuotedStr(DMBase.ADOQParametroAMBIENTE_PAR.AsString) + ') AND (CODIGOPARAMETRO_NOT = ' + DMBase.ADOQParametroCODIGO_PAR.AsString + ')';

É atualizar a partir do momento que é gerada a nota, abaixo da linha "If ACBrNFSe.Enviar(Lote, False) then" tu vai ver o campo recebendo o valor atual "ADOQNotas.FieldByName('NUMERORPS_NOT').AsString := ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero;"

Segue no anexo como pedido. Codigo.txt

Caro Italo, segue abaixo o código, se tu puder ver se acha algo errado agradeço. OBS: No post abaixo.

Deixa eu tentar te explicar o que acontece Italo. No meu sistema o usuário manda vários registros de notas de uma vez, ele marca os registros que quer ser gerado a nota e o sistema entra em um while enviando. Mas tem momentos que em determinados registros dá o erro E010 informado no primeiro post. Não é problema do sistema ter gerado número de rps repetido, pois acesso o site da prefeitura e aquele registro que deu o erro lá esta a nota gerada no site. Ai o que tenho que fazer é lançar os dados da nota do site para o meu sistema para que assim ele de continuidade na sequencia do número de rps. Eu acredito que este problema esta no componente ou no servidor da prefeitura que é o issnet.

Cara, eu não tenho essa função

Alguém pode me ajudar com o problema acima

Vixii, então danou-se. Obrigado pela explicação Juliomar.

Obrigado Juliomar

Boa tarde pessoal. Ultimamente ando tendo o seguinte problema, ao enviar o Cupom fiscal, não sei o que acontece que ele vai para a sefaz mas retorna com erro, ai quando tento enviar outro cupom ele dá a mensagem que já existe o cupom com o mesmo número, vou no site consultar e vejo que aquele primeiro que deu erro foi validado. Como faço para consultar pelo Número do Documento Fiscal e pegar os dados do protocolo, chave de autorização e etc pelo componente?

Boa tarde pessoal. Como faço para enviar várias notas fiscais de serviços de uma vez?

Isto ai vi. No código não vi/entendi como vou puxar os dados da nota para a tabela do meu sistema.

olhei no exemplo e não vi.

se tu puder me passar o link de como faz isso com o ACBrNFe, eu agradeço.

Pois é Italo, li lá e pelo que vi aquilo lá é um manual para quem vai desenvolver a comunicação do webservice, mas eu não tenho conhecimento para desenvolvimento de webservice. É por isso que estou atras de um componente que faz isto ou de alguém que tenha o código fonte deste procedimento, até pago pela solução.

Verdade, postei no lugar errado. Quero fazer a importação dos dados da nota de nfe de compra, pois os meus clientes digitam tudo no sistema com a nota em mãos, e já vi sistema que o usuário entra com a chave e já importa tudo para o sistema. E agora como faço com este post em lugar errado?

Bom dia pessoal. Estou precisando de um componente para fazer a importação da nfe do webservice da sefaz direto para o meu sistema. Alguém conhece algum ou alguma solução semelhante?

Não sabia. Obrigado

Boa tarde pessoal. Como faço para realizar o cancelamento do cupom fiscal eletrônico, pois não achei o exemplo.

Obrigado. Deu certo.

Bom dia pessoal. Fui atualizar os componentes hoje usando o ACBrInstall e esta dando erro. Abaixo esta o log. Se alguém puder me ajudar eu agradeço de coração. Caminho: C:\Visage\Componentes\ACBr Versão do delphi: Delphi 2006 (0) Plataforma: Win32(0) ================================================================================ Setando parâmetros de plataforma... Setando parâmetros de plataforma... Criando diretórios de bibliotecas... Adicionando libray paths... C:\Visage\Componentes\ACBr\Fontes\ACBrSerial\ACBrBALClass.pas(170) Error: E2003 Undeclared identifier: 'WriteLog' C:\Visage\Componentes\ACBr\Fontes\ACBrSerial\ACBrBAL.pas(50) Fatal: F2063 Could not compile used unit '..\..\..\Fontes\ACBrSerial\ACBrBALClass.pas' Compilation failure C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1177) Error: E2003 Undeclared identifier: 'teEPECNFe' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1179) Error: E2003 Undeclared identifier: 'cOrgaoAutor' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1179) Error: E2003 Undeclared identifier: 'cOrgaoAutor' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1180) Error: E2003 Undeclared identifier: 'tpAutor' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1180) Error: E2003 Undeclared identifier: 'tpAutor' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1181) Error: E2003 Undeclared identifier: 'verAplic' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1181) Error: E2003 Undeclared identifier: 'verAplic' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1182) Error: E2003 Undeclared identifier: 'dhEmi' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1182) Error: E2003 Undeclared identifier: 'dhEmi' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1183) Error: E2003 Undeclared identifier: 'tpNF' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1183) Error: E2003 Undeclared identifier: 'tpNF' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1184) Error: E2003 Undeclared identifier: 'IE' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1184) Error: E2003 Undeclared identifier: 'IE' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1186) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1186) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1187) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1187) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1188) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1188) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1189) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1189) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1191) Error: E2003 Undeclared identifier: 'vNF' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1191) Error: E2003 Undeclared identifier: 'vNF' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1192) Error: E2003 Undeclared identifier: 'vICMS' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1192) Error: E2003 Undeclared identifier: 'vICMS' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1193) Error: E2003 Undeclared identifier: 'vST' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1193) Error: E2003 Undeclared identifier: 'vST' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(2913) Error: E2003 Undeclared identifier: 'XML' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(2913) Error: E2003 Undeclared identifier: 'XML' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFe.pas(59) Fatal: F2063 Could not compile used unit '..\..\..\Fontes\ACBrNFe2\ACBrNFeWebServices.pas' Compilation failure C:\Visage\Componentes\ACBr\Fontes\ACBrNFSe\pnfsNFSeR.pas(926) Error: E2003 Undeclared identifier: 'tcDatVcto' C:\Visage\Componentes\ACBr\Fontes\ACBrNFSe\ACBrNFSeNotasFiscais.pas(16) Fatal: F2063 Could not compile used unit '..\..\..\Fontes\ACBrNFSe\pnfsNFSeR.pas' Compilation failure

Estou com o mesmo problema aqui em MT com o provedor ISSNET

Como faço para utilizar o GAVTeste para uma gaveta bematech ligada em uma impressora MP-4200 TH via USB

Boa tarde senhores. esta rotina abaixo esta certa para abrir a gaveta (usando uma ECF ou Não Fiscal)? Try If ACBrGAV1.Ativo then ACBrGAV1.Desativar; ACBrGAV1.Modelo := TACBrGAVModelo(Dtm.QueryGuicheModeloGaveta.AsInteger); If ACBrGAV1.Modelo = gavImpressoraECF then ACBrGAV1.ECF := ACBrECF1; If ACBrGAV1.Modelo <> gavImpressoraECF then ACBrGAV1.Porta := Dtm.QueryGuichePortaGaveta.AsString; ACBrGAV1.Ativar; Except on E: Exception do ShowMessage('Falha ao ativar a gaveta !' + #13 + 'Erro: ' + E.Message); end; Try ACBrGAV1.AbreGaveta; Except on E: Exception do ShowMessage('Falha ao abrir a gaveta !' + #13 + 'Erro: ' + E.Message); end;

Muito obrigado Italo. O que tu falou faz sentido sim. É que o pessoal aqui da empresa falou disso e eu achei estranho.