;** RO_0059B *******************************************************************
;** Imprime a Digitacao do Romaneio                        ** VOLKS BENS       *
;*******************************************************************************
;Autor: Visao/Vise
;Desenvolvido  em: 29/12/2003 por Karen Lauar Nery
;Alterado em     : 13/04/2005 por Davi Pereira Carrano
;Motivo Alteracao: Retirando Atendente
;Alterado em     : 19/06/2006 por Antonio Marcelo Alves
;Motivo Alteracao: Inclusao ImpriArq()
;Ultima Alteracao: 14/08/2007 por Antonio Marcelo Alves
;Motivo Alteracao: Ajustes Deleta_Arquivo
;Ultima Alteracao: 21/09/2007 por Humberto F.Santos.
;Motivo Alteracao: Retirado o Usuario e ajustes.
;Ultima Alteracao: 21/10/2008 por Humberto F.Santos.
;Motivo Alteracao: Retirado Descricao da Destinacao.
;Ultima Alteracao: 31/08/2016 por Humberto F.Santos.
;Motivo Alteracao: Acrescentado o campo NUmero da OF.
;Ultima Alteracao: 21/05/2020 por Bruno Carvalho
;Motivo Alteracao: Ajustes na quebra de linha, contagem de itens que antecede este ajuste estava errada, onde era impresso apenas 12 itens 
;Ultima Alteracao: 23/06/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes OBS
;Ultima Alteracao: 26/06/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes destaque devolucÆo
;Ultima Alteracao: 27/10/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes placa veiculo        

;*******************************************************************************
;* Rotina para Impressao do Relatorio: Cabecalho                               *
;*******************************************************************************
Proc Cabecalho()

;* Nao eh necessario mudar as configura‡”es para impressao de duas vias

;************************** IMPRESSAO DO CABECALHO *****************************
If Not IsAssigned(NOMEMPRESA) Then NOMEMPRESA="" EndIf
Moveto "Faturac"
Print File ARQIMP CI_6LPP
Print File ARQIMP CI_15CPP
Print File ARQIMP chr(27)+chr(67)+chr(66) ;Imprime 66 Linhas por pagina

Print File ARQIMP "Orcamento: "+Format("W06.3,AL",NOTAFISC)+" - Data: "+Format("D10",Today())+" - Hora: "+Time()+"  - OF: "+Format("W06,AL",[Numero da OF])+Spaces(02)
Print File ARQIMP "Orcamento: "+Format("W06.3,AL",NOTAFISC)+" - Data: "+Format("D10",Today())+" - Hora: "+Time()+"  - OF: "+Format("W06,AL",[Numero da OF])+"\n"

Print File ARQIMP "Cliente  : "
Print File ARQIMP Chr(27)+Chr(71)
Print File ARQIMP Format("W05,AL",[Codigo])+Format("W29,AL",[Razao Social])+Spaces(22)
Print File ARQIMP Chr(27)+Chr(72)
Print File ARQIMP "Cliente  : "
Print File ARQIMP Chr(27)+Chr(71)
Print File ARQIMP Format("W05,AL",[Codigo])+Format("W29,AL",[Razao Social])+"\n"
Print File ARQIMP Chr(27)+Chr(72)

Print File ARQIMP Spaces(08)+Format("W39,AL",[Endereco])
Print File ARQIMP Format("W18,AL",[CGC])+Spaces(02)
Print File ARQIMP Spaces(08)+Format("W39,AL",[Endereco])
Print File ARQIMP Format("W18,AL",[CGC])+"\n"

Print File ARQIMP Spaces(08)+Format("W19,AL",[Bairro])
Print File ARQIMP Format("W20,AL",[CEP])
Print File ARQIMP Format("W18,AL",[IE])+Spaces(02)
Print File ARQIMP Spaces(08)+Format("W19,AL",[Bairro])
Print File ARQIMP Format("W20,AL",[CEP])
Print File ARQIMP Format("W18,AL",[IE])+"\n"

Print File ARQIMP Spaces(08)+Format("W19,AL",[Cidade])
Print File ARQIMP Format("W20,AL",[UF])
Print File ARQIMP Format("W17,AL",[Telefone])+Spaces(03)
Print File ARQIMP Spaces(08)+Format("W19,AL",[Cidade])
Print File ARQIMP Format("W20,AL",[UF])
Print File ARQIMP Format("W17,AL",[Telefone])+"\n"

Print File ARQIMP "Operacao: "
Print File ARQIMP Chr(27)+Chr(71)
Print File ARQIMP ""+[Codigo da Destinacao]
if [Tipo Movimento Estoque]="E" and Search("DEVOL",[Descricao da Destinacao])>0
   then Print File ARQIMP ""+CI_IEXP+Format("W26,AR","* * DEVOLUCAO * *")+CI_FEXP+spaces(02)
   else Print File ARQIMP ""+Spaces(54)
endif
Print File ARQIMP Chr(27)+Chr(72)
Print File ARQIMP "Operacao: "
Print File ARQIMP Chr(27)+Chr(71)
Print File ARQIMP ""+[Codigo da Destinacao]
if [Tipo Movimento Estoque]="E" and Search("DEVOL",[Descricao da Destinacao])>0
   then Print File ARQIMP ""+CI_IEXP+Format("W26,AR","* * DEVOLUCAO * *")+CI_FEXP
   else Print File ARQIMP ""+Spaces(54)
endif
Print File ARQIMP Chr(27)+Chr(72)+"\n"

