PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
Ajudar com relatorio
Versão:
.
Plataforma:
.
Complemento:
DB:
.
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário IVAN26 IVAN26 em 07/02/2019, 08:50 h
Local: PR  Registro: 30/10/2017  Postagens: 31
Ola pessoal, sou leigo na parte de ADVPL e não estou conseguindo fazer o meu relatorio pular de pagina. Esse relatorio é um relatorio onde imprimi o pedido de venda. Quando coloco mais de 1 pedido para puxar nos parametros ele não pula a pagina. Alguem poderia me ajudar?

#INCLUDE "RWMAKE.CH"
#include "TbiConn.ch"
#include "TbiCode.ch"
#INCLUDE "AP5MAIL.CH"
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FONT.CH"
#include "topconn.ch"
/*
Descri??o ³Impressao do Pedido de Vendas - TmsPrinter              
*/
User Function PEDPCP()

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Declaracao de Variaveis                                             ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
LOCAL oDlg := NIL
LOCAL cString     := "SC7"
PRIVATE titulo      := ""
PRIVATE nLastKey:= 0
PRIVATE cPerg     := "FATR05"
PRIVATE nomeProg:= FunName()
Private nTotal     := 0
Private nSubTot     := 0

AjustaSx1()
If ! Pergunte(cPerg,.T.)
     Return
Endif

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Variaveis utilizadas para parametros                                    ³
//³ mv_par01                    // Numero da PT                             ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
wnrel := FunName()            //Nome Default do relatorio em Disco

PRIVATE cTitulo := "Impressão do Pedido de Vendas"
PRIVATE oPrn    := NIL
PRIVATE oFont1 := NIL
PRIVATE oFont2 := NIL
PRIVATE oFont3 := NIL
PRIVATE oFont4 := NIL
PRIVATE oFont5 := NIL
PRIVATE oFont6 := NIL
Private nLastKey := 0
Private nLin := 1650 // Linha de inicio da impressao das clausulas contratuais

DEFINE FONT oFont1 NAME "Times New Roman" SIZE 0,20 BOLD OF oPrn
DEFINE FONT oFont2 NAME "Times New Roman" SIZE 0,14 BOLD OF oPrn
DEFINE FONT oFont3 NAME "Times New Roman" SIZE 0,14 OF oPrn
DEFINE FONT oFont4 NAME "Times New Roman" SIZE 0,14 ITALIC OF oPrn
DEFINE FONT oFont5 NAME "Times New Roman" SIZE 0,14 OF oPrn
DEFINE FONT oFont6 NAME "Courier New" BOLD

oFont08      := TFont():New("Arial",08,08,,.F.,,,,.T.,.F.)
oFont08N := TFont():New("Arial",08,08,,.T.,,,,.T.,.F.)
oFont10      := TFont():New("Arial",10,10,,.F.,,,,.T.,.F.)
oFont11 := TFont():New("Arial",11,11,,.F.,,,,.T.,.F.)
oFont14      := TFont():New("Arial",14,14,,.F.,,,,.T.,.F.)
oFont16      := TFont():New("Arial",16,16,,.F.,,,,.T.,.F.)
oFont10N := TFont():New("Arial",10,10,,.T.,,,,.T.,.F.)
oFont12 := TFont():New("Arial",10,10,,.F.,,,,.T.,.F.)
oFont12N := TFont():New("Arial",10,10,,.T.,,,,.T.,.F.)
oFont16N := TFont():New("Arial",16,16,,.T.,,,,.T.,.F.)
oFont14N := TFont():New("Arial",14,14,,.T.,,,,.T.,.F.)
oFont06      := TFont():New("Arial",06,06,,.F.,,,,.T.,.F.)
oFont06N := TFont():New("Arial",06,06,,.T.,,,,.T.,.F.)


//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Tela de Entrada de Dados - Parametros                        ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
nLastKey := IIf(LastKey() == 27,27,nLastKey)

