pedro_66

Amigos alguém conseguiu uma solução para o problema citado nesse post pois estou na mesma situação.. AJUDE NOS QUEM SOUBER POR FAVOR...

Amigos, partilho da opinião do amigo Alexandre ( para quem mando Um abraço ), aqui no Rio Grande do Norte se a empresa detentora do software não tiver domicilio comercial no Estado fica muitíssimo dificil de emplacar algum Sistema dai " CONTINUEMOS NOS FORTALECENDO E NOS APRIMORANDO CADA VEZ MAIS, ASSIM VENCEREMOS MAIS ESSA NOVIDADE "... PEDRO AIRTON

Ok, Pedro de Natal.. pedroenter@hotmail.com Feliz ano novo para todos PEDRO AIRTON

Amigos, de todo Brasil, Um Feliz Natal e um Ano cheio de novidades, trabalho e muitas conquistas para todos nós. Para aqueles que vierem para esse lado Nordeste - podem contar comigo para qualquer necessidade. FELIZ NATAL, AMAIGOS PEDRO AIRTON

Amigo, qual PEDRO ????? PEDRO AIRTON

Ok, Ale - ligo para o seu telefone ainda hoje.. Pedro. PEDRO AIRTON

... Luis que Motel é esse que entrei a essa hora ??? Um abraço... PEDRO PEDRO AIRTON

Olá, Evandro, Já com saudades de sua pessoa e do seu astral, ai, se fui até São Paulo, irei a "Curvelo", "Cutuvelo"... ou seja a qualquer lugar aonde a família Fivewin se REUNIR. Também estarei nessa com a graça de Deus. PEDRO / NATAL PEDRO AIRTON

Luis, foi um enorme prazer conhecê-lo. Obrigado pela explicação... Amigo tens noticias do Dorneles sabe se ele já chegou. PEDRO / NATAL PEDRO AIRTON

Amigos, boa tarde, Acabei de chegar na minha terra ( Natal/RN ), e já estou com saudades de todos com quem convivi esses últimos treis dias, " NÃO EXISTE ADJETIVOS PARA CLASSIFICAR A ORGANIZAÇÃO DO EVENTO - ESTÃO TODOS DE PARABENS ". Paulo Araujo desculpe-me ter ido embora sem se despedir de voce, voce é uma pessoa e tanto.. acontece é que me levaram para um tal de " Antro " e na efusividade da coisa sai sem falar contigo - um GRANDE ABRAÇO - João, acredite não és só super-potencia em Fivewin não, és uma GIBAPOTENCIA como pessoa. " ESTÃO TODOS DE PARABENS...." também irei aos próximos seja lá aonde for.. " gente, cuidado com essas fotos do "Antro".... " PEDRO - NATAL PEDRO AIRTON

Amigos, boa tarde, Acabei de chegar na minha terra ( Natal/RN ), e já estou com saudades de todos com quem convivi esses últimos treis dias, " NÃO EXISTE ADJETIVOS PARA CLASSIFICAR A ORGANIZAÇÃO DO EVENTO - ESTÃO TODOS DE PARABENS ". Paulo Araujo desculpe-me ter ido embora sem se despedir de voce, voce é uma pessoa e tanto.. acontece é que me levaram para um tal de " Antro " e na efusividade da coisa sai sem falar contigo - um GRANDE ABRAÇO - João, acredite não és só super-potencia em Fivewin não, és uma GIBAPOTENCIA como pessoa. " ESTÃO TODOS DE PARABENS...." também irei aos próximos seja lá aonde for.. " gente, cuidado com essas fotos do "Antro".... " PEDRO - NATAL PEDRO AIRTON

Caro Jackson, Devo chegar ao hotel onde estás por volta das 05:00 da madruga, como faço para nos encontramos ?? em qual apartamento estás ? PEDRO - NATAL/RN Jackson Douglas Boa Vista FWH 7.05 Lamborguini GALLARDO+PellesC+xDevStudio +xH 99.61 + (SQLLIB -> AGUARDANDO MELHORIAS PARA AS MINHAS NESCESSIDADES ) email : miragerr@osite.com.br MSN : jackson_rl@hotmail.com SKYPE : jackson_rr PEDRO AIRTON

AMIGOS, EU TAMBÉM, ESTAREI DESEMBARCANDO EM GUARULHOS POR VOLTA DAS 04:00 DA MADRUGA DA SEXTA-FEIRA DIA 22/11, E IREI ME HOSPEDAR NO HOTEL DO EVENTO, POR FAVOR, GOSTARIA DE TAMBÉM PARTICIPAR DO PRÉ-ENCONTRO - COMO FAÇO PARA CONHECER E CONSEQUENTEMENTE PEGAR UMA CARONA COM ALGUEM ATÉ A PRÉ-REUNIÃO..??? PEDRO - NATAL / RN PEDRO AIRTON