Print File ARQIMP "Vendedor: "+Format("W05,AL",[Codigo do Representante])
Print File ARQIMP Format("W32,AL",[Nome Fantasia Represent])
Print File ARQIMP Format("W18,AL","Placa: "+[Placa do Veiculo])+Spaces(02)

Print File ARQIMP "Vendedor: "+Format("W05,AL",[Codigo do Representante])
Print File ARQIMP Format("W32,AL",[Nome Fantasia Represent])
Print File ARQIMP Format("W18,AL","Placa: "+[Placa do Veiculo])+"\n"

;********************* IMPRESSAO DOS ITENS ********************************
Print File ARQIMP "-----------------------------------------------------------------"+Spaces(02)
Print File ARQIMP "-----------------------------------------------------------------"+"\n"
Print File ARQIMP "Item                               Un   Quant Unitario      Total"+Spaces(02)
Print File ARQIMP "Item                               Un   Quant Unitario      Total"+"\n"
Print File ARQIMP "-----------------------------------------------------------------"+Spaces(02)
Print File ARQIMP "-----------------------------------------------------------------"+"\n"

CONTADOR = 0

Moveto "FaturaI"

EndProc ;Cabecalho()

;*******************************************************************************
;* Rotina para Impressao do Relatorio: Itens                                   *
;*******************************************************************************
Proc IMPFAT()

Cabecalho()

Moveto "FaturaI"
Moveto [Numero da OF]
Locate [FaturaC->Numero da OF]
While ([Numero da OF]=[FaturaC->Numero da OF])
  If CONTADOR>55
      Then 
           Rodape("")
           Cabecalho()
  EndIf
  CONTADOR = CONTADOR + 1
          
  For CON From 1 to 2
    Print File ARQIMP Format("W10,AL",[Codigo do Item])
    Print File ARQIMP Spaces(01)+Format("W23,AL",[Descricao do Item])
    Print File ARQIMP Spaces(01)+Format("W03,Al",[Unidade Fiscal])
    Print File ARQIMP Format("W07.2,EIC",[Quantidade])    
    Print File ARQIMP Format("W09.2,EIC",[Preco Unitario])
    Print File ARQIMP Format("W11.2,EIC",[Preco Total])+Spaces(02)                  
  EndFor
  Print File ARQIMP "\n"
  Skip
  If EOT() Then QuitLoop EndIf

EndWhile

For ITEM From CONTADOR To 12
    Print File ARQIMP "\n"
EndFor

Rodape("Fim")

EndProc

;*******************************************************************************
;* Rotina para Impressao do Relatorio: Rodap‚                                  *
;*******************************************************************************
Proc Rodape(PARAM)
private s,s1,s2,s3

Moveto "FaturaC"

switch
  case PARAM="Fim":

    s=Tira_QuebraLinha([FaturaC->Observacao na Nota Fiscal])
    s1=substr(s,01,30)
    s2=substr(s,31,30)
    s3=substr(s,61,30)
  
    Print File ARQIMP "-----------------------------------------------------------------"+Spaces(02)
    Print File ARQIMP "-----------------------------------------------------------------"+"\n"
    
    Print File ARQIMP CI_INEG+Format("W34,AL",s1)+CI_FNEG+"Total.............."+Format("W12.2,EIC",[Valor Mercadoria])+Spaces(02)
    Print File ARQIMP CI_INEG+Format("W34,AL",s1)+CI_FNEG+"Total.............."+Format("W12.2,EIC",[Valor Mercadoria])+"\n"
    
    Print File ARQIMP CI_INEG+Format("W34,AL",s2)+CI_FNEG+"Desconto"+Format("W06.2,EIC",[Taxa de Desconto])+ "%...."+Format("W12.2,EIC",[Valor Desconto])+Spaces(02)
    Print File ARQIMP CI_INEG+Format("W34,AL",s2)+CI_FNEG+"Desconto"+Format("W06.2,EIC",[Taxa de Desconto])+ "%...."+Format("W12.2,EIC",[Valor Desconto])+"\n"
    
    Print File ARQIMP CI_INEG+Format("W34,AL",s3)+CI_FNEG+"Total Liquido......"+Format("W12.2,EIC",[Valor Mercadoria Liquido])+Spaces(02)
    Print File ARQIMP CI_INEG+Format("W34,AL",s3)+CI_FNEG+"Total Liquido......"+Format("W12.2,EIC",[Valor Mercadoria Liquido])+"\n\n"
    
    Print File ARQIMP Spaces(16)+"Ass: --------------------------------------------"+Spaces(02)
    Print File ARQIMP Spaces(16)+"Ass: --------------------------------------------"+"\n"
    
  Otherwise:

    Print File ARQIMP CI_INEG+Format("W65,AC","* *  *  CONTINUA NA PROXIMA FOLHA ==>")+Spaces(02)+
                              Format("W65,AC","* *  *  CONTINUA NA PROXIMA FOLHA ==>")+CI_FNEG+"\n"

endswitch

Print File ARQIMP "-----------------------------------------------------------------"+Spaces(02)
Print File ARQIMP "-----------------------------------------------------------------"+"\n"

Print File ARQIMP "\f"

EndProc

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
ArqImp=PrivDir()+"RO_0059.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf

AGUARDE("Imprimindo Romaneio -> "+NOTAFISC)
IMPFAT()
ImpriArq(ARQIMP)

Release Vars CONTADOR
Release Procs IMPFAT, Cabecalho, Rodape
LIMPAGUARDE()