If nLastKey == 27
     Return
Endif

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Inicio do lay-out / impressao                                ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

oPrn := TMSPrinter():New(cTitulo)
oPrn:Setup()
oPrn:SetLandsCape()//SetPortrait() //SetLansCape()
oPrn:StartPage()
Imprimir()
oPrn:EndPage()
oPrn:End()

DEFINE MSDIALOG oDlg FROM 264,182 TO 441,613 TITLE cTitulo OF oDlg PIXEL
@ 004,010 TO 082,157 LABEL "" OF oDlg PIXEL

@ 015,017 SAY "Esta rotina tem por objetivo imprimir"     OF oDlg PIXEL Size 150,010 FONT oFont6 COLOR CLR_HBLUE
@ 030,017 SAY "o impresso customizado:"                         OF oDlg PIXEL Size 150,010 FONT oFont6 COLOR CLR_HBLUE
@ 045,017 SAY "Pedido de Venda"                               OF oDlg PIXEL Size 150,010 FONT oFont6 COLOR CLR_HBLUE

@ 06,167 BUTTON "&Imprime"           SIZE 036,012 ACTION oPrn:Print()        OF oDlg PIXEL
@ 28,167 BUTTON "Pre&view"           SIZE 036,012 ACTION oPrn:Preview()      OF oDlg PIXEL
@ 49,167 BUTTON "Sai&r"              SIZE 036,012 ACTION oDlg:End()          OF oDlg PIXEL

ACTIVATE MSDIALOG oDlg CENTERED

oPrn:End()


Return

/*/
_____________________________________________________________________________
¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
¦¦+-----------------------------------------------------------------------+¦¦
¦¦¦Descriçào ¦ Impressao Pedido de Vendas                                      ¦¦¦
¦¦+----------+------------------------------------------------------------¦¦¦
¦¦¦Uso       ¦ Pelkote                                                    ¦¦¦
¦¦+-----------------------------------------------------------------------+¦¦
¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
/*/
STATIC FUNCTION Imprimir()

Orcamento()
Ms_Flush()
Return

/*/
_____________________________________________________________________________
¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
¦¦+-----------------------------------------------------------------------+¦¦
¦¦¦Descriçào ¦ Impressao                                                             ¦¦¦
¦¦+----------+------------------------------------------------------------¦¦¦
¦¦¦Uso       ¦ Pelkote                                                    ¦¦¦
¦¦+-----------------------------------------------------------------------+¦¦
¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
/*/
STATIC FUNCTION Orcamento()

cDia := SubStr(DtoS(dDataBase),7,2)
cMes := SubStr(DtoS(dDataBase),5,2)
cAno := SubStr(DtoS(dDataBase),1,4)
cMesExt := MesExtenso(Month(dDataBase))
cDataImpressao := cDia+" de "+cMesExt+" de "+cAno

cPercICMS := GetMv("MV_ESTICM")

oPrn:StartPage()
cBitMap := "P:Logo1.Bmp"
oPrn:SayBitmap(1200,1200,cBitMap,2400,1700)               // Imprime logo da Empresa: comprimento X altura

oPrn:Say(0030,0100,SM0->M0_NOMECOM             ,oFont14N)

oPrn:Box(0180,0050,0630,2300)


