Xailer & OZ Software

Estimados Consultores:
Estoy tratando de imprimir un campo Memo utilizando Report, sin embargo solo
me sale la primera linea, en Fivewin lo hacia de la siguiente manera, pero
en Xailer no me imprime si aplico el ejemplo me causa un error de ejcución,
me pueden auxiliar ?.
Ejemplo (fivewin):
#include "REPORT.ch"
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 "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 )
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

Francisco,
Por favor mandenos un pequeño proyecto que muestre el error. Gracias de
antemano.
Un saludo,
--
Ignacio Ortiz de Zúñiga
[Soporte Xailer]
"Ing. Francisco Gonzälez Herrera" <fglez@csyredes.com> escribió en el
mensaje news:[email=46c06f13@ozsrv2.ozlan.local...]46c06f13@ozsrv2.ozlan.local...[/email]
> Estimados Consultores:
>
> Estoy tratando de imprimir un campo Memo utilizando Report, sin embargo
> solo me sale la primera linea, en Fivewin lo hacia de la siguiente manera,
> pero en Xailer no me imprime si aplico el ejemplo me causa un error de
> ejcución, me pueden auxiliar ?.
>
> Ejemplo (fivewin):
>
> #include "REPORT.ch"
> 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 "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 )
> 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
>
>
>

Consultor,
Ignacio,
El proyecto de reporte que utilice con FIVEWIN, viene abajo, en Xailer me
marca el error de que no encuentra la funcion SysRepMem(oRep)
que tambien viene abajo la programación. Ahora bien si mando directamente el
campo Memo solamente me imprime la primera linea y las demas no, sobre como
mandar imprimir el campo memo con varias lineas de un registro
Francisco
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:[email=46c0abb8@ozsrv2.ozlan.local...]46c0abb8@ozsrv2.ozlan.local...[/email]
> Francisco,
>
> Por favor mandenos un pequeño proyecto que muestre el error. Gracias de
> antemano.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> [Soporte Xailer]
>
>
> "Ing. Francisco Gonzälez Herrera" <fglez@csyredes.com> escribió en el
> mensaje news:[email=46c06f13@ozsrv2.ozlan.local...]46c06f13@ozsrv2.ozlan.local...[/email]
>> Estimados Consultores:
>>
>> Estoy tratando de imprimir un campo Memo utilizando Report, sin embargo
>> solo me sale la primera linea, en Fivewin lo hacia de la siguiente
>> manera, pero en Xailer no me imprime si aplico el ejemplo me causa un
>> error de ejcución, me pueden auxiliar ?.
>>
>> Ejemplo (fivewin):
>>
>> #include "REPORT.ch"
>> 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 "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 )
>> 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
>>
>>
>>
>
>
>

Francisco,
Necesitamos un proyecto completo que muestre el error. Gracias.
Un saludo
--
Ignacio Ortiz de Zúñiga
Email: iozuniga@ozs.com
"Ing. Francisco Gonzälez Herrera" <fglez@csyredes.com> escribió en el
mensaje news:[email=46c1f577@ozsrv2.ozlan.local...]46c1f577@ozsrv2.ozlan.local...[/email]
> Consultor,
>
> Ignacio,
>
> El proyecto de reporte que utilice con FIVEWIN, viene abajo, en Xailer me
> marca el error de que no encuentra la funcion SysRepMem(oRep)
> que tambien viene abajo la programación. Ahora bien si mando directamente
> el
> campo Memo solamente me imprime la primera linea y las demas no, sobre
> como
> mandar imprimir el campo memo con varias lineas de un registro
>
> Francisco
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:[email=46c0abb8@ozsrv2.ozlan.local...]46c0abb8@ozsrv2.ozlan.local...[/email]
>> Francisco,
>>
>> Por favor mandenos un pequeño proyecto que muestre el error. Gracias de
>> antemano.
>>
>> Un saludo,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> [Soporte Xailer]
>>
>>
>> "Ing. Francisco Gonzälez Herrera" <fglez@csyredes.com> escribió en el
>> mensaje news:[email=46c06f13@ozsrv2.ozlan.local...]46c06f13@ozsrv2.ozlan.local...[/email]
>>> Estimados Consultores:
>>>
>>> Estoy tratando de imprimir un campo Memo utilizando Report, sin embargo
>>> solo me sale la primera linea, en Fivewin lo hacia de la siguiente
>>> manera, pero en Xailer no me imprime si aplico el ejemplo me causa un
>>> error de ejcución, me pueden auxiliar ?.
>>>
>>> Ejemplo (fivewin):
>>>
>>> #include "REPORT.ch"
>>> 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 "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 )
>>> 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
>>>
>>>
>>>
>>
>>
>>
>
>
>