FiveTech Software tech support forums

... normal, he estado haciendo pruebas y revisando el foro, pero no consigo hacerlo pongo la linea que necesito imprimir. oPrn:cmSay( linea,3.6,memoline(alltrim((cpptod)->codigo)+" - "+alltrim((cpptod)->concepto),nlongitudlineat,nlineactualt),oFont) He intentado esto : Imprimir ...

... "表格设置:" ACTION tablesethelp(self) MENUITEM "删除/隐藏/恢复栏位" MENU for nFor := 1 to nLen oCol := ::aCols[ nFor ] cPrompt := Trim( MemoLine( if(VALTYPE(oCol:cHeader)=="C",oCol:cHeader,EVAL(oCol:cHeader)), 250, 1 ) ) MenuAddItem( cPrompt, , !oCol:lHide, ( len(::aDisplay) ...

... CATCH oError WaitOff( @oWait ) RETURN mResultado END nLine:= MLCOUNT(cCode,,3,.t.) iLinea := 0 For a:= 1 To nLine SysRefresh() linetxt:=Rtrim(memoline(cCode,80,a,3,.t.)) If Left(Rtrim(linetxt),6)="Sábado" iLinea := a+1 Exit EndIf Next ntxt:="" ltcambio := .F. otxt:=FCreate( ...

... SIZE 35 FONT 2 _ccCadena2 := SubStr(aDatDetalle[nRegis,3],I+1) EXIT ENDIF NEXT It is much easier to use MLCount() and MemoLine() nLines := MLCount( cText, nLen ) cLine1 := MemoLine( cText, nLen, 1 ) cLine2 := MemoLine( cText, nLen, 2 )

Excelente Armando, muchas gracias

Funciono a las mil maravillas.

Desconocía la existencia de las funciones MLCOUNT() y MEMOLINE().

Pdta. No me había quedado tiempo de mirar el código. Hemos estado un poco ocupados con el tema de la facturación electrónica.

... long "disclaimer" on this invoice. It starts on page two but will need to run over to page 3. Since I print one line at a time with the memoline output, after each line I can check to see if I've reached the maximum lines per page, and then I can do a page eject, print the new header, ...

... nRow, 2 * nCsp, cDisText, 7.0 ,nil, oFcond, , CLR_RED, nil , "INCHES" )  Using the format previously ( parsing and printing with memoline ), oFcond is fine as a condensed print font. (. DEFINE FONT oFcond NAME "Courier New" SIZE 0, -8 OF oPrn ) Thanks Please make sure ...

... 2 * nCsp, cDisText, 7.0 ,nil, oFcond, , CLR_RED, nil , "INCHES" )  Using the format previously ( parsing and printing with memoline ), oFcond is fine as a condensed print font. (. DEFINE FONT oFcond NAME "Courier New" SIZE 0, -8 OF oPrn ) Thanks

This is off-topic. For printing long multiline texts, memos, it is no more necessary to split the text into separate lines with memoline() and print each line separately. With a single call to the method SayText() the entire memo can be printed. This is a sample: #include "fivewin.ch"function ...

... line_cnt:=mlcount(texto1,105) curr_line:=1 do while curr_line<=line_cnt if l>nsalto*60 ENDPAGE PAGE xmarca:=0 T01001() endif print_line:=memoline(texto1,105,curr_line) olis:say(l,ncolum * 5,print_line,oFont) curr_line:=curr_line+1 l:=l+nsalto enddo l:=l+nsalto l:=l+nsalto texto2:=1->medicam ...

Hi Jeff,

have you tried the MemoLine() function + PadR()? I think it will do what you are looking for.

KR

Carlos

Solucionado usando el ejemplo rep20.prg de los samples\report

Code: Select all  Expand view

COLUMN TITLE "Concepto"  DATA alltrim((ctemporal)->concepto) MEMO  size 80

Un saludo

... ¿alguna sugerencia? nlineas:=MLCOUNT(alltrim((ctemporal)->concepto),50)         COLUMN TITLE "Concepto"  DATA memoline(alltrim((ctemporal)->concepto),50,nlineas)

... MemoLine(<cString>,[<nLineLength>],[<nLineNumber>],[<nTabSize>],[<lWrap>],[<lLongLines>],[@<nOffSet>])->cLine ...

... LastRec Left Len LenNum LoadLibrary Log Log10 Lower LtoN LTrim LUpdate MakeDir Mantissa Max MaxCol MaxLine MaxRow MCol MDblClk MDY MemoEdit MemoLine MemoRead Memory MemoTran MemoWrit MemvarBlock MHide MilliSec Min Minute MLCount MLCToPos MLeftDown MLPos Mod Month MPosToLC MPresent MRestState ...