FiveTech Software tech support forums

nPathTemp function MsgFancy(oWnd, cTexto, aPos, oCor, lAguarda, lTransparente) local oDlg local oBtnClose, aTexto local oSay, lCenter local oImage, oLbx local lSaida:=.F., nCorFundoHTML := "#ffffcc" //azul claro lCenter := aPos == NIL //DEFAULT oCor := nrgb(255,255,255) ...

... DE '+MesLetra(dFecPag)+' DEL '+str(year(dFecPag),4)+; ' Y QUE APLICAMOS A LO SIGUIENTE:' inicia impresion con fuente tipo texto aTexto:=ParteMemo(cDesc,55) // ABAJO LA FUNCION for i:=1 to len(aTexto) if substr(aTexto[i],len(aTexto[i]),1)==chr(20) @ nSup+i,nIzq+05 dato substr(aTexto[i],1,len(aTexto[i])-1) ...

Hola sr. Levanta el texto en un array y luego lo visualizas con un listbox.... aTexto := LeerTxt("listado.txt") If LEN(aTexto) = 0 Return(Nil) EndIf ... aqui ya lo tratas el array que s @10,10 LISTBOX oLista ........ Salu2 //------------------------------------------------------------------------------------Function ...

... := {" centimo", " centimos"} //Centimos en singular y plurar Local lCentsEnletra := .t. //Si es falso muestra los centimos en formato 00/100 Local aTexto[5] Local cCadena, cDigitos, cTerminador, cCents Local nI, nJ, nNumero, nEntero, nCents, nPunto Local aUni:= {"un", "dos", "tres", "cuatro", "cinco", ...

... "veintisiete", ; "veintiocho", "veintinueve"} Local nI, nJ, nNumero, nEntero, nCents, nPunto Local cCadena, cDigitos, cTerminador, cCents Local aTexto[5], acMoneda:= {" bolivar ", " bolivares "} AFill(aTexto, "") nCantidad:= Round(nCantidad, 2) nEntero := Int(nCantidad) nCents := nCantidad - ...

Gracias por responder, mas o lo que necessito é o seguinte : function ExecutaScript () Local aTexto := memoread ("teclas.txt") ,; nLinhas ,; aTeclas ,; lLinhaSistema := .f. ,; aLinha ,; I ,; nContaCaracter ,; nPos ,; nPosFinal ,; aFuncao ,; aComando oTimerScript:Deactivate ...