dbSelectArea("SC5")
dbSetOrder(01)
dbSeek(xFilial("SC5")+mv_par01)
While !Eof() .And. C5_NUM >= mv_par01 .and. C5_NUM <= mv_par02
     
     dbSelectArea("SA1")
     dbSetOrder(01)
     dbSeek(xFilial("SA1")+SC5->C5_CLIENTE+SC5->C5_LOJACLI)
     
     dbSelectArea("SA4")
     dbSetOrder(01)
     dbSeek(xFilial("SA4")+SC5->C5_TRANSP)
     
     dbSelectArea("SA3")
     dbSetOrder(01)
     dbSeek(xFilial("SA3")+SC5->C5_VEND1)
     
     dbSelectArea("DA0")
     dbSetOrder(01)
     dbSeek(xFilial("DA0")+SC5->C5_TABELA)
     
     dbSelectArea("SF4")
     dbSetOrder(01)
     dbSeek(xFilial("SF4")+SC6->C6_TES)
     
     dbSelectArea("SE4")
     dbSetOrder(01)
     dbSeek(xFilial("SE4")+SC5->C5_CONDPAG)
     
     dbSelectArea("SC6")
     dbSetOrder(01)
     dbSeek(xFilial("SC6")+SC5->C5_NUM)
     
     dbSelectArea("SC9")
     dbSetOrder(01)
     dbSeek(xFilial("SC9")+SC9->C9_PEDIDO)
     
     cEstICM := SA1->A1_EST
     nPosICM := AT(cPercICMS,cEstICM)
     nPercICMS := VAL(SubStr(cPercICMS,(nPosICM+2),2))
     
     oPrn:Box(0030,1770,0130,2350)
     oPrn:Say(0030,1370, "Pedido No",oFont14N)
     oPrn:Say(0040,1890,OemToAnsi(SC5->C5_NUM),oFont14)
     dataHora:=Time()
     oPrn:Say(0030,2800,dataHora,oFont14N)
     
     oPrn:Box(0180,2350,0630,3350)
     
     oPrn:Say(0200,0100,"Cliente:",oFont12N)
     oPrn:Say(0200,0280,OemToAnsi(SA1->A1_COD),oFont12)
     oPrn:Say(0200,0480,OemToAnsi(SA1->A1_NOME),oFont12)
     
     oPrn:Say(0250,0100,"Endereco:",oFont12N)
     oPrn:Say(0250,0280,OemToAnsi(SA1->A1_END),oFont12)
     oPrn:Say(0250,1200,OemToAnsi(SA1->A1_BAIRRO),oFont12)
     oPrn:Say(0250,1600,OemToAnsi(SA1->A1_MUN),oFont12)
     ESTADO:=SA1->A1_EST
     oPrn:Say(0250,2000,OemToAnsi(SA1->A1_EST),oFont12)
     
     oPrn:Say(0480,2500,"Data",oFont14N)
     dData:=Dtoc(SC5->C5_EMISSAO)
     oPrn:Say(0540,2500,OemToAnsi(Ddata),oFont14)
     
     oPrn:Say(0300,0100,"C.G.C:",oFont12N)
     oPrn:Say(0300,0280,Transform(Alltrim(SA1->A1_CGC),"@R 99.999.999/9999-99"),oFont12)
     
     oPrn:Say(0300,0800,"Inscricao Estadual:",oFont12N)
     oPrn:Say(0300,1150,Transform(Alltrim(SA1->A1_INSCR),"@R 999.999.999.999"),oFont12)
     
     oPrn:Say(0350,0100,"CEP:   ",oFont12N)
     oPrn:Say(0350,0280,OemToAnsi(SA1->A1_CEP),oFont12)
     
     oPrn:Say(0350,0940,"Telefone:"     ,oFont12N)
     oPrn:Say(0350,1150,OemToAnsi(SA1->A1_DDD),oFont12)
     oPrn:Say(0350,1250,OemToAnsi(SA1->A1_TEL),oFont12)
     
     oPrn:Say(0400,0100,"Transp:",oFont12N)
     oPrn:Say(0400,0280,OemToAnsi(SA4->A4_COD),oFont12)
     oPrn:Say(0400,0460,OemToAnsi(SA4->A4_NOME),oFont12)
     oPrn:Say(0400,1100,OemToAnsi(SA4->A4_BAIRRO),oFont12)
     oPrn:Say(0400,1490,OemToAnsi(SA4->A4_TEL),oFont12)
     
     /*
     oPrn:Say(0280,2500,"Emitente",oFont14N)
     oPrn:Say(0340,2500,OemToAnsi(SC5->C5_XEMIT),oFont14)
     ncred:=0
             */
     oPrn:Say(0280,2500,"DATA LIB ECO",oFont12N)
     dData:=Dtoc(SC5->C5_UDTLECO)
     if !Empty (dData)//Incluido por ivan 05.02
     oPrn:Say(0340,2575,"Nao Liberado",oFont12)
     Else     
     oPrn:Say(0340,2575,OemToAnsi(Ddata),oFont12)
      End if
     
     oPrn:Say(0280,2950,"CREDITO",oFont12N)
     ncred   := Posicione("SC9",1,xFilial("SC9")+SC6->C6_NUM,"C9_BLCRED")
     //
     
     if !Empty(ncred)
          oPrn:Say(0340,2950,"BLOQUEADO",oFont14N)
     else
          oPrn:Say(0340,2950,"LIBERADO",oFont14N)
     end if
     
     
     oPrn:Say(0480,2950,"ESTOQUE",oFont12N)
     nest   := Posicione("SC9",1,xFilial("SC9")+SC6->C6_NUM,"C9_BLEST")
     if !Empty(nest)
          oPrn:Say(0520,2950,"BLOQUEADO",oFont14N)
     ELSE
          oPrn:Say(0520,2950,"LIBERADO",oFont14N)
     ENDIF
     
     oPrn:Say(0450,0100,"Vendedor:"     ,oFont12N)
     oPrn:Say(0450,0280,OemToAnsi(SA3->A3_COD),oFont12)
     oPrn:Say(0450,0480,OemToAnsi(SA3->A3_NREDUZ),oFont12)
     
     oPrn:Say(0450,1000,"Tabela:" ,oFont12N)
     oPrn:Say(0450,0280,OemToAnsi(DA0->DA0_CODTAB),oFont12)
     oPrn:Say(0450,0460,OemToAnsi(DA0->DA0_DESCRI),oFont12)
     finalidade:=0
     oPrn:Say(0500,0100,"Natureza:"     ,oFont12N)
     finalidade := Posicione("SF4",1,xFilial("SF4")+SC6->C6_TES,"F4_FINALID")
     oPrn:Say(0500,0460,finalidade,oFont12)
     oPrn:Say(0550,0100,"Frete:" ,oFont12N)
     oPrn:Say(0550,0300,OemToAnsi(SC5->C5_TPFRETE),oFont12)
     
     oPrn:Box(0650,0050,0750,3350)
     oPrn:Say(0680,0100,"Codigo"                       ,oFont12N)
     oPrn:Say(0680,0330,"Descricao"                      ,oFont12N)
     //oPrn:Say(0680,1500,"Fabricante"                    ,oFont12N)
     oPrn:Say(0680,1500,"Quantidade"                  ,oFont12N)
    //oPrn:Say(0680,2180,"Peso"                          ,oFont12N)
          //oPrn:Say(0680,2180,"Pr.Unitario"                    ,oFont12N)
     //oPrn:Say(0680,2380,"Pr. Total"                        ,oFont12N)
     //oPrn:Say(0680,2570,"%Ipi"                         ,oFont12N)
     //oPrn:Say(0680,2780,"Vlr Ipi"                         ,oFont12N)
     //oPrn:Say(0680,2950,"Peso"                          ,oFont12N)
     //oPrn:Say(0680,3080,"Classificacao"                  ,oFont12N)
     
     
     dbSelectArea("SC6")
     dbSetOrder(01)
     dbSeek(xFilial("SC6")+SC5->C5_NUM)
     
     nLin    :=0780
     //nSubTot :=      nTotIPI :=      nVlrIPI :=      nICMS := nTotICMS := nTotalGeral := nPesoItem := nTotalItem := nTotalNota := 0
     nSubTot :=      nTotIPI :=      nVlrIPI :=      nICMS := nTotICMS := nTotalGeral := nPesoItem := nTotalItem := nTotalNota := 0
     While !Eof() .And. C6_NUM ==SC5->C5_NUM
          //cFabricante:=SC6->C6_XFABRIC
          nIPI      := Posicione("SF4",1,xFilial("SF4")+SC6->C6_TES,"F4_IPI")
          nICMS     := Posicione("SF4",1,xFilial("SF4")+SC6->C6_TES,"F4_ICM")
          nPesoItem := Posicione("SB1",1,xFilial("SB1")+SC6->C6_PRODUTO,"B1_PESO")
          nPercIPI := Posicione("SB1",1,xFilial("SB1")+SC6->C6_PRODUTO,"B1_IPI")
          cClassific:= Posicione("SB1",1,xFilial("SB1")+SC6->C6_PRODUTO,"B1_POSIPI")
          nPercICMS := Iif(Empty(nPercICMS),Posicione("SB1",1,xFilial("SB1")+SC6->C6_PRODUTO,"B1_PICM"),nPercICMS)
          nVlrIPI   := Iif(nIPI=="S",(SC6->C6_VALOR*nPercIPI)/100,0)
          nTotalItem:= (SC6->C6_QTDVEN*nPesoItem)
          nSubTot   := nSubTot + SC6->C6_VALOR
          nTotIPI   := nTotIPI + nVlrIPI
          nTotalNota:= nTotalNota + nTotalItem
          oPrn:Say(nLin,0050,OemToAnsi(SC6->C6_PRODUTO),             oFont08)
          oPrn:Say(nLin,0330,OemToAnsi(SC6->C6_DESCRI),             oFont08)
          //cFabric2:=substr(cFabricante,01,08)
          //oPrn:Say(nLin,1500,OemToAnsi(cFabric2),               oFont08)
        //     oPrn:Say(nLin,1750,Transform(SC6->C6_UNSVEN,"@E 9999"),     oFont08)
          oPrn:Say(nLin,1500,Transform(SC6->C6_QTDVEN,"@E 9,999,999.99"),          oFont08)
          //oPrn:Say(nLin,2200,Transform(SC6->C6_PRCVEN,"@E 9,999,999.99",),     oFont08)
          //oPrn:Say(nLin,2370,Transform(SC6->C6_VALOR,"@E 9,999,999.99",),          oFont08)
          //IF nIPI=="S"
             //     oPrn:Say(nLin,2550,Transform(nPercIpi,"@E 9,999,999.99",),               oFont08)
             //     oPrn:Say(nLin,2750,Transform(nVlrIPI,"@E 9,999,999.99",),               oFont08)
        //     else
           //     nPerIPI:=0
             //     nVlrIpi:=0
               //oPrn:Say(nLin,2550,Transform(nPercIpi,"@E 9,999,999.99",),               oFont08)
             //     oPrn:Say(nLin,2750,Transform(nVlrIPI,"@E 9,999,999.99",),               oFont08)
        //     endif
        //admin     adminoPrn:Say(nLin,2900,Transform(nTotalItem,"@E 9,999,999.99"),       oFont10N)
          //oPrn:Say(nLin,3170,OemToAnsi(cClassific),                         oFont10)
          
          
          nLin+=0050
        
          DBSKIP()
     ENDDO
     
     //oPrn:Say(1400,0680,OemToAnsi(SC5->C5_MENNOTA),oFont12)
     
