;** Rm_3102D *******************************************************************
;* Resumo de Vendas por Representante/Marca Ranking Pedidos                    *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 15/02/2021 por Bruno Carvalho             
;Ultima Alteracao: 15/02/2021 por Bruno Carvalho
;Motivo Alteracao: Ajustes p/ chamar filtro padrÆo *PRODUCAO\RM_0082* 

;*******************************************************************************
;* Rotina p/ Selecionar Registros                                              *
;*******************************************************************************
Proc RM_3102D_Seleciona()
ClearAll                  
                                                   
If IsTable("\\Sistemas\\Vendas\\"+Dir_Trab+"PedidoC") And
   IsTable("\\Sistemas\\Vendas\\"+Dir_Trab+"PedidoI")
   Then {Ask} TypeIn "\\Sistemas\\Cadastro\\Represen" Enter
        Moveto [Codigo do Representante] Example "crep"
        Moveto [Codigo da Gerencia     ] TypeIn "~VSDGGERENCIA.."
        
        {Ask} {\\Sistemas\\Vendas\\Destin}
        Moveto [Codigo da Destinacao  ] Example "cd"
        Moveto [Tipo Movimento Estoque] TypeIn "S"
        Moveto [Atualiza Pedidos      ] TypeIn "S"               
                                              
        {Ask} TypeIn "\\Sistemas\\Vendas\\"+Dir_Trab+"PedidoC" Enter
        Moveto [Numero do Pedido       ] Example "Pedido"
        Moveto [Codigo da Empresa      ] Check TypeIn "~VSDGEMPRESA2.."
        Moveto [Codigo do Representante] Check Example "crep" TypeIn ", ~VSDGREPRESEN.."
        Moveto [Nome Fantasia Represent] Check
        If VSDGCODMODELO="65"
           Then Moveto [Codigo                 ] Check 
                Moveto [Razao Social           ] Check
        EndIf        
        if VSDGOPDTPEEIR="1" Then Moveto [Data de Entrega ] TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM" endif
        If VSDGOPDTPEEIR="2" Then Moveto [Data de Emissao ] TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM" endif
        if VSDGOPDTPEEIR="3" Then Moveto [Data_Inclusao   ] TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM" endif
        Moveto [Codigo da Destinacao   ] Example "cd"
        Moveto [Descricao da Destinacao] TypeIn "..VEND.."
        Moveto [Situacao do Pedido     ]
        switch
          case VSDGSITUACAOPEDIDO="JUNTAR ABERTO+SUSPENSO"     : TypeIn "ABERTO or SUSPENSO"
          case VSDGSITUACAOPEDIDO="IGNORAR CANCELADO+SUSPENSO" : TypeIn "not CANCELADO, not SUSPENSO"
          case VSDGSITUACAOPEDIDO="IGNORAR CANCELADO"          : TypeIn "not CANCELADO"
          case VSDGSITUACAOPEDIDO<>"TODAS"                     : TypeIn "~VSDGSITUACAOPEDIDO.."
        endswitch         
        
        {Ask} TypeIn "\\Sistemas\\Vendas\\"+Dir_Trab+"PedidoI" Enter
        Moveto [Numero do Pedido       ] Example "Pedido"
        Moveto [Quantidade             ] TypeIn "Calc Sum as Quantidade"
        Moveto [Preco Total            ] TypeIn "Calc Sum as Preco Total"
        Moveto [Valor Desconto Total   ] TypeIn "Calc Sum as Valor Desconto Total"
        
        If Not IsBlank(VSDGMARCA) or
           Not IsBlank(VSDGFAMI)  or
           Not IsBlank(VSDGGRP)   Or
           Not IsBlank(VSDGREFERENCIA) 
           Then Moveto [Codigo do Item         ] Check Example "cite" TypeIn ", ~VSDGITEM.."
                {Ask} {\\Sistemas\\Estoque\\Itens}
                Moveto [Codigo do Item         ] Example "cite"
                Moveto [Codigo da Familia      ] TypeIn "~VSDGFAMI.."
                Moveto [Codigo do Grupo        ] TypeIn "~VSDGGRP.."
                Moveto [Codigo da Marca        ] TypeIn "~VSDGMARCA.."
                Moveto [Referencia             ] TypeIn "~VSDGREFERENCIA.."
           Else Moveto [Codigo do Item         ] Check TypeIn "~VSDGITEM.."      
        EndIf           
        Do_It!
        ClearAll        
        
        ;***** Rotina para PedidoI ******
        {Ask} {\\Sistemas\\Estoque\\Itens}
        Moveto [Codigo do Item         ] Example "Item"
        Moveto [Codigo da Marca        ] Check TypeIn "~VSDGMARCA.."
        Moveto [Descricao da Marca     ] Check
        {Ask} {Answer} Check
        Moveto [Codigo do Item         ] Example "Item"
        Do_It!
        ClearAll
