Painel de líderes

Recebemos de nossa comunidade o relato de que a SEFAZ-PE apresenta problemas na emissão de NFe, a qual por este motivo habilitou a contingência e está utilizando a SEFAZ Virtual do RS. A seguir transcrição do retorno recebido pelo colega

Olá pessoal, Isso mesmo propriedades Salvar, no plural. Vocês já devem ter notado que os componentes que se utilizam de WebServices possuem 3 propriedades Salvar. Vamos a elas: Configuracoes.Arquivos.Salvar := True ou False; Se o valor for True ele salva em disco os XMLs que o emitente tem a obrigação legal de manter guardados. No caso da NF-e (por exemplo) os arquivos são: *-nfe.xml; *-procInutNFe.xml, respectivamente o XML da nota fiscal, o XML de um evento (cancelamento, carta de correção, etc.) e o XML de inutilização de um numero ou faixa de números. Configuracoes.Arquivos.SalvarEvento := True ou False; Se o valor for True, ele salva em disco os XMLs dos eventos relacionados a NF-e, no caso o *-procEventoNFe.xml. Configuracoes.Geral.Salvar := True ou False; Se o valor for True ele salva em disco os XMLs secundários que são os de envio e de retorno. Configuracoes.WebServices.Salvar := True ou False; Se o valor for True ele salva em disco os XMLs secundários que são os de envio e de retorno envelopados, note que eles tem o mesmo nome dos arquivos de envio e de retorno mas com o sufixo -soap. Utilizamos muito os arquivos "soap" durante o desenvolvimento pois eles são mais completos e podem nos trazer informações que ajudam a resolver alguns problemas com os webservices. Dica: Caso você vai guardas os XMLs no banco de dados, pode deixar os 3 Salvar com o valor False. Por outro lado se você pretende salvar somente em disco ou além do banco de dados que ter uma cópia em disco, deve pelo menos atribuir o valor True a propriedade Configuracoes.Arquivos.Salvar. Observação: No componente ACBrNFe temos a propriedade Configuracoes.Arquivos.SalvarApenasNFeProcessadas, não atribua o valor True a essa propriedade, pois se atribuir o XML da nota só vai ser salvo em disco se a nota for autorizada pela SEFAZ. Caso ocorra algum erro de internet como por exemplo Timeout, você não tem o XML para carregar e realizar a consulta afim de saber se nota foi recepcionada pela SEFAZ ou não. Propriedade de nome semelhante esta presente nos componentes ACBrCTe, ACBrMDFe e ACBrBPe. Volto a frisar, não atribua o valor True a essa propriedade.

