Search the Community

Sem instalar ACBr, Uninfe ou outro produto de terceiros : Acompanha sistema para restaurante ( NFC-e ), rotinas testadas para o estado do PR. https://produto.mercadolivre.com.br/MLB-1294194912-nfe-nfce-40-clipper-harbour-codigo-fonte-completo-_JM?quantity=1 Sistema para escola/curso : https://produto.mercadolivre.com.br/MLB-1294408611-clipper-harbour-sistema-escolacurso-codigo-fonte-cmysql-_JM?quantity=1 Pacote xBase - sistema restaurante ( mysql ) - sistema imobiliária ( mysql ) - sistema escola/curso ( mysql ) - sistema ordem serviço ( mysql ) - sistema cancha futebol/escolinha ( dbf/cdx ) - sistema administrativo ( dbf/cdx ) - sistema pizzaria ( dbf/cdx ) - sistema médico/secretária ( dbf/cdx ) https://produto.mercadolivre.com.br/MLB-968688219-pacote-xbase-2019-clipper-harbour-mysql-nfcenfe-40--_JM?quantity=1&variation=20067609615 contato : ( 41 ) 9.99786-3995 ( WhatsApp ) e-mail : marcelo.souza.das.neves@gmail.com

Amiguinhos, Recentemente em cancelamento de NF-e comecei a obter este erro de resultado. Motivo: 493 - Envio não atende o Schema XML especifico Estou usando o ACBrNFeMonitor 1.2.0.62 mas aconteceu com o 1.1.0.54. Alguém já passou por isto? Como resolveu? Em busca no forum ACBr, Tecnospeed e OOBJ só encontrei respostas tipo este erro pode significar @braços

Amigos, parece que o BAIXAR XML do site do PC TOLETO e discutido bastante aqui, parou de funcionar, alguem pode confirmar? att.

Boa tarde amigos! Criei uma rotina para alterar arquivos XML. A rotina está legal, mas a data de criação do arquivo está sendo alterada. Existe alguma forma de resolver isso, ou seja, alterar o arquivo sem mexer na data de criação do mesmo? Obs.: Estou usando as funções Memoread() e Memowrit().

Galera a um tempo atras consegui aqui no forum ( nao lembro o autor ) esta rotina para gerar a partir da XML ASSINADA a XML PROTOCOLADA ou seja autorizada NFE, funciona perfeito. Agora quero fazer o mesmo para NFCe , mas acho q na hora de incluir as tags no final da algum problema na xml quando tendo edita-la nao vem no formato , segue rotina: cFileXmlAssinado := w_dbfPath + cSubPastaAssinadas_ + Alltrim(cChave)+".xml" cFileXmlProtocolo := w_dbfPath + cSubPastaProtocolos_ + Alltrim(cChave)+"-nfce.xml" //cFileXmlAssinado := w_dbfPath + "remessa\assinado\"+Alltrim(cChave)+".xml" // mudei aqui //cFileXmlProtocolo := w_dbfPath + "remessa\protocolos\"+Alltrim(cChave)+"-nfce.xml" // mudei aqui cArq_Assinado := memoread ( cFileXmlAssinado ) // ? "cFileXmlAssinado" , cArq wIni_Velho:= '<?xml version="1.0" encoding="UTF-8"?><NFe xmlns=' DO CASE CASE AT('versao="1.10"' , cArq_Assinado ) # 0 wIni_Novo := '<?xml version="1.0" encoding="UTF-8"?><nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.10"><NFe xmlns=' CASE AT('versao="2.00"' , cArq_Assinado ) # 0 wIni_Novo := '<?xml version="1.0" encoding="UTF-8"?><nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00"><NFe xmlns=' OTHE wIni_Novo := '<?xml version="1.0" encoding="UTF-8"?><nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10"><NFe xmlns=' ENDCASE cArq_Assinado := StrTran( cArq_Assinado , wIni_Velho , wIni_Novo ) wPosTmpIni := AT("<nNF>",cArq_Assinado) wPosTmpFim := AT("</nNF>",cArq_Assinado) WNFECOD := VAL( SUBS( cArq_Assinado , wPosTmpIni+5 , ( wPosTmpFim - (wPosTmpIni+5) ) ) ) wPosTmpIni := AT("<DigestValue>",cArq_Assinado) wPosTmpFim := AT("</DigestValue>",cArq_Assinado) c_DIGVAL := SUBS( cArq_Assinado , wPosTmpIni+13 , ( wPosTmpFim - (wPosTmpIni+13) ) ) nRet:=oNfeUtil:ConsultaNf( alltrim(cChave) , cFileXmlAssinado , .F. ) // alterado em 12/03/2015 - Paulo If nRet // retorno nfce foi autorizada na sefaz // guarde estas informações em banco de dados c_protocolo :=oNFeUtil:Protocolo c_recibo :=oNFeUtil:Recebimento c_verAplic :=oNFeUtil:VerAplic ? c_protocolo c_STATUS="100" c_MOTIVO:="Autorizado o uso da NFCe" if empty(oNFeUtil:Recebimento) c_protocolo:=left(oNFeUtil:Protocolo,15) c_recibo :=right(alltrim(oNFeUtil:Protocolo),19) c_datanfe :=transform(dtos(ctod(left(c_recibo,10))),"@r 9999-99-99") c_recibo :=c_datanfe + "T" + right(c_recibo,8) endif wMsg_status := c_MOTIVO oSayMsg:SetColor(CLR_BLUE, RGB(255,255,200)) oSayMsg:refresh() DO CASE CASE AT('versao="1.10"' , cArq_Assinado ) # 0 cArq_Assinado= cArq_Assinado + '<protNFe versao="1.10" xmlns="http://www.portalfiscal.inf.br/nfe">' CASE AT('versao="2.00"' , cArq_Assinado ) # 0 cArq_Assinado= cArq_Assinado + '<protNFe versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe">' OTHE cArq_Assinado= cArq_Assinado + '<protNFe versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe">' ENDCASE cArq_Assinado := cArq_Assinado + '<infProt Id="ID' + c_protocolo + '">' cArq_Assinado := cArq_Assinado + '<infProt>' cArq_Assinado := cArq_Assinado + '<tpAmb>' + cTpAmb + '</tpAmb>' cArq_Assinado := cArq_Assinado + '<verAplic>' + c_verAplic + '</verAplic>' cArq_Assinado := cArq_Assinado + '<chNFe>' + alltrim(cChave) + '</chNFe>' cArq_Assinado := cArq_Assinado + '<dhRecbto>' + c_recibo + '</dhRecbto>' cArq_Assinado := cArq_Assinado + '<nProt>' + c_protocolo + '</nProt>' cArq_Assinado := cArq_Assinado + '<digVal>' + c_DIGVAL + '</digVal>' cArq_Assinado := cArq_Assinado + '<cStat>' + c_STATUS + '</cStat>' cArq_Assinado := cArq_Assinado + '<xMotivo>' + c_MOTIVO + '</xMotivo>' cArq_Assinado := cArq_Assinado + '</infProt>' cArq_Assinado := cArq_Assinado + '</protNFe>' cArq_Assinado := cArq_Assinado + '</nfeProc>' wArq_Protocolo := FCREATE(cFileXmlProtocolo,1) wtam:= len( cArq_Assinado ) FWRITE( wArq_Protocolo , alltrim(cArq_Assinado) ) // , wtam ) FCLOSE( wArq_Protocolo ) o que pode esta ocorrendo durante a inclusao das tags ?? 21170524572077000285650010000097159000097151-nfce.xml

