... LOCAL oDlg, oCbx, oChk, oBAce LOCAL oGet1, oGet2 LOCAL aItems := {"Selectivo", ; "General "} SETKEY( VK_F2,{|| VerCli()} ) USE cfac INDEX cfaccli NEW USE pag INDEX pagfac NEW USE cli INDEX clinum, clinom NEW cSel := "Selectivo" cCliNum := SPACE(4) cCliNom := SPACE(50) ...
... IF FILE("PAGTEM.NTX") DELETE FILE PAGTEM.NTX ENDIF Procesa() // APPEND FROM pag FOR &Condi SET RELATION TO pagtem->facnum INTO cfac REPLACE ALL clinum WITH cfac->clinum, agente WITH cfac->agente IF LEFT(cSel,1) == "R" IF SoloCob INDEX ON pagtem->refer + pagtem->tipo ...
Antonio, Estoy queriendo poner mis aplicaciones al dia, con los cambios de la FWH 8.01 a la 8.08 y me pregunto si es posible actualmente utilizar SetBackGround( oBrush ) desde recursos, o estara disponible pronto. ya que al colocarlo me da el siguiente error: DEFINE BRUSH oBrush FILE "fondos\fa...
Estoy migrando a la FWH 8.08 y hay algunas cosas que en las que necesito ayuda. En un xBrowse por recursos, necesito ver una lista de precios, pero la columna numerica aunque en la columna le indico la secuencia para mascara (PICTURE) en cEditPicture , me muestra la columna sin separadores. He revi...
Armando, Francisco Les agradezco, me ha servido muy bien su recomendacion, en cuanto a al picture en el xBrowse. Pero aun tengo pendiente lo del error que me causa insertar SetBackGround( oBrush ) desde recursos: Error description: Error BASE/1004 Class: 'NIL' has no exported method: EVAL Args: [ 1]...
Estoy migrando a la FWH 8.08 y hay algunas cosas que en las que necesito ayuda. En un xBrowse por recursos, necesito ver una lista de precios, pero la columna numerica aunque en la columna le indico la secuencia para mascara (PICTURE) en cEditPicture , me muestra la columna sin separadores. He revis...
Hola a todos Alguien me podría decir por qué estas tres líneas salen descuadradas en la impresora.... oPrn:cmSay( nRow,18.5, Transf(CFAC->bruto,"@E 999,999.99"), aoFont[2]) oPrn:cmSay( nRow,18.5, Transf(CFAC->cuota,"@E 999,999.99"), aoFont[2]) oPrn:cmSay( nRow,18.5, Transf(CFAC->total,"@E ...