Jump to content
Fivewin Brasil

Fivewin Report

VASCON

By VASCON
in Programação

 Share

Recommended Posts

VASCON Newbie

VASCON

Posted
Posted

Pessoal, boa tarde!

Gostaria que alguem me ajudasse no seguinte:

Porque a visualição no FiveWin Report em uma máquina aparece sem qualquer problema, e em outra não?

Exemplo: em uma máquina: 5.500,00; em outra .500,00 (quebrada)

Estou usando a FW24

Para melhor avaliação colei parte do PRG (abaixo)

Abraço a todos

NILSON

**----------------------- Jato de Tinta --------------------------------------------------------

STATIC FUNCTION JATINTA()

Local oPrn,a,oBrush,oFnt,oFnt2,oFnt3,oFnt4,oFnt5,oPen1

oSOMA:=oSOMA1:=oSOMA2:=oS0MA3:=mSOMA:=mSOMA1:=mSOMA2:=mSOMA3:=mCONTA:=0

PRINT oPrn PREVIEW

DEFINE FONT oFnt5 NAME "Arial" SIZE 0,-30 BOLD OF oPrn

DEFINE FONT oFnt NAME "Arial" SIZE 0,-12 BOLD OF oPrn

DEFINE FONT oFnt1 NAME "Arial" SIZE 0,-10 BOLD OF oPrn

DEFINE FONT oFnt2 NAME "Arial" SIZE 0,-09 BOLD OF oPrn

DEFINE FONT oFnt3 NAME "Arial" SIZE 0,-08 BOLD OF oPrn

DEFINE FONT oFnt4 NAME "Arial" SIZE 0,-30 NESCAPEMENT 900

DEFINE FONT oFnt6 NAME "Arial" SIZE 0,-20 BOLD OF oPrn

DEFINE FONT oFnt7 NAME "Arial" SIZE 0,-25 NESCAPEMENT 900

DEFINE FONT oFnt8 NAME "Arial" SIZE 0,-50 NESCAPEMENT 900

DEFINE BRUSH oBrush COLOR 14671839

DEFINE PEN oPen1 WIDTH 3

PAGE

PAGE:=0

IF mLELE > mULMOV

M->mLELE:=mULMOV - 1

ENDIF

M->SALDO:="N"

SELECT LANC1

FINAL:=LASTREC()

WPASSO:=FINAL/500

oMeter:Set(0)

oMeter:nTotal = FINAL

SET SOFTSEEK ON

M->BA=0

K:=0

numpagina := 0

GOTO TOP

SEEK mTACO

DO WHILE .T.

IF K < 3

oPrn:SetFont(oFnt)

oPrn:cmSay(K,08, mCLI001, oFnt )

K=K+0.5

oPrn:cmSay(K,03, mCLI002+" "+mCLI003+" "+mCLI004+" "+mCLI005, oFnt )

K=K+0.5

oPrn:cmSay(K,08, "CNPJ:" + mCLI006,oFnt )

K=K+0.5

oPrn:cmSay(K,00.2, REPLICATE("-",230),oFnt2)

K=K+0.5

oPrn:SetFont(oFnt2)

oPrn:cmSay(K,00.2,"EXTRATO DA CONTA NR.:",oFnt2)

oPrn:cmSay(K,04,mTACO,oFnt2)

oPrn:cmSay(K,06,mCOTA,oFnt2)

K=K+1

oPrn:cmSay(K,00.2,"DATA",oFnt2)

oPrn:cmSay(K,02.0,"|",oFnt2)

oPrn:cmSay(K,02.1,"DOCUMENTO",oFnt2)

oPrn:cmSay(K,04.2,"|",oFnt2)

oPrn:cmSay(K,04.3,"HISTORICO",oFnt2)

oPrn:cmSay(K,12.0,"|",oFnt2)

oPrn:cmSay(K,12.1,"DEBITO",oFnt2)

oPrn:cmSay(K,15.0,"|",oFnt2)

oPrn:cmSay(K,15.1,"CREDITO",oFnt2)

oPrn:cmSay(K,18.0,"|",oFnt2)

oPrn:cmSay(K,18.1,"SALDO",oFnt2)

K=K+1

ENDIF

IF CONTA < mTACO

SKIP(+1)

LOOP

ENDIF

