Clipper On Line • Ver Tópico - Salto de formulário de NF

Salto de formulário de NF

Discussão sobre a linguagem CA-Clipper.

Moderador: Moderadores

 

Salto de formulário de NF

Mensagempor pedagogica » 29 Set 2010 15:43

Seguinte, gostaria que no codigo abaixo, quando a NF, tiver mais de 15 registros, ele pular formulario, ou seja, pular formulario multiplos de 15 registros no stkmovv (Select 1)

! cls
set exclusive off
set date british
set century on

codcupom=space(06)
clicod=space(06)
prodcod=space(06)
vrazaoso=space(40)
vcodcli=space(6)
vcgc=space(18)
venderec=space(35)
vbairro=space(20)
vcep=space(8)
vcidade=space(20)
vetelfon=space(11)
vestado=space(2)
vinscrica=space(14)
wdata=date()
wtime=time()

do while .t.
   select 1
   use stkmovv
   set index to stkmov3

   select 2
   use crcli
   set index to ntxcli

   select 3
   use stkparam

   select 4
   use stkmaste
   set index to stkmaste

   select 5
   use crdup   
   set index to ntxcr   

   select 6
   use regsai
   set index to ntxrs

   nnf=space(06)
   select 3
   nnf=seqnf
   codcupom=space(06)
   condpag=space(01)
   @ 01,01 clear to 24,79
   @ 10,15 say "DIGITE O CUPOM FISCAL: " get codcupom pict "999999"
   read
   if lastkey () = 27
      clear
      exit
   endif
   @ 12,15 say "VISTA(V) / PRAZO (N.P): " get condpag pict "9"
   read
   
   select 1
   find (codcupom)
   clicod=codcli

   select 2
   find (clicod)
   vrazaoso=razaosoc
   vcgc=cgc
   venderec=endereco
   vbairro=bairro
   vcep=cep
   vcidade=cidade
   vtelefon=telefone
   vestado=estado
   vinscrica=inscricao
 
   nnf=nnf+1
     
   select 3
   lock()
   replace seqnf with nnf
   unlock
   
   clear
   set device to printer
   @ prow(),pcol() say chr(27)+chr(64)
   setprc(0,0)
   @ prow(),pcol() say chr(27)+chr(48)
   @ prow(),pcol() say chr(27)+"C"+chr(68)
   @ prow(),pcol() say chr(27)+"M"+chr(15)
   @ prow(),pcol() say chr(27)+"Q"+chr(120)
   @ prow() ,00 say " "
   @ prow() ,69 say "XX"
   @ prow() ,94 say strzero(nnf,6,0)+chr(10)+chr(10)+chr(10)+chr(10)+chr(10)
   @ prow() ,02 say "VENDA"
   @ prow() ,35 say "5102"+chr(10)+chr(10)+chr(10)
   @ prow() ,00 say vrazaoso+" "+left(clicod,5)+"-"+right(clicod,1)
   @ prow() ,68 say vcgc
   @ prow() ,95 say dtoc(wdata) +CHR(10)+CHR(10)
   @ prow() ,00 say venderec
   @ prow() ,58 say vbairro
   @ prow() ,79 say vcep
   @ prow() ,95 say dtoc(wdata)+chr(10)+chr(10)
   @ prow() ,00 say vcidade
   @ prow() ,45 say vtelefon
   @ prow() ,63 say vestado
   @ prow() ,70 say vinscrica
   @ prow() ,95 say time()+chr(10)+chr(10)+chr(10)
   
   do case
      case condpag="1"
         @ prow() ,10 say "A VISTA"
         @ prow() ,pcol() say chr(10)
      case condpag="2"
         select 5   
         seek (codcupom)
         do while ntitulo=codcupom
            @ prow(), 00 say datavenc
            @ prow(), 10 say valor pict "999999.99"
            skip
            if ntitulo=codcupom
               @ prow(), 20 say datavenc
               @ prow(), 30 say valor pict "999999.99"
               skip
               if ntitulo=codcupom
                  @ prow(), 40 say datavenc
                  @ prow(), 50 say valor pict "999999.99"
                  skip
                  if ntitulo=codcupom
                     @ prow(), 60 say datavenc
                     @ prow(), 70 say valor pict "999999.99"
                     skip
                     if ntitulo=codcupom
                        @ prow(), 80 say datavenc
                        @ prow(), 90 say valor pict "999999.99"
                        skip
                        @ prow(), pcol() say chr(10)
                     
                        if ntitulo=codcupom
                           @ prow(), 00 say datavenc
                           @ prow(), 10 say valor pict "999999.99"
                           skip
                           if ntitulo=codcupom
                              @ prow(), 20 say datavenc
                              @ prow(), 30 say valor pict "999999.99"
                              skip
                              if ntitulo=codcupom
                                 @ prow(), 40 say datavenc
                                 @ prow(), 50 say valor pict "999999.99"
                                 skip
                                 if ntitulo=codcupom
                                    @ prow(), 60 say datavenc
                                    @ prow(), 70 say valor pict "999999.99"
                                    skip
                                    if ntitulo=codcupom
                                       @ prow(), 80 say datavenc
                                       @ prow(), 90 say valor pict "999999.99"
                                       skip
                                    endif
                                 endif
                              endif
                           endif
                        endif
                     endif
                  endif
               endif
            endif
         enddo
   endcase
   @ prow() ,pcol() say chr(10)+chr(10)+chr(10)+chr(10)
   
   select 1
   seek (codcupom)
   
   do while n_doc=codcupom
           codprod=codigoprod
           @ prow() ,00 say descricao
           select 4
           seek (codprod)
           if found()
              @ prow(), 53 say cod_trib
              @ prow(), 58 say unidestoq
              @ prow(), 104 say alicmest pict "99"
           endif
           select 1
           @ prow(), 63 say qtdsaida pict "9999999.9"
           @ prow(), 72 say vlvencruz/qtdsaida pict "9999.9999"
           @ prow(), 89 say vlvencruz pict "99999999.99"
           @ prow(), pcol() say chr(10)
           skip
   enddo
   select 6
   vbicm=0
   vvlicm=0
   vvlcont=0
   seek (codcupom)
   do while nfiscal=codcupom
      vbicm=bicm+vbicm
      vvlicm=vlicm+vvlicm
      vvlcont=vlcont+vvlcont
      skip
   enddo
   @ prow(), 04 say vbicm pict "@E 999,999,999.99"
   @ prow(), 27 say vvlicm pict "@E 999,999,999.99"
   @ prow(), 91 say vvlcont pict "@E 999,999,999.99"

   set printer to lpt1
   set device to screen