//     oPrn:Box(1600,0050,2300,1500)
//     oPrn:Box(1600,1520,2300,3350)
     
     
     //oPrn:Say(1650,0660,"Titulos Previsao" ,oFont14N)
     //oPrn:Say(1700,0150,"Prazo de Pagamento:",oFont12N)
     //oPrn:Say(1800,0150,OemToAnsi(SE4-> E4_DESCRI),oFont14)
     
     cprazo1:=substr(SE4->E4_COND,01,02)
     cPrazo2:=substr(SE4->E4_COND,04,02)
     cPrazo3:=substr(SE4->E4_COND,07,02)
     cPrazo4:=substr(SE4->E4_COND,10,02)
     cPrazo5:=substr(SE4->E4_COND,13,02)
     
     
     prazo1:=date() +VAL(cprazo1)
     prazo2:=date() +VAL(cprazo2)
     prazo3:=date() +VAL(cprazo3)
     prazo4:=date() +VAL(cprazo4)
     prazo5:=date() +VAL(cprazo5)
     
     //oPrn:Say(2000,0100,"Titulos: Vencimentos",oFont12N)
     
     if prazo1==date()
     else
          //oPrn:Say(2050,0140,"1",oFont12N)
          //oPrn:Say(2050,0250,Transform(prazo1, "@E 99/99/9999",), oFont12N)
     endif
     if prazo2==date()
     else
          //oPrn:Say(2100,0140,"2",oFont12N)
          //oPrn:Say(2100,0250,Transform(prazo2, "@E 99/99/9999",), oFont12N)
     endif
     if prazo3==date()
          
     else
          //oPrn:Say(2150,0140,"3",oFont12N)
          //oPrn:Say(2150,0250,Transform(prazo3, "@E 99/99/9999",), oFont12N)
     endif
     if prazo4==date()
          
     else
          //oPrn:Say(2200,0140,"4",oFont12N)
          //oPrn:Say(2200,0250,Transform(prazo4, "@E 99/99/9999",), oFont12N)
     endif
     
     if prazo5=date()
          
     else
          //oPrn:Say(2250,0140,"5",oFont12N)
          //oPrn:Say(2250,0250,Transform(prazo5, "@E 99/99/9999",), oFont12N)
     endif
     //oPrn:Say(1700,1100,"CFOP:",oFont12N)
     //oPrn:Say(1800,1100,OemToAnsi(SC6->C6_CF),oFont14)
     //oPrn:Say(1630,1600,"Frete"                                       ,oFont12N)
     //oPrn:Say(1630,3000,Transform(SC5->C5_FRETE,"@E 9,999,999.99",),oFont12)
     //oPrn:Say(1700,1600,"Sub-Total"                                 ,oFont12N)
     //oPrn:Say(1700,3000,Transform(nSubTot,"@E 9,999,999.99",),oFont12)
     //oPrn:Say(1770,1600,"Total Geral"                              ,oFont12N)
     nTotalGeral:=nSubTot+nTotIPI+SC5->C5_FRETE
     //oPrn:Say(1770,3000,Transform(nTotalGeral,"@E 9,999,999.99",),oFont12)
     //oPrn:Say(1850,1600,"Base do ICMS"                              ,oFont12N)
     
     
     nPercIcm:=0
     IF ESTADO$("SP,RS") .AND. nICMS=="S"
          //oPrn:Say(1850,3100,OemToAnsi("18 %",),oFont12 )
          nPercIcm:=(nTotalGeral/100)*18
     ENDIF
     
     IF ESTADO$("MG,RJ") .AND. nICMS=="S"
          //oPrn:Say(1850,3100,OemToAnsi("12 %",),oFont12 )
          nPercIcm:=(nTotalGeral/100)*12
     ENDIF
     
     IF ESTADO$("AC,AL,AM,AP,BA,CE,DF,ES,GO,MA,MS,MT,PA,PB,PE,PI,PR,RN,RO,RR,SC,SE,TO") .AND. nICMS=="S"
          //oPrn:Say(1850,3100,OemToAnsi("17 %",),oFont12 )
          nPercIcm:=(nTotalGeral/100)*17
     ENDIF
     
     
     //oPrn:Say(1920,1600,"ICMS"                                     ,oFont12N)
     //oPrn:Say(1920,3000,Transform(nPercIcm,"@E 9,999,999.99",),oFont12)
     //oPrn:Say(1990,1600,"IPI"                                       ,oFont12N)
     oPrn:Say(0780,2380,Transform(nTotIPI,"@E 9,999,999.99",),oFont12)
     oPrn:Say(0680,2380,"Peso Liquido"                              ,oFont12N)
     oPrn:Say(0780,2800,Transform(nTotalNota,"@E 9,999,999.99",),oFont12)
     oPrn:Say(0680,2800,"Peso Bruto"                              ,oFont12N)
     //oPrn:Say(0780,3100,Transform(nTotalNota,"@E 9,999,999.99",),oFont12)
     oPrn:Say(0680,3100,"Volumes"                                   ,oFont12N)
     oPrn:Say(0780,3100,Transform(SC5->C5_VOLUME1,"@E 9,999,999.99",),oFont12)
     //oPrn:Box(2200,0050,3200,0590)
     
     dbSelectArea("SC5")
     dbSkip()