IF CONTA = mTACO

IF DTOS(TAPE) < DTOS(mLELE)

M->mTADA:=TAPE

oTADA:Refresh()

M->mTITU:=DONU

oTITU:Refresh()

SKIP(+1)

LOOP

ENDIF

IF DTOS(TAPE) >= DTOS(mLELE) .AND. DTOS(TAPE) <= DTOS(mLILI)

oMeter:Set(nRecno+1)

M->mTADA:=TAPE

oTADA:Refresh()

M->mTITU:=DONU

oTITU:Refresh()

M->AB:=1

M->mDIAMES:=TAPE

mDOCPLI:=DONU

IF BA = 0

M->mSOMA=SALANT

M->BA = 1

ENDIF

M->mVALPLI:=RALO

M->mPAGPLI:=ALOR

M->mDESPLI:=COHIS

M->mSOMA1=mSOMA-RALO+ALOR

DBSETORDER(0)

IF RECLOCK(4)

REPLACE SALANT WITH mSOMA,SALPOS WITH mSOMA1

DBSETORDER(1)

COMMIT

UNLOCK

ENDIF

IF BA = 1

M->mSOMA:=SALPOS

ENDIF

oPrn:SetFont(oFnt2)

oPrn:cmSay(K,00.2,DTOC(mDIAMES),oFnt2)

oPrn:cmSay(K,02.0,"|",oFnt2)

oPrn:cmSay(K,02.1,mDOCPLI,oFnt2)

oPrn:cmSay(K,04.2,"|",oFnt2)

oPrn:cmSay(K,04.3,LEFT(mDESPLI,61),oFnt2)

oPrn:cmSay(K,12.0,"|",oFnt2)

oPrn:cmSay(K,13.5, ALLTRIM(TRANSFORM(mVALPLI, "@ZE 999,999.99"), oFnt2),,100,,,1)

oPrn:cmSay(K,15.0,"|",oFnt2)

oPrn:cmSay(K,16.5, ALLTRIM(TRANSFORM(mPAGPLI, "@ZE 999,999.99"), oFnt2),,100,,,1)

oPrn:cmSay(K,18.0,"|",oFnt2)

oPrn:cmSay(K,19.1, ALLTRIM(TRANSFORM(mSOMA1, "@ZE 999,999.99"), oFnt2),,100,,,1)

K=K+0.5

M->SALDO:="S"

SKIP(+1)

ENDIF

IF K >= 55

numpagina = numpagina + 1

oPrn:SetFont(oFnt)

oPrn:cmSay(K,00.2, REPLICATE("-",230),oFnt2)

K=K+0.5

oPrn:cmSay(K,00.2,"N.A.N.V.",oFnt2)

oPrn:cmSay(K,16,"Pagina:",oFnt2)

oPrn:cmSay(K,18,Strzero(numpagina,6,0),oFnt2)

PAGE++

numlinha = 0

nRow := 0

ENDPAGE

PAGE

Endif

IF DTOS(TAPE) > DTOS(mLILI)

AZ:=1

Exit

ENDIF

ENDIF

IF CONTA > mTACO

AZ:=1

Exit

ENDIF

IF EOF()

AZ:=1

Exit

ENDIF

Enddo

IF AZ=1

numpagina = numpagina + 1

oPrn:SetFont(oFnt)

oPrn:cmSay(K,00.2, REPLICATE("-",230),oFnt2)

K=K+0.5

oPrn:cmSay(K,00.2,"N.A.N.V.",oFnt2)

oPrn:cmSay(K,17.8,"Pagina:",oFnt2)

oPrn:cmSay(K,19.3,Strzero(numpagina,6,0),oFnt2)

PAGE++

numlinha = 0

nRow := 0

ENDPAGE

PAGE

Endif

SELECT NONA

IF SALDO = "S"

DBSETORDER(0)

IF RECLOCK(4)

REPLACE ULMOV WITH mDIAMES

DBSETORDER(1)

COMMIT

UNLOCK

ENDIF

ENDIF

ENDPAGE

ENDPRINT

oFnt5:End()

oFnt:End()

oFnt1:End()

oFnt2:End()

oFnt3:End()

oFnt4:End()

oFnt6:End()

oFnt7:End()

oFnt8:End()

SELECT LANC1

GOTO BOTTOM