AMIGOS, EU TAMBÉM, ESTAREI DESEMBARCANDO EM GUARULHOS POR VOLTA DAS 04:00 DA MADRUGA DA SEXTA-FEIRA DIA 22/11, E IREI ME HOSPEDAR NO HOTEL DO EVENTO, POR FAVOR, GOSTARIA DE TAMBÉM PARTICIPAR DO PRÉ-ENCONTRO - COMO FAÇO PARA CONHECER E CONSEQUENTEMENTE PEGAR UMA CARONA COM ALGUEM ATÉ A PRÉ-REUNIÃO..??? PEDRO - NATAL / RN PEDRO AIRTON

Rapaziada, gostaria muito de também participar desses pré-encontros pois comprei passagens com antecedência, porém, comom será a minha primeira vez em SAMPA, vou precisar da ajuda dos amigos tipo: Em qual hotel devo ficar hospedado, de modo que Eu posso participar desses pré-encontros ?? Fico desde já agradecido se alguem me responder com brevidade em virtude da reserva que ainda tenho que fazer.. Desde ja agradeço.. PEDRO - NATAL / RN PEDRO AIRTON

Rapaziada, gostaria muito de também participar desses pré-encontros pois comprei passagens com antecedência, porém, comom será a minha primeira vez em SAMPA, vou precisar da ajuda dos amigos tipo: Em qual hotel devo ficar hospedado, de modo que Eu posso participar desses pré-encontros ?? Fico desde já agradecido se alguem me responder com brevidade em virtude da reserva que ainda tenho que fazer.. Desde ja agradeço.. PEDRO - NATAL / RN PEDRO AIRTON

Amigos obrigado, ficarei atento a todas as noticias e com certeza estaremos juntos no evento. PEDRO PEDRO AIRTON

Amigos obrigado, ficarei atento a todas as noticias e com certeza estaremos juntos no evento. PEDRO PEDRO AIRTON

Pessoal, gostaria de tirar algumas dúvidas com relação a organização do evento tipo: Como nunca fui a São Paulo gostaria de saber como providenciar Hotel e hospedagen com antecedencia perto local aonde vai acontecer o evento e como se deslocar para o mesmo e etc... Desde já agradeço a atenção de todos... PEDRO AIRTON

Mestres, desculpem a minha intromissão, mais por favor poderiam postar resultado Final de Toda essa magnifica CONFERÊNCIA. Kapiaba poderia fazer esse favor... Para mim será de grande ajudar entender como os amigos resolveram essa peleja. desde já agradeço.. PEDRO AIRTON

Obrigado amigos pela atenção, mas tudo isso já fiz, e NÃO consegui RESOLVER até agora, alguem mais poderia me dar uma luz ??? Experimente colocar a função oMosa:End() ANTES do comando Release All Assim: //-----------------------------// STATIC FUNC Encerra( omosa ) //-----------------------------// CLOS MOVSAI_T USE MOVSAI_T EXCLUSIV NEW IF NETERR() MsgStop( "No momento há um usuário cadastrando uma nota fiscal na rede."+CRLF+; "Não é recomendado que dois usuário cadastrem notas fiscais ao"+CRLF+; "mesmo tempo, para evitar duplicação de códigos e inconsistência"+CRLF+; "no estoque dos produtos. Tente novamente mais tarde.",; "Informação:" ) Select(MyDb) Omosa:GoBottom() Omosa:UpStable() Omosa:Refresh() ENDIF ZAP PACK Omosa:End() // aqui vc fecha o dialog EndDialog() GlobalFree() ResAllFree() Release All *Omosa:End() *oLb1:End() // Nao precisa disto aqui naum Select(oDbf) mostra := .t. RETU .t. PEDRO AIRTON Josenilson Neiva Teresina-PI FWH 2.5/Pelles/xMate PEDRO AIRTON