enddo


Nota de Moderação:
por Maligno: O título do tópico foi alterado. O anterior, "Ajuda...", em nada ajuda na identificação do tópico, o que contraria as regras do fórum, que pedem um título objetivo. Leia as regras aqui. Dê especial atenção ao artigo 8.
pedagogica
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 11
Data de registro: 29 Set 2010 14:53
Cidade/Estado: sao paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Ajuda...

Mensagempor Eric.Developer » 29 Set 2010 18:07

antes de iniciar a impressão, sugiro acumular os itens em tabela temporária/vetor, pois precisará repetir o cabeçalho e continuar após o último item impresso, etc.
Delphi, SQL, FastReport | Xailer VxH Fivewin Minigui Hwgui [x]Harbour
Contate-me: Desenvolvimentos em geral | Treinamentos
Overview/Download: Xailer / Harbour Ferramenta profissional e mais completa.
Avatar de usuário

Eric.Developer
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 161
Data de registro: 31 Ago 2010 22:16
Curtiu: 0 vez
Mens.Curtidas: 8 vezes

Re: Ajuda...

Mensagempor pedagogica » 29 Set 2010 21:25

eric...

poderia exemplificar com um fonte pequeno, sou novato em clipper

abraços
pedagogica
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 11
Data de registro: 29 Set 2010 14:53
Cidade/Estado: sao paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Salto de formulário de NF

Mensagempor Pablo César » 30 Set 2010 00:18

