Impresion de Campo MEMo

[fglez]

Estimados Consultores,
Adjunto te presento el codigo de un proyecto para la imprsión del campo
MEMO, en fivewin si me funciono pero en Xailer No, me pueden auxiliar:
Proyecto
METHOD PopupMenu2Item6Click( oSender, oMenu ) CLASS FacInd
LOCAL oRep, oFonts[3], oBitmap
LOCAL cTitRep := "Informe de Detalle de Facturación Por Moneda"
DEFINE FONT oFonts[1] NAME "ARIAL" SIZE 0,-12
DEFINE FONT oFonts[2] NAME "Courier new" SIZE 0,-11
DEFINE FONT oFonts[3] NAME "Courier new" SIZE 0,-11 BOLD
oBitmap := TPicture():Load( "./FacLogRep.bmp" )
(cAliFld)->(DBGoTop())
REPORT oRep HEADER aDatPro[1],"Sistema Factura-Fácil" ALIGN taCENTER;
TITLE cTitRep, "Pág. "+STR(oRep:nPage,3) ALIGN tacENTER;
FOOTER "Fac-Fac 1.0";
PREVIEW MODAL FONT oFonts[1], oFonts[2], oFonts[3]
COLUMN OF oRep TITLE "No.Factura" DATA (cAliFld)->NUMFAD PICTURE
"999999" CHARSIZE 8 FONT 3
COLUMN OF oRep TITLE "C l i e n t e" DATA (cAliFld)->CLIFAD CHARSIZE
30 FONT 2
COLUMN OF oRep TITLE "Cantidad" DATA (cAliFld)->CANFAD PICTURE
"####,###" CHARSIZE 8 FONT 2 ALIGN taRight TOTAL
COLUMN OF oRep TITLE "Moneda" DATA (cAliFld)->MONFAD CHARSIZE 8
FONT 2
COLUMN OF oRep TITLE "Importe Total" DATA (cAliFld)->TOTFAD PICTURE
"####,###,###.##" CHARSIZE 15 FONT 3 ALIGN taRight TOTAL
COLUMN OF oRep TITLE "Descripción" DATA (cAliFld)->CONFAD CHARSIZE
60 FONT 2
COLUMN OF oRep TITLE "Descripción Complementaria" DATA " " CHARSIZE 60
(ESTE ES PARA EL CAMPO MEMO)
WITH OBJECT oRep
:nGroupLine := rlSINGLE
:nTitleUpLine := rlSINGLE
:nTitleDnLine := rlSINGLE
:onChange := {|| SysRepMem(oRep) }
:bSkip := {|| (cAliFld)->(DbSkip()) }
:oTitle:aAlignment[2] := taRIGHT
:lPreview := .T.
END WITH
RUN REPORT oRep WHILE ! (cAliFld)->(EOF()) ON STARTPAGE PrintBitmap(
oRep, oBitmap )
oBitmap:Destroy()
AEVAL(oFonts,{|x| x:Destroy()})
(cAliFld)->(DBGOTOP())
RETURN Nil
//---------------------------------------------------------- --------------------
FUNCTION SysRepMem(oRep)
LOCAL nLines, nFor
nLines := MlCount((cAliFld)->MEMFAD,60)
oRep: BackLine(1)
FOR nFor := 1 TO nLines
oRep:StartLine()
oRep:Say(nMemoColumn,Memoline((cAliFld)->MEMFAD,60,nFor))
oRep:EndLine()
NEXT
RETURN Nil

[ignacio]

Francisco,
Ni comenta cual es el problema, ni el error que se produce, y además ofrece
parte de su código en el cual hace muchas más cosas que sólo imprimir el
MEMO.
Por favor, envienos un proyecto en el que SOLO se muestre el problema del
MEMO, a ser posible con el error.log si algún error de ejecución se produce,
y encantados le ayudaremos a resolverlo.
Un saludo,
"Ing. Francisco Gonzälez Herrera" <fglez@csyredes.com> escribió en el
mensaje news:[email=46ae7a81@ozsrv2.ozlan.local...]46ae7a81@ozsrv2.ozlan.local...[/email]
> Estimados Consultores,
>
> Adjunto te presento el codigo de un proyecto para la imprsión del campo
> MEMO, en fivewin si me funciono pero en Xailer No, me pueden auxiliar:
>
> Proyecto
>
> METHOD PopupMenu2Item6Click( oSender, oMenu ) CLASS FacInd
> LOCAL oRep, oFonts[3], oBitmap
> LOCAL cTitRep := "Informe de Detalle de Facturación Por Moneda"
>
> DEFINE FONT oFonts[1] NAME "ARIAL" SIZE 0,-12
> DEFINE FONT oFonts[2] NAME "Courier new" SIZE 0,-11
> DEFINE FONT oFonts[3] NAME "Courier new" SIZE 0,-11 BOLD
>
> oBitmap := TPicture():Load( "./FacLogRep.bmp" )
>
> (cAliFld)->(DBGoTop())
>
> REPORT oRep HEADER aDatPro[1],"Sistema Factura-Fácil" ALIGN taCENTER;
> TITLE cTitRep, "Pág. "+STR(oRep:nPage,3) ALIGN tacENTER;
> FOOTER "Fac-Fac 1.0";
> PREVIEW MODAL FONT oFonts[1], oFonts[2], oFonts[3]
>
> COLUMN OF oRep TITLE "No.Factura" DATA (cAliFld)->NUMFAD PICTURE
> "999999" CHARSIZE 8 FONT 3
> COLUMN OF oRep TITLE "C l i e n t e" DATA (cAliFld)->CLIFAD CHARSIZE
> 30 FONT 2
> COLUMN OF oRep TITLE "Cantidad" DATA (cAliFld)->CANFAD PICTURE
> "####,###" CHARSIZE 8 FONT 2 ALIGN taRight TOTAL
> COLUMN OF oRep TITLE "Moneda" DATA (cAliFld)->MONFAD CHARSIZE
> 8 FONT 2
> COLUMN OF oRep TITLE "Importe Total" DATA (cAliFld)->TOTFAD PICTURE
> "####,###,###.##" CHARSIZE 15 FONT 3 ALIGN taRight TOTAL
> COLUMN OF oRep TITLE "Descripción" DATA (cAliFld)->CONFAD CHARSIZE
> 60 FONT 2
> COLUMN OF oRep TITLE "Descripción Complementaria" DATA " " CHARSIZE
> 60 (ESTE ES PARA EL CAMPO MEMO)
>
> WITH OBJECT oRep
> :nGroupLine := rlSINGLE
> :nTitleUpLine := rlSINGLE
> :nTitleDnLine := rlSINGLE
> :onChange := {|| SysRepMem(oRep) }
> :bSkip := {|| (cAliFld)->(DbSkip()) }
> :oTitle:aAlignment[2] := taRIGHT
> :lPreview := .T.
> END WITH
>
> RUN REPORT oRep WHILE ! (cAliFld)->(EOF()) ON STARTPAGE PrintBitmap(
> oRep, oBitmap )
> oBitmap:Destroy()
> AEVAL(oFonts,{|x| x:Destroy()})
> (cAliFld)->(DBGOTOP())
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> FUNCTION SysRepMem(oRep)
> LOCAL nLines, nFor
> nLines := MlCount((cAliFld)->MEMFAD,60)
> oRep: BackLine(1)
> FOR nFor := 1 TO nLines
> oRep:StartLine()
> oRep:Say(nMemoColumn,Memoline((cAliFld)->MEMFAD,60,nFor))
> oRep:EndLine()
> NEXT
> RETURN Nil
>
>
>