;** CCNE_F01 *******************************************************************
;** Imprime a Posi‡Æo da Conferˆncia - Quantidade dos Itens Pendentes     ***  *
;** Modo Simples                                                          ***  *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 05/12/2016 por Bruno Carvalho
;Ultima Alteracao: 04/05/2017 por Bruno Carvalho                          
;Motivo Alteracao: Alterado [Unidade Fiscal] para [Unidade_Conferencia], ajustado o t¡tulo do cabe‡alho (Var vel TIT de controle) 

;*******************************************************************************
;* Rotina para Impressao do Relatorio                                          *
;*******************************************************************************
Proc IMPPED()
Private NOMEMPRESA, NUMNE,DOCTO_EMP,DOCTO_COD,DOCTO_TIP,DOCTO_SER,DOCTO_NUM,RAZSOCIAL, SITUACAOCC, DATALIBERA

NOMEMPRESA=[\Sistemas\Estoque\ConfNeC->Nome Fantasia Empresa  ]
NUMNE     =[\Sistemas\Estoque\ConfNeC->Numero do Lancamento   ]
DOCTO_EMP =[\Sistemas\Estoque\ConfNeC->Codigo da Empresa      ]
DOCTO_COD =[\Sistemas\Estoque\ConfNeC->Codigo do Documento    ]
DOCTO_TIP =[\Sistemas\Estoque\ConfNeC->Numero do Documento    ]
DOCTO_SER =[\Sistemas\Estoque\ConfNeC->Serie do Documento     ]
DOCTO_NUM =[\Sistemas\Estoque\ConfNeC->Numero do Documento    ]
RAZSOCIAL =[\Sistemas\Estoque\ConfNeC->Razao Social           ]
SITUACAOCC=[\Sistemas\Estoque\ConfNeC->Situacao da Conferencia]
DATALIBERA=[\Sistemas\Estoque\ConfNeC->Data_Liberacao         ]

CODREP  =""
NOMREP  =""
CODIGO  =""
CGC     =""
CIDADE  =""
UF      =""

Moveto "ConfNeC"
If [Numero do Lancamento]<>""
   Then Moveto [Numero do Lancamento]
        If Busca_Lookup("Numero do Lancamento",[Numero do Lancamento],"SM")
          Then If [Numero do Lancamento]=REG_BUSCA_LOOKUP["Numero do Lancamento"]
                  Then  CODREP  =REG_BUSCA_LOOKUP["Codigo do Representante"]
                        NOMREP  =REG_BUSCA_LOOKUP["Nome Fantasia Represent"]
                        CODIGO  =REG_BUSCA_LOOKUP["Codigo"]
                        CGC     =REG_BUSCA_LOOKUP["CGC"]
                        CIDADE  =REG_BUSCA_LOOKUP["Cidade"]
                        UF      =REG_BUSCA_LOOKUP["UF"]
               EndIf
        EndIf
EndIf

If Not IsAssigned(NOMEMPRESA)
   Then NOMEMPRESA=""
EndIf

;************************* IMPRESSAO DOS ITENS *********************************

Cabecalho()


SEQ=0

CONTPED    =0
CONTEXP    =0
SOMACALCDIF=0
CACLDIF    =0
AUX        =[Numero do CC]

Moveto "\\Sistemas\\Estoque\\ConfNeI"
 Scan
   While AUX=[Numero do CC]
      
    CONTPED=CONTPED+[Quantidade_NE]
    CONTEXP=CONTEXP+[Quantidade_Conferencia]
    
    SEQ=SEQ+1
    NLINHA=NLINHA+1
    
    CALCDIF=([Quantidade_Conferencia]-[Quantidade_NE])
  
    SOMACALCDIF=SOMACALCDIF+CALCDIF
    
    If [Quantidade_NE]-[Quantidade_Conferencia]>0
       Then If Not ACHOU_ITEM Then ACHOU_ITEM=True EndIf
            Print File ARQIMP ASP1+Spaces(02)+Format("W04,AR",SEQ)   
            Print File ARQIMP Spaces(01)+Format("W08,AC",[Referencia])   
            Print File ARQIMP Spaces(01)+Format("W11,AL",[Codigo do Item])
            Print File ARQIMP Format("W40,AL",[Descricao do Item])
            Print File ARQIMP Format("W03,AL",[Unidade_Conferencia])         
            Print File ARQIMP Format("W11.3,EIC",CALCDIF*-1)+ASP2+"\n"
           
            Skip
            If EOT() Then QuitLoop Endif  
            If NLINHA=65
               Then Print File ARQIMP ASP1+"\f"+ ASP2 + "\n"
                    Cabecalho()
            EndIf

    Else Skip
         If EOT() Then QuitLoop Endif  
          NLINHA=NLINHA-1
          If NLINHA=65
             Then Print File ARQIMP ASP1+"\f"+ ASP2 + "\n"
                  Cabecalho()
          EndIf
    EndIF   
  EndWhile
   Total()
 EndScan