Antes disso, eu tenho uma sugestão que viabilizará ou melhor dito facilitará o que o colega Eric recomendou.

Você está utilizando o @ PROW()... para imprimir na mesma linha e depois o SETPRC() para mudar de linha. Eu aconselho a você concatenar. Sabe o que é isso ?. Em curtas palavras é: juntar strings. Por exemplo o que eu faria para substituir as linhas 178 à 189:

aLinha:={}
select 4
seek (codprod)
if found()
   cLinha:=space(35)+(4->cod_trib)+" "+(4->unidestoq)+" "+transfrom((1->qtdsaida),"9999999.9")+" "+transform(((1->vlvencruz)/(1->qtdsaida)),"9999.9999")+""+transform((1->vlvencruz),"99999999.99")+" "+transform((4->alicmest),"99")
else
   cLinha:=space(63)+transfrom((1->qtdsaida),"9999999.9")+" "+transform(((1->vlvencruz)/(1->qtdsaida)),"9999.9999")+""+transform((1->vlvencruz),"99999999.99")
endif
@ prow,00 say cLinha+chr(10) // aqui irá imprimir a linha completa da composição da string
AADD(aLinha,cLinha)
cLinha:="" // e assim por diante, linha a linha

Uma vez concatenado o resto, todo o seu código onde faz a impressão individual por campo e fazendo do jeito que indiquei. Você daí poderá, adicionar linha a linha num vetor com o comando AADD(). Observe no seu código que a cada CHR(10) está indicando mudança de linha é nessa hora que você termina a variável cLinha e o vetor é adicionado (ver linha 10 do meu código/exemplo).

Componha em variável tudo que você quer imprimir linha a linha e depois adicione ao vetor.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Re: Salto de formulário de NF

Mensagempor pedagogica » 30 Set 2010 12:08

pablo,

entendi o lance da concatenação, muito obrigado, mas ainda estou quebrando a cabeça com o vetor.

o formulario tem 15 linhas para o produto, se uma nota tem apenas 1 produto ele teria que pular, ate os dados finais da nf, e tambem quando for mais de 1 formulario, calcular a quantidade de formularios com 15 linhas.

me ajude por favor.

obrigado
pedagogica
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 11
Data de registro: 29 Set 2010 14:53
Cidade/Estado: sao paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Salto de formulário de NF

Mensagempor Pablo César » 30 Set 2010 12:37

entendi o lance da concatenação, muito obrigado, mas ainda estou quebrando a cabeça com o vetor.
òtimo se você entendeu o lance da concatenação, perfeito. Isso vai ajudar muito. Agora sobre o Vetor, o quê é que você não entende do Vetor ?

o formulario tem 15 linhas para o produto, se uma nota tem apenas 1 produto ele teria que pular, ate os dados finais da nf
Se você tem apenas 1 ou então até menos de quinze produtos, o jeito é inserir elementos em branco no vetor até completar o número 15 elementos.

e tambem quando for mais de 1 formulario, calcular a quantidade de formularios com 15 linhas.
Você obtendo os dados em vetor, você vai saber o tamanho do seu vetor através da função LEN(), daí você calcula quantas linhas (ou melhor, quantos elementos de vetor) comporta cada página (cada folha). Só dividir o tamanho do vetor pelo numero maximo que cabem em cada folha, aí vai obter o número de páginas.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Re: Salto de formulário de NF

Mensagempor rochinha » 30 Set 2010 14:18

Amiguinho,

Tente o seguinte:

