jfaguiar

Olá Amigos. Aparentemente consegui fazer tudo, mas tá dando esse erro no validaxml. Achei que era alguma coisas na tag infCpl e cheguei até a omiti-la, mas o erro continua. Se algúem pude ajudar. VoNfeUtil - 05/06/18 18:00:26 TVONFEUTIL2G:VALIDAXML ENVIASEFAZ 5505 - Erro: XML não atende a especificação do Schema XML: [nfe_v4.00.xsd] , analise a lista de erros: [1 - Linha:0001 Coluna:3424 Campo:[NIHIL] Conteúdo:[NIHIL] Erro:O elemento 'infNFe' no espaço para nome 'http://www.portalfiscal.inf.br/nfe' apresenta elemento filho 'cobr' no espaço para nome 'http://www.portalfiscal.inf.br/nfe' inválido. Lista de possíveis elementos esperados: 'infAdic, exporta, compra, cana' no espaço para nome 'http://www.portalfiscal.inf.br/nfe'. ] - Total de Erros:1 1 - Linha:0001 Coluna:3424 Campo:[NIHIL] Conteúdo:[NIHIL] Erro:O elemento 'infNFe' no espaço para nome 'http://www.portalfiscal.inf.br/nfe' apresenta elemento filho 'cobr' no espaço para nome 'http://www.portalfiscal.inf.br/nfe' inválido. Lista de possíveis elementos esperados: 'infAdic, exporta, compra, cana' no espaço para nome 'http://www.portalfiscal.inf.br/nfe'. <?xml version="1.0" encoding="UTF-8"?><NFe xmlns="http://www.portalfiscal.inf.br/nfe"><infNFe versao="4.00" Id="NFe35180245564044000182550010000058301000058303"><ide><cUF>35</cUF><cNF>00005830</cNF><natOp>VENDA DE PRODUCAO DO ESTABELECIMENT</natOp><mod>55</mod><serie>1</serie><nNF>5830</nNF><dhEmi>2018-02-07T18:00:23-03:00</dhEmi><dhSaiEnt>2018-06-05T18:00:23-03:00</dhSaiEnt><tpNF>1</tpNF><idDest>1</idDest><cMunFG>3529401</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>3</cDV><tpAmb>1</tpAmb><finNFe>1</finNFe><indFinal>1</indFinal><indPres>1</indPres><procEmi>0</procEmi><verProc>NF-eletronica.com</verProc></ide><emit><CNPJ>45564044000182</CNPJ><xNome>ROLTRAN INDUSTRIA E COMERCIO DE PARAFUSOS LTDA. - EPP</xNome><xFant>R O L T R A N</xFant><enderEmit><xLgr>RUA ANTONIO LUIZ FERREIRA</xLgr><nro>300</nro><xBairro>VILA CARLINA</xBairro><cMun>3529401</cMun><xMun>MAUA</xMun><UF>SP</UF><CEP>09370822</CEP><cPais>1058</cPais><xPais>Brasil</xPais><fone>1145436125</fone></enderEmit><IE>442018300116</IE><CRT>1</CRT></emit><dest><CNPJ>43735901000134</CNPJ><xNome>SINTO BRASIL PRODUTOS LTDA</xNome><enderDest><xLgr>R. COSTA BARROS</xLgr><nro>3021</nro><xBairro>JD. GUAIRACA</xBairro><cMun>3550308</cMun><xMun>SAO PAULO</xMun><UF>SP</UF><CEP>03210001</CEP><cPais>1058</cPais><xPais>Brasil</xPais><fone>33219500</fone></enderDest><indIEDest>1</indIEDest><IE>109069955110</IE><email>comprasbrs@sinto.com.br</email></dest><det nItem="1"><prod><cProd>00104871</cProd><cEAN></cEAN><xProd>PAR.CANECA 5/16 X 1 I1-3</xProd><NCM>73181500</NCM><CFOP>5101</CFOP><uCom>CT</uCom><qCom>5.0000</qCom><vUnCom>105.5000</vUnCom><vProd>527.50</vProd><cEANTrib></cEANTrib><uTrib>CT</uTrib><qTrib>5.0000</qTrib><vUnTrib>105.5000</vUnTrib><indTot>1</indTot><xPed>097872</xPed><nItemPed>101740</nItemPed></prod><imposto><vTotTrib>0</vTotTrib><ICMS><ICMSSN101><orig>0</orig><CSOSN>101</CSOSN><pCredSN>0</pCredSN><vCredICMSSN>0</vCredICMSSN></ICMSSN101></ICMS><PIS><PISOutr><CST>99</CST><vBC>0</vBC><pPIS>0</pPIS><vPIS>0</vPIS></PISOutr></PIS><COFINS><COFINSOutr><CST>99</CST><vBC>0</vBC><pCOFINS>0</pCOFINS><vCOFINS>0</vCOFINS></COFINSOutr></COFINS></imposto></det><det nItem="2"><prod><cProd>06708505</cProd><cEAN></cEAN><xProd>PAR.CAN. M10 X 30 MED.C/CAB CAB.30 I4-5</xProd><NCM>73181500</NCM><CFOP>5101</CFOP><uCom>CT</uCom><qCom>2.1000</qCom><vUnCom>124.7700</vUnCom><vProd>262.02</vProd><cEANTrib></cEANTrib><uTrib>CT</uTrib><qTrib>2.1000</qTrib><vUnTrib>124.7700</vUnTrib><indTot>1</indTot><xPed>097872</xPed><nItemPed>379020</nItemPed></prod><imposto><vTotTrib>0</vTotTrib><ICMS><ICMSSN101><orig>0</orig><CSOSN>101</CSOSN><pCredSN>0</pCredSN><vCredICMSSN>0</vCredICMSSN></ICMSSN101></ICMS><PIS><PISOutr><CST>99</CST><vBC>0</vBC><pPIS>0</pPIS><vPIS>0</vPIS></PISOutr></PIS><COFINS><COFINSOutr><CST>99</CST><vBC>0</vBC><pCOFINS>0</pCOFINS><vCOFINS>0</vCOFINS></COFINSOutr></COFINS></imposto></det><total><ICMSTot><vBC>0</vBC><vICMS>0</vICMS><vICMSDeson>0</vICMSDeson><vFCP>0</vFCP><vBCST>0</vBCST><vST>0</vST><vFCPST>0</vFCPST><vFCPSTRet>0</vFCPSTRet><vProd>789.52</vProd><vFrete>0</vFrete><vSeg>0</vSeg><vDesc>0</vDesc><vII>0</vII><vIPI>0</vIPI><vIPIDevol>0</vIPIDevol><vPIS>0</vPIS><vCOFINS>0</vCOFINS><vOutro>0</vOutro><vNF>789.52</vNF></ICMSTot></total><transp><modFrete>1</modFrete><vol><qVol>1</qVol><pesoL>7</pesoL><pesoB>7</pesoB></vol></transp><pag><detPag><indPag>1</indPag><tPag>15</tPag><vPag>789.52</vPag></detPag></pag><cobr><dup><nDup>5830</nDup><dVenc>2018-02-07</dVenc><vDup>789.52</vDup></dup></cobr><infAdic><infAdFisco>Total do Fundo de Combate a Pobreza : vFCP = R$ 0,00 - vFCTST = 0,00 - vFCPSTRET = R$ 0,00</infAdFisco><infCpl>Permite o aproveitamento do credito de ICMS no valor de R$ 20,21, correspondente a aliquotade 2.5600% nos termos do ART.23 da LC 123Valor aproximado de impostos e tributos (Fonte IBPT)36.48% R$ 288,02; VENDA PRODUTO INDUSTRIALIZADO OU PRODUZIDO PELO ESTABELECIME; NTO INDL. - DOC. EMITIDO POR EPP OPTANTE PELO SIMPLES NAC..; NAO GERA DIREITO A CREDITO FISCAL DE IPI ;</infCpl></infAdic></infNFe><Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI="#NFe35180245564044000182550010000058301000058303"><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>l+aEaMewYt+tTll13s0zXW9UZAk=</DigestValue></Reference></SignedInfo><SignatureValue>bYuYkX7XT0z0kM3iHEtwqXE/9tyJTwIPFMCL3d0yEDz23soCOBZmyOJjS1gE+S7dHMDe16+gCl8OisS2WnEP6Zlp0fiK0Fmk4rEVjCtHtXXcRvTk9S3q45Q3gONivQKx03ouIXaSpPSYPx70Pbqo0nm2FMzB0Sk42nTGOzx4Ao6qoIkepOSBVjQarOse4IKp9BHW1rI1J+Izi2tlwymxnrSFGKK+29MH66srSf+mOZvATVpUcg/ZVyN3iVdaMQvCtVB+Wb0zeG3rlhU813gwCRrKPdqKjKfSrnJiZOPg5HnDupGH+q3BJnArCqXSDtdw9+dPHCma1Cc51xm8uv1W8Q==</SignatureValue><KeyInfo><X509Data><X509Certificate>MIIHqTCCBZGgAwIBAgIIWG1rI36IGVYwDQYJKoZIhvcNAQELBQAwdTELMAkGA1UEBhMCQlIxEzARBgNVBAoMCklDUC1CcmFzaWwxNjA0BgNVBAsMLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEZMBcGA1UEAwwQQUMgU0VSQVNBIFJGQiB2NTAeFw0xODAxMTcxMzIzMDBaFw0xOTAxMTcxMzIzMDBaMIHmMQswCQYDVQQGEwJCUjELMAkGA1UECAwCU1AxDTALBgNVBAcMBE1BVUExEzARBgNVBAoMCklDUC1CcmFzaWwxNjA0BgNVBAsMLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEWMBQGA1UECwwNUkZCIGUtQ05QSiBBMTESMBAGA1UECwwJQVIgU0VSQVNBMUIwQAYDVQQDDDlNVUxUIFNZU1RFTVMgU09GVFdBUkVTIEUgTkVUV09SS1MgTFREQSBFUFA6MTI5NTYzOTUwMDAxODAwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCak9OHGXyQPkoUPxEqTV94HXx0ijNrwoy4mjJ447BG44thlo4WElnshLXScrH3J0bePo5jxFFBzWRec0+QzSNLEFztsUnQTz03uE8ONn3g3P3Y2kWKa6x6v//sKK6kSu2k8MlsKDsKBpgBO05SEn3wXxbez1APo0m4/T+XZMy2DubIL6ZaDvXmVhbZtgC6F4Hrhb2AjfrJhwi0N98PilK43g1iSLexMdG6aHy2xUmqc5yh0zKXG3ohDpMAAbqhx3wMf1HI93z2VRywfvMCT0HgYOhbRWaDYgqzyEF708qaS598LStF8RsibUFY6HfNbL7jXINVgGSRZwYf5cpTPtw1AgMBAAGjggLJMIICxTAJBgNVHRMEAjAAMB8GA1UdIwQYMBaAFOzxQVFXqOY66V6zoCL5CIq1OoePMIGZBggrBgEFBQcBAQSBjDCBiTBIBggrBgEFBQcwAoY8aHR0cDovL3d3dy5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL2NhZGVpYXMvc2VyYXNhcmZidjUucDdiMD0GCCsGAQUFBzABhjFodHRwOi8vb2NzcC5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL3NlcmFzYXJmYnY1MIG4BgNVHREEgbAwga2BFkpPQU9TSVNDT01ASE9UTUFJTC5DT02gIAYFYEwBAwKgFxMVSk9BTyBGUkVJUkUgREUgQUdVSUFSoBkGBWBMAQMDoBATDjEyOTU2Mzk1MDAwMTgwoD0GBWBMAQMEoDQTMjI5MTAxOTYzMjI1NDYwNjUzMDAwMDAwMDAwMDAwMDAwMDAwMDIzMjYzMTU2NlNTUFNQoBcGBWBMAQMHoA4TDDAwMDAwMDAwMDAwMDBxBgNVHSAEajBoMGYGBmBMAQIBDTBcMFoGCCsGAQUFBwIBFk5odHRwOi8vcHVibGljYWNhby5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL3JlcG9zaXRvcmlvL2RwYy9kZWNsYXJhY2FvLXJmYi5wZGYwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMIGdBgNVHR8EgZUwgZIwSqBIoEaGRGh0dHA6Ly93d3cuY2VydGlmaWNhZG9kaWdpdGFsLmNvbS5ici9yZXBvc2l0b3Jpby9sY3Ivc2VyYXNhcmZidjUuY3JsMESgQqBAhj5odHRwOi8vbGNyLmNlcnRpZmljYWRvcy5jb20uYnIvcmVwb3NpdG9yaW8vbGNyL3NlcmFzYXJmYnY1LmNybDAOBgNVHQ8BAf8EBAMCBeAwDQYJKoZIhvcNAQELBQADggIBAI7IZwqSWZwD5m5lbgVbdzk+t/qmUqxtfNWMY0O8XB4djCkBAgMF/FO10B7qxEYhx+IYSaCLGfDrldi5rZYdoTTuqeyLbk0m0QCkLAMSSfXvE4Z7rdt7+MvytMSiAt8Co3Acj3u+I+UI2piy4SMCp+DoudJfwGD39RDMILKpvsCrof5Bg5RJ/iNnJZD0FDQUTQk3terR4ROJXPWINmGirf1UFqQvl3FxMu9MgJ3Q0Wycdzq9APs/uoYeQoNoKeNGthvprhyaXXlYrthVRqfeaZ9SUOSgQNluKiQRx8iGkjTk1a/wiQNbXjfdNbRxudiudUiGdC6BayD36JN3g4oY+/1EtYv4JLd2RpLHIpjWJaLifR5gNFyXI49AicBATOXtYzNYeaV4Vjj5MV56X2d0KcWPm/uLnjsHYpOJYSyh/58w0a/tF5WHIV6UlEKcUxAH7fK0dgUCYVCuuj3sj1FXMZOKLZHqvs7LSN0PzlZ2eBlDvvPA6gCAbH0nlLfDdn117B89dmeLuanrp6WoBsIbVT80rYkxMqzeqdcvY5vXygs7hAaTpvdaNvJxIc9YGI5csBqOl7wWLGfBvvLQfRhWG8y/Cj8tbILLlWdDyv1Dc6YQDQiAPf5Ny2Nxdpcf6CjrPsojNh+mhoX3zeuvM/n/GOcSPVj48StUuKRNCrIDhA4S</X509Certificate></X509Data></KeyInfo></Signature></NFe>