Amigos, Será que alguem poderia me ajudar no sentido de dizer-me como fazer para abandonar uma DIALOG apos Clikar num Button, conforme código abaixo. Seguinte: Quando cliko em "Cancelar", o foco do programa retornar para o ultimo Get e não sai da rotina de jeito nehum. Desde já Agradeço a atenção de quem puder me ajudar. #include "FiveWin.ch" #include "INKEY.CH" STATIC oCod , mVazio, mDini, mDfim, aTrans,; aUnd , codpro_, despro_, quanti_,; codpac_, despac_, mostra := .t., ret := .t., oLb1,; _nordem[99], _codpro[99], _despro[99], _codpac[99],; _despac[99], _quanti[99] //-------------------// Function MOVSAI() //-------------------// local oLbx, oCadDl local it, oGt01, oGt02, oGt03, oGt04, oGt05, oGt06, oGt07, oGt08 local oGt09, oGt10, oGt11, oGt12, Old48, prod01, prod02 local MyDb, oBtn1, oBtn2, oBtn3, oBtn4, oBtn5, oBtnZ, oBtnY, oBtnH, mRad, lAppend local lSave := .t. , nOldRec := 0 , qtd01, ob146 PUBLIC Omosa PUBLIC limpa_ := .f., i := 0 PUBLIC nOldCd := SPACE(13) IF ! UsrFree(EstIncl) RETURN NIL ENDIF IF ! ret RETURN NIL ENDIF mDini := CTOD(" ") mDfim := CTOD(" ") CursorWait() USE MOVSAI_T SHARED NEW IF ! file("MOVSAI_T.CDX") MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->NORDEM", "SAIORD" ) },; "Indexando movimento por código...", "Espere un momento!" ) MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->DATSAI", "DATSAI" ) },; "Indexando movimento por data...", "Espere un momento!" ) MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->CODPRO", "CODPRO" ) },; "Indexando movimento por fornecedor...", "Espere un momento!" ) ENDI ordListClear() OrdListAdd("MOVSAI_T","SAIORD","DATSAI", "CODPRO") MOVSAI_T->(DBSETORDER(1)) MOVSAI_T->( DBGOTOP() ) DEFAULT lAppend := .t. IF lAppend USE MOVSAI MOVSAI->(DBGOBOTTOM()) ordem_ := VAL( MOVSAI->NORDEM) + 1 ELSE ENDIF IF mostra codpro_ := 0 despro_ := SPAC(15) codpac_ := 0 despac_ := SPAC(15) quanti_ := 0 ENDI DEFINE FONT oFntLis NAME "Courier New" SIZE 0, -10 DEFINE DIALOG Omosa RESOURCE "TEL_SAI" DEFINE FONT oSayFnt NAME "Arial" SIZE 0, -12 BOLD ITALIC REDEFINE SAY oSay PROMPT STRZERO( ordem_,5 ) ID -15 OF Omosa COLORS CLR_HBLUE USE MOVSAI_T MOVSAI_T->( DBGOTOP() ) REDEFINE LISTBOX oLb1 ; FIELDS MOVSAI_T->CODPRO,; MOVSAI_T->DESPRO,; STRZERO( MOVSAI_T->QUANTI,05); ID 101 OF Omosa ; FIELDSIZES 85,170,55,65,65,65,65,50,65,65 ; ALIAS "MOVSAI_T" ; HEADERS "Cod. Prod.",; "Descricao",; "Quantidade" oFntLis:End() Omosa:UpDate() oLb1:UpStable() oLb1:Refresh() // Procurar paciente direto pelo codigo //------------------------------------- REDEFINE GET oGt03 VAR codpac_ PICTURE "99999" ID 102 OF Omosa ; VALID ExistPac( @codpac_, @despac_, Omosa, .F. ) UPDATE WHEN mostra = .t. // Procurar paciente direto pelo Button //------------------------------------- REDEFINE BTNBMP obtn1 ID 103 FILE ".\BITMAPS\ProcBtn.BMP" OF Omosa ; UPDATE ACTION ExistPac( @codpac_, @despac_, Omosa, .T. ); WHEN ( mostra = .t. .and. EMPTY( codpac_ ) ) // Inclusao de novo Paciente //-------------------------- REDEFINE BTNBMP ob146 ID 104 FILE ".\BITMAPS\NOVO.BMP" OF Omosa ; UPDATE ACTION CadNewPac(@codpac_ , Omosa) WHEN ( mostra = .t. .and. EMPTY(codpac_) ) // Mostrar o nome do paciente //-------------------------- REDEFINE GET oGt04 VAR despac_ ID 105 OF Omosa UPDATE WHEN mostra = .t. codpro_ := quanti_ := 0 despro_ := SPAC(15) // Procurar produto direto pelo codigo //------------------------------------- REDEFINE GET prod01 VAR codpro_ PICTURE "99999" ID 106 OF Omosa ; VALID ExistPro( @codpro_, @despro_, Omosa, .F. ) UPDATE /// WHEN mostra = .t. // Procurar produto direto pelo Button //------------------------------------ REDEFINE BTNBMP obtn2 ID 107 FILE ".\BITMAPS\ProcBtn.BMP" OF Omosa UPDATE ; ACTION ExistPro( @codpro_, @despro_, Omosa, .T. ) WHEN EMPTY( codpro_ ) // Mostrar o nome do produto //-------------------------- REDEFINE GET prod02 VAR despro_ ID 108 OF Omosa UPDATE WHEN mostra = .f. // Recebe a quantidade dos produtos //--------------------------------- REDEFINE GET qtd01 VAR quanti_ PICTURE "@E 99999" ID 109 OF Omosa REDEFINE BUTTON oBtnZ ID 110 OF Omosa ACTION( GravaPro(.f.,codpro_,despro_,codpac_,despac_,quanti_, _nordem,; _codpro,_despro,_codpac,_despac,_quanti ) ) when RET = .T. // REDEFINE BUTTON oBtnY ID 111 OF Omosa ACTION // REDEFINE BUTTON oBtnY ID 111 OF Omosa // ACTION ( NFSExcl(Omosa, oLb1), NFSCalc(@nIt18,@nIt19,@nIt20,nIt42,@nIt55,Omosa,oLb1) ) REDEFINE BUTTON oBtnH ID 112 OF Omosa ACTION( ret := .F. , Encerra( Omosa) ) CANCEL ACTIVATE DIALOG Omosa CENTERED (* Aqui. não consigo sair do sistema ) oFntLis:End() RETUR nil Uso; Five 2.7 - Clipper 5.3b - XHarbour 00.99.61 - //-----------------------------// STATIC FUNC Encerra( omosa ) //-----------------------------// CLOS MOVSAI_T USE MOVSAI_T EXCLUSIV NEW IF NETERR() MsgStop( "No momento há um usuário cadastrando uma nota fiscal na rede."+CRLF+; "Não é recomendado que dois usuário cadastrem notas fiscais ao"+CRLF+; "mesmo tempo, para evitar duplicação de códigos e inconsistência"+CRLF+; "no estoque dos produtos. Tente novamente mais tarde.",; "Informação:" ) Select(MyDb) Omosa:GoBottom() Omosa:UpStable() Omosa:Refresh() ENDIF ZAP PACK EndDialog() GlobalFree() ResAllFree() Release All Omosa:End() oLb1:End() Select(oDbf) mostra := .t. RETU .t. id=red> PEDRO AIRTON