Pegue este trecho e coloque dentro da funcao FUNCAO_IMPRIME_CABECALHO():
   ...
   @ prow(),pcol() say chr(27)+chr(64)
   setprc(0,0)
   @ prow(),pcol() say chr(27)+chr(48)
   @ prow(),pcol() say chr(27)+"C"+chr(68)
   @ prow(),pcol() say chr(27)+"M"+chr(15)
   @ prow(),pcol() say chr(27)+"Q"+chr(120)
   @ prow() ,00 say " "
   @ prow() ,69 say "XX"
   @ prow() ,94 say strzero(nnf,6,0)+chr(10)+chr(10)+chr(10)+chr(10)+chr(10)
   @ prow() ,02 say "VENDA"
   @ prow() ,35 say "5102"+chr(10)+chr(10)+chr(10)
   @ prow() ,00 say vrazaoso+" "+left(clicod,5)+"-"+right(clicod,1)
   @ prow() ,68 say vcgc
   @ prow() ,95 say dtoc(wdata) +CHR(10)+CHR(10)
   @ prow() ,00 say venderec
   @ prow() ,58 say vbairro
   @ prow() ,79 say vcep
   @ prow() ,95 say dtoc(wdata)+chr(10)+chr(10)
   @ prow() ,00 say vcidade
   @ prow() ,45 say vtelefon
   @ prow() ,63 say vestado
   @ prow() ,70 say vinscrica
   @ prow() ,95 say time()+chr(10)+chr(10)+chr(10)
   ...


E faça assim:
   clear
   set device to printer
   //
   FUNCAO_IMPRIME_CABECALHO()
   //
   // *** @ prow(),pcol() say chr(27)+chr(64)
   // *** setprc(0,0)
   // *** @ prow(),pcol() say chr(27)+chr(48)
   // *** @ prow(),pcol() say chr(27)+"C"+chr(68)
   // *** @ prow(),pcol() say chr(27)+"M"+chr(15)
   // *** @ prow(),pcol() say chr(27)+"Q"+chr(120)
   // *** @ prow() ,00 say " "
   // *** @ prow() ,69 say "XX"
   // *** @ prow() ,94 say strzero(nnf,6,0)+chr(10)+chr(10)+chr(10)+chr(10)+chr(10)
   // *** @ prow() ,02 say "VENDA"
   // *** @ prow() ,35 say "5102"+chr(10)+chr(10)+chr(10)
   // *** @ prow() ,00 say vrazaoso+" "+left(clicod,5)+"-"+right(clicod,1)
   // *** @ prow() ,68 say vcgc
   // *** @ prow() ,95 say dtoc(wdata) +CHR(10)+CHR(10)
   // *** @ prow() ,00 say venderec
   // *** @ prow() ,58 say vbairro
   // *** @ prow() ,79 say vcep
   // *** @ prow() ,95 say dtoc(wdata)+chr(10)+chr(10)
   // *** @ prow() ,00 say vcidade
   // *** @ prow() ,45 say vtelefon
   // *** @ prow() ,63 say vestado
   // *** @ prow() ,70 say vinscrica
   // *** @ prow() ,95 say time()+chr(10)+chr(10)+chr(10)
   ...


Neste trecho:
   ...
   select 1
   seek (codcupom)
   
   do while n_doc=codcupom
           codprod=codigoprod
           @ prow() ,00 say descricao
           select 4
           seek (codprod)
           if found()
              @ prow(), 53 say cod_trib
              @ prow(), 58 say unidestoq
              @ prow(), 104 say alicmest pict "99"
           endif
           select 1
           @ prow(), 63 say qtdsaida pict "9999999.9"
           @ prow(), 72 say vlvencruz/qtdsaida pict "9999.9999"
           @ prow(), 89 say vlvencruz pict "99999999.99"
           @ prow(), pcol() say chr(10)
           skip
   enddo
   ...


Acrescente:
   ...
   select 1
   seek (codcupom)
   // Acrecente um contador
   NUM_ITENS = 1
   //   
   do while n_doc=codcupom
           codprod=codigoprod
           @ prow() ,00 say descricao
           select 4
           seek (codprod)
           if found()
              @ prow(), 53 say cod_trib
              @ prow(), 58 say unidestoq
              @ prow(), 104 say alicmest pict "99"
           endif
           select 1
           @ prow(), 63 say qtdsaida pict "9999999.9"
           @ prow(), 72 say vlvencruz/qtdsaida pict "9999.9999"
           @ prow(), 89 say vlvencruz pict "99999999.99"
           @ prow(), pcol() say chr(10)
           skip
            // Faça o atalho...
            NUM_ITENS = NUM_ITENS + 1
            IF NUM_ITENS > 15
                FUNCAO_IMPRIME_RODAPE()
                NUM_ITENS = 1
                FUNCAO_IMPRIME_CABECALHO()
            ENDIF
            //   
   enddo
   ...