Boa tarde amigos. Fiz as costumizações com relação a TVoNFePag() e parece que deu tudo certo. Agora com relação ao método ValidaXml(cDocXml,68) terá que mudar o 52 para 68, é isso? Sem querer abusar, alguém teria um trechinho do código da parte que envolve a parte de FCP? Obrigado

Obrigado amigos. Me deparei com o problema quando um técnico em um cliente criou uma tabela em minha base de dados, onde havia o nome do funcionário com 30 posições Eu sinceramente mexendo com dbf ha tanto tempo, não sabia que isso ocorria. Vou orientá-lo a alterar o tamanho do campo para 50, de modo que fique do mesmo tamanho do que está no cadastro funcionários.

Boa tarde amigos. Tenho uma tabela que com o nome "ARQFUNC", cujos índices são primeiro VENDCOD e segundo VENDNOME. O campo VENDNOME possui 50 caractere, mas se eu criar uma string de 30 posições e digitar nela parte de um nome o sistema está encontrando, mesmo com set softseek desabilitado (off)!!! Fiz o exemplo abaixo e foi isso que aconteceu isso! Alguém alguém saberia me informar o que está acontecendo nesta tabela ? FUNCTION TestPesqfunc() IF NETUSE("ARQFUNC","ARQFUNC",.T.,.F.,20) OrdListAdd("ARQFUNC") DbSetOrder(2) SET SOFTSEEK OFF ? INDEXKEY() ? LEN(VENDNOME) // cNOMFUNC := "BRUNO GUTTIERREZ FERNANDES" SEEK cNOMFUNC IF EOF() ? "nÃO ENCONTREI" ENDIF BROWSE() close database ENDIF RETURN Nil **************************************************************************** Obrigado

