topic-19421

Board index FiveWin para Harbour/xHarbour OSay:refresh no funciona

Posts: 131

Joined: Tue Dec 26, 2006 04:50 PM

OSay:refresh no funciona
Posted: Fri Jul 23, 2010 02:51 PM

Estimados amigos del foro, tengo un problemita, en el código adjunto no me hace el refresh de los says, es curioso, pero si compilo con la versión 2.6 el mismo código si funciona, pero si compilo en versión 6.12 (la de acceso sin costo) no los despliega.

Intenté verificar que estuviera actualizando las variables, dentro de la clausula "ON CHANGE" puse un msgalert(var1+var2+var3,var4) y como debe ser cada que hago un cambio de registro me aparece una ventanita con los datos de las variables que si se actualizan, sin embargo los says aparecen an blanco y no cambian.

Tambien intenté con la opción oSay12sv:SetText(rece), pero sin obtener un resultado exitoso.

Alguien tendrá alguna idea del porque?

Gracias y saludos.

Code (fw): Select all Collapse

Function procsurv
   close all
   Public oFont1
   public tidh, fesh, resh, mysh, pesh, tesh, qush, cash, prsh, cosh, repos, conts
   Public enre := space(20)
   public tregsrs
   Public vProm := 0
   public oSay1sv, oSay2sv, oSay3sv, oSay4sv, oSay5sv, oSay6sv, oSay7sv, oSay8sv, oSay9sv, oSay10sv, oSay11sv, oSay12sv
   Public colus := 1
   define font oFont1  name "TIMES NEW ROMAN" size 0,-16 bold
   do case
   case cComm="ELECTRONICOS"
      leye="Espera. Integrando información de clientes a encuestar del área de electrónicos"
      leye1="área de electrónicos"
   case cComm="SELLADORAS"
      leye="Espera. Integrando información de clientes a encuestar del área de selladoras"
      leye1="área de selladoras"
   otherwise
      cCommes=substr(cComm,1,4)
      leye="Espera. Integrando información de clientes a encuestar del commodity "+cCommes
      leye1="commodity "+cCommes
   endcase
   cursorwait()
   MsgRun( leye, "Encuesta de satisfacción de clientes",{ | oDlg | gensurv( oDlg ) } )
   if tregsrs>0
      cicsur="S"
      do while cicsur="S"
         close all
         use &dbtmp6 shared new alias hists
         index on cliysub to &dbidx1
         use &dbcust shared new alias clientes
         index on cliysub to &dbidx2
         use &dbtmp2 shared new alias reportes
         count to tcxe
         index on report_no+continue+str(cliysub) to &dbidx3
         define dialog oDialsv resource "DLGVERDB6" of oVentprinc title "Encuesta de satisfacción de clientes"
         redefine say oSay1sv prompt "Existen "+alltrim(str(tcxe))+" clientes a encuestar del "+leye1 id 0 of oDialsv
         redefine listbox oLbx1sv FIELDS IIF(clientes->(dbseek(reportes->cliysub)),clientes->razoncom,"Ubicación no especificada"),;
                  reportes->report_no+"-"+reportes->continue,reportes->model,reportes->serial_no,dtoc(reportes->date),;
                  reportes->caller,reportes->call_tele, reportes->report_no+"-"+reportes->continue, reportes->tech_id,;
                  reportes->svc_plan,reportes->m_lbr_act,reportes->complaint, dtoc(reportes->call_date),;
                  IIF(clientes->(dbseek(reportes->cliysub)),clientes->razonsoc,"Cliente no encontrado"),;
                  IIF(clientes->(dbseek(reportes->cliysub)),clientes->dir1b,"Dirección no especificada"),;
                  IIF(clientes->(dbseek(reportes->cliysub)),clientes->dir2b," "),;
                  IIF(clientes->(dbseek(reportes->cliysub)),clientes->dir3b," "),;
                  IIF(clientes->(dbseek(reportes->cliysub)),clientes->dir5b," "),;
                  IIF(clientes->(dbseek(reportes->cliysub)),str(clientes->dir4b)," "),;
                  IIF(clientes->(dbseek(reportes->cliysub)),clientes->conta2," "),;
                  IIF(clientes->(dbseek(reportes->cliysub)),clientes->telef2," "),;
                  IIF(clientes->(dbseek(reportes->cliysub)),clientes->exten2," "),;
                  IIF(clientes->(dbseek(reportes->cliysub)),clientes->email2," ");
                  ID 1 of oDialsv alias "reportes";
                  headers "Ubicación","Reporte","Modelo","Serie","Atención","Reportado por","Telefono","Reporte","Técnico",;
                  "Plan","Actividad","Falla reportada","Fecha de llamada","Razon social",;
                  "Dirección (Calle y No.)","Colonia","Municipio","Estado","C.P.","Contacto principal",;
                  "Telefono","Extensión","e-mail" on change;
                  ((IIF(hists->(dbseek(reportes->cliysub)),(fesh:=dtoc(hists->fechenc),;
                  resh:=hists->report_no,mysh:=hists->model+" / "+hists->serial_no,tidh:=hists->tech_id,;
                  pesh:=hists->mstr_oper,tesh:=hists->telephone,qush:=hists->quien,;
                  cash:=str(hists->r01)+"  "+str(hists->r02)+"  "+str(hists->r03)+"  "+str(hists->r04);
                  +"  "+str(hists->r05)+"  "+str(hists->r06)+"  "+str(hists->r07)+"  "+str(hists->r08);
                  +"  "+str(hists->r09)+"  "+str(hists->r10),prsh:= str(hists->r_avg),cosh:=hists->observa,vProm:=hists->r_avg,;
                  iif(vProm>4,oSay10sv:Setcolor(CLR_GREEN,oSay10sv:nClrPane),oSay10sv:Setcolor(CLR_HRED,oSay10sv:nClrPane))),;
                  (fesh:=" ",resh:=" ",mysh:=" ",tidh:=" ",pesh:=" ",tesh:=" ",qush:=" ",;
                  cash:=" ",prsh:=" ",cosh:=" ",vProm:=0))))
                  oDialsv:update()
         redefine say oSay2sv prompt fesh ID 13 of oDialsv update
         redefine say oSay3sv prompt resh ID 14 of oDialsv update
         redefine say oSay4sv prompt mysh ID 15 of oDialsv update
         redefine say oSay5sv prompt tidh ID 16 of oDialsv update
         redefine say oSay6sv prompt pesh ID 17 of oDialsv update
         redefine say oSay7sv prompt tesh ID 18 of oDialsv update
         redefine say oSay8sv prompt qush ID 19 of oDialsv update
         redefine say oSay9sv prompt cash ID 20 of oDialsv update
         redefine say oSay10sv prompt prsh ID 21 of oDialsv font ofont1 update
         redefine say oSay11sv prompt cosh ID 22 of oDialsv update
         redefine say oSay12sv prompt enre ID 25 of oDialsv update
         redefine button oBtn1sv ID 23 of oDialsv action(oDialsv:end(),repos:=report_no,conts:=continue,encuesta())
         redefine button oBtn2sv ID 24 of oDialsv action (oDialsv:end(),cicsur:="N")
         activate dialog oDialsv center
      enddo
   endif
   ofont1:end()