EndIf

EndProc   ;RM_3102D_Seleciona()

;*******************************************************************************
;* Rotina adicionar dados na Db temporaria                                     *
;*******************************************************************************
Proc RM_3102D_Adiciona_Dados(PARAM)

If IsEmpty("Answer")
   Then Return
EndIf                                                                                                                            

{Ask} {Answer}
Moveto [Codigo da Empresa      ] Example "cemp"
Moveto [Codigo do Representante] Example "crep"
Moveto [Nome Fantasia Represent] Example "nrep"
If VSDGCODMODELO="27" Or VSDGCODMODELO="35" Or VSDGCODMODELO="65"   
   Then If VSDGCODMODELO="65"
           Then Moveto [Codigo                 ] Example "ccli" 
                Moveto [Razao Social           ] Example "ncli"
        EndIf
        Moveto [Codigo da Marca        ] Example "CodM"
        Moveto [Descricao da Marca     ] Example "DesM"
EndIf
Moveto [Quantidade             ] Example "qtde"
Moveto [Preco Total            ] Example "ptot"
Moveto [Valor Desconto Total   ] Example "vdes"
{Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
Moveto [Codigo da Empresa      ] Example "cemp"
Moveto [Codigo do Representante] Example "crep"
Moveto [Nome Fantasia Represent] Example "nrep"
Switch
  Case VSDGCODMODELO="27" Or VSDGCODMODELO="65" :
       If VSDGCODMODELO="65"
          Then Moveto [Codigo                 ] Example "ccli" 
               Moveto [Razao Social           ] Example "ncli"
        EndIf
       Moveto [Codigo da Marca        ] Example "CodM"
       Moveto [Descricao da Marca     ] Example "DesM"
       Moveto [Vendas_Quantidade      ] Example "qtde"
       Moveto [Vendas_Preco Total     ] Example "ptot"
  Case VSDGCODMODELO="35" Or VSDGCODMODELO="36" : 
       If VSDGCODMODELO="35"
          Then Moveto [Codigo da Marca        ] Example "CodM"
               Moveto [Descricao da Marca     ] Example "DesM"
       EndIf
       Switch
         Case PARAM="VENDAS":
              Moveto [Vendas_Quantidade      ] Example "qtde"
              Moveto [Vendas_Preco Total     ] Example "ptot" TypeIn"-" Example "vdes"
         Case PARAM="DEVOLUCOES":
              Moveto [Devolucoes_Quantidade  ] Example "qtde"
              Moveto [Devolucoes_Preco Total ] Example "ptot" TypeIn"-" Example "vdes"
       EndSwitch                 
EndSwitch
Do_It!
ClearAll

EndProc ;RM_3102D_Adiciona_Dados()
      
;*******************************************************************************
;* Rotina p/ processar Db temporaria                                           *
;*******************************************************************************
Proc RM_3102D_Processa()

;***** Ajusta Dados *************************************
If VSDGEMPRESA="0000"                                                              
   Then {Ask} TypeIn Tabela Enter TypeIn "Fast"
        Moveto [Codigo da Empresa      ] TypeIn "changeto 0000"
        Moveto [Nome Fantasia Empresa  ] TypeIn "changeto TOTALIZA EMPRESAS"
        Do_It!
        ClearAll
   Else {Ask} {\\Sistemas\\Cadastro\\Empresas}
        Moveto [Codigo da Empresa      ] Example "cemp"
        Moveto [Nome Fantasia Empresa  ] Example "nemp"
        {Ask} TypeIn Tabela Enter TypeIn "Fast"
        Moveto [Codigo da Empresa      ] Example "cemp"
        Moveto [Nome Fantasia Empresa  ] TypeIn "changeto _nemp"
        Do_It!
        ClearAll
EndIf

{Ask} TypeIn "\\Sistemas\\Cadastro\\Represen" Enter
Moveto [Codigo do Representante] TypeIn "_Rep"
Moveto [Nome Fantasia Represent] TypeIn "_Nome"
{Ask} TypeIn Tabela Enter Check
Moveto [Codigo do Representante] TypeIn "_Rep"
Moveto [Nome Fantasia Represent] TypeIn "Changeto _Nome"
Do_It!
ClearAll 
               
Switch               
  Case VSDGCODMODELO="27" : 
       ;***** Totaliza Dados ***********************************
       {Ask} TypeIn Tabela Enter Check
       Moveto [Vendas_Quantidade      ] Check TypeIn "Calc Sum as VendasQuantidade"
       Moveto [Vendas_Embalagem       ] Check TypeIn "Calc Sum as VendasEmbalagem"
       Moveto [Vendas_Preco Total     ] Check TypeIn "Calc Sum as VendasPreco"
       Moveto [Devolucoes_Quantidade  ] Check TypeIn "Calc Sum as DevolucoesQuantidade"
       Moveto [Devolucoes_Preco Total ] Check TypeIn "Calc Sum as DevolucoesPreco"
       Do_It!
       ClearAll
       
       Empty Tabela
       Add "Answer" Tabela
       ClearAll
        
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Vendas_Embalagem          ] TypeIn "<=0, changeto blank"
       Moveto [Unidade Embalagem         ] TypeIn "changeto Blank"
       Do_It!
       ClearAll
        
       ;***** Totaliza Empresa *********************************
       {Ask} TypeIn Tabela Enter
       Moveto [Codigo da Empresa      ] Check
       Moveto [Vendas_Preco Total     ] TypeIn "Calc Sum as VendasPreco"
       Do_It!
       ClearAll
       
       {Ask} {Answer}
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [VendasPreco            ] Example "vp"
        
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Total_Vendas_Empresa   ] TypeIn "changeto _vp"
       Do_It!
       ClearAll
        
       ;***** Totaliza Representante ****************************
      {Ask} TypeIn Tabela Enter
       Moveto [Codigo da Empresa      ] Check
       Moveto [Codigo do Representante] Check
       Moveto [Vendas_Preco Total     ] TypeIn "Calc Sum as VendasPreco"
       Do_It!
       ClearAll
        
       {Ask} {Answer}
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo do Representante] Example "crep"
       Moveto [VendasPreco            ] Example "vp"
        
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo do Representante] Example "crep"
       Moveto [Total_Vendas_Represent ] TypeIn "changeto _vp"
       Do_It!
       ClearAll
        
       ;***** Totaliza Marca ************************************
       {Ask} TypeIn Tabela Enter
       Moveto [Codigo da Empresa      ] Check
       Moveto [Codigo do Representante] Check
       Moveto [Codigo da Marca        ] Check
       Moveto [Vendas_Preco Total     ] TypeIn "Calc Sum as VendasPreco"
       Do_It!
       ClearAll
       
       {Ask} {Answer}
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo do Representante] Example "crep"
       Moveto [Codigo da Marca        ] Example "cmar"
       Moveto [VendasPreco            ] Example "vp"
      
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo do Representante] Example "crep"
       Moveto [Codigo da Marca        ] Example "cmar"
       Moveto [Total_Vendas_Marca     ] TypeIn "changeto _vp"
       Do_It!
       ClearAll

  Case VSDGCODMODELO="35" :
       ;***** Totaliza Dados ************************************
       {Ask} TypeIn Tabela Enter Check
       Moveto [Vendas_Quantidade      ] Check TypeIn "Calc Sum as VendasQuantidade"
       Moveto [Vendas_Embalagem       ] Check TypeIn "Calc Sum as VendasEmbalagem"
       Moveto [Vendas_Preco Total     ] Check TypeIn "Calc Sum as VendasPreco"
       Moveto [Devolucoes_Quantidade  ] Check TypeIn "Calc Sum as DevolucoesQuantidade"
       Moveto [Devolucoes_Preco Total ] Check TypeIn "Calc Sum as DevolucoesPreco"
       Do_It!
       ClearAll
      
       Empty Tabela
       Add "Answer" Tabela
       ClearAll
      
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Vendas_Embalagem          ] TypeIn "<=0, changeto blank"
       Moveto [Unidade Embalagem         ] TypeIn "changeto Blank"
       Do_It!
       ClearAll
      
       ;***** Totaliza Empresa **********************************
       {Ask} TypeIn Tabela Enter
       Moveto [Codigo da Empresa      ] Check
       Moveto [Vendas_Preco Total     ] TypeIn "Calc Sum as VendasPreco"
       Do_It!
       ClearAll
      
       {Ask} {Answer}
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [VendasPreco            ] Example "vp"
       {Ask} TypeIn Tabela Enter TypeIn "Fast"  
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Total_Vendas_Empresa   ] TypeIn "changeto _vp"
       Do_It!
       ClearAll
      
       ;***** Totaliza Marca ************************************
       {Ask} TypeIn Tabela Enter
       Moveto [Codigo da Empresa      ] Check
       Moveto [Codigo da Marca        ] Check
       Moveto [Vendas_Preco Total     ] TypeIn "Calc Sum as VendasPreco"
       Do_It!
       ClearAll
      
       {Ask} {Answer}
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo da Marca        ] Example "cmar"
       Moveto [VendasPreco            ] Example "vp"
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo da Marca        ] Example "cmar"
       Moveto [Total_Vendas_Marca     ] TypeIn "changeto _vp"
       Do_It!
       ClearAll
      
       ;***** Totaliza Representante ****************************
       {Ask} TypeIn Tabela Enter
       Moveto [Codigo da Empresa      ] Check
       Moveto [Codigo da Marca        ] Check
       Moveto [Codigo do Representante] Check
       Moveto [Vendas_Preco Total     ] TypeIn "Calc Sum as VendasPreco"
       Do_It!
       ClearAll
      
       {Ask} {Answer}
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo da Marca        ] Example "cmar"
       Moveto [Codigo do Representante] Example "crep"
       Moveto [VendasPreco            ] Example "vp"
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo da Marca        ] Example "cmar"
       Moveto [Codigo do Representante] Example "crep"
       Moveto [Total_Vendas_Represent ] TypeIn "changeto _vp"
       Do_It!
       ClearAll
       
  Case VSDGCODMODELO="36" :
       ;***** Totaliza Dados ***********************************
       {Ask} TypeIn Tabela Enter Check
       Moveto [Vendas_Quantidade      ] Check TypeIn "Calc Sum as VendasQuantidade"
       Moveto [Vendas_Embalagem       ] Check TypeIn "Calc Sum as VendasEmbalagem"
       Moveto [Vendas_Preco Total     ] Check TypeIn "Calc Sum as VendasPreco"
       Moveto [Devolucoes_Quantidade  ] Check TypeIn "Calc Sum as DevolucoesQuantidade"
       Moveto [Devolucoes_Preco Total ] Check TypeIn "Calc Sum as DevolucoesPreco"
       Do_It!
       ClearAll
        
       Empty Tabela
       Add "Answer" Tabela
       ClearAll
        
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Vendas_Embalagem          ] TypeIn "<=0, changeto blank"
       Moveto [Unidade Embalagem         ] TypeIn "changeto Blank"
       Do_It!
       ClearAll
       
       ;***** Totaliza Empresa *********************************
       {Ask} TypeIn Tabela Enter
       Moveto [Codigo da Empresa      ] Check
       Moveto [Vendas_Preco Total     ] TypeIn "Calc Sum as VendasPreco"
       Do_It!
       ClearAll
        
       {Ask} {Answer}
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [VendasPreco            ] Example "vp"
       
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Total_Vendas_Empresa   ] TypeIn "changeto _vp"
       Do_It!
       ClearAll
        
       ;***** Totaliza Representante ****************************
       {Ask} TypeIn Tabela Enter
       Moveto [Codigo da Empresa      ] Check
       Moveto [Codigo do Representante] Check
       Moveto [Vendas_Preco Total     ] TypeIn "Calc Sum as VendasPreco"
       Do_It!
       ClearAll
        
       {Ask} {Answer}
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo do Representante] Example "crep"
       Moveto [VendasPreco            ] Example "vp"
       
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo do Representante] Example "crep"
       Moveto [Total_Vendas_Represent ] TypeIn "changeto _vp"
       Do_It!
       ClearAll
  
  Case VSDGCODMODELO="65" : 
       ;***** Totaliza Dados ***********************************
       {Ask} TypeIn Tabela Enter 
       Moveto [Codigo da Empresa      ] check
       Moveto [Nome Fantasia Empresa  ] check
       Moveto [Codigo do Representante] check
       Moveto [Nome Fantasia Represent] check
       Moveto [Codigo                 ] check 
       Moveto [Razao Social           ] check 
       Moveto [Total_Vendas_Empresa   ] check
       Moveto [Total_Vendas_Represent ] check
       Moveto [Vendas_Quantidade      ]       TypeIn "Calc Sum as \"Vendas_Quantidade\""
       Moveto [Vendas_Embalagem       ]       TypeIn "Calc Sum as \"Vendas_Embalagem\""
       Moveto [Vendas_Preco Total     ]       TypeIn "Calc Sum as \"Vendas_Preco Total\""
       Do_It!
       ClearAll
       
       Delete Tabela
       
       Tabela =Cria_Temp(PrivDir())
       Rename "Answer" Tabela        
       ClearAll
        
       ;***** Totaliza Empresa *********************************
       {Ask} TypeIn Tabela Enter
       Moveto [Codigo da Empresa      ] Check
       Moveto [Vendas_Preco Total     ] TypeIn "Calc Sum as VendasPreco"
       Do_It!
       ClearAll
        
       {Ask} {Answer}
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [VendasPreco            ] Example "vp"
        
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Total_Vendas_Empresa   ] TypeIn "changeto _vp"
       Do_It!
       ClearAll
        
       ;***** Totaliza Representante ****************************
        {Ask} TypeIn Tabela Enter
       Moveto [Codigo da Empresa      ] Check
       Moveto [Codigo do Representante] Check
       Moveto [Vendas_Preco Total     ] TypeIn "Calc Sum as VendasPreco"
       Do_It!
       ClearAll
        
       {Ask} {Answer}
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo do Representante] Example "crep"
       Moveto [VendasPreco            ] Example "vp"
       
       {Ask} TypeIn Tabela Enter TypeIn "Fast"
       Moveto [Codigo da Empresa      ] Example "cemp"
       Moveto [Codigo do Representante] Example "crep"
       Moveto [Total_Vendas_Represent ] TypeIn "changeto _vp"
       Do_It!
       ClearAll
