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

 

Re: Salto de formulário de NF

Mensagempor pedagogica » 04 Nov 2010 12:39

Desculpem, mas so agora to com tempo pra isso...

Bom seguinte, troquei o clipper para 5.2, fiz as concatenaçoes, mas na hora de compilar nao sei o que acontece, da esses erros:

Warnig wcl0001: Linking Clipper Summer 87 module ´ERRORSYS' with Clipper 5.0 Linker
Warnig wcl0001: Linking Clipper Summer 87 module ´EXAMPLEP' with Clipper 5.0 Linker
Warnig wrt0022: .exe may not execute properly.......

o fonte esta aqui:
! 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
   CABECALH()
   
   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)
   NUM_ITENS = 1
   FOLHA = 1
   do while n_doc=codcupom
           codprod=codigoprod
           // @ prow() ,00 say descricao
           
           aLinha={}
           select 4
           seek (codprod)
           if found()
              cLinha=(1->descricao)+" "+(4->cod_trib)+" "+(4->unidestoq)+" "+transform((1->qtdsaida),"9999999.9")+" "+transform(((1->vlvencruz)/(1->qtdsaida)),"9999.9999")+" "+transform((1->vlvencruz),"99999999.99")+" "+transform((4->alicmest),"99")
             // @ prow(), 53 say cod_trib
             // @ prow(), 58 say unidestoq
             // @ prow(), 104 say alicmest pict "99"
           endif
           @ prow,00 say cLinha+chr(10)
           AADD(aLinha,cLinha)
           cLinha=""
           // 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
           
           NUM_ITENS = NUM_ITENS + 1
           IF NUM_ITENS > 15
              CABECALH()
              FOLHA = FOLHA + 1
              NUM_ITENS = 1
           ENDIF
           
   enddo
   RODAPE()
   @ PROW(), 04 SAY FOLHA
   set printer to lpt1
   set device to screen

ENDDO   
   
   FUNCTION CABECALH()
      @ 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 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" + CHR(10)
      RETURN (.T.)
   


Por favor me ajudem...
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 » 04 Nov 2010 12:43

esqueci de mencionar, estou compilando assim:

clipper geranf2.prg
rtlink file geranf2
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 Pablo César » 04 Nov 2010 15:34

Pelo erro citado, o path (caminho) do Clipper 5.2 não está setado. Você deve estar ainda executando o Summer. Só para confirmar, verifique digitando na linha de comando:

SET (dê um enter) e coloque o resultado da tela

Seguramente deve estar dando o caminho onde o Summer está. Daí você terá que refazer o caminho para encontrar o CLipper 5.2. Certo ?
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 » 05 Nov 2010 14:56

era isso mesmo, o caminho estava setado errado.

continuo no martírio desse código, linguagem estruturada, está me matando.

abracos
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

Anterior



Retornar para CA-Clipper

Quem está online

Usuários vendo este fórum: Google [Bot] e 2 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