Modifique este trecho:
   ...
   select 6
   vbicm=0
   vvlicm=0
   vvlcont=0
   seek (codcupom)
   do while nfiscal=codcupom
      vbicm=bicm+vbicm
      vvlicm=vlicm+vvlicm
      vvlcont=vlcont+vvlcont
      skip
   enddo
   @ prow(), 04 say vbicm pict "@E 999,999,999.99"
   @ prow(), 27 say vvlicm pict "@E 999,999,999.99"
   @ prow(), 91 say vvlcont pict "@E 999,999,999.99"
   ...


Deixando assim:
   ...
   FUNCAO_IMPRIME_RODAPE()
   // *** select 6
   // *** vbicm=0
   // *** vvlicm=0
   // *** vvlcont=0
   // *** seek (codcupom)
   // *** do while nfiscal=codcupom
   // ***    vbicm=bicm+vbicm
   // ***    vvlicm=vlicm+vvlicm
   // ***    vvlcont=vlcont+vvlcont
   // ***    skip
   // *** enddo
   // *** @ prow(), 04 say vbicm pict "@E 999,999,999.99"
   // *** @ prow(), 27 say vvlicm pict "@E 999,999,999.99"
   // *** @ prow(), 91 say vvlcont pict "@E 999,999,999.99"
   ...


Funções utilizadas:
FUNCTION FUNCAO_IMPRIME_CABECALHO()
   @ prow(),pcol() say chr(27)+chr(64)
   setprc(0,0)
   @ prow(),pcol() say chr(27)+chr(48)
   @ prow(),pcol() say chr(27)+"C"+chr(68)
   @ prow(),pcol() say chr(27)+"M"+chr(15)
   @ prow(),pcol() say chr(27)+"Q"+chr(120)
   @ prow() ,00 say " "
   @ prow() ,69 say "XX"
   @ prow() ,94 say strzero(nnf,6,0)+chr(10)+chr(10)+chr(10)+chr(10)+chr(10)
   @ prow() ,02 say "VENDA"
   @ prow() ,35 say "5102"+chr(10)+chr(10)+chr(10)
   @ prow() ,00 say vrazaoso+" "+left(clicod,5)+"-"+right(clicod,1)
   @ prow() ,68 say vcgc
   @ prow() ,95 say dtoc(wdata) +CHR(10)+CHR(10)
   @ prow() ,00 say venderec
   @ prow() ,58 say vbairro
   @ prow() ,79 say vcep
   @ prow() ,95 say dtoc(wdata)+chr(10)+chr(10)
   @ prow() ,00 say vcidade
   @ prow() ,45 say vtelefon
   @ prow() ,63 say vestado
   @ prow() ,70 say vinscrica
   @ prow() ,95 say time()+chr(10)+chr(10)+chr(10)
   RETURN .T.

FUNCTION FUNCAO_IMPRIME_RODAPE()
   select 6
   vbicm=0
   vvlicm=0
   vvlcont=0
   seek (codcupom)
   do while nfiscal=codcupom
      vbicm=bicm+vbicm
      vvlicm=vlicm+vvlicm
      vvlcont=vlcont+vvlcont
      skip
   enddo
   @ prow(), 04 say vbicm pict "@E 999,999,999.99"
   @ prow(), 27 say vvlicm pict "@E 999,999,999.99"
   @ prow(), 91 say vvlcont pict "@E 999,999,999.99"
   RETURN .T.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Re: Salto de formulário de NF

Mensagempor pedagogica » 30 Set 2010 14:20

Pablo, vc esta me ajudando muito, obrigadão...

vc poderia postar um codigo simples de vetor pulando no 15 registro???

obrigado
pedagogica
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 11
Data de registro: 29 Set 2010 14:53
Cidade/Estado: sao paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Salto de formulário de NF

