jfaguiar

June 5, 2018

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>

June 4, 2018

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

April 30, 2018

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.

April 23, 2018

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

April 22, 2018

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.

April 19, 2018

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

Muito obrigado pessoal. Utilizei a sintaxe abaixo e deu certo.

aPASTAS := Directory("H:\Imagens\Arquivos\*.*","D")

April 18, 2018

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

April 16, 2018

Olá, o campo de data do Excel retorna campo tipo tempo (T) com o formato dd/mm/aa hh:mm:ss

você tem de trata-la como string

Para converte-la tem de pegar separado a data ctod(subs([celula_excel],1,8))

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.

April 15, 2018

o que vc tem na celula oExcel:Cells(n,2):Value do excel? uma "data" em formato caracter? uma data em formato data? uq?

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

April 15, 2018

Ola,

Veja se ajuda, faço assim

FOR nCol := 1 TO FCOUNT()
if ValType( FieldGet( nCol ) ) = "D" // se for campo data converte p/string
oHoja:Cells( nRow, nCol ):Value := dtoc(FieldGet( nCol ))
else
if ValType( FieldGet( nCol ) ) = "N" // se for campo numérico
oHoja:Cells( nRow, 7 ):NumberFormat = "###.##0,00" // FORMATAR numerico
else
           oHoja:Cells( nRow, nCol ):NumberFormat = "@" // FORMATAR TEXTO
           endif
oHoja:Cells( nRow, nCol ):Value := FieldGet( nCol ) // OUTRO FORMATO
         endif
NEXT

Olá Rubens.

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

April 15, 2018

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)

March 16, 2018

Olá boa noite.

Você está utilizando sqlrdd ou FW puro?

frkiko · March 1, 2018

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.

February 3, 2018

Boa tarde amigos.

Substitui por ordListAdd ("TBNFSM") // SET INDEX TO TBNFSM

Parece que parou de dar o erro.

kapiaba · February 2, 2018

Galera, alguém já usou e pode explanar? Obg. Abs.

https://docs.microsoft.com/en-us/previous-versions/windows/it-pro/windows-server-2012-R2-and-2012/cc733145(v=ws.11)
Pasta de C:\Windows\System32
	20/11/2010  10:17            98.816 Robocopy.exe

Isso só pode ser sacanagem KKKKK

January 30, 2018


 if ::oDevice:lPrvModal
         if ::oWndMain == nil
            StopUntil( { || ::lExit } )
         else
            hWndMain    := WndMain():hWnd
            StopUntil( { || ::lExit .or. !IsWindow( hWndMain ) } )
         endif
 endif

fwh1709

Obrigado. Vou modificar conforme o seu exemplo. vlw

January 28, 2018

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

January 25, 2018

INDEX ON BANCO+STR(EMPRESA,2) TAG TBCCOR01 TO TBCCOR

INDEX ON DESCRICAO TAG TBCCOR02 TO TBCCOR

Mude para:

INDEX ON TBCCOR->BANCO+STR(TBCCOR->EMPRESA,2) TAG TBCCOR01 TO TBCCOR

INDEX ON TBCCOR->DESCRICAO TAG TBCCOR02 TO TBCCOR

Obrigado amigão.

Vou fazer assim

January 25, 2018

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.

January 24, 2018

Se teu programa tem alguma variável declarada ou atribuída mesmo que não esteja com nenhum escopo(local,static,public,private) ele com certeza esta criticando isso.

verifica ai se não tem nenhuma atribuição, por exemplo: banco="algo" ou banco:=" "

outra coisa é que dependendo da situação o forma como usa o IF nas comparações pode ser entendido como uma atribuição, se recentemente adicionou SET EXACT ON no código isso deve ser um dos motivos.

Se usar o XDevStudio, manda um [CTRL]+[SHIFT]+[F3] e procura nos prgs da sua pasta, ou se não usa baixa o sublime text ou notepad++

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.

January 24, 2018

Se teu programa tem alguma variável declarada ou atribuída mesmo que não esteja com nenhum escopo(local,static,public,private) ele com certeza esta criticando isso.

verifica ai se não tem nenhuma atribuição, por exemplo: banco="algo" ou banco:=" "

outra coisa é que dependendo da situação o forma como usa o IF nas comparações pode ser entendido como uma atribuição, se recentemente adicionou SET EXACT ON no código isso deve ser um dos motivos.

Se usar o XDevStudio, manda um [CTRL]+[SHIFT]+[F3] e procura nos prgs da sua pasta, ou se não usa baixa o sublime text ou notepad++

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

January 24, 2018

João, faça um DEMO simples reproduzindo o problema, ZIP e poste no 4shared para download. Tá dificil te ajudar, pois o código é muito ruim. abs.

kkkk ah não

January 23, 2018

mostra teu index, no index on deve ter algo relacioando a isso

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.)
***************************************************************************

January 23, 2018

Variavel nao existe: BANCO

e um CAMPO(Field) do BD ou LOCAL, PRIVATE ou PUBLIC?

CHAMADA DE: TRANCTB( 27 ) // mostre o que tem neste .PRG que contem esta linha.

É 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

January 22, 2018

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 )

Sign In

jfaguiar

Posts

Joined

Last visited

Days Won

Content Type

Downloads

Profiles

Forums

Posts posted by jfaguiar

Dúvida_01 sobre a NF-e v.4.00

VoNfeUtil2G Nfe 4.0

ALGO ESTRANHO COM SEEK EM DBFCDX

ALGO ESTRANHO COM SEEK EM DBFCDX

O fivewin

Directory de Pastas

Directory de Pastas

Ler Excel Coluna de data

Ler Excel Coluna de data

Ler Excel Coluna de data

Ler Excel Coluna de data

SELECT, INSERT e UPDATE

Programadores de computador

Erro ao abrir indice

Robocopy.exe

Error description: Error BASE/1004 Class: 'NIL' has no exported method: HWND

Error description: Error BASE/1004 Class: 'NIL' has no exported method: HWND

Erro ao abrir indice

Erro ao abrir indice

Erro ao abrir indice

Erro ao abrir indice

Erro ao abrir indice

Erro ao abrir indice

Erro ao abrir indice

Erro ao abrir indice

Browse

Activity