AMIGOS, DURO :
Gracias x tu interes, te ayudo a que me ayudes
******Mi archivo Link :
BLINKER CLIPPER SYMBOL OFF
BLINKER EXECUTABLE COMPRESS
BLINKER EXECUTABLE CLIPPER F30
MAP A,S
PACKCODE
PACKDATA
FILE VT20999, VT20998, VT20100, VT20150, VT20199, VT20200, VT20299, VT20300, VT20400, VT20500, VT20550, VT20600, VT20700, VT20710, VT20800, VT20900, VT20340, VT20000
FILE TGET, TGRAPH, TDOSPRN, SSAY,TCBROWSE
DEFBEGIN
name FiveWin
description 'Clipper for Windows library'
exetype Windows 3.1
code moveable discardable
data preload moveable
stacksize 9500
heapsize 2048
segment 'PLANKTON_TEXT' nondiscardable
segment 'EXTEND_TEXT' nondiscardable
segment 'OM_TEXT' nondiscardable
segment 'OSMEM_TEXT' nondiscardable
segment 'SORTOF_TEXT' nondiscardable
segment 'STACK_TEXT' nondiscardable
DEFEND
NOBELL
SEARCH Five, FiveC, Objects, SBROWSE
LIB WinApi, Clipper, Extend, Terminal, dbfcdx, _dbfcdx, dbfntx, CTP53, BTNGET, FILEXLS
*******ESTA ES LA FUNCION QUE LLAMA A ImpCmp()
Function ShowPopCaja( nRow, nCol, oLbx, oDlg, nImporte )
LOCAL oPopup
MENU oPopup POPUP
MENUITEM "&Facturar" ACTION IIF(!EMPTY(Pedidos->IMPORTE),(aImpCmp:=ImpCmp(Pedidos->COMPROBANT,Pedidos->SERIE,UltDoc(Pedidos->COMPROBANT,Pedidos->SERIE),DATE(),1,'01',Pedidos->CODCLT,Pedidos->NOMBRE,Pedidos->MONEDA,Pedidos->IMPORTE,Pedidos->LINEAS,Pedidos->NUMERO,Pedidos->VENDEDOR,Pedidos->ZONA),oDlg:Update()),) WHEN nImporte>0.00
MENUITEM "&Detalle" ACTION DetPedido(Pedidos->NOMBRE,Pedidos->NUMERO) WHEN nImporte>0.00
MENUITEM "&Eliminar" ACTION (DelPedido(Pedidos->NUMERO,oLbx))
SEPARATOR
MENUITEM "&Salir"
ENDMENU
ACTIVATE POPUP oPopup AT nRow, nCol OF oLbx
Return nil
******Y ESTO ES PARTE DEL CODIGO QUE LLAMA A ShowPopCaja(), NO PONGO TODO X QUE ES MUY LARGO.
.....REDEFINE SAY oTitulo PROMPT "Pendientes de Facturar" ID 118 OF oDlgCaja FONT oFntArial2 COLORS nRgb(200,0,0)
REDEFINE LISTBOX oLbxPedido ;
FIELDS Pedidos->NUMERO, Pedidos->NOMBRE, TRANS(Pedidos->IMPORTE,MA72C) ;
ALIAS "Pedidos" ;
HEAD OemToAnsi('Pedido'), 'A Nombre de ', 'Total' ;
ON CHANGE (cCodClt:=Pedidos->CODCLT,cNomClt :=Pedidos->NOMBRE, ;
nTotPed:=Pedidos->IMPORTE,nLineas:=Pedidos->LINEAS, ;
cCodVen:=Pedidos->VENDEDOR,cCodZon:=Pedidos->ZONA, ;
cCodDoc:=Pedidos->COMPROBANT,cSerDoc:=Pedidos->SERIE,cObserva:=TRIM(Pedidos->OBSERVA),oDlgCaja:Update()) ;
ON DBLCLICK IIF(!EMPTY(Pedidos->IMPORTE),(aImpCmp:=ImpCmp(cCodDoc,cSerDoc,UltDoc(cCodDoc,cSerDoc),DATE(),1,'01',cCodClt,cNomClt,nMoneda,nTotPed,nLineas,Pedidos->NUMERO,cCodVen,cCodZon),nTotal:=RefreshCaja(oLbxPedido,oDlgCaja,oTotal),oDlgCaja:Update()),) ;
ON RIGHT CLICK ( ShowPopCaja( nRow, nCol, oLbxPedido, oDlgCaja,Pedidos->IMPORTE), oDlgCaja:Update() ) ;
FIELDSIZES 60, 330, 80 ;
FONT oFntArial ;
ID 114 OF oDlgCaja
oLbxPedido:aJustify := {.F.,.F.,.T.}
oLbxPedido:nClrPane := { || IIF( Pedidos->(RECNO())%2=0, nRGB( 153, 204, 255 ), nRGB( 230, 230, 230 ) )}..........................
*********HAY ALGO QUE VOY HACIENDO MAL ¿???
Y en el primer prg, al final de todo pongo esto :
ANNOUNCE RDDSys
INIT Procedure RDDInit()
REQUEST DBFCDX
RDDSetDefault( "DBFCDX")
RETURN
Yo tambien me felicité x haber pasado a los CDX’s y sigo contento, no perdere la viada.
GRACIAS
Luis Ponce