SKIP -7

return NIL

Link to comment
Share on other sites
VASCON Newbie

VASCON

Posted
  • Author
Posted

Pessoal, boa tarde!

Gostaria que alguem me ajudasse no seguinte:

Porque a visualição no FiveWin Report em uma máquina aparece sem qualquer problema, e em outra não?

Exemplo: em uma máquina: 5.500,00; em outra .500,00 (quebrada)

Estou usando a FW24

Para melhor avaliação colei parte do PRG (abaixo)

Abraço a todos

NILSON

**----------------------- Jato de Tinta --------------------------------------------------------

STATIC FUNCTION JATINTA()

Local oPrn,a,oBrush,oFnt,oFnt2,oFnt3,oFnt4,oFnt5,oPen1

oSOMA:=oSOMA1:=oSOMA2:=oS0MA3:=mSOMA:=mSOMA1:=mSOMA2:=mSOMA3:=mCONTA:=0

PRINT oPrn PREVIEW

DEFINE FONT oFnt5 NAME "Arial" SIZE 0,-30 BOLD OF oPrn

DEFINE FONT oFnt NAME "Arial" SIZE 0,-12 BOLD OF oPrn

DEFINE FONT oFnt1 NAME "Arial" SIZE 0,-10 BOLD OF oPrn

DEFINE FONT oFnt2 NAME "Arial" SIZE 0,-09 BOLD OF oPrn

DEFINE FONT oFnt3 NAME "Arial" SIZE 0,-08 BOLD OF oPrn

DEFINE FONT oFnt4 NAME "Arial" SIZE 0,-30 NESCAPEMENT 900

DEFINE FONT oFnt6 NAME "Arial" SIZE 0,-20 BOLD OF oPrn

DEFINE FONT oFnt7 NAME "Arial" SIZE 0,-25 NESCAPEMENT 900

DEFINE FONT oFnt8 NAME "Arial" SIZE 0,-50 NESCAPEMENT 900

DEFINE BRUSH oBrush COLOR 14671839

DEFINE PEN oPen1 WIDTH 3

PAGE

PAGE:=0

IF mLELE > mULMOV

M->mLELE:=mULMOV - 1

ENDIF

M->SALDO:="N"

SELECT LANC1

FINAL:=LASTREC()

WPASSO:=FINAL/500

oMeter:Set(0)

oMeter:nTotal = FINAL

SET SOFTSEEK ON

M->BA=0

K:=0

numpagina := 0

GOTO TOP

SEEK mTACO

DO WHILE .T.

IF K < 3

oPrn:SetFont(oFnt)

oPrn:cmSay(K,08, mCLI001, oFnt )

K=K+0.5

oPrn:cmSay(K,03, mCLI002+" "+mCLI003+" "+mCLI004+" "+mCLI005, oFnt )

K=K+0.5

oPrn:cmSay(K,08, "CNPJ:" + mCLI006,oFnt )

K=K+0.5

oPrn:cmSay(K,00.2, REPLICATE("-",230),oFnt2)

K=K+0.5

oPrn:SetFont(oFnt2)

oPrn:cmSay(K,00.2,"EXTRATO DA CONTA NR.:",oFnt2)

oPrn:cmSay(K,04,mTACO,oFnt2)

oPrn:cmSay(K,06,mCOTA,oFnt2)

K=K+1

oPrn:cmSay(K,00.2,"DATA",oFnt2)

oPrn:cmSay(K,02.0,"|",oFnt2)

oPrn:cmSay(K,02.1,"DOCUMENTO",oFnt2)

oPrn:cmSay(K,04.2,"|",oFnt2)

oPrn:cmSay(K,04.3,"HISTORICO",oFnt2)

oPrn:cmSay(K,12.0,"|",oFnt2)

oPrn:cmSay(K,12.1,"DEBITO",oFnt2)

oPrn:cmSay(K,15.0,"|",oFnt2)

oPrn:cmSay(K,15.1,"CREDITO",oFnt2)

oPrn:cmSay(K,18.0,"|",oFnt2)

oPrn:cmSay(K,18.1,"SALDO",oFnt2)

K=K+1

ENDIF

IF CONTA < mTACO

SKIP(+1)

LOOP

ENDIF

IF CONTA = mTACO