Amiguinhos, Vinha eu caminhando saltitante pelo bosque dos cálculos de impostos quando num momento de envio do .XML fui barrado porque o calculo do total não batia. O valor em questão é R$ 54,6312. A função round() do Harbour que uso me retorna para 2 dígitos o valor de R$ 54,63. No ACBr, eu jogo os valores todos com 4 dígitos pois ele se encarrega de cortar ou arredondar e também dá R$ 54,63. Mas o SEFAZ, lobo maldito, insiste em assoprar o valor de R$ 54,64. Pombas, eu sempre usei a técnica de arredondar de trás para frente caso encontrasse algum 5. Mas segundo o https://pt.wikipedia.org/wiki/Arredondamento eu tô no bosque errado. Tudo bem que meu Harbour é velhinho, mas... Harbour Compiler Alpha build 45.0 (Flex) Copyright 1999-2005, http://www.harbour-project.org/

bom dia pessoal comprei a classe do gilmer vonfe etc e nunca usei alguem tem exemplo como usar o gilmer perdeu os exemplos de como usar a sua classe obrigado ailton syspel

Galera, alguém já usou um destes editores de xml: XMLSpy ou Liquid XML ? https://www.altova.com/simpledownload1.html https://www.liquid-technologies.com/ Obg. abs.

Prezados, Bom dia. Estou criando um arquivo xml e não estou conseguindo alterar o cabeçalho com a codificação desejada. Já pesquisei e não encontrei uma solução. Segue o código: * Cria novo documento xml oXml:= TXMLDocument():New() * Cabecalho oXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI , 'xml',, 'version="1.0" encoding="UTF-8"' )) * comentario oXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_COMMENT ,,, 'Evento S-1020 - Tabela de Lotacao' )) * Tag Principal do arquivo oNode:= TxmlNode():New( HBXML_TYPE_TAG , 'eSocial' ) oNode2:= TxmlNode():New( HBXML_TYPE_TAG , 'evtTabLotacao' ) oNode3:= TxmlNode():New( HBXML_TYPE_TAG , 'id' ) oNode3:cData:= ::nID oNode2:AddBelow(oNode3) oNode:AddBelow(oNode2) oXml:oRoot:AddBelow(oNode) // Add a tag eSocial * Cria o arquivo hFile := FCREATE( ".\evS-1020.xml" ) IF hFile != -1 oXml:Write( hFile , HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES ) Fclose( hFile ) ELSE MsgInfo("Falha ao criar o arquivo de envio do evento S-1020", "Atenção") ENDIF ****************************************************** Resultado: <?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?> <eSocial> <evtTabLotacao> <id>0001</id> </evtTabLotacao> </eSocial>