LoadLayout('<B> NOTA FISCAL|1'); LoadLayout('<B01> A|4.00|^id^'); LoadLayout('<B01> B|cUF¨|cNF¨|NatOp¨|mod¨|serie¨|nNF¨|dhEmi¨|dhSaiEnt¨|tpNF¨|idDest¨|cMunFG¨|tpImp¨|tpEmis¨|CDV¨|tpAmb¨|finNFe¨|indFinal¨|indPres¨|indIntermed¨|procEmi¨|verProc¨|dhCont¨|xJust¨'); LoadLayout('<BA> BA02|refNFe¨'); LoadLayout('<BA03> BA03|cUF¨|AAMM¨|CNPJ¨|Mod¨|serie¨|nNF¨'); LoadLayout('<BA10> BA10|cUF¨|AAMM¨|IE¨|Mod¨|serie¨|nNF¨|refCTe¨'); LoadLayout('<BA13> BA13|CNPJ¨'); LoadLayout('<BA14> BA14|CPF¨'); LoadLayout('<BA20> BA20|mod¨|nECF¨|nCOO¨'); LoadLayout('<C01> C|XNome¨|XFant¨|IE¨|IEST¨|IM¨|CNAE¨|CRT¨'); LoadLayout('<C01> C02|CNPJ¨'); LoadLayout('<C01> C02a|CPF¨'); LoadLayout('<C05> C05|XLgr¨|Nro¨|xCpl¨|xBairro¨|CMun¨|XMun¨|UF¨|CEP¨|CPais¨|XPais¨|Fone¨'); LoadLayout('<D01> D|CNPJ¨|XOrgao¨|Matr¨|XAgente¨|Fone¨|UF¨|NDAR¨|DEmi¨|VDAR¨|RepEmi¨|DPag¨'); LoadLayout('<E01> E|XNome¨|indIEDest¨|IE¨|ISUF¨|IM¨|EMAIL¨'); LoadLayout('<E01> E02|CNPJ¨'); LoadLayout('<E01> E03|CPF¨'); LoadLayout('<E01> E03a|idEstrangeiro¨'); LoadLayout('<E05> E05|XLgr¨|Nro¨|XCpl¨|XBairro¨|CMun¨|XMun¨|UF¨|CEP¨|CPais¨|XPais¨|Fone¨'); LoadLayout('<F01> F|XLgr¨|Nro¨|XCpl¨|XBairro¨|CMun¨|XMun¨|UF¨|CEP¨|CPais¨|XPais¨|Fone¨|Email¨|IE¨'); LoadLayout('<F01> F02|CNPJ¨'); LoadLayout('<F01> F02a|CPF¨'); LoadLayout('<F01> F02b|XNome¨'); LoadLayout('<G01> G|XLgr¨|Nro¨|XCpl¨|XBairro¨|CMun¨|XMun¨|UF¨|CEP¨|CPais¨|XPais¨|Fone¨|Email¨|IE¨'); LoadLayout('<G01> G02|CNPJ¨'); LoadLayout('<G01> G02a|CPF¨'); LoadLayout('<G01> G02b|XNome¨'); LoadLayout('<G01> GA02|CNPJ¨'); LoadLayout('<G01> GA03|CPF¨'); LoadLayout('<H01> H|NItem¨|InfAdProd¨'); LoadLayout('<I01> I|CProd¨|CEAN¨||XProd¨|NCM¨|EXTIPI¨|CFOP¨|UCom¨|QCom¨|VUnCom¨|VProd¨|CEANTrib¨||UTrib¨|QTrib¨|VUnTrib¨|VFrete¨|VSeg¨|VDesc¨|VOutro¨|indTot¨|xPed¨|nItemPed¨|nFCI¨|indEscala¨|CNPJFab¨|cBenef¨'); LoadLayout('<I05A> I05a|NVE¨'); LoadLayout('<I05c> I05c|CEST¨'); LoadLayout('<I18> I18|NDI¨|DDI¨|XLocDesemb¨|UFDesemb¨|DDesemb¨|tpViaTransp¨|vAFRMM¨|tpIntermedio¨|CNPJ¨|UFTerceiro¨|CExportador¨'); LoadLayout('<I25> I25|NAdicao¨|NSeqAdic¨|CFabricante¨|VDescDI¨|nDraw¨'); LoadLayout('<I50> I50|nDraw¨'); LoadLayout('<I52> I52|nRE¨|chNFe¨|qExport¨'); LoadLayout('<I80> I80|nLote¨|qLote¨|dFab¨|dVal¨|cAgreg¨'); LoadLayout('<J01> JA|tpOp¨|chassi¨|cCor¨|xCor¨|pot¨|Cilin¨|pesoL¨|pesoB¨|NSerie¨|TpComb¨|NMotor¨|CMT¨|Dist¨|AnoMod¨|AnoFab¨|TpPint¨|TpVeic¨|EspVeic¨|VIN¨|CondVeic¨|CMod¨|cCorDENATRAN¨|lota¨|tpRest¨'); LoadLayout('<K01> K|cProdANVISA¨|xMotivoIsencao¨|vPMC¨'); LoadLayout('<L01> L|TpArma¨|NSerie¨|NCano¨|Descr¨'); LoadLayout('<LA> LA|cProdANP¨|descANP¨|pGLP¨|pGNn¨|pGNi¨|vPart¨|CODIF¨|qTemp¨|UFCons¨'); LoadLayout('<LA07> LA07|QBCProd¨|VAliqProd¨|VCIDE¨'); LoadLayout('<LA11> LA11|nBico¨|nBomba¨|nTanque¨|vEncIni¨|vEncFin¨'); LoadLayout('<LB> LB|nRECOPI¨'); LoadLayout('<M01> M|VTotTrib¨'); LoadLayout('<N01> N|'); //ok LoadLayout('<N02> N02|Orig¨|CST¨|ModBC¨|VBC¨|PICMS¨|VICMS¨|pFCP¨|vFCP¨'); LoadLayout('<N03> N03|Orig¨|CST¨|ModBC¨|VBC¨|PICMS¨|VICMS¨|vBCFCP¨|pFCP¨|vFCP¨|ModBCST¨|PMVAST¨|PRedBCST¨|VBCST¨|PICMSST¨|VICMSST¨|vBCFCPST¨|pFCPST¨|vFCPST¨'); LoadLayout('<N04> N04|Orig¨|CST¨|ModBC¨|PRedBC¨|VBC¨|PICMS¨|VICMS¨|vBCFCP¨|pFCP¨|vFCP¨|VICMSDeson¨|MotDesICMS¨'); LoadLayout('<N05> N05|Orig¨|CST¨|ModBCST¨|PMVAST¨|PRedBCST¨|VBCST¨|PICMSST¨|VICMSST¨|vBCFCPST¨|pFCPST¨|vFCPST¨|VICMSDeson¨|MotDesICMS¨'); LoadLayout('<N06> N06|Orig¨|CST¨|vICMSDeson¨|MotDesICMS¨'); LoadLayout('<N07> N07|Orig¨|CST¨|ModBC¨|PRedBC¨|VBC¨|PICMS¨|VICMSOp¨|PDif¨|VICMSDif¨|VICMS¨|vBCFCP¨|pFCP¨|vFCP¨'); LoadLayout('<N08> N08|Orig¨|CST¨|VBCSTRet¨|pST¨|vICMSSubstituto¨|vICMSSTRet¨|vBCFCPSTRet¨|pFCPSTRet¨|vFCPSTRet¨|pRedBCEfet¨|vBCEfet¨|pICMSEfet¨|vICMSEfet¨'); LoadLayout('<N09> N09|Orig¨|CST¨|ModBC¨|PRedBC¨|VBC¨|PICMS¨|VICMS¨|vBCFCP¨|pFCP¨|vFCP¨|ModBCST¨|PMVAST¨|PRedBCST¨|VBCST¨|PICMSST¨|VICMSST¨|vBCFCPST¨|pFCPST¨|vFCPST¨|VICMSDeson¨|MotDesICMS¨'); LoadLayout('<N10> N10|Orig¨|CST¨|ModBC¨|VBC¨|PRedBC¨|PICMS¨|VICMS¨|vBCFCP¨|pFCP¨|vFCP¨|ModBCST¨|PMVAST¨|PRedBCST¨|VBCST¨|PICMSST¨|VICMSST¨|vBCFCPST¨|pFCPST¨|vFCPST¨|VICMSDeson¨|MotDesICMS¨'); LoadLayout('<N10a> N10a|Orig¨|CST¨|ModBC¨|VBC¨|PRedBC¨|PICMS¨|VICMS¨|ModBCST¨|PMVAST¨|PRedBCST¨|VBCST¨|PICMSST¨|VICMSST¨|pBCOp¨|UFST¨'); LoadLayout('<N10b> N10b|Orig¨|CST¨|vBCSTRet¨|pST¨|vICMSSubstituto¨|vICMSSTRet¨|vBCFCPSTRet¨|pFCPSTRet¨|vFCPSTRet¨|vBCSTDest¨|vICMSSTDest¨|pRedBCEfet¨|vBCEfet¨|pICMSEfet¨|vICMSEfet¨'); LoadLayout('<N10c> N10c|Orig¨|CSOSN¨|pCredSN¨|vCredICMSSN¨'); LoadLayout('<N10d> N10d|Orig¨|CSOSN¨'); LoadLayout('<N10e> N10e|Orig¨|CSOSN¨|modBCST¨|pMVAST¨|pRedBCST¨|vBCST¨|pICMSST¨|vICMSST¨|vBCFCPST¨|pFCPST¨|vFCPST¨|pCredSN¨|vCredICMSSN¨'); LoadLayout('<N10f> N10f|Orig¨|CSOSN¨|modBCST¨|pMVAST¨|pRedBCST¨|vBCST¨|pICMSST¨|vICMSST¨|vBCFCPST¨|pFCPST¨|vFCPST¨'); LoadLayout('<N10g> N10g|Orig¨|CSOSN¨|vBCSTRet¨|pST¨|vICMSSubstituto¨|vICMSSTRet¨|vBCFCPSTRet¨|pFCPSTRet¨|vFCPSTRet¨|pRedBCEfet¨|vBCEfet¨|pICMSEfet¨|vICMSEfet¨'); LoadLayout('<N10h> N10h|Orig¨|CSOSN¨|modBC¨|vBC¨|pRedBC¨|pICMS¨|vICMS¨|modBCST¨|pMVAST¨|pRedBCST¨|vBCST¨|pICMSST¨|vICMSST¨|vBCFCPST¨|pFCPST¨|vFCPST¨|pCredSN¨|vCredICMSSN¨'); LoadLayout('<NA> NA|vBCUFDest¨|vBCFCPUFDest¨|pFCPUFDest¨|pICMSUFDest¨|pICMSInter¨|pICMSInterPart¨|vFCPUFDest¨|vICMSUFDest¨|vICMSUFRemet¨'); LoadLayout('<O01> O|CNPJProd¨|CSelo¨|QSelo¨|CEnq¨'); LoadLayout('<O07> O07|CST¨|VIPI¨'); LoadLayout('<O07> O10|VBC¨|PIPI¨|VIPI¨'); LoadLayout('<O07> O11|QUnid¨|VUnid¨|VIPI¨'); LoadLayout('<O08> O08|CST¨'); LoadLayout('<P01> P|VBC¨|VDespAdu¨|VII¨|VIOF¨'); LoadLayout('<Q01> Q'); //ok LoadLayout('<Q02> Q02|CST¨|VBC¨|PPIS¨|VPIS¨'); LoadLayout('<Q03> Q03|CST¨|QBCProd¨|VAliqProd¨|VPIS¨'); LoadLayout('<Q04> Q04|CST¨'); LoadLayout('<Q05> Q05|CST¨|VPIS¨'); LoadLayout('<Q05> Q07|VBC¨|PPIS¨|VPIS¨'); LoadLayout('<Q05> Q10|QBCProd¨|VAliqProd¨'); LoadLayout('<R01> R|VPIS¨'); LoadLayout('<R01> R02|VBC¨|PPIS¨|VPIS¨'); LoadLayout('<R01> R04|QBCProd¨|VAliqProd¨|VPIS¨'); LoadLayout('<S01> S'); //ok LoadLayout('<S02> S02|CST¨|VBC¨|PCOFINS¨|VCOFINS¨'); LoadLayout('<S03> S03|CST¨|QBCProd¨|VAliqProd¨|VCOFINS¨'); LoadLayout('<S04> S04|CST¨'); LoadLayout('<S05> S05|CST¨|VCOFINS¨'); LoadLayout('<S05> S07|VBC¨|PCOFINS¨'); LoadLayout('<S05> S09|QBCProd¨|VAliqProd¨'); LoadLayout('<T01> T|VCOFINS¨'); LoadLayout('<T01> T02|VBC¨|PCOFINS¨'); LoadLayout('<T01> T04|QBCProd¨|VAliqProd¨'); LoadLayout('<U01> U|VBC¨|VAliq¨|VISSQN¨|CMunFG¨|CListServ¨|VDeducao¨|VOutro¨|VDescIncond¨|VDescCond¨|VISSRet¨|IndISS¨|CServico¨|CMun¨|CPais¨|NProcesso¨|IndIncentivo¨'); //ok LoadLayout('<U50> UA|PDevol¨'); LoadLayout('<U60> UA3|vIPIDevol¨'); LoadLayout('<W01> W'); //ok LoadLayout('<W02> W02|vBC¨|vICMS¨|vICMSDeson¨|vFCP¨|vBCST¨|vST¨|vFCPST¨|vFCPSTRet¨|vProd¨|vFrete¨|vSeg¨|vDesc¨|vII¨|vIPI¨|vIPIDevol¨|vPIS¨|vCOFINS¨|vOutro¨|vNF¨|vTotTrib¨'); LoadLayout('<W04c> W04c|vFCPUFDest¨'); LoadLayout('<W04e> W04e|vICMSUFDest¨'); LoadLayout('<W04g> W04g|vICMSUFRemet¨'); LoadLayout('<W17> W17|VServ¨|VBC¨|VISS¨|VPIS¨|VCOFINS¨|dCompet¨|vDeducao¨|vOutro¨|vDescIncond¨|vDescCond¨|vISSRet¨|cRegTrib¨'); LoadLayout('<W23> W23|VRetPIS¨|VRetCOFINS¨|VRetCSLL¨|VBCIRRF¨|VIRRF¨|VBCRetPrev¨|VRetPrev¨'); LoadLayout('<X01> X|ModFrete¨'); LoadLayout('<X03> X03|XNome¨|IE¨|XEnder¨|XMun¨|UF¨'); LoadLayout('<X03> X04|CNPJ¨'); LoadLayout('<X03> X05|CPF¨'); LoadLayout('<X11> X11|VServ¨|VBCRet¨|PICMSRet¨|VICMSRet¨|CFOP¨|CMunFG¨'); LoadLayout('<X18> X18|Placa¨|UF¨|RNTC¨'); LoadLayout('<X22> X22|Placa¨|UF¨|RNTC¨'); LoadLayout('<X25a> X25a|Vagao¨'); LoadLayout('<X25b> X25b|Balsa¨'); LoadLayout('<X26> X26|QVol¨|Esp¨|Marca¨|NVol¨|PesoL¨|PesoB¨'); LoadLayout('<X26> X33|NLacre¨'); LoadLayout('<Y01> Y'); //ok LoadLayout('<Y02> Y02|NFat¨|VOrig¨|VDesc¨|VLiq¨'); LoadLayout('<Y07> Y07|NDup¨|DVenc¨|VDup¨'); LoadLayout('<YA01> YA'); //ok LoadLayout('<YA01a>YA01|indPag¨|tPag¨|xPag¨|vPag¨'); LoadLayout('<YA04> YA04|CNPJ¨|tBand¨|cAut¨'); LoadLayout('<YA09> YA09|vTroco¨'); LoadLayout('<Z01> Z|InfAdFisco¨|InfCpl¨'); LoadLayout('<Z04> Z04|XCampo¨|XTexto¨'); LoadLayout('<Z07> Z07|XCampo¨|XTexto¨'); LoadLayout('<Z10> Z10|NProc¨|IndProc¨'); LoadLayout('<ZA> ZA|UFSaidaPais¨|XLocExporta¨|XLocDespacho¨'); LoadLayout('<ZB> ZB|XNEmp¨|XPed¨|XCont¨'); LoadLayout('<ZC> ZB|Safra¨|Ref¨|QTotMes¨|QTotAnt¨|QTotGer¨|VFor¨|VTotDed¨|VLiqFor¨'); LoadLayout('<ZC04> ZC04|Dia¨|Qtde¨'); LoadLayout('<ZC10> ZC10|XDed¨|VDed¨'); LoadLayout('<ZD01> ZD01|CNPJ¨|xContato¨|email¨|fone¨'); LoadLayout('<ZD07> ZD07|idCSRT¨|hashCSRT¨'); indintermed B01, alterações tambem em i01 e ya01... fiz essas modificações e funcionou a importação, mudei também a leitura dos campos, só alterei a da ya01 em pcnnfertxt.pas para ler o campo XPAG if ID = 'YA01' then begin NFe.pag.New; i := NFe.pag.Count - 1; (*YA01b*)NFe.pag[i].indPag := StrToIndpag(ok, LerCampo(tcStr, 'indPag')); (*YA02*)NFe.pag[i].tPag := StrToFormaPagamento(ok, LerCampo(tcStr, 'tPag')); (*YA03*)NFe.pag[i].xPag := StrToFormaPagamento(ok, LerCampo(tcStr, 'xPag')); (*YA04*)NFe.pag[i].vPag := LerCampo(tcDe2, 'vPag'); end; ótimo dia a todos.