Do_it!

EndProc

;*******************************************************************************
;* Rotina para Impressao do Cabe‡alho                                          *
;*******************************************************************************
Proc Cabecalho()

DOCUMENTO=Spaces(42)
If Not IsBlank(DOCTO_NUM) 
   Then If Not IsBlank(DOCTO_SER)
           Then SERIE = " "+DOCTO_SER+" "
           Else SERIE = " "
         EndIf
         DOCUMENTO=Spaces(3)+"DOCUMENTO: "+Format("W20,AL",[ConfNeC->Codigo do Documento]+SERIE+[ConfNeC->Numero do Documento])+Spaces(8)  
    Else DOCUMENTO=""  
EndIf
   
Print File ARQIMP ASP1+CI_6LPP+CI_15CPP+ASP2
Print File ARQIMP ASP1+ "  --------------------------------------------------------------------------------------------------------------------------------"  +ASP2+"\n"
Print File ARQIMP ASP1+Spaces(02)+Format("W36,AL",NOMEMPRESA)+Spaces(02)+"Posicao Pendentes da Conferˆncia - "+TIT+Spaces(14)+
                       "Impressao: "+Format("D13",Today())+"-"+Time()+ASP2+"\n"
Print File ARQIMP ASP1+ "  --------------------------------------------------------------------------------------------------------------------------------"  +ASP2+"\n"
Print File ARQIMP ASP1+Spaces(02)+"Numero do CC  : "+Format("W08,AL",[Numero do CC])+DOCUMENTO+"  Fornecedor: "+CODIGO
Print File ARQIMP Spaces(02)+Format("W22,AL",RAZSOCIAL)+Spaces(02)+Format("W18,AL",CGC)+ASP2+"\n"                                                                                     
Print File ARQIMP ASP1+Spaces(02)+"Representante : "+Format("W21,AL",NOMREP)+ASP2+"\n"
If UF<>""
  Then Print File ARQIMP ASP1+Spaces(02)+"    Cidade/UF : "+CIDADE+"/"+UF+ASP2+"\n"
  Else Print File ARQIMP ASP1+Spaces(02)+"       Cidade : "+CIDADE+ASP2+"\n"
EndIf  
Print File ARQIMP ASP1+ "  --------------------------------------------------------------------------------------------------------------------------------"  +ASP2+"\n"
Print File ARQIMP ASP1+Spaces(02)+"Sq   Ref.     Item                                               UN  Diferen‡a  "+ASP2+"\n"
Print File ARQIMP ASP1+Spaces(02)+"---- -------- -------------------------------------------------- --- ---------- "+ASP2+"\n"
NLINHA=12

EndProc
;*******************************************************************************
;* Rotina para Impressao do Rodap‚                                             *
;*******************************************************************************
Proc Total()

Print File ARQIMP ASP1+Spaces(02)+"-------------------------------------------------------------------------------- "+ASP2+"\n"
Print File ARQIMP ASP1+ Spaces(44)+"Total de Itens Pendentes: "+Format("W11.3,EIC",SOMACALCDIF*-1)+ASP2+"\n"

EndProc  ;Total()

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Seta_FilePrint("OE_0002")

Switch
  Case [ConfNEC->Numero da OC]<>"" : TIT = "Ordem de Compra"
  OtherWise                        : TIT = "Nota de Entrada"
EndSwitch 

ACHOU_ITEM=False

Moveto "ConfNeC"
CoeditKey

IMPPED()
Do_It!

If Not ACHOU_ITEM
   Then Mensagem("N„o h  itens a serem conferidos!")
   Else Imprime_FilePrint("Imprimindo Posi‡Æo da Conferencia -> "+"OE_0002", "R")
EnDIf   

Release Vars VALOR,DATA, NOMEMPRESA, NUMNE, RAZSOCIAL, SITUACAOCC, DATALIBERA,
             CODREP, NOMREP, CODTRA,  CODIGO, CIDADE, UF, DOCTO_COD, DOCTO_TIP,
             DOCTO_SER,DOCTO_NUM
Release Procs IMPPED, Cabecalho, Total, Seta_FilePrint, Imprime_FilePrint
