Arthur Silvestre

Boa tarde a todos, venho agradecer a compreensão e ajuda de vocês. Estarei de olho joão e nenhum dos outros link postados aqui me foram uteis.

Agradecimentos especiais para Arthur Silvestre, super programador.


#Include "FiveWin.ch"

FUNCTION Main()

LOCAL vXML, oText, TempText, aText

MEMVAR WTEXTO

vXML := cGetFile( "*.XML", "Selecione o xml" )

oText = TTxtFile():New( vXML ) // Read Mode

oText:nMaxLineLength := 5120

TempText = oText:ReadLine()

TempText := StrTran( TempText, '/' )

aText := HB_ATokens( TempText, '<xCorrecao>' )

WTEXTO := aText[2]

? WTEXTO

RETURN( .T. )

// Arthur Silvestre - arthursilvestresnt@outlook.com


Obg. Abs.

Variavel:= Arthur@ig.com.br
SegundaVariavel:= Substr( Variavel , 1 , ( AT( "@" , Variavel )-1 ) )
Retorno:
SegundaVariavel == 'Arthur'

Kapiaba , se acompanhar a leitura do post , o arthur tinha uma duvida sobre o icone da aplicaçao que ele esta desenvolvendo , Sou Amigo dele , e comentei no post : Que coisa o cara migra fast report para prg e nao consegue colocar um icon srsrsrs 
Entao as pessoas magicamente entenderam q ele estava fazendo algo no fast report , que nao é , somente lendo o post voce pode ver isso , entao agora disse q a leitura é a mãe do entendimento do texto pois essa nao é a duvida dele , graças a Deus encontramos o erro , que era o nome do ICONE no Recurso (.Res) (No Programa Pelles C 7.0 32 Bits) quando mudamos o nome no recurso e deixamos igual funcionou corretamente 
Explicaçao 
Errado:
 
-Nome no prg: Define icon oico Resource "FR3toPRG"
-Nome no res: "FR3toPRG" DO ICONE
 
Certo:
 
-Nome no prg: Define icon oico Resource "FR3TOPRG"
-Nome no res: "FR3TOPRG" DO ICONE

Que coisa o cara migra fast report para prg e nao consegue colocar um icon srsrsrs 

Pessoal pode parecer algo besta, mas eu defini um ícone na maquina do meu trabalho WXP eficou bonitinho, mas quando passei para meu desktop de casa W7 e meu notebook W8 ele não aparece ícone, fica somo se não tivesse ícone nenhum. Alguém já passou por isso ? 

Quanto ao código é aquele procedimento padrão.
 
 
Define icon oicon resource "Nome"
 
Define dialog odlg resource "DLG" icon oicon
 
Activate dialog odlg centered

Venho mais uma vez sugerir para o item 2 que seja aberto um período do evento para que pessoas que de fato querem aprender a programar estejam presentes para conhecer o fivewin. Quanto ao local não tenho sugestão alguma, afinal moro na PB. Estou a acompanhar o tópico.

Uma sugestão minha seria de trazes o congresso não somente para os 'dinossauros', mas também abrir uma areá para pessoas que queiram aprender a programar e começar utilizando a linguagem FiveWin. Isso pode trazes cada vez mais pessoas para o fórum e consequentemente para os encontro. Quanto mais gente melhor. Acredito que seria uma boa ideia para ir difundindo cada vez mais a linguagem na cabeça das pessoas.

Consegui pessoal, porém o código ficou extremamente grande, mas da para aplicar no sistema de todos e funciona redondo com dbf.
 
 
Código extremamente enorme:
 
oBrw:lVThumbTrack:=.T.
 
 
abs, kkkkkkkkkkkkkkkkkkkkkkkkkkkk

Se você for trabalhar pelo Delphi no scrip do FR (O que pode ser bem viável), use assim:
 
 page1.visible:=false;
 
Procure no google como estabelecer condições e use sua condição.

//--Testando Pesquisa Dinamina--// Arthur Silvestre cCampo:="Codigo" If Select("cAlias")=0 use 'SuaTabela' shared new alia cAlias if neterr() mendisp() close data retu .f. endif set index to cIndex endif select cAlias set filter to * oBrwMerca:= TxBrowse():New( oDlgIncOrc ) oBrwMerca:CreateFromResource( 361 ) oBrwMerca:cAlias := 'cAlias' oBrwMerca:bGoTop() * oBrwMerca:lHeader := .F. oBrwMerca:lHScroll := .F. oBrwMerca:lVScroll := .F. oBrwMerca:nMarqueeStyle := 5 oBrwMerca:lAdjusted := .T. oBrwMerca:lRecordSelector := .F. oBrwMerca:lUpdate := .T. * nvalor=0 ADD COLUMN oCol TO XBROWSE oBrwMerca DATA cAlias->nomepro TITLE "Nome" SIZE 328.3 REDEFINE GET oNomepro var vnomepro Pict "@!" ID 4020 OF oDlgIncOrc; ON CHANGE (BcDdProduto(oNomepro,cCampo,oBrwMerca), oDlgIncOrc:Refresh() ) valid ValidDoGet(nvalor) oNomepro:bKeyChar := {|nKey| (nvalor:=0,IIF ( nKey == VK_RETURN .or. nKey == VK_TAB , nvalor:=1 , )) } oBrwMerca:bKeyChar := {|nKey| IIF( nKey == VK_RETURN, {vnomepro:=pro->nomepro,onomepro:Refresh(),vcodipro:=pro->codipro,ocodipro:Refresh(),oBrwMerca:Hide(),oBrwMerca:Refresh(),xsetfocus(oquantid)},)} //----------------------------------------------------------------------------// Function BcDdProduto(cP,cC,oB) Local cPro := cP:cText() if empty(cPro) oBrwMerca:Hide() ; oBrwMerca:Refresh() else oBrwMerca:Show() ; oBrwMerca:Refresh() endif set order to 2 dbSetOrder( INDEXORD() ) // define a ordem de filtro ordScope( 0, RTrim(cPRO) ) // TOP (De...) ordScope( 1, RTRim(cPro) ) // BOTTOM (..Até) * dbGoTop() oB:Refresh() Return(.T.) //----------------------------------------------------------------------------// Function ValidDoGet(nvalor) if nvalor=1 oBrwMerca:Hide() oBrwMerca:Refresh() sysrefresh() select cAlias if !eof() vnomepro:=cAlias->nomepro; onomepro:refresh() vcodipro:=cAlias->codipro; ocodipro:Refresh() endif xsetfocus(oquantid) oDlgIncOrc:Refresh() else oDlgIncOrc:Refresh() oBrwMerca:Setfocus() sysrefresh() endif Return .t.  
Bom pessoal, como prometido está ai o código final. Uma boa adaptada do seu Rone mas funcional 100%, espero que compreendão e que sirva pra quem tiver uma duvida semelhante a minha.
 
