;** PD_0388S *******************************************************************
;** Imprime a Digitacao do Pedido                                              *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 22/10/2018 por Bruno Carvalho         
;Ultima Alteracao:   /  /     por                  
;Motivo Alteracao: 

;*******************************************************************************
;* Rotina para Impressao do Relatorio                                          *
;*******************************************************************************
Proc IMPPED()
private regitens, regsdestq, anoref, mesref, refeitem, Desccomp, ctmedio, s1, s2, s3, kv

;************************* IMPRESSAO DO CABECALHO *****************************
If Not IsAssigned(NOMEMPRESA)
   Then NOMEMPRESA=""
EndIf

Moveto "PedidoC"

Print File ARQIMP CI_15CPP
Print File ARQIMP "\n"
Print File ARQIMP fill("-",132)+"\n"
Print File ARQIMP Format("W40,AL",NOMEMPRESA)+Spaces(15)+"Pedido de Venda"+Spaces(32)+"Impressao: "+Format("D13",Today())+"-"+Time()+ "\n"
Print File ARQIMP fill("-",132)+"\n\n"

Print File ARQIMP "Cliente: "
Print File ARQIMP Format("W05,AL",[Codigo])
Print File ARQIMP Format("W97,AL",[Razao Social])
Print File ARQIMP "N§ do Pedido : "+Format("W06.3,AL",[Numero do Pedido])+"\n"

Print File ARQIMP Spaces(14)+Format("W40,AL",[Endereco])
Print File ARQIMP Format("W18,AL",[CGC])+Spaces(07)+"Emissao: "
Print File ARQIMP Format("D13",[Data de Emissao])+"\n"

Print File ARQIMP Spaces(14)+Format("W20,AL",[Bairro])
Print File ARQIMP Format("W20,AL",[CEP])
Print File ARQIMP Format("W25,AL",[IE])
Print File ARQIMP "Entrega: "+Format("D13",[Data de Entrega])+"\n"

Print File ARQIMP Spaces(14)+Format("W20,AL",[Cidade])
Print File ARQIMP Format("W20,AL",[UF])
Print File ARQIMP Format("W25,AL",[Telefone])
Print File ARQIMP "Empresa: "+Format("W05,AL",[Codigo da Empresa])+Format("W20,AL",[Nome Fantasia Empresa])+"\n\n"

Print File ARQIMP "Representante: "+Format("W05,AL",[Codigo do Representante])
Print File ARQIMP Format("W25,AL",[Nome Fantasia Represent])
Print File ARQIMP "Destinacao: "+Format("W04,AL",[Codigo da Destinacao])
Print File ARQIMP Format("W25,AL",[Descricao da Destinacao])
Print File ARQIMP "CFO: "+Format("W09,AL",[CFO])
Print File ARQIMP "TabPreco: "+Format("W06,AL",[Codigo da Tabela])+"\n"

Print File ARQIMP "Transportador: "+Format("W05,AL",[Codigo da Transportadora])
Print File ARQIMP Format("W28,AL",[Nome Fantasia Transport])
Print File ARQIMP "Veiculo: "+Format("W08,AL",[Placa do Veiculo])+"-"+Format("W08,AL",[UF Veiculo])
Print File ARQIMP "Frete por Conta: "+Format("W15,AL",[Frete por Conta])+"\n\n"

;********************* IMPRESSAO DOS ITENS ********************************
Print File ARQIMP "Sq  Item                                                                                                        "+
                  "Var.   Quantidade Un"+"\n"
Print File ARQIMP "--- ----------------------------------------------------------------------------------------------------------- "+
                  "------ ---------- --"+"\n"
mesref = AlinhM(StrVal(Month([PedidoC->Data de Emissao])),2)
anoref = StrVal(Year([PedidoC->Data de Emissao]))   

Moveto "PedidoI"
Cont=1
Scan

   getrecord "\\Sistemas\\Estoque\\Itens" [PedidoI->Codigo do Item] to regitens
   if Not retval
      then
           refeitem ="????"
           Desccomp ="????"
      else
           refeitem =regitens["referencia"]
           Desccomp =regitens["Descricao Complementar"]
   endif        

   getrecord "\\Sistemas\\Estoque\\SdEstq" [PedidoC->Codigo da Empresa],[PedidoI->Codigo do Item],anoref,mesref to regsdestq
   if Not retval
      then
           ctmedio  =0
      else
           ctmedio  =regsdestq["Custo Total Atual"]/regsdestq["Saldo Atual"]
   endif                        
                                  
   s1=""
   s1=Format("W03,AR",strval([Item do Pedido]))+" "+
      Format("W15,AL",refeitem)+
      Format("W31,AL",[Descricao do Item])+
      Desccomp

   if len(s1)>111
      then Cont=Cont+1
           Print File ARQIMP format("W111,AL",substr(s1,1,111))+"\n"
           s1=spaces(19)+substr(s1,112,111)
   endif   
   Print File ARQIMP format("W111,AL",s1)+Spaces(1)
   Print File ARQIMP Format("W6",[Variacoes])+Spaces(1)
   Print File ARQIMP Format("W10.1,EIC",[Quantidade])
   Print File ARQIMP Format("W03,AR",[Unidade Fiscal])+"\n"
   Cont=Cont+1
   If Cont=49
     Then
     Print File ARQIMP "\n\n\n"
   EndIf
