Problema Impressão Condensada
Enviado: 14 Nov 2009 12:33
Estou trocando impressoras lx-300 por mini impressoras mecaf procomp compact, só que esta acontecendo que a primeira linha sai condensada, o resto das linhas não. Nas lx-300 não ocorre isso.
Segue trecho do codigo.
Segue trecho do codigo.
Código: Selecionar todos
STATIC PROCEDURE Acepap()
PRIVATE ant:=SPACE(8)
SELECT VENDA
SET RELATION TO VECOD INTO MER
GO TOP
SEEK clit
IF .NOT. FOUND()
Mensagem("Nada encontrei deste cliente")
TONE(1000,3)
INKEY(0)
RETURN
ENDIF
clin = 0
IF .NOT. Onprinter(nomeREL)
RETURN
ENDIF
?? CHR(27) + CHR(67) + "!"
?? CHR(15)
@ clin,26-25 SAY "RESUMO DE ACERTO COM CLIENTE"
@ clin,57-25 SAY DATE()
clin++
@ clin,26-25 SAY REPLICATE("-",58)
clin++
@ clin,26-25 SAY "Cliente...:"
@ clin,38-25 SAY CLI->CODCLI
@ clin,44-25 SAY CLI->DESCLI
clin++
@ clin,26-25 SAY "Endereco..:"
@ clin,38-25 SAY CLI->ENDCLI
clin++
@ clin,26-25 SAY "Telefone..:"
@ clin,38-25 SAY CLI->TELCLI PICTURE "@R (99)-9999.9999"
IF .NOT. EMPTY(CLI->CGCCLI)
clin++
@ clin,26-25 SAY "C.G.C.....:"
@ clin,38-25 SAY CLI->CGCCLI
ENDIF
IF .NOT. EMPTY(CLI->INSCLI)
clin++
@ clin,26-25 SAY "INSCRICAO.:"
@ clin,38-25 SAY CLI->INSCLI
ENDIF
clin++
@ clin,26-25 SAY REPLICATE("-",58)
clin++
@ clin,26-25 SAY " Data"
@ clin,36-25 SAY "Requisitante"
@ clin,52-25 SAY " Material"
@ clin,65-25 SAY "Quantid."
clin++
@ clin,26-25 SAY REPLICATE("-",58)
DO WHILE VECLI = clit
clin++
@ clin,01 SAY VEDAT
IF VETIP="2"
aux1=VEQTD
ELSE
aux1 = VEQTD *-1
ENDIF
@ clin,12 SAY VERQS
@ clin,29 SAY VECOD PICTURE "@R AA99-9999"
@ clin,40 SAY aux1 PICTURE "@E 9,999.99"
SKIP
ENDDO
clin++
@ clin,26-25 SAY REPLICATE("-",58)
clin++
@ clin,26-25 SAY "Material"
@ clin,56-25 SAY "Quantid."
@ clin,65-25 SAY "Vlr.Unit"
@ clin,74-25 SAY "Vlr. Item"
clin++
@ clin,26-25 SAY REPLICATE("-",58)
SELECT VENDA
SET RELATION TO VECOD INTO MER
GO TOP
SEEK clit
ant = VECOD
tquant = 0
preco = 0
vlrtot = 0.00
DO WHILE VECLI = clit
IF ant <> VECOD
Quep11()
ENDIF
IF VETIP="2"
tquant=tquant+VEQTD
preco = VEUNI
ELSE
tquant=tquant-VEQTD
ENDIF
SKIP
ENDDO
Quep11()
clin++
@ clin,26-25 SAY "Valor da Compra......:"
@ clin,74-25 SAY vlrtot PICTURE "@E 999999.99"
IF !EMPTY(CLI->DATMAX) .AND. CLI->DATMAX < DATE()
juros = 0.00
juros = pjur/30
juros = (DATE()-CLI->DATMAX)*juros
juros = vlrtot*juros/100
clin++
@ clin,01 SAY "Juros................:"
@ clin,74-25 SAY juros PICTURE "@E 999999.99"
vlrtot = vlrtot + juros
ENDIF
SELECT CRE
GO TOP
SEEK clit
clin++
DO WHILE CLICRE= clit
clin++
@ clin,01 SAY DATCRE
@ clin,12 SAY DESCRE
@ clin,74-25 SAY VALCRE PICTURE "@E 999999.99"
vlrtot = vlrtot + VALCRE
SKIP
ENDDO
clin++
@ clin,26-25 SAY "Valor Liquido..........:"
@ clin,74-25 SAY vlrtot PICTURE "@E 999999.99"
EJECT
SET FILTER TO
SET RELATION TO
offprinter()
Código: Selecionar todos
STATIC PROCEDURE Quep11()
clin++
@ clin,26-25 SAY ant PICTURE "@R AA999999"
SELECT MER
GO TOP
SEEK ant
@ clin,35-25 SAY MER->DESMER PICTURE "XXXXXXXXXXXXXXXXXXXX"
@ clin,56-25 SAY tquant PICTURE "99999.99"
IF preco <> 0
@ clin,65-25 SAY preco PICTURE "@E 99999.99"
vlruni=0
vlruni=tquant*preco
vlrtot=vlrtot+vlruni
@ clin,74-25 SAY vlruni PICTURE "@E 999999.99"
ELSE
IF CLI->TIPCLI = "A"
uni = 0.00
IF MER->PERPIN <> 0
uni = MER->PREMER+(MER->PREMER*MER->PERPIN/100)
ELSE
uni = MER->PREMER
ENDIF
@ clin,65-25 SAY uni PICTURE "@E 99999.99"
vlruni=0
vlruni=tquant*uni
vlrtot=vlrtot+vlruni
@ clin,74-25 SAY vlruni PICTURE "@E 999999.99"
ELSE
uni = 0.00
IF MER->PERPIN <> 0
uni = MER->PREMER+(MER->PREMER*MER->PERPIN/100)
ELSE
uni = MER->PREMER
ENDIF
uni = uni + (uni*percent/100)
@ clin,65-25 SAY uni PICTURE "@E 99999.99"
vlruni=tquant*uni
vlrtot=vlrtot+vlruni
@ clin,74-25 SAY vlruni PICTURE "@E 999999.99"
ENDIF
ENDIF
SELECT VENDA
ant=VECOD
tquant=0.00
RETURN