FiveTech Software tech support forums

... pregunta: ¿ Hay forma de regular el tamaño en bites de los pdf's generados ?, porque a veces me los genera de distinto tamaño. Las paso el código. sele 99 // Archivo con todas las facturas a imprimir. go top xsay:="Socio: "+strzero(99->cliente,4)+" - Fac.: "+xlet+"-"+str(xemi,1)+"-"+strzero(99->numero,6) ...

...       caliascli := 'cliruta'+aempresas[x,1]        use &cvarcli shared new alias &caliascli        sele &caliascli        set order to 1 esto en versiones anteriores me funcionaba, con la nueva en la línea del sele, me dice que no existe el alias ...

... := oCn:RowSet( "select * from customers" ) oRsSale := oCn:RowSet( "select * from sales" ) You need not switch the rowsets with SELE 1, SELE 2, etc. You can at the same time use any rowset by its name. Eg: ? oRsCust:name ? oRsSale:Amount

... recordsets por cada una ? (simultaneamente) ¿y puedo identificar a cada recordset de alguna manera como lo hacía con los DBF, por ejemplo con sele 1, sele2, etc. ? Muchas gracias !

... oBrw:lRecordSelector := .T. oBrw:oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROWMS Al salir de la edición del registro, y por una orden de: If lsalir sele sat SAT->(DBGOTOP()) obrw:refresh() obrw:setfocus() endif El puntero vuelve al principio, pero el color de fondo de la fila se queda donde estaba ...

... TO CODPROVE SET INDEX TO CODPROVE USE PRODUCTOS NEW SHARED ALIAS "PRODU" INDEX ON PRODU->CODIGO_PRO TO CODPRODU SET INDEX TO CODPRODU SELE PROVE SET RELATION TO PROVE->CODIGO_PRO INTO PRODU DEFINE DIALOG oDlg FROM 3, 3 TO 33, 100 TITLE "PROVEEDORES" @ 1, 1 XBROWSE oBrw ...

... SIZE 40, 10 PIXEL action oDlg:end() @ 60, 150 BUTTON "Salir" OF oFld:aDialogs[1] SIZE 40, 10 PIXEL ACTION (lSalir:=.t., oDlg:End()) SELE produ produ->( ordscope( 0, nProve ) ) produ->( ordscope( 1, nProve ) ) produ->( DBSKIP( 0 ) ) IF produ->( ordKeyCount() ) == 0 MsgInfo( ...

... to CODPROVE Set index to CODPROVE USE PRODUCTOS NEW SHARED alias "PRODU" index on PRODU->CODIGO_PRO to CODPRODU Set index to CODPRODU SELE PROVE SET RELATION TO PROVE->CODIGO_PRO INTO PRODU DEFINE DIALOG oDlg FROM 3, 3 TO 33, 100 TITLE "PROVEEDORES" @ 1,1 XBROWSE oBrw ...

... = 0 xrecibo := oRS1num:Fields( "recibo" ):value + 1 endif val_fam( xfamilia ) if limpreci imprireci() * retu .f. endif xnombre = xpadre sele au_reci go top i = 1 * ? xdescu copias = 1 if ximpinteres < 0 x1impabon := xtotal + imp_nc + ( ximpinteres * - 1 ) + acuenta else x1impabon ...

Codigo: ** Desde Aqui lo Mando        WITH OBJECT oBrw3            :bLDblClick:={||(Sele_Dia(oBrw3: SelectedCol (): Value,cPro1,cEsp1,otitu1,@cAgendar),oDlg3,oBrw4,oAge1,oAge2),iif(cAgendar=="S",oBtnxx:Show(),oBtnxx:Hide()),oDlg3:Refresh(),oBrw4:Refresh(),oGroup2:Refresh(),oAge2:Refresh()}  ...

Hola, Me da la impresión que el diálogo ya está construido cuando ejecutas la function Sele_Dia() en el bLDblClick del xBrowse. Si he interpretado bien tu código te sugiero que definas el boton al momento del construir el diálogo @ 200,120 BTNBMP  oBtnxx SIZE 55,50 PROMPT "CREA".... y lueg...

... wnom:=spac(20) public wnom:=1->nombre default lGoOn:=.f. set cursor on DEFINE DIALOG oDlg RESOURCE "HC0100LI1" FONT m->oFontBrw sele 1 set order to 1 REDEFINE GET ownom VAR wnom ID 101 OF oDlg picture "@!" REDEFINE BTNBMP oBtn ID 103 OF oDlg RESOURCE "yes" ...

... en Total. Este Proceso Toma 1 Min. en el Notebook, lo que antes eran 3 Seg. en Windows XP. Aque se debe?? Dejo el Codigo que toma Este Tiempo. Sele GENEFAC Seek dtos(cFecha_exa) Do While (Fec_rec=dtoc(cFecha_exa).and.!eof()) Sele b // PasoGral do while .t. Dbappend() If !neterr() repl Nro_bon ...

Hi, try to put this before redefine second browse:

Sele 4
Go Top

agregale :


sele 2
use .\RUBNOM index .\RUBNOM ALIAS base1 EXCLUSIVE
set order to 2

sele 4
use &wpath.maeart index &wpath.maeart ALIAS BASE2
set order to 2


oBrwr:cAlias := base2

saludos