EndScan

;********************* IMPRESSAO DOS TOTAIS **************************
Moveto "PedidoC"

Print File ARQIMP "\n"

Print File ARQIMP "Cond. Pagamento.: "+[Descricao CondPagto]
Print File ARQIMP "   NP: "+StrVal([Numero de Parcelas])
Print File ARQIMP "   CD: "+[Composicao de Dias]
Print File ARQIMP "   N.Volumes.: "+LTrim(Format("W06,EIC",[PedidoC->Numero de Volumes]))
Print File ARQIMP "   Peso Liquido: "+LTrim(Format("W11.3,EIC",[PedidoC->Peso Liquido]))
Print File ARQIMP "   Peso Bruto: "+LTrim(Format("W11.3,EIC",[PedidoC->Peso Bruto]))+"\n"

;************************ IMPRESSAO DOS VENCIMENTOS ****************************
;s1="Vencimentos.....: "
;s2="                  "
;s3="                  "
;KV=0
;for K from 1 to 24
;
; if isblank(DATA[k])
;    then quitloop
; endif    
; 
; if kv=10
;    then Print File ARQIMP s1+"\n"
;         Print File ARQIMP s2+"\n"
;         Print File ARQIMP s3+"\n"
;
;         kv=0
;         s1="                "
;         s2="                "
;         s3="                "
; endif
;
; kv=kv+1
; s1=s1+spaces(08)+FPGT[K]          +Spaces(02)
; s2=s2+Format("D13",DATA[k])       +Spaces(02)
; s3=s3+Format("W10.2,EIC",VALOR[k])+Spaces(02)
;
;endfor
;if kv>0
;  then Print File ARQIMP s1+"\n"
;       Print File ARQIMP s2+"\n"
;       Print File ARQIMP s3+"\n"
;
;       kv=0
;       s1=""
;       s2=""
;       s3=""
;endif

Print File ARQIMP "\n"

;************************* IMPRESSAO DO RODAPE ********************************
Moveto "PedidoC"
Print File ARQIMP "Obs. do Pedido..: "+Format("W114,AL",SubStr([Observacao do Pedido],001,114))+"\n"
If Substr([Observacao do Pedido],115,114)<>""
   Then Print File ARQIMP Spaces(18)+Format("W114,AL",SubStr([Observacao do Pedido],115,114))+"\n"
EndIf

Print File ARQIMP "Obs. Nota Fiscal: "+Format("W114,AL",SubStr([Observacao na Nota Fiscal],001,114))+"\n"
If Substr([Observacao na Nota Fiscal],115,114)<>""
   Then Print File ARQIMP Spaces(18)+Format("W114,AL",SubStr([Observacao na Nota Fiscal],115,114))+"\n"
EndIf
Print File ARQIMP "\n"

Print File ARQIMP "Local p/ Entrega: "+Format("W20,AL",[Endereco de Entrega])+"\n"
Print File ARQIMP Spaces(18)+Format("W15,AL",[Bairro de Entrega])+Format("W11,AL",[CEP de Entrega])
Print File ARQIMP Spaces(40)+"_______________________________________________"+"\n"
Print File ARQIMP Spaces(18)+Format("W15,AL",[Cidade de Entrega])+Format("W03,AL",[UF de Entrega])
Print File ARQIMP Spaces(62)+"Data/Assinatura Responsavel"+"\n\n"
Print File ARQIMP fill("-",132)+CI_10CPP+"\f"
EndProc

;*******************************************************************************
;* Rotina de Impressao dos Vencimentos                                         *
;*******************************************************************************
Proc VENC()
If RecNo()>9
   Then Print File ARQIMP  Spaces(20)
EndIf
For I From 1 to K
  Print File ARQIMP Spaces(03)+DATA[I]+Spaces(02)
EndFor
Print File ARQIMP "\n"
Print File ARQIMP Spaces(25)
For I From 1 to K
  Print File ARQIMP VALOR[I]+Spaces(02)
EndFor
Print File ARQIMP "\n"
EndProc

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************

AGUARDE("Imprimindo Pedido -> "+PEDIDO)

ArqImp=PrivDir()+"PD_0388.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf

Array  DATA[24]
Array VALOR[24]
Array FPGT [24]

for K from 1 to 24
   DATA[k]=blankdate()
  VALOR[k]=blanknum()
   FPGT[K]=""
endfor

K=0
Moveto "PedidoV"
Scan
  K=K+1
  
   DATA[K]=[Data ]
  VALOR[K]=[Valor]
   FPGT[K]=[Forma de Pagamento]
  
EndScan

IMPPED()

ImpriArq(ARQIMP)

Release Vars VALOR,DATA,FPGT,K
Release Procs IMPPED