Mensagempor pedagogica » 30 Set 2010 14:27

Rochinha,

valeu vou tentar aqui

obrigadão
pedagogica
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 11
Data de registro: 29 Set 2010 14:53
Cidade/Estado: sao paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Salto de formulário de NF

Mensagempor pedagogica » 30 Set 2010 16:07

rochinha...

Estou usando a versao Clipper Summer 87, e nao estou conseguindo compilar o seu codigo...
Terei que compilar em clipper 5.2????????

abraços
pedagogica
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 11
Data de registro: 29 Set 2010 14:53
Cidade/Estado: sao paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Salto de formulário de NF

Mensagempor Pablo César » 30 Set 2010 22:04

Terei que compilar em clipper 5.2????????
Com certeza seria bem melhor compilar com 5.2 do que ter que mudar o código para Summer. Aliás o Summer já foi o tempo que era bom, agora até o Clipper 5.2 era para aposentar... rsrs

Pablo..//.. vc poderia postar um codigo simples de vetor pulando no 15 registro???

Depois que terminou de adicionar as linhas de cada produto no vetor, faria assim:
nTam:=LEN(aLinha)
IF nTam<15
   nPag:=1
ELSE
   nPag:=INT(nTam/15)
   IF !(nPag=(nTam/15)) //  saber se ha decimais, dai acresce +1
      nPag:=nPag+1
   ENDIF
ENDIF
FOR I=1 TO (15*nPag)
    IF I>nTam
       AADD(aLinha,"")
    ENDIF
NEXT
// agora para imprimir a NF fa‡a algo assim:
nContador:=1
nTam:=LEN(aLinha)
FOR I=1 TO nTam
    @ prow,00 say "imprima aqui o cabecalho - Pagina n§ "+STRZERO(nContador,6,0)+" "+STRZERO(nContador,2,0)+"/"+STRZERO(nPag,2,0)"+CHR(10)
    FOR U=1 TO 15
        @ prow,00 say aLinha[I]+CHR(10)
        I:=I+1
    NEXT
    nContador:=nContador+1
NEXT
Mas se for fazer o exemplo que o Rochinha indicou, você não precisará criar vetor algum. Isto que sirva para seu aprendizado.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Re: Salto de formulário de NF

Mensagempor rochinha » 30 Set 2010 23:37

Amiguinhos,

O problema da compilação do código que coloquei em SUMMER são as barras duplas, "//", elas não são conhecidas pelo mesmo.

Troque as barras duplas por duplo ampersand, && ou * ou elimine as linhas que desabilitei.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Re: Salto de formulário de NF

Mensagempor Toledo » 01 Out 2010 10:20

Lembrando também que no Clipper, os nomes de variáveis e das funções (Function ou Procedure) podem ter até 10 caracteres.
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Re: Salto de formulário de NF

Mensagempor pedagogica » 01 Out 2010 10:56

era esse o problema (10 caracteres), ficou show, so que agora empaquei num detalhe, quando e mais de 1 formulario, precisaria quando sair junto com o numero da nf, a quantidade de formularios, sair desse jeito

ex. 000001 01/03 (numero da nf + quantidade de formularios(03 formularios)

tentei fazer uma function para o calculo, mas nao consigo exibi-la

gostaria de agradecer novamente aos colegas, pois se nao fosse esse forum, jamais teria conseguido...

abraços a todos

Marcelo
pedagogica
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 11
Data de registro: 29 Set 2010 14:53
Cidade/Estado: sao paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Salto de formulário de NF

Mensagempor Pablo César » 01 Out 2010 11:38

Oi Marcelo, no ultimo código/exemplo eu passei como obter o número final da página. Veja a variável nPag que é o totoal de páginas. Para você poder enumerar cada folha você vai precisar de uma variável contador. Reveja o meu ultimo código eu implementei nas linhas 16, 19 e 24 para imprimir o numero de página e você ter uma idéia.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Próximo



Retornar para CA-Clipper

Quem está online

Usuários vendo este fórum: Google [Bot] e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro