FiveTech Software tech support forums

... no se como colocar el codigo PRG para que se vea estructurado. Agradecido si alguien me guia para que el código que publico se vea legible C5MENUITEM oDp:oItemTransaccion PROMPT oDp:cMenu04 C5MENU COLOR oDp:nMenuItemClrText, oDp:nMenuItemClrPane; COLORSEL oDp:nMenuItemSelText, oDp:nMenuItemSelPane; ...

... el menu lo guardo en una tabla, lo leo, paso a un arreglo // Menu Horizontal aMENUMAC:=LEERELMENUDESDECUALQUIERORIGEN() // dbf, txt, MySql ///// C5MENUITEM oDp:oItemMacro PROMPT oDp:cMenu01; ACCELERATOR ACC_CONTROL,ASC("M") C5MENU COLOR oDp:nMenuItemClrText, oDp:nMenuItemClrPane; COLORSEL ...

... GenBlock1( nRow, nCol, oBtn , x ) return { || dblmenu( nRow, nCol, oBtn ,x ) } funct dblmenu( nRow, nCol, oBtn, x ) Local oMenu C5MENU oMenu POPUP c5menuitem 'prueba' C5ENDMENU ACTIVATE C5MENU oMenu AT nRow, nCol OF oBtn Return Si es lo que me imagino, así debería funcionar: For x := 1 To 620 ...

... GenBlock1( nRow, nCol, oBtn , x ) return { || dblmenu( nRow, nCol, oBtn ,x ) } funct dblmenu( nRow, nCol, oBtn, x ) Local oMenu C5MENU oMenu POPUP c5menuitem 'prueba' C5ENDMENU ACTIVATE C5MENU oMenu AT nRow, nCol OF oBtn Return Pero me genera un error del tipo "Error BASE/1068 Argument error: array ...

... de la pantalla. aforo[1]:bRClicked:={ |nRow, nCol, nFlags | dblmenu( nRow, nCol ) } funct dblmenu( nRow, nCol) Local oMenu C5MENU oMenu POPUP c5menuitem 'prueba' C5ENDMENU ACTIVATE C5MENU oMenu AT nRow, nCol OF oDialog Return Cambia tu código: aforo[1]:bRClicked:={ |nRow, ...

... aforo[1]:bRClicked:={ |nRow, nCol, nFlags | dblmenu( nRow, nCol ) } Activate Dialog..... funct dblmenu( nRow, nCol) Local oMenu C5MENU oMenu POPUP c5menuitem 'prueba' C5ENDMENU ACTIVATE C5MENU oMenu AT nRow, nCol OF oDialog Return 2) En la clase TSBUTTON del Maestro Manuel Mercado, intento establecer ...

... aforo[1]:bRClicked:={ |nRow, nCol, nFlags | dblmenu( nRow, nCol ) } Activate Dialog..... funct dblmenu( nRow, nCol) Local oMenu C5MENU oMenu POPUP c5menuitem 'prueba' C5ENDMENU ACTIVATE C5MENU oMenu AT nRow, nCol OF oDialog Return ------------------------- En otra aplicación lo tengo dentro de ...