O fivewin, assim como o advpl são linguagens de programação que herdaram muitas sintaxes do Clipper, o que facilitou muito a vida de muitos programadores dessa linguagem que já foi a mais popular no mundo. Mas o bom do fivewin é que ele não está amarrado a TOTVS e nem a ninguém. Aqui no fw quem manda é a gente, ou seja, os milhares de programadores fw espalhados pelo mundo à fora. Conheço C#, Java, Delphi e vb, mas prefiro o FIVEWIN.

Muito obrigado pessoal. Utilizei a sintaxe abaixo e deu certo. aPASTAS := Directory("H:\Imagens\Arquivos\*.*","D")

Boa tarde amigos. Alguém pode me informar qual a sintax de Directory() para carregar uma grupo de pastas ao invés de arquivos? Obrigado

Olá amigo. Não funciona. Qualquer comando de string como ctod(), left(), etc dar erro, porque está em formato lógico. Quanto a planilha, é aquela do site da lotofcil (D_Lotofac.Html). Fiz o download dela, descompactei, abrir-a com o excel e a salvei como planilha do excel.

Olá. Essa célula é de formato data e ao exibí-la aparece 13/04/18 00:00:00.000. Porém ao ver o tipo com ValType() aparece .T., de modo que não posso usar CTOD() Obrigado

