Datacaixa

Estou tendo erro de access violation ao executar o seguinte comando: dmAcbr.ACBrNFe1.ImprimirInutilizacao; Estranho que só dá o erro na segunda vez que executa. Segue abaixo a procedure completa: procedure TfInutilizacaoAdd.bbSalvarClick(Sender: TObject); var iID_Inutilizacao : Integer; sXML, sArq : string; begin if length(Memo1.Text) <= 15 then begin iMessageBox(handle,'Favor preencher no mínimo 15 caracteres!','Inutilizar',MB_OK); Exit; end; if iMessageBox(Handle,'Deseja realmente inutilizar a numeração?','Inutilizar Numeração',MB_YESNO) <> IDYES then Exit; dmAcbr.ACBrNFe1.WebServices.Inutiliza( sApenasNumeros(dmConexao.TFILIALCNPJ.AsString), Memo1.Text, edtAno.Value, 55, edtSerie.Value, edtNumInicial.Value, edtNumFinal.Value); if dmAcbr.ACBrNFe1.WebServices.Inutilizacao.cStat = 102 then begin fInutilizacao.TInutilizacaoID_INUTILIZACAO.Required := False; fInutilizacao.TInutilizacao.Insert; fInutilizacao.TInutilizacaoID_INUTILIZACAO.IsNull; fInutilizacao.TInutilizacaoID_FILIAL.AsInteger := iID_FILIAL; fInutilizacao.TInutilizacaoANO.AsInteger := edtAno.Value; fInutilizacao.TInutilizacaoMODELO.AsInteger := 55; fInutilizacao.TInutilizacaoSERIE.AsInteger := edtSerie.Value; fInutilizacao.TInutilizacaoNUMERO_INICIAL.AsInteger := edtNumInicial.Value; fInutilizacao.TInutilizacaoNUMERO_FINAL.AsInteger := edtNumFinal.Value; fInutilizacao.TInutilizacaoJUSTIFICATIVA.AsString := Memo1.Text; fInutilizacao.TInutilizacaoPROTOCOLO.AsString := dmAcbr.ACBrNFe1.WebServices.Inutilizacao.Protocolo; fInutilizacao.TInutilizacaoDATA_HORA.AsDateTime := dmAcbr.ACBrNFe1.WebServices.Inutilizacao.dhRecbto; if dmAcbr.ACBrNFe1.WebServices.Inutilizacao.tpAmb = taProducao then fInutilizacao.TInutilizacaoAMBIENTE.AsString := 'Produção' else fInutilizacao.TInutilizacaoAMBIENTE.AsString := 'Homologação'; //retorna proximo id do generator iID_Inutilizacao := iRetornarID('GEN_INUTILIZACAO_ID'); fInutilizacao.TInutilizacao.Post; dmConexao.IBTCONEXAO.CommitRetaining; sArq := dmConexao.TFILIALCODIGO_ESTADO.AsString + Copy(IntToStrZero(fInutilizacao.TInutilizacaoANO.AsInteger, 4), 3, 2) + sApenasNumeros(dmConexao.TFILIALCNPJ.AsString) + IntToStrZero(fInutilizacao.TInutilizacaoMODELO.AsInteger, 2) + IntToStrZero(fInutilizacao.TInutilizacaoSERIE.AsInteger, 3) + IntToStrZero(fInutilizacao.TInutilizacaoNUMERO_INICIAL.AsInteger, 9) + IntToStrZero(fInutilizacao.TInutilizacaoNUMERO_FINAL.AsInteger, 9); bInserirXMLDB('INUTILIZACAO', 'INUTILIZACAO', IntToStr(iID_Inutilizacao), fInutilizacao.TInutilizacaoPROTOCOLO.AsString, 'Inutilizada', dmACBr.ACBrNFe1.WebServices.Inutilizacao.XML_ProcInutNFe, sArq+'-procInutNFe.xml', fInutilizacao.TInutilizacaoDATA_HORA.AsDateTime, 0); // dmAcbr.ACBrNFe1.NotasFiscais.Clear; sXML := sVerificaArquivo('Inutilizada', 'INUTILIZACAO', ExtractFileDir(Application.ExeName)+'\XML_NFE\Inu\'+FormatDateTime('YYYYMM', fInutilizacao.TInutilizacaoDATA_HORA.AsDateTime)+'\'+sArq+'-procInutNFe.xml', iID_Inutilizacao , 0); dmAcbr.ACBrNFe1.DANFE:=dmAcbr.ACBrNFeDANFEFR1; dmAcbr.ACBrNFe1.InutNFe.XML:=''; dmAcbr.ACBrNFe1.InutNFe.LerXML( sXML ); dmAcbr.ACBrNFe1.ImprimirInutilizacao; fInutilizacao.TInutilizacao.Close; fInutilizacao.TInutilizacao.ParamByName('ID_FILIAL').AsInteger := iID_FILIAL; fInutilizacao.TInutilizacao.Open; iMessageBox(handle,'Numeração inutilizada com sucesso! Favor excluir as notas fiscais que foram inutilizadas (caso houver)!','Inutilizar Numeração',MB_OK); Close; end else begin iMessageBox(handle,pchar('Não foi possível inutilizar a numeração!'+#13+IntToStr(dmAcbr.ACBrNFe1.WebServices.Inutilizacao.cStat)+' - '+dmAcbr.ACBrNFe1.WebServices.Inutilizacao.xMotivo),'Inutilizar Numeração',MB_OK); end; end;

