Silvio, creo que el rectangulo de coordenadas donde muestras el texto tendría que ser mas grande Function myfunc(hdc,oBold,cCod) FW_SayText( hDC, ; cCod, ; {150,32,170, 250 },,oBold, CLR_GREEN, , .f. ) // x1,y1 hasta x2,y2return ...
... que tiene un campo llamado codcli que es caracter de 10 y otro campo nombre caracter de 30 inserto esta function en hbnetio.prg function buscacli( cCod ) local cPath := 'c:\apache24\htdocs\data\' local cName cCod = padr( cCod , 10, ' ' ) use ( cPath + 'clientes' ) index ( cPath + 'clientes' ) new ...
... local oFont2 local oFont3 local nArriba := 0 local nIzq := .5 local nAbajo := 0 local nDerecha := 0 local nRen local nCodeLeft2 := 4.5 local cCod := "1234" PRINTER oPrn PREVIEW DEFINE FONT oFont NAME "TIME NEW ROMAN" SIZE 0,-12 OF oPrn DEFINE FONT oFont1 NAME "TIME ...
... y solucionado. Pero no encuentro como imprimir VERTICA las palabras con tPrinter. Hay alguna forma? oPrn:cmsay(nArriba+.2, nIzq+2, ; left(cCod,4) ,oFont3 ,, CLR_BLACK,,PAD_LEFT) Asi me imprime horizontal, hay alguna forma para q me imprima vertical? Desde ya mil gracias Eduardo Rizzolo ...
Hola, alguien me podria ayudar con esta sintaxsis por favor. cCod := "2001" nom := "Dario" numercli es el numero del cliente csql := oCon:UPDATE( "clientes" , "nomcli", nom , WHERE numercli = cCod ) Gracias, no le ...
Hola Cesar Extraño por decir lo menos. Agregue Arrtranspose y obtengo el cCod_pro1, pero al emitir el MsgStop se cae. Creo que si esto tiene esta limitacion a estas alturas, nada que hacer. Simplemente no entiendo nada. Saludos Antonio. Static Function Carga_paci(oCod_pro1,aProfe) // <-...
Hola Cesar. Hice la prueba, pero tengo el problema que los datos no llegan a la Function "CARGA_PACI(): REDEFINE COMBOBOX oCod_pro1 VAR nCod_pro1 ITEMS ArrTranspose( aProfe )[ 2 ] ID 102 OF oDlg COLORS nRGB(9, 11, 10), nRGB(73, 250, 202); ON CHANGE (Carga_paci(oCod_pro1,aProfe),oPaci:Refresh(),...
Hola Cesar Muchas gracias por responder. Modifique con tu indicacion, Return aProfeC[nCod_pro1], pero el error perciste. Mira el codigo siempre lo ha devuelto bien, por ejemplo "BUST", para el Profesional "ARTURO BUSTIOS". La variable que me entrega el dato codigo del profesional...
Amigos La tengo dificil, le he dado muchas vueltas y no logro solucionar el problema. En la Function Carga_paci(cCod_pro1), tengo varias validaciones al no cumplirlas, emito un mensaje de aviso como el siguiente: If eof() &n...
Hola Karinha Mira te dejo este codigo para llenar el array del COMBOBOX, al seleccionar un profesional ira a Carga_paci(cCod_pro1), donde no existira el archivo del profesional y volvera al Combobox, despues das el boton Salir. En mi caso, anule los botones con recursos y lo hice con boton normal y ...
Armando Hola como estas?? Dejo el codigo del programa Consu_paci() completo y el error que arroja actualmente, ya que he realizado algunas pruebas y nada. Detalle: Cuando Selecciono un Profesional medico va al Carga_paci(cCod_pro1), revisa y SI encuentra pacientes, carga el Array y se muestra correc...
Hola Javier Muchas gracias, Sigo molestando. Al mandar desde el Combobox a la Function Carga_paci, debo pasar el Codigo del Profesional Elegido en el Combobox, por Ej. Cod="BUST" y Descripcion = "ARTURO BUSTIOS", la variable cCod_pro1, debe llegar con "BUST" y al hacerl...
Disculpen me falto agregar algo, la función FUNCTION Add_Marca_Extintores(lAppend,oBrw, cExt_Mar) *----------------------------------------------- LOCAL oGets:= Array( 30 ) Local oBtns:= Array( 2 ) Local oBmp,oDlg1,oFont1 LOCAL lAceptar := .F. Local aCampos,aValues,aWhere Local cCod_Mar :=Space(04),...
Estimados, tengo el siguiente problema con un programa, hago una consulta, de inicio, que se refleja en un xbrowse, tal como esta. cTab_Art:=xServer:Query("SELECT a.*, b.*, c.* FROM tab_art AS a LEFT JOIN tab_fam AS b ON a.fam_art = b.cod_fam LEFT JOIN tab_mar AS c ON a.mar_art = c.cod_mar ORDE...
... oBrw:setFocus() RETURN NIL ------------------------------- info sulla sintassi per la funzione VALID nell'istruzione : @ 15, 060 GET oCod VAR cCod OF oDlg se uso @ 15, 060 GET oCod VAR cCod OF oDlg Valid myFunc() BUFF.prg(99) Error E0030 Syntax error "syntax error at '@'" grazie