Ir para conteúdo
  • Cadastre-se

adilsonpazzini

Membros
  • Total de ítens

    925
  • Registro em

  • Última visita

  • Days Won

    3

Tudo que adilsonpazzini postou

  1. Olha só . utilizei novamente o cast mais agora me vez de transformar em Varchar troquei pra Blob Binario , assim cast(X.XMLNFE as blob sub_type 0) e NESTE caso agora funcionou , sem dar problemas .
  2. Então . realmente eu vi tambem ref a isso , de atualizar o Firebird , mais vi que era um problema da Versão 2.1 ... Como converti para versão 2.5.1 achei que não era pra dar esse problema .
  3. Pra gravar , vc utiliza qual aQCAD.ParamByName('XMLNFE').ASSTRING := UTF8Encode(ANFE.NotasFiscais.Items[0].XML); ou assim aQCAD.ParamByName('XMLNFE').LoadFromStream(aXML_ARQ,ftBlob);
  4. Tentei fazer igual ao seu mais continua o problema , E o pior é que quando a NF é emitida por mim , utilizo a mesma rotina . tanto pra gravação quanto pra leitura e funciona normal , agora quando pego xml de fornecedores pra gravar . ai da o problema ...
  5. Obrigado Isaque , so uma duvida , vc está granvando no banco como BLOB SUB_TYPE 1 , qual character set vc utiliza , e tambem se puder como vc esta gravando no banco de dados , so pra verificar se tem alguma diferença . Adilson Pazzini .
  6. Boa pessoal estou com um problema na Gravação do XML de terceiros (No caso meus fornecedores , onde baixo pelo portal da NFe) no Banco de Dados . Estou utilizando Firebird 2.5.1 , Delphi7 e ACBRNfe . Abaixo a estrutura da tabela no firebird pra gravação do xml : CREATE TABLE PCANFEXML (ID_NFE INTEGER NOT NULL, DATA DATA , XMLNFE BLOB SUB_TYPE 1 SEGMENT SIZE 8192 CHARACTER SET UTF8); Ou seja campo Blob Textual , utilizando como Character Set o UTF8 , mais tambem ja tentei como ISO8859_1 . Abaixo a Rotina de gravação para o Banco de Dados no DELPHI7.até assim está gravando no banco de dados . mais o problema e na hora de recuperar a informacao q ta dando problema . procedure GRAVA_XMLFOR_BANCO(aQCAD:TQuery;aID_NF:Integer;aNFE:TACBRNFe); begin //===> Rotina Incluida para Ver se campo nNF esta vazio ou não... if aNFE.Notasfiscais.Items[0].NFe.Ide.nNF <> 0 then begin aQCAD.Close; aQCAD.SQL.CLEAR; aQCAD.SQL.ADD('UPDATE OR INSERT INTO PCANFEXML (ID_NFE,XMLNFE,DATA) VALUES (:ID_NF,:XMLNFE,:DATA) MATCHING (ID_NFE)') aQCAD.ParamByName('ID_NF').asinteger := aID_NF; aQCAD.ParamByName('XMLNFE').ASSTRING := UTF8Encode(ANFE.NotasFiscais.Items[0].XML); // aQCAD.ParamByName('XMLNFE').LoadFromStream(aXML_ARQ,ftBlob); //-- >UTILIZEI ESSAS DUAS OPCOES PARA ARMAZENAMENTO , POREM NENHUM // DEU CERTO , TANTO A DE CIMA PARA A DE BAIXO . aQCAD.ParamByName('DATA').AsDateTime := now; aQCAD.EXECSQL; end; end; Abaixo agora a rotina pra recuperacao do xml gravado no banco . Onde que ocorre o erro = Inválid BLOB ID if not livm01.QCONS1.FieldByName('XMLNFE').isnull then begin dmnfe.NFe.NotasFiscais.Clear; try aXML := TStringStream.Create(livm01.QCONS1.FieldByName('XMLNFE').value); //--- O Erro ocorre nesta linha ,. qndo vai ler o campo XMLNFE . dmnfe.NFe.NotasFiscais.LoadFromStream(aXML); Finally FreeAndNil(aXML); end; end; A unica forma que consegui trazer os dados da banco sem dar o erro . tive que converter o campo BLOB em Varchar utilzando a funcao CAST do firebird . cast(b.xmlnfe as varchar(32765)) xmlnfe , so assim consegui trazer o xml pro compoenente se dar o erro de inválid BLOB ID . e outra ,. esse problema esta dando apenas para NF que vem de terceiro ou é baixada pelo Portal da NF-e . Qndo eu mesmo faço a emissao da NF-e e gravo e depois tento consultar da certo . mais pra nf de terceiro ja fica apresentando esse erro . Se alguem ja tiver passado por isso . e puder me ajudar . agradesço . Adilson Pazzini.
  7. nfe.NotasFiscais.Items[0].NFe.procNFe.cStat NFE.WebServices.Cancelamento.cStat Existem algumas propriedades do ACBR q te trazem o resultado do envio , mais ai tambem é preciso tratar . alguns tipos de excessoes , por exemplo , quando vc consegue enviar uma nf-e pro sefaz , mais por algum problema o retorno nao chega ate vc , devido a queda de internet ou energia . algo parecido . mais tem a propriedade cstat , q vc consegue pegar o codigo de retorno de uma NF-e . Adilson .
  8. Esse são Free tambem ?
  9. Seguinte ref ao problema do Fortes qnto imprimir uma folha por vez . vc poderia contornar utilizando uma rotina assim for i = 1 to numcopias do AcbrDanfe.Imprimir ;
  10. '[sTATUS]'+sLineBreak+ 'Arquivo='+NFSe.NotasFiscais.Items[0].NomeArq+sLineBreak+ 'DtRetorno='+iif(NFSe.WebServices.enviar.DataRecebimento = 0,'',DateTimeToStr(NFSe.WebServices.enviar.DataRecebimento))+sLineBreak+ 'Protocolo='+NFSe.WebServices.ConsLote.Protocolo+sLineBreak+ 'Situacao='+NFSe.WebServices.ConsSitLote.Situacao+sLineBreak+ 'CodVerificacao='+Nfse.NotasFiscais.Items[0].NFSe.CodigoVerificacao+sLineBreak+ 'Numero='+Nfse.NotasFiscais.Items[0].NFSe.numero+sLineBreak;
  11. Vc pode adicionar como Texto tambem ref ao item na tag infAdProd ... Adilson .
  12. Flw velhão . No caso pros provedores que roda são os listados abaixo . Somente os que utilizam o padrao ABRASF . 12/12/2012 15:56 26.513 ACBrProvedorAbaco.pas 26/11/2012 08:25 22.964 ACBrProvedorBetha.pas 28/12/2012 14:53 25.717 ACBrProvedorBetim.pas 18/12/2012 17:07 27.304 ACBrProvedorBHISS.pas 12/12/2012 15:56 25.982 ACBrProvedorDigifred.pas 12/12/2012 15:56 23.855 ACBrProvedorEquiplano.pas 12/12/2012 15:56 27.336 ACBrProvedorfintelISS.pas 12/12/2012 15:56 24.336 ACBrProvedorfISSLex.pas 12/12/2012 15:56 26.360 ACBrProvedorGinfesV3.pas 14/12/2012 18:14 23.771 ACBrProvedorGoiania.pas 12/12/2012 15:56 37.505 ACBrProvedorGovBR.pas 14/12/2012 18:14 22.148 ACBrProvedorISSCuritiba.pas 12/12/2012 15:56 25.203 ACBrProvedorISSIntel.pas 10/01/2013 15:52 29.037 ACBrProvedorISSNet.pas 12/12/2012 15:56 25.944 ACBrProvedorProdemge.pas 12/12/2012 15:56 23.395 ACBrProvedorPublica.pas 12/12/2012 15:56 25.423 ACBrProvedorRecife.pas 12/12/2012 15:56 24.476 ACBrProvedorRJ.pas 12/12/2012 15:56 26.975 ACBrProvedorSaatri.pas 14/12/2012 18:14 30.059 ACBrProvedorSimplISS.pas 12/12/2012 15:56 25.418 ACBrProvedorThema.pas 12/12/2012 15:56 24.605 ACBrProvedorTiplan.pas 10/01/2013 15:52 35.309 ACBrProvedorWebISS.pas
  13. e esta mesmo , aqui funcionou blz.
  14. Seguinte velho , dentro da pasta dos fontes do Danfse , vc tem la os fontes pra substituir na compilacao ... so copia eles e sobrepor . ai vc consegue compilar.
  15. Boa tarde , aproveitando o topico, tambem estou com dificudades pra pegar o retorno do cancelamento , no caso o protocolo ou confirmacao do cancelamento , vi no exemplo do ACBRNFSeDemo , mais esta retornando vazio . utilizo GINFES tatui . Desde ja agradesço Adilson Pazzini
  16. Ai , vc tera que utilizar o acbrnfemonitor e se comunicar por arquivo texto ou tcp-ip , pois como o certificado fica em uma maquina , as outras com certeza vc nao vai conseguir emitir . ai a unica forma é utilizando o monitor mesmo .
  17. Estou tentando enviar rps para GINFES Tatui , qndo o cliente tem por exemplo o campo & Na razao social , o mesmo retorna com o erro "Arquivo enviado fora da estrutura do arquivo XML de entrada." Ai tentei utilizar a função ParseText(Razao,false,true) , e me retorna dai com outro erro "O documento XML difere da assinatura." , a unica saida que encontrei foi utilizar um replace de "&" para "e" . pra poder aceitar . se alguem tiver outra solução que fique melhor , agradesceria se puder postar . Desde ja agradesço . Adilson Pazzini .
  18. xic no urtimo !!!
  19. Saiu a noticia ref a prorrogação para cancelamento por evento , queria saber se ela será valida para todos os estados ou não , pois como tenho sistemas para outros estados , se nao teria que criar parametro de cancelamento se sera por evento ou o atual . Se alguem souber agradesço Adilson Pazzini . Conforme o Ajuste Sinief 16/12 houve prorrogação de prazo para o cancelamento normal da NF-e, portanto até a data mencionada neste ajuste (31/03/2013), poderão ser utilizadas as duas formas de cancelamento, tanto o modelo atual quanto o futuro (registro de evento).
  20. Preciso de um sistema pra controle de Transportadoras com CT-e integrado . Adilson Pazzini .
  21. Mandei tambem em outro forum . segue abaixo : Paulo Albuquerque View profile Translate to English More options Nov 21, 9:14 am Bom Dia, Adilson! Nesta TAG os campos obrigatórios são o cpodigo da ANP e a UF do estado de consumo, as demais são facultativas. De acordo com a NT 2012.003b, apartir do dia 19 de novembro entrariam em vigor algumas novas regras, incluindo esta do Grupo L1. Aqui no Ceará (e creio que em todo o país) não tem jeito, tem que ser informado pelo menos os dois campos obrigatórios. Na própria NT existe uma tabela com vários produtos incluindo seu código ANP, entre eles existem vários tipos de óleos. Em 21 de novembro de 2012 08:05, ADILSON escreveu: - Show quoted text - -- Um grande abraço! Paulo Albuquerque OBS: Brincadeira o governo ja tem o tal do NCM agora o ANP pra oleo ... onde vamos parar ..
  22. Rejeição - 660 - CFOP de Combustivel e não foi informado grupo de Combustivel da NF-e. Salve galera , estou com um problema para o Estado de GOIAS , um cliente meu foi faturar Oleo pra um cliente consumidor final , com o CFOP - [5656 Venda de combustível ou lubrificante adquirido ou recebido de terceiros destinado a consumidor ou usuário final] , A partir de hoje o webservice deles . rejeitou com o erro 660 , Agora fiquei em duvida , pois como se trata de Oleo e não de Combustivel , mesmo assim devo preencher a TAG - L1 - Detalhamento Específico de Combustíveis , pois vi q la a unica informação q pode ser lançada como oleo seria a tag L102 - cProdANP ref a D02.2 Tabela de Códigos de Produto da ANP (Combustíveis e Lubrificantes) .o restando vi q parece q nao tera como ser informado pois se trata de Combustiveis . queria saber com vc´s se é isso mesmo ... Até a empresa é uma oficina de Motos , e esta vendendo oleo para o Cliente . Desde já agradesço . Sem mais, Adilson Pazzini .
  23. Entao , mais esses campos . podem alterar o valor da soma do agrupamento . o que vc pode fazer , ou é informalos na sequencia ex: SELECT DATA , CODPRODUTO , CAMPO1 , CAMPO2 , CAMPO3 , SUM(CAMPO_VALOR1) , SUM(CAMPO_VALOR2) FROM TABELA WHERE DATA >= '00/00/0000' AND DATA <= '00/00/0000' GROUP BY DATA , CODPRODUTO , CAMPO1 , CAMPO2 , CAMPO3 Pra group by . vc nunca vai conseguir usar com * , sempre terá que informar os campos . Ai o que vc precisa ver é se no informando campo o valor nao soma com por agrupar errado ... ai o que vc pode fazer, ou criar um stored procedure no Firebird q te resulte o valor , ou vc faz um query com o agrupamento por dia e codigo do produto e depois faz outra query em seguida com as outras informações que vc precisa ver . Adilson .
  24. select DATA , CODPRODUTO , sum(CAMPO_VALOR) FROM TABELA WHERE DATA >= '00/00/0000' AND DATA <= '00/00/0000' GROUP BY DATA , CODPRODUTO Ref a data 00/00/0000 vc informa a data que vc quizer OK , ATÉ O LANCE AI ESTA NO SELECT ...SUM . toda vez q utiliza o SUM , vc deve fazer o group by . Pelos campos que vc quer que agrupe / some o valor .
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...