Amigos, Será que alguem poderia me ajudar no sentido de dizer-me como fazer para abandonar uma DIALOG apos Clikar num Button, conforme código abaixo. Seguinte: Quando cliko em "Cancelar", o foco do programa retornar para o ultimo Get e não sai da rotina de jeito nehum. Desde já Agradeço a atenção de quem puder me ajudar. #include "FiveWin.ch" #include "INKEY.CH" STATIC oCod , mVazio, mDini, mDfim, aTrans,; aUnd , codpro_, despro_, quanti_,; codpac_, despac_, mostra := .t., ret := .t., oLb1,; _nordem[99], _codpro[99], _despro[99], _codpac[99],; _despac[99], _quanti[99] //-------------------// Function MOVSAI() //-------------------// local oLbx, oCadDl local it, oGt01, oGt02, oGt03, oGt04, oGt05, oGt06, oGt07, oGt08 local oGt09, oGt10, oGt11, oGt12, Old48, prod01, prod02 local MyDb, oBtn1, oBtn2, oBtn3, oBtn4, oBtn5, oBtnZ, oBtnY, oBtnH, mRad, lAppend local lSave := .t. , nOldRec := 0 , qtd01, ob146 PUBLIC Omosa PUBLIC limpa_ := .f., i := 0 PUBLIC nOldCd := SPACE(13) IF ! UsrFree(EstIncl) RETURN NIL ENDIF IF ! ret RETURN NIL ENDIF mDini := CTOD(" ") mDfim := CTOD(" ") CursorWait() USE MOVSAI_T SHARED NEW IF ! file("MOVSAI_T.CDX") MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->NORDEM", "SAIORD" ) },; "Indexando movimento por código...", "Espere un momento!" ) MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->DATSAI", "DATSAI" ) },; "Indexando movimento por data...", "Espere un momento!" ) MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->CODPRO", "CODPRO" ) },; "Indexando movimento por fornecedor...", "Espere un momento!" ) ENDI ordListClear() OrdListAdd("MOVSAI_T","SAIORD","DATSAI", "CODPRO") MOVSAI_T->(DBSETORDER(1)) MOVSAI_T->( DBGOTOP() ) DEFAULT lAppend := .t. IF lAppend USE MOVSAI MOVSAI->(DBGOBOTTOM()) ordem_ := VAL( MOVSAI->NORDEM) + 1 ELSE ENDIF IF mostra codpro_ := 0 despro_ := SPAC(15) codpac_ := 0 despac_ := SPAC(15) quanti_ := 0 ENDI DEFINE FONT oFntLis NAME "Courier New" SIZE 0, -10 DEFINE DIALOG Omosa RESOURCE "TEL_SAI" DEFINE FONT oSayFnt NAME "Arial" SIZE 0, -12 BOLD ITALIC REDEFINE SAY oSay PROMPT STRZERO( ordem_,5 ) ID -15 OF Omosa COLORS CLR_HBLUE USE MOVSAI_T MOVSAI_T->( DBGOTOP() ) REDEFINE LISTBOX oLb1 ; FIELDS MOVSAI_T->CODPRO,; MOVSAI_T->DESPRO,; STRZERO( MOVSAI_T->QUANTI,05); ID 101 OF Omosa ; FIELDSIZES 85,170,55,65,65,65,65,50,65,65 ; ALIAS "MOVSAI_T" ; HEADERS "Cod. Prod.",; "Descricao",; "Quantidade" oFntLis:End() Omosa:UpDate() oLb1:UpStable() oLb1:Refresh() // Procurar paciente direto pelo codigo //------------------------------------- REDEFINE GET oGt03 VAR codpac_ PICTURE "99999" ID 102 OF Omosa ; VALID ExistPac( @codpac_, @despac_, Omosa, .F. ) UPDATE WHEN mostra = .t. // Procurar paciente direto pelo Button //------------------------------------- REDEFINE BTNBMP obtn1 ID 103 FILE ".\BITMAPS\ProcBtn.BMP" OF Omosa ; UPDATE ACTION ExistPac( @codpac_, @despac_, Omosa, .T. ); WHEN ( mostra = .t. .and. EMPTY( codpac_ ) ) // Inclusao de novo Paciente //-------------------------- REDEFINE BTNBMP ob146 ID 104 FILE ".\BITMAPS\NOVO.BMP" OF Omosa ; UPDATE ACTION CadNewPac(@codpac_ , Omosa) WHEN ( mostra = .t. .and. EMPTY(codpac_) ) // Mostrar o nome do paciente //-------------------------- REDEFINE GET oGt04 VAR despac_ ID 105 OF Omosa UPDATE WHEN mostra = .t. codpro_ := quanti_ := 0 despro_ := SPAC(15) // Procurar produto direto pelo codigo //------------------------------------- REDEFINE GET prod01 VAR codpro_ PICTURE "99999" ID 106 OF Omosa ; VALID ExistPro( @codpro_, @despro_, Omosa, .F. ) UPDATE /// WHEN mostra = .t. // Procurar produto direto pelo Button //------------------------------------ REDEFINE BTNBMP obtn2 ID 107 FILE ".\BITMAPS\ProcBtn.BMP" OF Omosa UPDATE ; ACTION ExistPro( @codpro_, @despro_, Omosa, .T. ) WHEN EMPTY( codpro_ ) // Mostrar o nome do produto //-------------------------- REDEFINE GET prod02 VAR despro_ ID 108 OF Omosa UPDATE WHEN mostra = .f. // Recebe a quantidade dos produtos //--------------------------------- REDEFINE GET qtd01 VAR quanti_ PICTURE "@E 99999" ID 109 OF Omosa REDEFINE BUTTON oBtnZ ID 110 OF Omosa ACTION( GravaPro(.f.,codpro_,despro_,codpac_,despac_,quanti_, _nordem,; _codpro,_despro,_codpac,_despac,_quanti ) ) when RET = .T. // REDEFINE BUTTON oBtnY ID 111 OF Omosa ACTION // REDEFINE BUTTON oBtnY ID 111 OF Omosa // ACTION ( NFSExcl(Omosa, oLb1), NFSCalc(@nIt18,@nIt19,@nIt20,nIt42,@nIt55,Omosa,oLb1) ) REDEFINE BUTTON oBtnH ID 112 OF Omosa ACTION( ret := .F. , Encerra( Omosa) ) CANCEL ACTIVATE DIALOG Omosa CENTERED (* Aqui. não consigo sair do sistema ) oFntLis:End() RETUR nil Uso; Five 2.7 - Clipper 5.3b - XHarbour 00.99.61 - //-----------------------------// STATIC FUNC Encerra( omosa ) //-----------------------------// CLOS MOVSAI_T USE MOVSAI_T EXCLUSIV NEW IF NETERR() MsgStop( "No momento há um usuário cadastrando uma nota fiscal na rede."+CRLF+; "Não é recomendado que dois usuário cadastrem notas fiscais ao"+CRLF+; "mesmo tempo, para evitar duplicação de códigos e inconsistência"+CRLF+; "no estoque dos produtos. Tente novamente mais tarde.",; "Informação:" ) Select(MyDb) Omosa:GoBottom() Omosa:UpStable() Omosa:Refresh() ENDIF ZAP PACK EndDialog() GlobalFree() ResAllFree() Release All Omosa:End() oLb1:End() Select(oDbf) mostra := .t. RETU .t. id=red> PEDRO AIRTON