@Victor H. Gonzales - Panda Após contato com @Juliana Tamizou, que pediu para criar a chamada aqui. Olá, gostaria de deixar como sugestão, da retirada da property apenas do DFM para atender versões 4 e superiores do FRx, no passado, tivemos esse problema com versao vinda no delphi e quem tinha ela a parte. A sugestão, é instanciar o objeto de exportar pdf no evento Create do datamodule, assim, setar a property manual. pois como foi feito, se alguém com versão 4 editar, vai colocar a property de novo, e quem for versao superior, vai atrapalhar os que usam versao 5 ou maior. Recordo que isso foi arrumado na NF-e, na época dava esse problema com frequência, hoje isso não ocorre mais, foi feito isso: FfrxReport := TfrxReport.Create(AOwner); //Antes de alterar a linha abaixo, queira verificar o seguinte tópico: //https://www.projetoacbr.com.br/forum/topic/51505-travamento-preview-de-v%C3%A1rias-danfes/ FfrxReport.EngineOptions.UseGlobalDataSetList := False; FfrxReport.PreviewOptions.Buttons := [pbPrint, pbLoad, pbSave, pbExport, pbZoom, {$IFNDEF FMX} pbFind,{$ENDIF} pbOutline, pbPageSetup, pbTools, pbNavigator, pbExportQuick]; with FfrxReport do begin EngineOptions.DoublePass := True; StoreInDFM := False; OnBeforePrint := frxReportBeforePrint; OnReportPrint := 'frxReportOnReportPrint'; end; FfrxPDFExport := TfrxPDFExport.Create(AOwner); with FfrxPDFExport do begin Background := FIncorporarBackgroundPdf; EmbeddedFonts := FIncorporarFontesPdf; PrintOptimized := FOtimizaImpressaoPdf; Subject := 'Exportando DANFE para PDF'; ShowProgress := False; end; Linhas: 210 em diante, da unit ACBrNFeDANFEFRDM. Deixo claro: Não estou impondo, apenas sugerindo. PS: Revision: 23267

