zima

Olá! Também estamos precisando de uma solução dessas. (enviar o e-mail para o cliente com o arquivo XML e a DANFE em PDF). Muitos clientes tem pedido isso? Isso é possível? Grato Marcelo Zima Zimaq Ind. e Com. Ltda. Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Obrigado Luiz Fernando! Que briga que foi isso ... Bem, para deixar registrado, consegui abrindo o prompt do msdos com administrador e rodando o registradll. Abraços, Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Olá, boa tarde, Instalei um aplicativo para emitir NFe do Vagner Wirts, que utiliza a classe do Gilmer. Ocorre que não consigo carregar o Certificado Digital nesse aplicativo. Aparece o erro: "ERROR! NFE Util no está instaldo en esta PC." Como contornar esse erro? Alguém trabalha com Certficado Digital da Serasa em um micro com Windows 7? Se não, qual certificado digital funciona corretamente com o windows 7?? Desde já obrigado! Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Olá, boa tarde, Instalei um aplicativo para emitir NFe do Vagner Wirts, que utiliza a classe do Gilmer. Ocorre que não consigo carregar o Certificado Digital nesse aplicativo. Aparece o erro: "ERROR! NFE Util no está instaldo en esta PC." Como contornar esse erro? Alguém trabalha com Certficado Digital da Serasa em um micro com Windows 7? Se não, qual certificado digital funciona corretamente com o windows 7?? Desde já obrigado! Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Olá! Gostaria de colocar duas cores na variável txt abaixo (TXT_OSTATUS), quando na linha eu achar determinada palavra (IMPLEMENTADO). Em outras palavras, se na linha tiver "implementado", o texto sai de uma cor. Se não, sai de outra cor. Será que tem como fazer isso? Aproveitando, teria como modificar a fonte do texto também?? Obrigado desde já! REDEFINE FOLDER oFld_OCOR ID 101 OF oDlg_OCOR ; PROMPT "&Ocorrências do Sistema - Registros"; DIALOGS "OCORSIST" *-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- * * Dialogo - folder 0001 * *-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- // REDEFINE GET oTips VAR cTips MEMO ID 67 OF oDlg_3 UPDATE NO MODIFY //When .f. // oTips:SetColor( nRGB( 0, 0, 0 ), nRGB( 255, 255, 255 ) ) // //oTips:lDisColors := .f. não funciona para campo MEMO // oTips:cTooltip := "Selecione o Serviço " REDEFINE GET oTXT_OSTATUS VAR TXT_OSTATUS MEMO ID 2001 OF oFld_OCOR:aDialogs[ 1 ] UPDATE NO MODIFY oTXT_OSTATUS:SetColor( nRGB( 0, 0, 190 ), nRGB( 255, 255, 190 ) ) REDEFINE GET oTXT_OMSG VAR TXT_OMSG TEXT ID 2002 OF oFld_OCOR:aDialogs[ 1 ] REDEFINE BUTTON btnOCORINCL ID 2003 OF oFld_OCOR:aDialogs[ 1 ] ACTION (OCOR_MSG(TXT_OMSG),; TXT_OMSG:="",oTXT_OMSG:Refresh()) REDEFINE BUTTON btnOCORSAIR ID 2004 OF oFld_OCOR:aDialogs[ 1 ] ACTION (oDlg_OCOR:End()) ocor_arquivo=".\DADOS\MAQSERV_TXT\OCORSIST.TXT" TXT_OSTATUS:=MEMOREAD(ocor_arquivo) oTXT_OSTATUS:bGotFocus:={||oTXT_OSTATUS:SetPos(Len(TXT_OSTATUS)) } oTXT_OSTATUS:Refresh() SET KEY VK_ESCAPE TO oDlg_OCOR:lHelpIcon:=.F. ACTIVATE DIALOG oDlg_OCOR CENTERED id=code>id=code>id='Arial'>Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Olá! Gostaria de colocar duas cores na variável txt abaixo (TXT_OSTATUS), quando na linha eu achar determinada palavra (IMPLEMENTADO). Em outras palavras, se na linha tiver "implementado", o texto sai de uma cor. Se não, sai de outra cor. Será que tem como fazer isso? Aproveitando, teria como modificar a fonte do texto também?? Obrigado desde já! REDEFINE FOLDER oFld_OCOR ID 101 OF oDlg_OCOR ; PROMPT "&Ocorrências do Sistema - Registros"; DIALOGS "OCORSIST" *-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- * * Dialogo - folder 0001 * *-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- // REDEFINE GET oTips VAR cTips MEMO ID 67 OF oDlg_3 UPDATE NO MODIFY //When .f. // oTips:SetColor( nRGB( 0, 0, 0 ), nRGB( 255, 255, 255 ) ) // //oTips:lDisColors := .f. não funciona para campo MEMO // oTips:cTooltip := "Selecione o Serviço " REDEFINE GET oTXT_OSTATUS VAR TXT_OSTATUS MEMO ID 2001 OF oFld_OCOR:aDialogs[ 1 ] UPDATE NO MODIFY oTXT_OSTATUS:SetColor( nRGB( 0, 0, 190 ), nRGB( 255, 255, 190 ) ) REDEFINE GET oTXT_OMSG VAR TXT_OMSG TEXT ID 2002 OF oFld_OCOR:aDialogs[ 1 ] REDEFINE BUTTON btnOCORINCL ID 2003 OF oFld_OCOR:aDialogs[ 1 ] ACTION (OCOR_MSG(TXT_OMSG),; TXT_OMSG:="",oTXT_OMSG:Refresh()) REDEFINE BUTTON btnOCORSAIR ID 2004 OF oFld_OCOR:aDialogs[ 1 ] ACTION (oDlg_OCOR:End()) ocor_arquivo=".\DADOS\MAQSERV_TXT\OCORSIST.TXT" TXT_OSTATUS:=MEMOREAD(ocor_arquivo) oTXT_OSTATUS:bGotFocus:={||oTXT_OSTATUS:SetPos(Len(TXT_OSTATUS)) } oTXT_OSTATUS:Refresh() SET KEY VK_ESCAPE TO oDlg_OCOR:lHelpIcon:=.F. ACTIVATE DIALOG oDlg_OCOR CENTERED id=code>id=code>id='Arial'>Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Obrigado a todos pelo retorno. Resolvi a questão seguindo o orientação do gvc. Grato! 1) Vc esta criando 7 tag's de indice e depois selecionando a tag 8. Isso não dá certo. 2) OrdScope é para usar o indice ativo no filtro. Ex: Seu indice é por código e vc ativa o ordscope para filtrar uma faixa desses código. 3) Vc pode criar a tag 8 por descricao + numero e usar FOR para filtrar o arquivo. Ex. index on descricao + numero tag 8 for estmin <= quantidade - Veja que assim vc sempre terá nesse indice os registro que tiverem quantidade menor ou igual ao estoque mínimo de cada produto. Ah! Vc não precisa usar DELETED() no indice. Coloque SET DELETE ON no inicio do seu sistema. Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Kapiaba, Vamos lá ... basicamente, tenho o banco de dados ESTOQUE.DBF com os campos descricao, numero, (caracter) e quantidade, estmin (numéricos). Quero montar uma listbox em ordem de descricao+numero, onde apareçam apenas os registros que atendam ao seguinte requisito (filtro): estmin>quantidade (quantidade em estoque) para gerar ordem de compra dos mesmos. Com SET FILTER fica fácil. A pergunta é: dá para usar apenas ORDSCOPE ? Grato! Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Ainda não resolvi ... Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Ico, Meu BD é pequeno (154KB). Sempre li que o uso do SET FILTER é desaconselhável, por isso tento filtrar com ORDSCOPE. Veja abaixo meu PRG: PARA INDEXAR: USE Estoque *-----------& AT_INDEX() *-----------& INDEX ON maquina+descricao+numero TAG 1 FOR !Deleted() Eval { || oMeter:Set( recno() ) } EVERY 50 INDEX ON codigoest TAG 2 FOR !Deleted() Eval { || oMeter:Set( recno() ) } EVERY 50 INDEX ON descricao+numero TAG 3 FOR !Deleted() Eval { || oMeter:Set( recno() ) } EVERY 50 INDEX ON numero+descricao TAG 4 FOR !Deleted() Eval { || oMeter:Set( recno() ) } EVERY 50 INDEX ON local1 TAG 5 FOR !Deleted() Eval { || oMeter:Set( recno() ) } EVERY 50 INDEX ON local2 TAG 6 FOR !Deleted() Eval { || oMeter:Set( recno() ) } EVERY 50 INDEX ON descricao TAG 7 FOR !Deleted() Eval { || oMeter:Set( recno() ) } EVERY 50 E DEPOIS PARA FILTRAR (AQUI ESTOU ME ENROLANDO!) DBSELECTAREA("ESTOQUE") ESTOQUE->( OrdSetFocus( nil )) ESTOQUE->(OrdScope(0,nil)) ESTOQUE->(OrdScope(1,nil)) SET FILTER TO ESTOQUE->( OrdSetFocus( 8 )) // descricao+numero+STRZERO((estmin-quantidade),6,0) ESTOQUE->(OrdScope(0,"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+"000000000000000000000000000000"+"000001")) ESTOQUE->(OrdScope(1,"ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ"+"999999999999999999999999999999"+"999999")) DBGOTOP() COUNT TO Numevem id=code>id=code>Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Olá, Tenho um banco de dados estoque com os campos descricao, numero, quantidade, estmin, sendo os dois primeiros tipo caracter e os dois últimos númericos. Quero que apareça em uma listbox apenas os registros onde o campo quantidade seja inferior ao campo estmin, usando ORDSCOPE. Alguém sabe como montar esse filtro? Com SET FILTER consigo fazer, mas dizem que não é aconselhável. Isso procede? Desde já obrigado! Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Olá, Tenho um banco de dados estoque com os campos descricao, numero, quantidade, estmin, sendo os dois primeiros tipo caracter e os dois últimos númericos. Quero que apareça em uma listbox apenas os registros onde o campo quantidade seja inferior ao campo estmin, usando ORDSCOPE. Alguém sabe como montar esse filtro? Com SET FILTER consigo fazer, mas dizem que não é aconselhável. Isso procede? Desde já obrigado! Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Pelo que vi, aparentemente essa função retorna um número quando uso o clipper e outro quando uso o xHarbour! Vou ter que testar micro a micro para pegar o número certo ... Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Não é isso não ico! A função nSerialHD(("C:")) já retorna o número serial do HD em decimal. Exemplo: IF qualHD=543844839 // Anderson nUsuario:=1 extUSU:="Anderson" senhaatual:=CONTROLE->SANDERSON ... id=code>id=code>Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0

Olá, No clipper utilizava a função abaixo e a mesma me retornava o serial do HD. qualHD:=nSerialHD(("C:")) id=code>id=code>Passei a compilar com xHarbour e ela não identifica mais. Tem outra função no xHarbour para isso? Grato desde já. Marcelo Zima São Caetano do Sul/SP zima@uol.com.br FW 2.3,Clipper 5.3,Workshop,Blinker 7.0