Amigos de todo Brasil, Por favor alguem poderia me ajudar como devo fazer para o seguinte: Quando saiu de um GET que invoca a Clausula VALID, o mesmo retorna o foco para o mesmo GET, ou seja, não executa o VALID, mas, não ABANDONA a DIALOG. #include "FiveWin.ch" STATIC mVazio, mDini, mDfim, aTrans STATIC oCod, oIt02, oIt05, oIt06, oIt07, oIt08, oIt09, oIt10,; oIt11[99], oIt12[99], oIt13[99], oIt14[99], oIt15[99], oIt16[99],; oIt17[99], oIt18[99], oIt19[99], oIt20[99], oIt21[99], oIt22[99], nIt18, nIt19, nIt20,; nIt21, nIt22, nIt23, nIt24, nIt25, nIt26, nIt27, nIt28, nIt29, nIt30,; nIt31, nIt32, nIt33, nIt34, nIt35, nIt36, nIt37, nIt38, nIt39, nIt40,; nIt41, nIt42, nIt43, nIt44, nIt45, nIt46, nIt47, nIt48, nIt49, nIt50,; nIt51, nIt52, nIt53, nIt54, nIt55, aUnd , Old48, qtd01, codpro_, despro_, quanti_,; codpac_, despac_, mostra := .t., ret := .t.,; _nordem[99], _codpro[99], _despro[99], _codpac[99],; _despac[99], _quanti[99], i := 0 //-------------------// Function MOVSAI() //-------------------// local oLbx, oCadDl local it, oGt01, oGt02, oGt03, oGt04, oGt05, oGt06, oGt07, oGt08,; oGt09, oGt10, oGt11, oGt12, Old48, prod01, prod02 local MyDb, oBtn1, oBtn2, oBtn3, oBtn4, oBtn5, oBtnZ, oBtnY, oBtnH, mRad, oLb1, lAppend local lSave := .t. local nOldRec := RecNo() PUBLIC Omosa PUBLIC limpa_ := .f. PUBLIC nOldCd := SPACE(13) IF ! UsrFree(EstIncl) RETURN NIL ENDIF mDini := CTOD(" ") mDfim := CTOD(" ") CursorWait() USE MOVSAI_T SHARED NEW IF ! file("MOVSAI_T.CDX") MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->NORDEM", "SAIORD" ) },; "Indexando movimento por código...", "Espere un momento!" ) MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->DATSAI", "DATSAI" ) },; "Indexando movimento por data...", "Espere un momento!" ) MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->CODPRO", "CODPRO" ) },; "Indexando movimento por fornecedor...", "Espere un momento!" ) ENDI ordListClear() OrdListAdd("MOVSAI_T","SAIORD","DATSAI", "CODPRO") MOVSAI_T->(DBSETORDER(1)) MOVSAI_T->( DBGOTOP() ) DEFAULT lAppend := .t. IF lAppend USE MOVSAI MOVSAI->(DBGOBOTTOM()) ordem_ := VAL( MOVSAI->NORDEM) + 1 ELSE ENDIF IF mostra codpro_ := 0 despro_ := SPAC(15) codpac_ := 0 despac_ := SPAC(15) quanti_ := 0 ENDI DEFINE FONT oFntLis NAME "Courier New" SIZE 0, -10 DEFINE DIALOG Omosa RESOURCE "TEL_SAI" DEFINE FONT oSayFnt NAME "Arial" SIZE 0, -12 BOLD ITALIC REDEFINE SAY oSay PROMPT STRZERO( ordem_,5 ) ID -15 OF Omosa COLORS CLR_HBLUE USE MOVSAI_T MOVSAI_T->( DBGOTOP() ) REDEFINE LISTBOX oLb1 ; FIELDS MOVSAI_T->CODPRO,; MOVSAI_T->DESPRO,; STRZERO( MOVSAI_T->QUANTI,05); ID 101 OF Omosa ; FIELDSIZES 85,170,55,65,65,65,65,50,65,65 ; ALIAS "MOVSAI_T" ; HEADERS "Cod. Prod.",; "Descricao",; "Quantidade" oFntLis:End() oLb1:SetFont(oFntLis) Omosa:UpDate() oLb1:UpStable() oLb1:Refresh() // Procurar paciente direto pelo codigo //------------------------------------- REDEFINE GET oGt03 VAR codpac_ PICTURE "99999" ID 102 OF Omosa ; VALID ExistPac( @codpac_, @despac_, Omosa, .F. ) UPDATE WHEN mostra = .t. // Procurar paciente direto pelo Button //------------------------------------- REDEFINE BTNBMP obtn1 ID 103 FILE ".\BITMAPS\ProcBtn.BMP" OF Omosa ; UPDATE ACTION ExistPac( @codpac_, @despac_, Omosa, .T. ); WHEN ( mostra = .t. .and. EMPTY( codpac_ ) ) // Inclusao de novo Paciente //-------------------------- REDEFINE BTNBMP ob146 ID 104 FILE ".\BITMAPS\NOVO.BMP" OF Omosa ; UPDATE ACTION CadNewPac(@codpac_ , Omosa) WHEN ( mostra = .t. .and. EMPTY(codpac_) ) // Mostrar o nome do paciente //-------------------------- REDEFINE GET oGt04 VAR despac_ ID 105 OF Omosa UPDATE WHEN mostra = .t. codpro_ := quanti_ := 0 despro_ := SPAC(15) // Procurar produto direto pelo codigo //------------------------------------- REDEFINE GET prod01 VAR codpro_ PICTURE "99999" ID 106 OF Omosa ; VALID ExistPro( @codpro_, @despro_, Omosa, .F. ) //// UPDATE WHEN mostra = .t. // Procurar produto direto pelo Button //------------------------------------ REDEFINE BTNBMP obtn2 ID 107 FILE ".\BITMAPS\ProcBtn.BMP" OF Omosa UPDATE ; ACTION ExistPro( @codpro_, @despro_, Omosa, .T. ) WHEN EMPTY( codpro_ ) // Mostrar o nome do produto //------------------------- REDEFINE GET prod02 VAR despro_ ID 108 OF Omosa UPDATE WHEN mostra = .f. // Recebe a quantidade dos produtos //--------------------------------- REDEFINE GET qtd01 VAR quanti_ PICTURE "@E 99999" ID 109 OF Omosa; valid( GravaPro(.f.) ) REDEFINE BUTTON oBtnZ ID 110 OF Omosa ACTION GravaPro(.t.) // REDEFINE BUTTON oBtnY ID 111 OF Omosa // ACTION ( NFSExcl(Omosa, oLb1), NFSCalc(@nIt18,@nIt19,@nIt20,nIt42,@nIt55,Omosa,oLb1) ) REDEFINE BUTTON oBtnH ID 112 OF Omosa ACTION( Omosa:End() ) CANCEL ACTIVATE DIALOG Omosa CENTERED oFntLis:End() RETUR nil id=code>id=code>PEDRO AIRTON