Olá Rubens. Então, eu estou tentando é importar da planilha para um dbf, copiou?

Bom dias amigos. Estou tentando importar uma planilha para uma tabela dbf e os colunas de conteúdo data me retornam com tipo lógico ".T." Alguém sabe como resolver isso? Obrigado Para maior clareza segue parte do código: cXlsArquivo := "M:\MSYSTEMS\D_LOTFAC.XLSX" aBOLAS := { } oExcel := TOleAuto():New( "Excel.Application" ) oExcel:Workbooks:Open(cXlsArquivo) oFolha := oExcel:Get( "ActiveSheet" ) nTotRow:= oFolha:UsedRange:Rows:Count() FOR n := 6 TO nTotRow dDATA := oExcel:Cells(n,2):Value ? dDATA ? VALTYPE(dDATA)

Olá boa noite. Você está utilizando sqlrdd ou FW puro?

Bons programadores de computador são uns poucos loucos super inteligentes com a permissão de Deus, claro, que se sobressaem às coisas simples dos simples pensadores, e portanto, merecem respeito! Eu sou programador de computador desde 1990.

Boa tarde amigos. Substitui por ordListAdd ("TBNFSM") // SET INDEX TO TBNFSM Parece que parou de dar o erro.

Isso só pode ser sacanagem KKKKK