Descobri aqui a solução para o problema, tem que tirar a SQL do FetchRow para funcionar o autoinc, tem que deixar em branco lá no FDUpdateSQL.

Obrigado Pessoal, vou verificar!

Pessoal, por acaso alguém conhece uma empresa que comercializa ou desenvolve ícones para serem usados nos botões/menus do Delphi?

Juliomar, sim, é o campo autoincremento do MYSQL, por fim resolvi fazendo isso mesmo LAST_INSERT_ID e depois mudei para a função FDConnection1.GetLastAutoGenValue() e com isso faço o locate.Mas ainda gostaria de saber uma outra forma que funcionasse sem que precisasse fazer isso.

ok, obrigado Juliomar.

Tentei de todas as formas mas ainda não consegui, o problema é que preciso dar o refresh para ele atualizar o generator e com isso ele acaba voltando no primeiro registro ao invés de permanecer posicionado no registro atual.

Sim, preciso dele para voltar no mesmo registro depois que gravar.

Alguém que tenha conseguido trabalhar com campo auto incremento com Firedac e Mysql? Estou tendo problema para pegar o valor do auto incremento, tenho que dar um post e mais um refresh, mas dessa forma ele volta no início da tabela, ao invés de posicionar no registro atual.

Ok, obrigado!

Atualizei o ACBr e está dando o erro E2003 Undeclared identifier: 'pFisica' referente ao Boleto: if zpEmpresaTipo_Pessoa.value='Física' then Titulo.Sacado.Pessoa := pFisica else Titulo.Sacado.Pessoa := pJuridica;

eu tenho o fast report comprado sim, já instalei no Delphi e está OK. Já consegui aqui, faltou adicionar o lib do fast no Delphi. Obrigado.

Compilation success Pacote "DCLACBr_TEFD.dpk" compilado com sucesso. Cleaning package cache for ACBr_NFeDanfeFR.bpl Cleaning ok Compiling package C:\ACBr\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\ACBr_NFeDanfeFR.dpk "C:\Program Files (x86)\Embarcadero\Studio\20.0\bin\dcc32.exe" "C:\ACBr\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\ACBr_NFeDanfeFR.dpk" Embarcadero Delphi for Win32 compiler version 33.0 Copyright (c) 1983,2018 Embarcadero Technologies, Inc. ACBr_NFeDanfeFR.dpk(97) Fatal: E2202 Required package 'fs26' not found Compilation failure Erro ao compilar o pacote "ACBr_NFeDanfeFR.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

agora deu certo Italo, muito obrigado!

Aparece simplesmente a mensagem Capacidade Máxima de Tração. Segue anexo XML. 35200514356429000120550010000030151950090010-nfe.xml

Estou com erro na validação do campo Capacidade Máxima de Tração, já tentei alimentar o campo de diversas formas mas sempre dá erro somente nesse campo: Produto.Prod.veicProd.CMT := fNFE.TVENDAS_ITENS_VEICULOSTRACAO.asstring;

Só utilizar RespostaFiscal.AsXMLString , no meu caso criei um método para salvar na pasta. if ACBrSAT1.SAT is TACBrSATMFe_integrador_XML then RetornoRespostaFiscal := TACBrSATMFe_integrador_XML(ACBrSAT1.SAT).RespostaFiscal(RespostaFiscal) else RetornoRespostaFiscal := ACBrIntegrador1.RespostaFiscal(RespostaFiscal); SalvarXML(RespostaFiscal.AsXMLString,'RespostaFiscal');

Bom dia! Ítalo, por gentileza você conseguiria confirmar essa informação? Obrigado.

Segue o link com toda documentação necessária. http://189.75.171.250:8080/TributosWeb/3.128.190/AiseTributosWebFlex.html https://www2.elotech.com.br/iss.php Obrigado.

Bom dia! Gostaria que avaliassem a inclusão da cidade de Pirai do Sul - PR na lista de provedores para emissão de NFS-e. Obrigado.

Muito obrigado

Pessoal a SEFAZ de GO está dando 'Rejeição: Digito Verificador da chave de acesso composta inválida'. Mais alguém está com esse problema hoje 01/11? Até ontem tudo estava funcionando normal.

Muito obrigado! EMBarbosa seria interessante ter a propriedade para escolher quais botões aparecerão na barra do FastReports também. Atualmente faço isso pelo código pois alguns botões desativo sempre.

Criei duas propriedades para o ACBrNFeDANFEFR1 sendo BorderIcon e ExibeCaptionButton 1 - A primeira é para permitir desabilitar o botão maximizar e minimizar do Fastreport, afinal como o Form abre Modal não faz sentido o usuário minimizar. Muitas vezes isso gera suporte porque quando minimiza fica um ícone escondido em baixo da aplicação. 2 - Para usuários leigos é interessante exibir o nome dos botões do Fastreport (inclusive o Imprimir apesar do ícone estar bem claro). Desta forma fica opcional para quem quiser adotar essas duas melhorias. Gostaria de saber se é possível incluir essas pequenas alterações no fonte . Segue unit alterada. ACBrNFeDANFEFR.pas

No Demo quando clicava em Imprimir abria e imprimia OK. Após atualizar o Fastreport carrega a janela mas fica sem conteúdo como se não conseguisse carregar ou localizar o arquivo/XML da NFSe.