Amigos de todo Brasil, Por favor alguem poderia me ajudar como devo fazer para o seguinte: Quando saiu de um GET que invoca a Clausula VALID, o mesmo retorna o foco para o mesmo GET, ou seja, não executa o VALID, mas, não ABANDONA a DIALOG. #include "FiveWin.ch" STATIC mVazio, mDini, mDfim, aTrans STATIC oCod, oIt02, oIt05, oIt06, oIt07, oIt08, oIt09, oIt10,; oIt11[99], oIt12[99], oIt13[99], oIt14[99], oIt15[99], oIt16[99],; oIt17[99], oIt18[99], oIt19[99], oIt20[99], oIt21[99], oIt22[99], nIt18, nIt19, nIt20,; nIt21, nIt22, nIt23, nIt24, nIt25, nIt26, nIt27, nIt28, nIt29, nIt30,; nIt31, nIt32, nIt33, nIt34, nIt35, nIt36, nIt37, nIt38, nIt39, nIt40,; nIt41, nIt42, nIt43, nIt44, nIt45, nIt46, nIt47, nIt48, nIt49, nIt50,; nIt51, nIt52, nIt53, nIt54, nIt55, aUnd , Old48, qtd01, codpro_, despro_, quanti_,; codpac_, despac_, mostra := .t., ret := .t.,; _nordem[99], _codpro[99], _despro[99], _codpac[99],; _despac[99], _quanti[99], i := 0 //-------------------// Function MOVSAI() //-------------------// local oLbx, oCadDl local it, oGt01, oGt02, oGt03, oGt04, oGt05, oGt06, oGt07, oGt08,; oGt09, oGt10, oGt11, oGt12, Old48, prod01, prod02 local MyDb, oBtn1, oBtn2, oBtn3, oBtn4, oBtn5, oBtnZ, oBtnY, oBtnH, mRad, oLb1, lAppend local lSave := .t. local nOldRec := RecNo() PUBLIC Omosa PUBLIC limpa_ := .f. PUBLIC nOldCd := SPACE(13) IF ! UsrFree(EstIncl) RETURN NIL ENDIF mDini := CTOD(" ") mDfim := CTOD(" ") CursorWait() USE MOVSAI_T SHARED NEW IF ! file("MOVSAI_T.CDX") MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->NORDEM", "SAIORD" ) },; "Indexando movimento por código...", "Espere un momento!" ) MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->DATSAI", "DATSAI" ) },; "Indexando movimento por data...", "Espere un momento!" ) MsgMeter( { | oMeter, oText, oCadDl, lEnd | ; BuildIndex( oMeter, oText, oCadDl, @lEnd, "MOVSAI_T->CODPRO", "CODPRO" ) },; "Indexando movimento por fornecedor...", "Espere un momento!" ) ENDI ordListClear() OrdListAdd("MOVSAI_T","SAIORD","DATSAI", "CODPRO") MOVSAI_T->(DBSETORDER(1)) MOVSAI_T->( DBGOTOP() ) DEFAULT lAppend := .t. IF lAppend USE MOVSAI MOVSAI->(DBGOBOTTOM()) ordem_ := VAL( MOVSAI->NORDEM) + 1 ELSE ENDIF IF mostra codpro_ := 0 despro_ := SPAC(15) codpac_ := 0 despac_ := SPAC(15) quanti_ := 0 ENDI DEFINE FONT oFntLis NAME "Courier New" SIZE 0, -10 DEFINE DIALOG Omosa RESOURCE "TEL_SAI" DEFINE FONT oSayFnt NAME "Arial" SIZE 0, -12 BOLD ITALIC REDEFINE SAY oSay PROMPT STRZERO( ordem_,5 ) ID -15 OF Omosa COLORS CLR_HBLUE USE MOVSAI_T MOVSAI_T->( DBGOTOP() ) REDEFINE LISTBOX oLb1 ; FIELDS MOVSAI_T->CODPRO,; MOVSAI_T->DESPRO,; STRZERO( MOVSAI_T->QUANTI,05); ID 101 OF Omosa ; FIELDSIZES 85,170,55,65,65,65,65,50,65,65 ; ALIAS "MOVSAI_T" ; HEADERS "Cod. Prod.",; "Descricao",; "Quantidade" oFntLis:End() oLb1:SetFont(oFntLis) Omosa:UpDate() oLb1:UpStable() oLb1:Refresh() // Procurar paciente direto pelo codigo //------------------------------------- REDEFINE GET oGt03 VAR codpac_ PICTURE "99999" ID 102 OF Omosa ; VALID ExistPac( @codpac_, @despac_, Omosa, .F. ) UPDATE WHEN mostra = .t. // Procurar paciente direto pelo Button //------------------------------------- REDEFINE BTNBMP obtn1 ID 103 FILE ".\BITMAPS\ProcBtn.BMP" OF Omosa ; UPDATE ACTION ExistPac( @codpac_, @despac_, Omosa, .T. ); WHEN ( mostra = .t. .and. EMPTY( codpac_ ) ) // Inclusao de novo Paciente //-------------------------- REDEFINE BTNBMP ob146 ID 104 FILE ".\BITMAPS\NOVO.BMP" OF Omosa ; UPDATE ACTION CadNewPac(@codpac_ , Omosa) WHEN ( mostra = .t. .and. EMPTY(codpac_) ) // Mostrar o nome do paciente //-------------------------- REDEFINE GET oGt04 VAR despac_ ID 105 OF Omosa UPDATE WHEN mostra = .t. codpro_ := quanti_ := 0 despro_ := SPAC(15) // Procurar produto direto pelo codigo //------------------------------------- REDEFINE GET prod01 VAR codpro_ PICTURE "99999" ID 106 OF Omosa ; VALID ExistPro( @codpro_, @despro_, Omosa, .F. ) //// UPDATE WHEN mostra = .t. // Procurar produto direto pelo Button //------------------------------------ REDEFINE BTNBMP obtn2 ID 107 FILE ".\BITMAPS\ProcBtn.BMP" OF Omosa UPDATE ; ACTION ExistPro( @codpro_, @despro_, Omosa, .T. ) WHEN EMPTY( codpro_ ) // Mostrar o nome do produto //------------------------- REDEFINE GET prod02 VAR despro_ ID 108 OF Omosa UPDATE WHEN mostra = .f. // Recebe a quantidade dos produtos //--------------------------------- REDEFINE GET qtd01 VAR quanti_ PICTURE "@E 99999" ID 109 OF Omosa; valid( GravaPro(.f.) ) REDEFINE BUTTON oBtnZ ID 110 OF Omosa ACTION GravaPro(.t.) // REDEFINE BUTTON oBtnY ID 111 OF Omosa // ACTION ( NFSExcl(Omosa, oLb1), NFSCalc(@nIt18,@nIt19,@nIt20,nIt42,@nIt55,Omosa,oLb1) ) REDEFINE BUTTON oBtnH ID 112 OF Omosa ACTION( Omosa:End() ) CANCEL ACTIVATE DIALOG Omosa CENTERED oFntLis:End() RETUR nil id=code>id=code>PEDRO AIRTON