EndSwitch

EndProc  ;  (RM_3102D_Processa)

;*******************************************************************************
;* Rotina ara Ajustar os Dados                                                 *
;*******************************************************************************
Proc RM_3102D_Ajusta_Dados()                                                                             

Tabela2=Cria_Temp(PrivDir())
Copy "\\Base\\Sistemas\\Vendas\\RM_3113" Tabela2

{Ask} TypeIn Tabela Enter                         
Moveto [Codigo da Empresa      ] Example "CodE"
Moveto [Nome Fantasia Empresa  ] Example "NFEm" 
Moveto [Codigo do Representante] Example "CodR" 
Moveto [Nome Fantasia Represent] Example "NomR" 
Moveto [Codigo da Marca        ] Example "CodM" 
Moveto [Descricao da Marca     ] Example "DesM" 
Moveto [Vendas_Quantidade      ] Example "VQtd" 
Moveto [Unidade Fiscal         ] Example "UFis" 
Moveto [Vendas_Embalagem       ] Example "VEmb" 
Moveto [Unidade Embalagem      ] Example "UEmb" 
Moveto [Vendas_Preco Total     ] Example "VPTo"  
Moveto [Total_Vendas_Represent ] Example "TotR"             
Moveto [Total_Vendas_Empresa   ] Example "TotE"
{Ask} TypeIn Tabela2 Enter TypeIn "Insert" Enter
Moveto [Codigo da Empresa      ] Example "CodE"
Moveto [Nome Fantasia Empresa  ] Example "NFEm" 
Moveto [Codigo do Representante] Example "CodR" 
Moveto [Nome Fantasia Represent] Example "NomR" 
Moveto [Codigo da Marca        ] Example "CodM" 
Moveto [Descricao da Marca     ] Example "DesM" 
Moveto [Vendas Quantidade      ] Example "VQtd" 
Moveto [Unidade Fiscal         ] Example "UFis" 
Moveto [Vendas Embalagem       ] Example "VEmb" 
Moveto [Unidade Embalagem      ] Example "UEmb" 
Moveto [Vendas Preco Total     ] Example "VPTo"  
Moveto [Total Vendas Represent ] Example "TotR"             
Moveto [Total Vendas Empresa   ] Example "TotE"    
Do_It!
ClearAll  
  
