FiveTech Software tech support forums

function DeleteControl( oPanel, nItem )   local nTop, nLeft      for n := Len( oPanel:aControls ) to nItem + 1 STEP -1      oPanel:aControls[ n ]:nTop := oPanel:aControls[ n - 1 ]:nTop      oPanel:aControls[ ...

Nages oPanel:aControls[ nItem ]:End() HB_ADel( oPanel:aControls[ nItem ], nItem, .t. ) ASize( oPanel:aControls, Len( oPanel:aControls ) ) oPanel:SetRange() oPanel:refresh() I saw on oPanel:aControls there are also the records https://i.postimg.cc/QNKWmS1C/mm.png ...

... := 1 TO LEN(oBrw:aCols) oCol := oBrw:aCols[ i ] oCol:bLDClickData := { || Erase_Items(oBrw,oPanel) } NEXT Function Erase_Items(oBrw,oPanel) local nItem:= oBrw:aArrayData[ oBrw:nArrayAt ][2] aDel(oBrw:aArraydata,nItem-1) // xbrowser oBrw:aArraydata oPanel:aControls[nItem]:destroy() oBrw:refresh() ...

The class used in the RES dialog file is TWBrowse... Source... REDEFINE LISTBOX oBrw ; FIELDS aAcc_No[ nItem ] ,; P6_Mast->(DbSeek(Trim(PadCode1(aAcc_No[ nItem ]))),P6_Mast->Acc_Name) ,; aAcc_Desc[ nItem ] ,; If(!Empty(aTrn_AmtD[ nItem ]),TransForm(aTrn_AmtD[ nItem ],'99,999,999,999.99 ...

DEFINE BRUSH oBr color rgb( 204, 255, 153 )
...
UTILPRN ::oUtil Self:nLinea, 1.3 SAY " " + DToC( aDatos[ nItem ][ 1 ] ) FONT ::oFnt2 BRUSH oBr WIDTH 18.2 shadow .T.

... por favor ejecute go.bat o goh32.bat desde samples\EasyReport * function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle, nItem, lCancel, cCapCan, oFont ) --> SelectedItemNumber - Corrección: salir del cuadro de diálogo presionando la tecla Esc no devolvía 0. Corregido ...

... examples, please run go.bat or goh32.bat from samples\EasyReport * function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle, nItem, lCancel, cCapCan, oFont ) --> SelectedItemNumber - Fix: Exiting the dialog by pressing Esc key was not returning 0. Fixed - Last parameter ...

... examples, please run go.bat or goh32.bat from samples\EasyReport * function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle, nItem, lCancel, cCapCan, oFont ) --> SelectedItemNumber - Fix: Exiting the dialog by pressing Esc key was not returning 0. Fixed - Last parameter ...

Carlos, Prueba a proporcionar .T. en el parámetro lCancel: function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle, nItem, lCancel, cCapCan ) En ese caso, MsgList() devuelve cero al salir cancelando Gracias Antonio. Si se pulsa 'Cancelar' sí que devuelve '0', pero si se ...

Carlos,

Prueba a proporcionar .T. en el parámetro lCancel:

function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle, nItem, lCancel, cCapCan )

En ese caso, MsgList() devuelve cero al salir cancelando

... "Etnia del sujeto" the startposition oD02:ETNIAS cannot be 0 :!: in case You have a startposition of 0 and values like 0, 1, 2, 3, 4 nItem := oD02:ETNIAS + 1 REDEFINE RADIO aGets01[011] VAR nItem ID 115,116,117,118,119 OF oFld:aDialogs[01] UPDATE; MESSAGE "Etnia del sujeto ; ...

... Impresion",bclick, ) activate.... oExBar:CloseAll(0) method: METHOD CloseAll( nOpen ) CLASS TExplorerBar local nPanel, nItem *DEFAULT nOpen := 1 for nPanel := nOpen + 1 to Len( ::aPanels ) with object ::aPanels[ nPanel ] :lCollapsed = .T. :nTopMargin = 1 :nLeftMargin ...

I have two arrays and I have to save them in two dbf the two arrays are linked by a nItem code If I had two dbf I would know how to do it using ordscope but with arrays I don't know how to do it Main Array I must save on invoice.dbf https://i.postimg.cc/0QNM6snM/main.png ...

I resolve with

nCheck:= ascan( aColBtn, {|e| e[1] = nItem})
IF nCheck >0
nColser:=aColBtn[nCheck][2]
nColser+=10
adel( aColBtn, ncheck,.t.)
else
nColser := 200
Endif

When I insert a product I add an array aadd(aColBtn,{nItem,ncolSer} ) https://i.postimg.cc/Nf9vJPrD/array.png nItem is the number of Item and mColSer is the colum where I show the product before to show the product I try to search the ...