Jhonlenon Ribeiro

Italo Giurizzato Junior Deu certo aqui pode encerrar o tópico...foi só falta de atenção minha mesmo....fiz assim if DM.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Servico.Valores.IssRetido = stRetencao then begin //----ISS Retido---------------------------------- end else begin //---Não tem ISS Retido------------------------ end;

Bom dia, eu estava precisando saber se o ISS é retido pelo tomador após o envio, para enviar alimento essa tag IssRetido>1</IssRetido até ai tudo bem, só que queria saber se o ISS é retido pelo tomador após o envio pegando o retorno. Uso o componente ACBrNFSeX o provedor Webiss 2.02

Italo Giurizzato Junior Pode encerrar o tópico. Obrigado

Italo Giurizzato Junior Provedor Websiss - Cidade: Araguaína - TO

Italo Giurizzato Junior Deu certo....obrigado...componente ACBrNFSX está top...eu consegui fazer emissão com a prefeitura da minha cidade que usa o provedor websiss, antes que encerrar o top, eu tava querendo fazer o processo de Substituição de NFS-e porque o cancelamento aqui é osso tem que ser feito no mesmo minuto se não a prefeitura não aceita cancelar mais

Boa noite, estou com dúvida em validar pra saber se de fato a NFS-e foi AUTORIZADA na prefeitura, estou fazendo assim, mais queria saber se tem outra forma melhor de fazer isso DM.ACBrNFSeX1.Emitir(vNumLote); if (DM.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.CodigoVerificacao <> '') then begin ShowMessage('nota de serviço gravado com sucesso'); end;

Tocantins

Carlos Lopes (Carlos Violeiro) Só pra te dá um retorno amigo. Hoje consegui AUTORIZAR em homologação aqui no meu estado com TAG CRT

Renato Rubinho Deu certo assim if DM.TRIBUTACAO_COMPLETO = 0 then begin //--------Simples Nacional------------------------------------------------ Emit.CRT := TCRT.crtSimplesNacional; end else begin //------Regime Normal----------------------------------------------------- Emit.CRT := TCRT.crtRegimeNormal; end;

Italo Giurizzato Junior Deu certo fiz assim ai compilou sem erros. if DM.TRIBUTACAO_COMPLETO = 0 then begin Emit.CRT := TCRT(crtSimplesNacional); end else begin Emit.CRT := TCRT(crtRegimeNormal); end; Obrigado.

Verdade esqueci de postar o erro...vou colocar em anexo o print

Italo Giurizzato Junior Boa tarde. estou testando a tag CRT no CT-e e ao compilar dá erro...estou fazendo assim.. with DM.CTE.Conhecimentos.Add.CTE do begin Emit.CRT := crtRegimeNormal;// (1-crtSimplesNacional, 2-crtSimplesExcessoReceita, 3-crtRegimeNormal); end; meus fontes e schemas estão atualizado...eu já queria deixar pronto! para quando sefaz liberar o código já está OK.

Victor H. Gonzales - Panda Ficou top...testei aqui e está funcionando 100% obrigado.

Victor H. Gonzales - Panda Atualizei mais não mostrou o município de descarregamento...copiei o arquivo DAMDFe_Retrato.fr3 da pasta da ACBr e coloquei na minha aplicação e não mostrou o município de descarregamento

Victor H. Gonzales - Panda Não entendi...TK2740

Italo Giurizzato Junior Realmente no manual não fala sobre cidade no DAMDFE...tem só esses fiscal de fronteira que fica com essas exigência...eles não mutaram o cliente...mais falaram que na proxima vez queria o municipio de descarregamento no DAMDFE. Mais ficaria bom para o descarregamento igual você.

Juliomar Marchetti Eu to esse arquivo do fast report.....DAMDFe_Retrato.fr3...não fiz alteração...o fortes report já sai o nome do municipio de descarregamento da NF-e automatico....agora no fast report não sai.

Bom dia, um fiscal estava questionando o nome do municipio de descarregamento no DAMDFe do MDF-e, eu fiz uns testes e vi que no fortes report aparece o nome do municipio de descarregamento da NF-e/CT-e, agora no fast report não aparece. tem que marcar alguma propriedade? ou não tem jeito de sair mesmo no fast report? vou colocar os print em anexo...fast report e fortes report

CarlosAR Meu cadastro tem acesso total a API deles...peça ao gerante de conta do seu cliente pra conseguir o acesso pra vc. O itáu é bem complicado, tem muitas exigencias e tem um contrato onde fala que nós os parceiros não pode falar sobre detalhes técnico da API deles.