Olha na pasta dele que tem na unit principal o nome dos bancos que ele atende

Marcelo, Por favor atualize os fontes. Enviei para o SVN as correções para o emitir e para o consultar Nfse por Rps. Por favor faça novos testes.

sugestão cria uma tabela no seu banco com descrição e nome da tag lembrando que tem Nós e carrega dele. tu vai fazer uma vez. e dai leva aos clientes. de n formas, com um script, ou cria uma api pra tu carregar uma vez e quando precisar atualizar só um lugar. dai tu carrega no combobox

Aqui, em meus testes, tudo OK.

Boa tarde @Ita Júnior Funcionou perfeitamente, transmitiu, gerou a nota, e abriu o danfe. Obrigado.

Marcelo, Por favor faça um teste usando a unit em Anexo. Teste somente o emitir, se funcionar vou aplicar a mesma solução para os demais métodos. DataSmart.Provider.pas

No caso o que tu precisaria em si? veja foi colocado os que não podem ser alterados exatamente para que aos novos criados não tenha que ficar refazendo a lista. pois se notar deve ser a primeira vez e desde sempre não foi alterado a lista

Se puder atualizar os fontes e testar, eu agradeço...

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Bom dia, acho que encontrei a solução, fiz o seguinte: 1º Quando tento enviar para a Sefaz/MG e ocorre o erro eu agora salvo o XML Assinado no Banco. Antes estava salvando XML sem assinatura e apenas assinava na hora da consulta; 2º Na hora da Consulta uso o método (ACBrNFe.NotasFiscais.LoadFromString(qryNFCeGravadasXMLASSINADO.Value) com o XML Assinado, garantindo a igualdade dos XML entre Sefaz e meu Sistema; Estou realizando os teste e em homologação tá tudo certo! Obrigado.

Bom dia Mestre Italo ... desculpe a demora, mas o cliente mudou algumas prioridades e voltei na NFSe hoje ... Realmente deu certo sua dica ... eu estava mandando OutrasInformacoes := 'xxxxxxx' + #13#110 + 'yyyyyy' e isso q gerou o espaço na tag Agora a nota passou. Sem palavras para te agradecer. Abração

Bom dia! Consegui resolver. É no software. Epson Utilitys. Obrigado.

Obrigado Juliana pela resposta, pensei que a unit podia não estar atualizando pelo SVN e talvez anexar aqui para download, mas exclui a unit e fiz o Update e trouxe ela normalmente, ainda estou estudando mas não sei o porque não está trazendo a UF na remessa, já testei com outros bancos e trazem a UF, já fiz ajustes nas fontes comparadas com as de outros bancos, mas apenas o Sicredi não traz. Quanto ao plano Pro tenho apenas um cliente que emite boleto, está usando hoje a CEF e está mudando para o Sicredi, então vou avaliar o custo tendo e vista que apenas este cliente com boleto. Obrigado mais uma vez e vou aguardando as respostas.

Olá pessoal, tudo bem? Estamos com 3 vagas para Full Stack Developer na T2Ti. Na T2Ti nós fazemos as coisas um pouco diferentes. Aqui nós trabalhamos no esquema Sprint Work. E o que é isso? A cada três semanas trabalhadas, folgamos uma semana. Você vai trabalhar de segunda a sexta, de 9hs as 18hs de modo remoto. As tarefas são disponibilizadas no Trello. A comunicação do time se dá via Slack. Confira no link abaixo: http://t2ti.com/carreira/

Olá Pessoal, Foi publicado a versão 1.10 da Nota Técnica 2014/002 (publicada em 15/10/2021), nessa nova versão consta algumas mudanças no processamento das requisições de Distribuição a partir do NSU informado, mais precisamente quando informamos o ultNSU. Umas das coisas que não mudou apenas foi reforçado nessa NT é que os documentos recepcionados pelo Ambiente Nacional vão ficar disponíveis por no máximo 3 meses, ou seja, 90 dias. Vamos as mudanças: 1. O Ambiente Nacional vai passar ter um controle de acesso de cada usuário do serviço, ou seja, com esse controle o AN vai saber se o usuário utiliza o serviço de forma continua ou esporádica. 2. Os usuário que já utilizam o serviço de forma continua não vai notar nenhuma diferença, tudo vai ocorrer normalmente. 3. Para os novos usuários do serviço, bem como aqueles que por algum motivo deixaram de utilizar o serviço por um período de 60 dias ou mais, ao realizar o primeiro acesso será retornado o status 137 (Nenhum documento localizado), neste caso o usuário deverá aguardar por 1 hora para cumprir as regras do uso indevido. Cumprido o prazo poderá acessar novamente e caso tenha documentos, estes serão retornados. Essas mudanças vão entrar em vigor a partir de 01/11/2021 no ambiente de homologação e 08/11/2021 no ambiente de produção. Recomendações Para Evitar o Uso Indevido A análise do comportamento atual das aplicações das empresas (“aplicação cliente”) permite identificar algumas situações de “uso indevido” nos ambientes autorizadores. Como exemplo maior do mau uso do ambiente, ressalta-se a falta de controle de algumas aplicações que entram em “loop”, consumindo recursos de forma indevida, sobrecarregando principalmente o canal de comunicação com a Internet. Para este Web Service serão mantidos controles para identificar as situações de uso indevido de sucessivas tentativas de busca de registros já disponibilizados anteriormente, quando utilizada a tag: distNSU. As novas tentativas serão rejeitadas com o erro “656–Rejeição: Consumo Indevido”. O uso indevido relativo ao Web Service NFeDistribuicaoDFe na consulta com tag:distNSU é baseado nos critérios descritos abaixo: 1) Não há mais documentos a distribuir e usuário continua consultando: Se não existir mais documentos a serem retornados (cStat=137) o usuário deve aguardar uma hora para realizar nova consulta. A realização de novas consultas em 1h, após receber a mensagem cStat137, pode gerar o uso indevido, retornando cStat=656. Nesse caso, o CNPJ é bloqueado por 1 hora, sendo impedido de realizar novas consultas nesse intervalo. Decorrido o intervalo de tempo, o desbloqueio será automático. O campo xMotivo traz a seguinte descrição para ajudar o usuário a entender o que está causando o uso indevido: “Rejeição: Consumo Indevido. Deve ser aguardado 1 hora para efetuar nova solicitação caso não existam mais documentos a serem pesquisados. Tente após 1 hora”. 2) Usuário não está consultando os NSU de forma sequencial: O usuário deve sempre realizar a consulta baseada no ultNsu retornado na consulta anterior, ou seja, deve usar os valores do ultNSU retornados pelo serviço nas chamadas subsequentes. O valor do ultNSU corresponde ao ponto de onde a leitura dos blocos de documentos deve continuar. Quando ultNSU for igual ao valor do maxNSU retornado pelo serviço, quer dizer que não existem mais documentos para serem recuperados. Neste caso, para não haver bloqueio por uso indevido, deve-se aguardar 1 hora para realização de novas consultas. Se consultar fora da sequência, poderá ser bloqueado. Decorrido o intervalo de tempo, o desbloqueio será automático. O campo xMotivo traz a seguinte mensagem: “Rejeição: Consumo Indevido. Deve ser utilizado o ultNSU nas solicitações subsequentes. Tente após 1 hora” Atenção: Se diversas aplicações do mesmo ator (emitente ou destinatário ou transportador na NF-e ou indicado no campo autxml) da NF-e efetuarem consultas por NSU para o mesmo CNPJ (14 dígitos – informado na requisição xml), essas devem seguir a mesma sequência de numeração ordenada e de forma ascendente. Caso contrário, enquadrar-se-ão na categoria de uso indevido. Link para baixar a NT: Portal da Nota Fiscal Eletrônica (fazenda.gov.br)

Oi @Valter de Sousa - IDEASyS, sim. Coloque o código abaixo no seu .dpr que dá certinho. {$R *.res} var MutexHandle: THandle; hwind: HWND; N, D: string; begin N := ExtractFileName(ParamStr(0)); { Retira o path } D := ChangeFileExt(N, ''); { Retira a extensão } MutexHandle := CreateMutex(nil, TRUE, PChar(D)); if MutexHandle <> 0 then begin if GetLastError = ERROR_ALREADY_EXISTS then begin CloseHandle(MutexHandle); hwind := 0; repeat hwind := Windows.FindWindowEx(0, hwind, 'TApplication', 'Nome da Sua Aplicação'); until (hwind <> Application.Handle); if (hwind <> 0) then begin Windows.ShowWindow(hwind, SW_SHOWNORMAL); Windows.SetForegroundWindow(hwind); end; Halt; end end; Application.Initialize; .....

Talvez esse tópico ajude...