Obrigado. Vou modificar conforme o seu exemplo. vlw

Elá amigos. utilizo a versão 13.07 do FW e estou tendo esse erro com frequência na rpreview.prg. Alguém pode dar um dica do que está acontecendo? Obrigado Application =========== Path and name: C:\SISCOM\sgcwgb.exe (32 bits) Size: 5,315,072 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130422) FiveWin Version: FWHX 13.07 Windows version: 6.1, Build 7601 Service Pack 1 Time from start: 0 hours 0 mins 52 secs Error occurred at: 25/01/18, 14:13:37 Error description: Error BASE/1004 Class: 'NIL' has no exported method: HWND Args: [ 1] = U Stack Calls =========== Called from: => HWND( 0 ) Called from: .\source\classes\RPREVIEW.PRG => (b)TPREVIEW:ACTIVATE( 185 ) Vejam no método: METHOD Activate() CLASS TPreview ACTIVATE WINDOW ::oWnd MAXIMIZED ; ON RESIZE ( ::PaintMeta(), ::ResizeListView() ) ; ON UP ::VScroll( GO_UP ) ; ON DOWN ::VScroll( GO_DOWN ) ; ON PAGEUP ::VScroll( GO_UP, GO_PAGE) ; ON PAGEDOWN ::VScroll( GO_DOWN, GO_PAGE) ; ON LEFT ::HScroll( GO_LEFT ) ; ON RIGHT ::HScroll( GO_RIGHT ) ; ON PAGELEFT ::HScroll( GO_LEFT, GO_PAGE ) ; ON PAGERIGHT ::HScroll( GO_RIGHT, GO_PAGE ) ; VALID ( ::oWnd:oIcon := nil ,; ::oFont:End() ,; ::oMeta1:End() ,; ::oMeta2:End() ,; ::oDevice:End() ,; ::oHand:End() ,; If( Empty( ::oImageList ),, (::oImageList:End(), ::oImageList := nil ) ),; ::oImageListPages:End() ,; ::oWnd := nil ,; ::lExit := .T. ) if ::oDevice:lPrvModal if ::oWndMain == nil StopUntil( { || ::lExit } ) else StopUntil( { || ::lExit .or. !IsWindow( WndMain():hWnd ) } ) // O ERRO ACONTECE AQUI endif endif return nil