CarlosAR Eu tentei fazer uma epoca mais meu cliente desistiu....se vc tiver um cliente que vai usar API e se vc quizer fazer parceria comigo..tamo junto...fiz a V1...mais a V2 do ITAÚ é muito complicado...já fiz integração via API com mais de 11 Bancos...mais o itaú na V2 ainda não fiz. me manda mensagem no privado que eu passo meu zap pra vc...pra gente conversar e trocar experiencias.

Boa noite amigo...você tem que ter acesso ao portal do developers do itaú....toda documentação fica só no site....

Só se a NF-e já estiver manifestada...caso não esteja manifestado aí precisa manifestar antes

BigWings Boa tarde...não entendi muito bem esse código...queria testar ele....na consulta pego primeiro...CHAVE DE ACESSO, DATA EMISSÃO, RAZÃO SOCIAL, SITUAÇÃO (Autorizada, Cancelada ou Denegada) e VALOR..com tanta restrição no MD-e estamos usando só pra consulta as chave de acesso..já o donwload do xml completo já uso outro metado baixando direto da sefaz com certificado digital do cliente....mais pra baixar preciso das chaves de acesso.

Juliomar Marchetti Acontece a mesma coisa...testei....mais to começando a entender a situação....o escritório de contabilidade também está consultando as notas do cliente lá...ai deve ser por isso o motivo do problema de não aparecer algumas notas...por exemplo fiz a consulta e estou com ultimo USN 400 ai contabilidade consulta também o ultimo USN ai vai para o 415 e econtrou nota nota nessa consulta...então quando eu vou consultar de novo já vai para o ultimo USN...mais por exemplo digamos que no USN 411 e 412 teve nota nessa consulta....então na minha consulta essas notas não vai aparecer. Existe outra questão..se voltar o sequencial do USN do cliente dá problema....mais se eu pegar um backup dele do banco de dados e colocar na minha maquina e eu voltar o sequencial do USN traz as notas que estão faltando. Acho Ambiente de consulta do MD-e deve gravar IP + NOME DA MAQUINA ou Enão o proprio MAC da Placa de Rede do computador que está consultando....fiz em 2 clientes e deu certo. Acho que o fsist deve ter algo pra não deixar acontecer isso...