IF DTOS(TAPE) < DTOS(mLELE)

M->mTADA:=TAPE

oTADA:Refresh()

M->mTITU:=DONU

oTITU:Refresh()

SKIP(+1)

LOOP

ENDIF

IF DTOS(TAPE) >= DTOS(mLELE) .AND. DTOS(TAPE) <= DTOS(mLILI)

oMeter:Set(nRecno+1)

M->mTADA:=TAPE

oTADA:Refresh()

M->mTITU:=DONU

oTITU:Refresh()

M->AB:=1

M->mDIAMES:=TAPE

mDOCPLI:=DONU

IF BA = 0

M->mSOMA=SALANT

M->BA = 1

ENDIF

M->mVALPLI:=RALO

M->mPAGPLI:=ALOR

M->mDESPLI:=COHIS

M->mSOMA1=mSOMA-RALO+ALOR

DBSETORDER(0)

IF RECLOCK(4)

REPLACE SALANT WITH mSOMA,SALPOS WITH mSOMA1

DBSETORDER(1)

COMMIT

UNLOCK

ENDIF

IF BA = 1

M->mSOMA:=SALPOS

ENDIF

oPrn:SetFont(oFnt2)

oPrn:cmSay(K,00.2,DTOC(mDIAMES),oFnt2)

oPrn:cmSay(K,02.0,"|",oFnt2)

oPrn:cmSay(K,02.1,mDOCPLI,oFnt2)

oPrn:cmSay(K,04.2,"|",oFnt2)

oPrn:cmSay(K,04.3,LEFT(mDESPLI,61),oFnt2)

oPrn:cmSay(K,12.0,"|",oFnt2)

oPrn:cmSay(K,13.5, ALLTRIM(TRANSFORM(mVALPLI, "@ZE 999,999.99"), oFnt2),,100,,,1)

oPrn:cmSay(K,15.0,"|",oFnt2)

oPrn:cmSay(K,16.5, ALLTRIM(TRANSFORM(mPAGPLI, "@ZE 999,999.99"), oFnt2),,100,,,1)

oPrn:cmSay(K,18.0,"|",oFnt2)

oPrn:cmSay(K,19.1, ALLTRIM(TRANSFORM(mSOMA1, "@ZE 999,999.99"), oFnt2),,100,,,1)

K=K+0.5

M->SALDO:="S"

SKIP(+1)

ENDIF

IF K >= 55

numpagina = numpagina + 1

oPrn:SetFont(oFnt)

oPrn:cmSay(K,00.2, REPLICATE("-",230),oFnt2)

K=K+0.5

oPrn:cmSay(K,00.2,"N.A.N.V.",oFnt2)

oPrn:cmSay(K,16,"Pagina:",oFnt2)

oPrn:cmSay(K,18,Strzero(numpagina,6,0),oFnt2)

PAGE++

numlinha = 0

nRow := 0

ENDPAGE

PAGE

Endif

IF DTOS(TAPE) > DTOS(mLILI)

AZ:=1

Exit

ENDIF

ENDIF

IF CONTA > mTACO

AZ:=1

Exit

ENDIF

IF EOF()

AZ:=1

Exit

ENDIF

Enddo

IF AZ=1

numpagina = numpagina + 1

oPrn:SetFont(oFnt)

oPrn:cmSay(K,00.2, REPLICATE("-",230),oFnt2)

K=K+0.5

oPrn:cmSay(K,00.2,"N.A.N.V.",oFnt2)

oPrn:cmSay(K,17.8,"Pagina:",oFnt2)

oPrn:cmSay(K,19.3,Strzero(numpagina,6,0),oFnt2)

PAGE++

numlinha = 0

nRow := 0

ENDPAGE

PAGE

Endif

SELECT NONA

IF SALDO = "S"

DBSETORDER(0)

IF RECLOCK(4)

REPLACE ULMOV WITH mDIAMES

DBSETORDER(1)

COMMIT

UNLOCK

ENDIF

ENDIF

ENDPAGE

ENDPRINT

oFnt5:End()

oFnt:End()

oFnt1:End()

oFnt2:End()

oFnt3:End()

oFnt4:End()

oFnt6:End()

oFnt7:End()

oFnt8:End()

SELECT LANC1

GOTO BOTTOM

SKIP -7

return NIL

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...