Obrigado amigão. Vou fazer assim

Caros amigos, não costumo declarar variáveis com o mesmo nome de campos do dbf e trabalho com computadores de desde 09/1982. Sou programador em clipper desde 1990 e depois passei pelo clipper 5.0, 5.01 e 5.2. Antes passei por lottus 123, Quattro-pro, dbase rsrs. Depois do clipper conheci e programei em delphi e vb. Em 04/2007 ingressei no fivewin onde me encontrei. Só gostaria de saber se existe uma solução para essa questão dos dbfs, porque se não houver, irei sim para o mysql ou postgre, bancos que já conheço bem e só preciso me inteirar melhor de como usar esses bancos com essa excelente linguagem de programação, o fw.

rsrs Essa function Netuse foi escrita por Antonio Geraldo da Rocha Vidal. Ele só tem uns sete ou oito livros de programação xbase escrito! Éh, acho que o mysql é o melhor caminho mesmo.

Não. As variáveis de bancos estão comvo nBanco :=...

kkkk ah não

Tá assim Kapiaba: INDEX ON BANCO+STR(EMPRESA,2) TAG TBCCOR01 TO TBCCOR INDEX ON DESCRICAO TAG TBCCOR02 TO TBCCOR A minha função de abertura é essa: FUNCTION Netuse(ctabela, cAPELID,lcompart,lLeitura,tempo,cIndOpen,lPathvar) LOCAL sempre // ,lLeitura := lcompart Default lPathvar := .F. // O 7º parâmetro de Netuse foi criado em 10/08/2015 para controlear path variável IF SELECT(cAPELID) > 0 RETURN(.T.) ENDIF // IF lPathvar ctabela := cPATHVAR + "\" + ctabela IF !cIndOpen == Nil cIndOpen := cPATHVAR + "\" + cIndOpen endif ENDIF sempre := (tempo = 0) WHILE (sempre .OR. tempo > 0) .AND. INKEY()<>27 DbUseArea(.T.,cTIPODB,ctabela,cAPELID,lcompart,lLeitura) // 1 = Novaarea // 2 = Drive (dbfcdx,topconec... // 3 = Tabela // 4 = Alias // 5 = Compartilhado ou nao .T. .F. // 6 = Somente Leitura .t. .f. IF !NetErr() IF !cIndOpen == Nil IF !".CDX" $ UPPER(cIndOpen) cIndOpen += ".CDX" ENDIF IF FILE(cIndOpen) SET INDEX TO (cIndOpen) ELSE MsgAlert("Prezado usuário,"+CRLF+; "Um arquivo de índice denominado "+cIndOpen+" não foi encontrado."+CRLF+; "Causa provável: Alguém solicitou uma reorganização da base de dados"+CRLF+; "e não lhe avisou para sair do sistema.") ERRORED := .T. ENDIF ENDIF RETURN(.T.) ENDIF INKEY(1) -- Tempo ENDDO ERRORED := .T. MsgStop("O arquivo "+ ctabela +" não está disponível !") RETURN(.F.) ***************************************************************************

É um campo field() normal em um dbf. Estou utilizando five win 13.07 + xHarbour IF Netuse("TBCCOR","TBCCOR",.T.,.T.,5) SET INDEX TO TBCCOR // ta dando o erro aqui. è dbf/cdx ENDIF Obrigado kapiaba

Bom dia amigos. Estou tendo este erro com bastante frequência em um cliente quando executo o comando set index to ... Devo esclarecer que o índice está corretamente criado e ocorre aleatoriamente. Alguém teria uma solução para este problema? Application =========== Path and name: C:\SISCOM\sgcwgb.exe (32 bits) Size: 5,314,560 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130422) FiveWin Version: FWHX 13.07 Windows version: 6.1, Build 7601 Service Pack 1 Time from start: 0 hours 5 mins 6 secs Error occurred at: 22/01/18, 09:39:07 Error description: Error BASE/1003 Vari vel nÆo existe: BANCO Stack Calls =========== Called from: => ORDLISTADD( 0 ) Called from: H:\GRUPOBH\FNTW\tranctb.prg => TRANCTB( 27 )