Abs
 
 
 
OBS: no Resource eu coloca uma ''imagem'', como se fosse adicionar uma foto a tela, mas dai eu redefino na imagem um browser ao em vez de um bmp. (Justificativa: Fica mais bonito rsrsrsrsrsrsrs)

//--Testando Pesquisa Dinamina--// Arthur Silvestre cCampo:="Codigo" If Select("cAlias")=0 use 'SuaTabela' shared new alia cAlias if neterr() mendisp() close data retu .f. endif set index to cIndex endif select cAlias set filter to * oBrwMerca:= TxBrowse():New( oDlgIncOrc ) oBrwMerca:CreateFromResource( 361 ) oBrwMerca:cAlias := 'cAlias' oBrwMerca:bGoTop() * oBrwMerca:lHeader := .F. oBrwMerca:lHScroll := .F. oBrwMerca:lVScroll := .F. oBrwMerca:nMarqueeStyle := 5 oBrwMerca:lAdjusted := .T. oBrwMerca:lRecordSelector := .F. oBrwMerca:lUpdate := .T. * nvalor=0 ADD COLUMN oCol TO XBROWSE oBrwMerca DATA cAlias->nomepro TITLE "Nome" SIZE 328.3 REDEFINE GET oNomepro var vnomepro Pict "@!" ID 4020 OF oDlgIncOrc; ON CHANGE (BcDdProduto(oNomepro,cCampo,oBrwMerca), oDlgIncOrc:Refresh() ) valid ValidDoGet(nvalor) oNomepro:bKeyChar := {|nKey| (nvalor:=0,IIF ( nKey == VK_RETURN .or. nKey == VK_TAB , nvalor:=1 , )) } oBrwMerca:bKeyChar := {|nKey| IIF( nKey == VK_RETURN, {vnomepro:=pro->nomepro,onomepro:Refresh(),vcodipro:=pro->codipro,ocodipro:Refresh(),oBrwMerca:Hide(),oBrwMerca:Refresh(),xsetfocus(oquantid)},)} //----------------------------------------------------------------------------// Function BcDdProduto(cP,cC,oB) Local cPro := cP:cText() if empty(cPro) oBrwMerca:Hide() ; oBrwMerca:Refresh() else oBrwMerca:Show() ; oBrwMerca:Refresh() endif set order to 2 dbSetOrder( INDEXORD() ) // define a ordem de filtro ordScope( 0, RTrim(cPRO) ) // TOP (De...) ordScope( 1, RTRim(cPro) ) // BOTTOM (..Até) * dbGoTop() oB:Refresh() Return(.T.) //----------------------------------------------------------------------------// Function ValidDoGet(nvalor) if nvalor=1 oBrwMerca:Hide() oBrwMerca:Refresh() sysrefresh() select cAlias if !eof() vnomepro:=cAlias->nomepro; onomepro:refresh() vcodipro:=cAlias->codipro; ocodipro:Refresh() endif xsetfocus(oquantid) oDlgIncOrc:Refresh() else oDlgIncOrc:Refresh() oBrwMerca:Setfocus() sysrefresh() endif Return .t.  
Bom pessoal, como prometido está ai o código final. Uma boa adaptada do seu Rone mas funcional 100%, espero que compreendão e que sirva pra quem tiver uma duvida semelhante a minha.
 
Abs
 
 
 
OBS: no Resource eu coloca uma ''imagem'', como se fosse adicionar uma foto a tela, mas dai eu redefino na imagem um browser ao em vez de um bmp. (Justificativa: Fica mais bonito rsrsrsrsrsrsrs)

A forma que deu certo foi criar o arquivo DBF temporario e gravar o array no arquivo e então utilizar no formulario...
 
Vlw! ArturSilvestre, as dicas foram 10!!!

amigo, a solução mais logica para voce éfazer com o FAST report, é simples pratico e rapido
 
 
O meu DANFE hoje é feito no fast report.
 
 
Vai por mim usa ele que voce não arrepende. 
 
 
Certamente alguem aqui no forum já fez esse formulario em .FR3

Não precisa de uma lib especifica para o FastReport, apenas dos seguintes arquivos:
 
FastReph.CH 
FastRepH.PRG
e o seu arquivo fr3

kkkkkkkkkk relaxa, errar é aceitável, quem somos nos para julgar?

Josadac Mendes Faquineli 
Seja muito bem vindo, estamos sempre dispostos a ajudar e compartilhar o que aprendemos, n sou um ancião, mas já tenho meus calos, em fim, boa sorte.

Atras de vc eu me sinto um jumento...... kkkkkkkkkkkk #NãoPercoaPiada