Renato Rubinho Já debuguei e os aqruivos *-dist-dfe.xml e todos os arquivos que venho está gravando no banco de dados. Vou postar meu código de consultar notas e gravar notas. //-------------Código de consultar notas------------------------------------------ procedure TF_nfe_destinda.ConsultarNotas; var CUF, j, i, HOTA_ULTIMO_NSU : Integer; CNPJ , UNSU, CHAVE, NR_NFE, EMITENTE, STATUS, CONSULTAR_ULTIMO_NSU : String; DATA, DATA_HORA : TDateTime; var VALOR_NFE : Currency; begin CNPJ_NFE:=''; //---------Preenchimento das Variáveis-------------------------------------- CUF := UFtoCUF(DM.sUF); CNPJ := DM.sCNPJ; UNSU :=DM.ULTIMO_NSU_COMPLETO; try //-----Consulta de NF-e por Ultimo NSU------------------------------------ HOTA_ULTIMO_NSU :=0; HOTA_ULTIMO_NSU :=DM.conecta.ExecSQLScalar('SELECT IFNULL(TIMESTAMPDIFF (HOUR,Data_Ultimo_NSU,NOW()),0) AS QTD_Horas FROM empresa WHERE CodLoja =:COD_LOJA', [DM.COD_LOJA]); if HOTA_ULTIMO_NSU < 1 then begin Mensagem('Atenção! consulta de NF-e realizada em menos de 1 hora. Aguarde', mtInformation, [mbOK], 0); exit; end; DM.ACBrNFE1.DistribuicaoDFePorUltNSU(CUF,CNPJ,UNSU); except begin if intToStr(DM.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat) = '137' then begin DM.conecta.ExecSQL('update empresa set Data_Ultimo_NSU = NOW() where CodLoja =:COD_LOJA', [DM.COD_LOJA]); Mensagem('137 - Retorno: Não existe NF-e para ser consultada na Sefaz. Aguarde 1 hora' + #13+ 'para realizar uma nova consulta e evitar Consumo Indevido (Bloqueio no DF-e)', mtInformation, [mbOK], 0); exit; end; if intToStr(DM.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat) = '656' then begin DM.conecta.ExecSQL('update empresa set Data_Ultimo_NSU = NOW() where CodLoja =:COD_LOJA', [DM.COD_LOJA]); Mensagem('656 - Rejeição: Consumo Indevido. Aguarde 1 hora para realizar nova consulta', mtInformation, [mbOK], 0); exit; end else begin Mensagem('Atenção! problema no DF-e da sefaz aguarde alguns minutos', mtInformation, [mbOK], 0); Abort; end; end; end; //----------Vai gravar no banco o último NSU--------------------------------- UNSU := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; GravaUltimaOperacao(StrToInt(UNSU)); //------Vai listar as chaves e Gravar no banco------------------------------- j := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count -1; if J = -1 then begin DM.conecta.ExecSQL('update empresa set Data_Ultimo_NSU = NOW() where CodLoja =:COD_LOJA', [DM.COD_LOJA]); if Application.MessageBox('Atenção..não exsite registro de NF-e nessa consulta','SYSPDV', MB_OK) = IDOK then exit; end; for i := 0 to j do begin Application.ProcessMessages; VALOR_NFE := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.vNF; CHAVE := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.chDFe; NR_NFE := RemoveZeros(Copy(CHAVE, 26, 9)); CNPJ_NFE:= DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.CNPJCPF; EMITENTE := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.xNome; DATA := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.dhEmi; DATA_HORA := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.dhEmi; case DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.cSitDFe of snAutorizado : STATUS := 'AUTORIZADA'; snDenegado : STATUS := 'DENEGADA'; snCancelado : STATUS := 'CANCELADA'; end; if CHAVE <> '' then GravaNotaBanco(CHAVE, STATUS, EMITENTE, NR_NFE, VALOR_NFE, DATA, DATA_HORA); end; gridResult.Font.Color := clWhite; end; //---------------Gravo as notas no banco-------------------------------------------------------------------------- procedure TF_nfe_destinda.GravaNotaBanco(ChNFE, StNota, sEMITENTE, sNR_NFE : String; sVALOR : Currency; DtNota : TDateTime; DtNota_Hora :TDateTime); begin //--------Verifica se a nota já está no banco ou não------------------------ with QryVerificaNFe do begin close; sql.clear; sql.add('SELECT Chave_NFe FROM nfe_destinada'); sql.add('where CodLoja_NFe_Destinada =:COD_LOJA'); sql.add('AND CHAVE_NFe =:CHAVE_NFE'); ParamByName('COD_LOJA').AsInteger := DM.COD_LOJA; ParamByName('CHAVE_NFE').AsString := ChNFE; Open; end; if QryVerificaNFeChave_NFe.AsString <> ChNFE then begin QryNotas.Insert; QryNotas.FieldByName('CODIGO_NOTA').AsString := sNR_NFE; QryNotas.FieldByName('CHAVE_NFe').AsString := ChNFE; QryNotas.FieldByName('VALOR').AsFloat := sVALOR; QryNotas.FieldByName('Nome_Emitente').AsString := sEMITENTE; QryNotas.FieldByName('DATA_EMISSAO').AsDateTime := DtNota; QryNotas.FieldByName('Ja_Baixada').AsString := 'SIM'; QryNotas.FieldByName('STATUS_NFe').AsString := StNota; QryNotas.FieldByName('CodLoja_NFe_Destinada').AsInteger := DM.COD_LOJA; QryNotas.FieldByName('CPF_CNPJ_NFe').AsString :=CNPJ_NFE; QryNotas.FieldByName('Data_Hora_Emissao').AsDateTime :=DtNota_Hora; QryNotas.Post; DM.conecta.ExecSQL('UPDATE nfe_destinada n INNER JOIN entradas e ON e.NumeroNota = n.Codigo_NOTA SET n.NFe_Ja_Lancada = "SIM" WHERE e.CPF_CNPJ_For_Entrada = n.CPF_CNPJ_NFe AND N.Codigo_NOTA =:NFE AND n.CPF_CNPJ_NFe =:CNPJ_CPF AND e.CodLoja_Entrada =:COD_LOJA', [sNR_NFE, CNPJ_NFE, DM.COD_LOJA]); end; with QryAux do begin Close; SQL.Clear; SQL.Add('SELECT IdNF_Dest, NFe_Ja_Lancada, Codigo_NOTA, Nome_Emitente, Status_NFe, Chave_NFe, Data_Emissao, XML, Valor, Ja_Manifestada, NFe_Manifestada FROM NFE_DESTINADA'); SQL.Add('where cast(Data_Emissao As Date) BETWEEN :DataInicial AND :DataFinal'); SQL.Add('and CodLoja_NFe_Destinada =:COD_LOJA'); SQL.Add('ORDER BY Data_Emissao DESC'); ParamByName('DataInicial').Value := FormatDateTime('yyyy-mm-dd', dataInicial.Date); ParamByName('DataFinal').Value := FormatDateTime('yyyy-mm-dd', dataFinal.Date); ParamByName('COD_LOJA').AsInteger :=DM.COD_LOJA; Open; end; gridResult.Font.Color := clWhite; end;