FiveTech Software tech support forums

... := cSay5 local cNombre := cSay6 local cDIRCLIEN := cSay7 local cTELCLIEN := cSay8 * cuerpo local nPZ_PRENDA := 0 * LOCAL nItem := 0 LOCAL cTexto := "" local cTexto2 := "" local cTira := "R:Roto,D:Descosido,I:Raido,O:Oxidado,P:Picado,G:Gastado" local cTira2 ...

...   local lOldConfirm := Set( _SET_CONFIRM )   local i,osay,arect   local oRadio1,oRadio2,oRadio3   local oalbaran,ogastos   local oconduc   local ctexto:='00'   local ntot:=0   local lcomple:=.F.   local lmb:=.F.   local oFont1   local occr,ogroup   local mkilos,mvolu   local seltar:=1   Publicas:cAlbaran:=space(7) ...

Adhemar,

Lo puedes leer facilmente con

MemoRead( cNombreFichero ) --> cTexto

... cClientes) local oFont1, oFont2, oFont3, oFont4, oFont5, oFont6, oFont7, oFont8, oFont9 local aDatos, oPrn, nRenglon := 0, aImportes, cTexto PRINT oPrn NAME "Impresión de Recibo de Ventas" oPrn:setcopies(2) DEFINE FONT oFont1 NAME "Arial" SIZE 0, -10 OF oPrn DEFINE ...

Saludos pedro... no lo he probado, pero creo que tienes una "coma" de mas REPORT oReport TITLE ; cTexto,; "DEL DIA "+Dtoc(aDatos[2]),"" , ; // creo que es esta "coma" FONT oFont1, oFont2 ; PEN oPen1, oPen2 ; HEADER "Fecha: "+dtoc(date()),"","Página:"+Str(oReport:nPage,3) ...

... ; Action oDlg:End() Activate Dialog oDlg Return Nil ****************************************************************** Static Function aImpresora(cTexto, lChkBox, nCopias) local oFnt1, oFnt2, oFnt3, oFnt4, oFnt5 local nlinea:=75, nAncho:=2600 local nSeparacion:=19, nSaltoLinea:=60 local nColumna:=1000 ...

... Antonio Separator message bar IS OK ! Background message bar IS OK ! now i need only more it to end, i need insert a bitmap in background ctexto that look in image UP thanks so much.

... puede guardar cualquier cosa. oTb:=TMsQuery():New(::oDataBase) cImagen:=oTb:ReadFromFile(cFoto) cInsert:= "INSERT INTO `fotos` (`cfoto`,`codigo`,`ctexto`) VALUES " cInsert +="('"+cImagen+"','"+str(nCodigo)+"','"+alltrim(cTexto)+"');" ::oDataBase:Execute(cInsert)

... CRYSTAL o SUNSET, tambien que los Prompts esten en diferentes posiciones, cuestion de gustos. Hola Víctor: Con la posición del texto usando "cTexto" no hay problema ya que el mandato lo trata como una variable, pero en el caso de la forma del botón "cEstilo" no es posible ya que se trata ...

... po cambiar de técnica, me armé unas rutinas que guardan todo en un archivo de texto y que reemplazan con poco la funcionalidad de la tecnica del cTexto+= ... Bueno, espero que esto le sirva a alguien como experiencia por si les sucede lo mismo. Un saludo y gracias a los que respondieron por su ...

... el trozo de codigo para que puedas ver exactamente como lo hago: function Prueba() local lPortReady:=.f. local nBytes :=0 local nError :=0 local cTexto :='Prueba escritura RS-232' local cPort:='4', cSpeed:='9600' local cDcb, cRv := '', cS := 'COM' + cPort + ':' + cSpeed + ',n,8,1' // Abre el ...

Willi:

Mil gracias amigo, funciono perfecto.

Saludos,
Antonio

Willi Quintana wrote:Hola, yolo hago asi:
...
cFrase := "5"
cTexto := "QWEDSAZX34RF5TGB6YHN7UJM8IK9OL0P"
nPos := 0

nPos := AT(cFrase, cTexto )
IF nPos > 0
MsgAlert(" la letra - " + cFrase + "- esta en la posicion " + STR(nPos) )
EndIf


Salu2

Hola, yolo hago asi:
...
cFrase := "5"
cTexto := "QWEDSAZX34RF5TGB6YHN7UJM8IK9OL0P"
nPos := 0

nPos := AT(cFrase, cTexto )
IF nPos > 0
MsgAlert(" la letra - " + cFrase + "- esta en la posicion " + STR(nPos) )
EndIf


Salu2

... Espero sus comentarios EJ de como lee archivos txt Esto funcionó perfecto hasta 28000 bytes, luego de eso lo comentado do cLinea := memoline(cTexto,60,z) cCuit := STRTRAN(odbf:cuit, "-", "") if substr(cLinea,28,11 ) = cCuit ? "HOLA" MsgInfo( StrToken( cTexto, 9, ";" ) ) odbf:skip() ? odbf:cuit ...

Antonio, GetTextWidth( 0, cTexto, oFont:hFont ) --> nPixels Viendo estas líneas, no sería posible crear una cláusula AUTOWIDTH para los SAY? Algo así como: "METHOD New( nRow, nCol, bText, oWnd, cPicture, oFont,; lCentered, lRight, lBorder, ...