return

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: OSay:refresh no funciona
Posted: Fri Jul 23, 2010 04:55 PM

Mariordz

El unico Say que quieres refrescar es "oSay1sv" que no tiene la clausula UPDATE. En la parte donde indicas refrescar no lo mencionas. Revisa tus objeto y variables.

Armando

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

mariordz

Posts: 131

Joined: Tue Dec 26, 2006 04:50 PM

Re: OSay:refresh no funciona
Posted: Tue Jul 27, 2010 05:25 PM

Armando, deseo hacer un refresh de casi todos los says, el oSay1sv no tiene la clausula update porque ese es un valor constante, pero los demas "say's" si se deben modificar a cada cambio en el registro del browse. Por el momento he vuelto a compilar con la versión 2.6 que no me presenta problema, como lo dije anteriormente, no tengo que cambiar nada del código, si compilo con la versión 2.6 funciona, con la 6.12 no.

Raro, pero cierto.

Saludos.

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: OSay:refresh no funciona
Posted: Tue Jul 27, 2010 11:22 PM

Algunas veces me paso lo mismo cuando salte de mi viejo 2.4 hacia la 7.12. Te explico el porqué: como vengo de Clipper, antiguamente utilizaba muchas variables Publicas para recuperar valores en las variables y, por supuesto, eso mismo lo replicaba en fwh lo que me ocasionaba no pocos disgustos. Encontré la solución definiendo primero las variables y luego las funciones que actualizaban a las variables.

Tomando en cuenta eso; podría ser una solución si pones primero los Say y después el Listbox que es donde se toman los nuevos valores. Espero eso sea la solución como lo fue en mi caso.

Saludos

Armando

mariordz wrote:Armando, deseo hacer un refresh de casi todos los says, el oSay1sv no tiene la clausula update porque ese es un valor constante, pero los demas "say's" si se deben modificar a cada cambio en el registro del browse. Por el momento he vuelto a compilar con la versión 2.6 que no me presenta problema, como lo dije anteriormente, no tengo que cambiar nada del código, si compilo con la versión 2.6 funciona, con la 6.12 no.

Raro, pero cierto.

Saludos.

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: OSay:refresh no funciona
Posted: Wed Jul 28, 2010 12:06 AM

Mario,

Asi los he manejado y no he tenido problemas :

Code (fw): Select all Collapse

redefine xbrowse lbPvtDet id 102 of oFldPvExp:adialogs[1] ;
    columns 8,1,2,3,4,5 ;
    headers ".","NUM. PARTE","DESCRIPCION","UNITARIO","UNS","IMPORTE" ;
    colsizes 15,120,300,70,50,80 ;
    on change ( ;
        aPvtDts[6]:SetText( lbPvtDet:aRow[7] ), ;
        aPvtDts[7]:SetText( lbPvtDet:aRow[6] ) ) ;
    array { { "","","","","","","",.f.,0,0,"" } } ;
    footers ;
    font aSysFnts[1] autosort

redefine say aPvtDts[6] id 109 of oFldPvExp:adialogs[1] color CLR_HBLUE
redefine say aPvtDts[7] id 112 of oFldPvExp:adialogs[1] color CLR_HBLUE

Aqui estan con XBrowse, pero les daba el mismo tratamiento con el WBrowse de Hernan, con mismos resultados.

Saludos

FWH 10.6 + xHarbour + Borland 582

mariordz

Posts: 131

Joined: Tue Dec 26, 2006 04:50 PM

Re: OSay:refresh no funciona
Posted: Wed Jul 28, 2010 02:18 PM

Muchas gracias por sus aportaciones, voy a probarlas y les aviso lo que suceda.

Saludos.

FiveTech Support Forums

Continue the discussion