EndDo
oPrn:EndPage()

Return

/*
Descri??o ³ Ajusta perguntas do SX1      
*/
Static Function AjustaSX1()

Local aArea := GetArea()
PutSx1(cPerg,"01","No Pedido Vendas               ?"," "," ","mv_ch1","C",6,0,0,     "G","","   ","","","mv_par01"," "," "," ","",     " "," "," "," "," "," ", " "," "," "," ",     " "," ",{"Informe numero do Pedido Vendas"},{"Informe o numero do Pedido de Vendas de"},{"Informe o Numero do Pedido de Vendas"})
PutSx1(cPerg,"02","Pedido Vendas Ate             ?"," "," ","mv_ch2","C",6,0,0,     "G","","   ","","","mv_par02"," "," "," ","",     " "," "," "," "," "," ", " "," "," "," ",     " "," ",{"Informe o numero do Orcamento"},{"Informe o numero do Pedido de Vendas ate"},{"Informe o Numero do Pedido de Compras ate"})

RestArea(aArea)

Return

//Processo para salvar relatório como imagem

aCaminho           := {"\192.168.1.8teste.jpg"}
filepath          := "192.168.1.8"
nwidthpage      := 630
nheightpage     := 870

aFiles := Directory(aCaminho[1])
For i:=1 to Len(aFiles)
     fErase("\192.168.1.8"+aFiles[1])