Rename Tabela2 Tabela

EndProc ;RM_3102D_Ajusta_Dados()

;*******************************************************************************
;* ROTINA PRINCIPAL                                                            *
;*******************************************************************************
AGUARDE("Aguarde, gerando o relat¢rio")

While True
  Tabela=Cria_Temp(PrivDir())
  Monta_Dir_Trab(VSDGDTINI,VSDGDTFIM)
  While Novo_Dir_Trab()
    If IsTable("Answer") Then Delete "Answer" EndIf
    RM_3102D_Seleciona()
    If Not IsTable("Answer") Then Loop EndIf
    If IsTable(Tabela)
       Then Add "Answer" Tabela
       Else Rename "Answer" Tabela
    EndIf
  EndWhile
  
  If IsEmpty(Tabela)
     Then MENSAGEM("N„o existem registros a processar")
          Delete Tabela
          Return 
  EndIf  
  Rename Tabela "Answer"
  
  Tabela=Cria_Temp(PrivDir())
  Empty "\\Base\\Sistemas\\Vendas\\RM_3106"
  Copy "\\Base\\Sistemas\\Vendas\\RM_3106" Tabela  

  Switch
    Case VSDGCODMODELO="35" Or  
         VSDGCODMODELO="36"  : RM_3102D_Adiciona_Dados("VENDAS")                ;35 e 36   
    OtherWise                : RM_3102D_Adiciona_Dados("")                      ;27 e 65
  EndSwitch  
  RM_3102D_Processa()  
  
  If VSDGCODMODELO="27" 
     Then RM_3102D_Ajusta_Dados()
  EndIf   
  
  PARAM_RELATORIO=""
  Switch
    Case VSDGCODMODELO="27"  : ;RM_3102
         Switch
           Case VSDGOPRELCODALF="1" : Seta_Ordem_Report(Tabela,"R","Codigo do Representante","Codigo do Representante","")
           Case VSDGOPRELCODALF="2" : Seta_Ordem_Report(Tabela,"R","Codigo do Representante","Nome Fantasia Represent","")
           Case VSDGOPRELCODALF="3" : Seta_Ordem_Report(Tabela,"R","Codigo do Representante","Vendas Quantidade","")
           Case VSDGOPRELCODALF="4" : Seta_Ordem_Report(Tabela,"R","Codigo do Representante","Vendas Preco Total","D")                               
         EndSwitch
         PARAM_RELATORIO = "R"
    Case VSDGCODMODELO="35"  : ;RM_3102A
         Switch
           Case VSDGOPRELCODALF="1" : Seta_Ordem_Report(Tabela,"6","Codigo do Representante","Codigo do Representante","")
           Case VSDGOPRELCODALF="2" : Seta_Ordem_Report(Tabela,"6","Codigo do Representante","Nome Fantasia Represent","")
           Case VSDGOPRELCODALF="3" : Seta_Ordem_Report(Tabela,"6","Codigo do Representante","Vendas_Quantidade","")
           Case VSDGOPRELCODALF="4" : Seta_Ordem_Report(Tabela,"6","Codigo do Representante","Vendas_Preco Total","D")                               
         EndSwitch
         PARAM_RELATORIO = "6"
    Case VSDGCODMODELO="36"  : ;RM_3102B
         Switch
           Case VSDGOPRELCODALF="1" : Seta_Ordem_Report(Tabela,"8","Codigo do Representante","Codigo do Representante","")
           Case VSDGOPRELCODALF="2" : Seta_Ordem_Report(Tabela,"8","Codigo do Representante","Nome Fantasia Represent","")
           Case VSDGOPRELCODALF="3" : Seta_Ordem_Report(Tabela,"8","Codigo do Representante","Vendas_Quantidade","")
           Case VSDGOPRELCODALF="4" : Seta_Ordem_Report(Tabela,"8","Codigo do Representante","Vendas_Preco Total","D")                               
         EndSwitch
         PARAM_RELATORIO = "8"    
    Case VSDGCODMODELO="65"  : ;RM_3103
         CopyReport "\\Base\\Sistemas\\Vendas\\RM_3106" "11" Tabela "R"  
         Switch
           Case VSDGOPRELCODALF="1" : Seta_Ordem_Report(Tabela,"R","Codigo","Codigo"            ,"" )
           Case VSDGOPRELCODALF="2" : Seta_Ordem_Report(Tabela,"R","Codigo","Razao Social"      ,"" )
           Case VSDGOPRELCODALF="3" : Seta_Ordem_Report(Tabela,"R","Codigo","Vendas_Quantidade" ,"" )
           Case VSDGOPRELCODALF="4" : Seta_Ordem_Report(Tabela,"R","Codigo","Vendas_Preco Total","D")                               
         EndSwitch
         PARAM_RELATORIO = "R"     
  EndSwitch
  IMPRIREL(Tabela,PARAM_RELATORIO)
  Delete Tabela
  QuitLoop
EndWhile
ClearAll

Release Vars RM_3102D_Seleciona,RM_3102D_Adiciona_Dados,RM_3102D_Processa,RM_3102D_Ajusta_Dados    