Next i

oPrint:SaveAllAsJpeg(filepath,nwidthpage,nheightpage,100)   //Gera arquivos JPEG na Pasta Protheus_dataImages

aFiles := {}
aFiles := Directory(aCaminho[1])

//Visualizacao e finalizacao do relatorio

oPrint:Setup()
oPrint:Preview()
oPrint:EndPage()
MS_FLUSH()



Return

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário IVAN26 IVAN26 em 11/02/2019, 08:45 h
Local: PR  Registro: 30/10/2017  Postagens: 31
Alguem me ajuda...

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário MARCELLOW MARCELLOW em 11/02/2019, 10:05 h
Local: SP  Registro: 22/01/2009  Postagens: 249
//     nVlrIpi:=0
               //oPrn:Say(nLin,2550,Transform(nPercIpi,"@E 9,999,999.99",),               oFont08)
             //     oPrn:Say(nLin,2750,Transform(nVlrIPI,"@E 9,999,999.99",),               oFont08)
        //     endif
        //admin     adminoPrn:Say(nLin,2900,Transform(nTotalItem,"@E 9,999,999.99"),       oFont10N)
          //oPrn:Say(nLin,3170,OemToAnsi(cClassific),                         oFont10)
           
           
          nLin+=0050
          

// comeca aqui o controle de pagina.
// aqui vc tem q ver mais ou menos quantas linhas tem a sua pagia, entao //fica mais ou menos assim
if nLin > 0600
    oPrn:EndPage()
    oPrn:StartPage()
endif

//caso vc queira reimprimir o inicio do pedido sc5.
// vc precisa chamar o fonte novamente do sc5 Cabeçario


          DBSKIP()

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal