;** P_Pedido *******************************************************************
;*  Configuracao de Paramentos p/ Pedido                                       *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 21/08/2000 por Douglas Rodrigues
;Ultima Alteracao: 24/05/2006 por Anivel Augusto Rodrigues
;Motivo Alteracao: ALTERA_COMISSAO com permissao
;Ultima Alteracao: 05/11/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Controle Descto Unitario/Total
;Ultima Alteracao: 05/08/2008 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao Impressao Pedido Grade
;Ultima Alteracao: 17/06/2011 por Karina Andrade
;Motivo Alteracao: Ajustes TECLAS
;Ultima Alteracao: 18/07/2011 por Karina Andrade
;Motivo Alteracao: Add controle qtdade expedida e inclusao de item  - ExpediC
;Ultima Alteracao: 14/02/2012 por Bruno Carvalho
;Motivo Alteracao: Add "Utiliza CP e FP conforme cliente" e "Altera Pedido PosImpresso"
;Ultima Alteracao: 23/10/2012 por Bruno Carvalho
;Motivo Alteracao: Adicionado campos "Exibe_Custo_Item_Consulta"
;Ultima Alteracao: 06/12/2012 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Usa Cor: Sim/NĆo/Destacar 
;Ultima Alteracao: 03/03/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes tirar sombra janela e layout
;Ultima Alteracao: 09/11/2016 por Bruno Carvalho
;Motivo Alteracao: Adicionado VSD_DADOS_ITEM_RESUMO p/ perimitir digita‡Ćo dos itens de forma mais resumida
;Ultima Alteracao: 27/07/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes nĆo usar condi‡Ćo pagamento por item

;*******************************************************************************
;* Rotina de Controle de Parametros                                            *
;*******************************************************************************
Proc PARAM_DIALOG(Disparo,Campo,Evento,Elemento)
Temp=True

TECLA   =""
MSGCAMPO=""
If INICIO_DIALOGO
   Then INICIO_DIALOGO=False
EndIf

If Disparo="OPEN"
   Then AoCriarShowDialog()
        TiraSombraShowDialog()
EndIf

If Disparo="EVENT" And DynArraySize(Evento)>0 And Evento["Type"]="KEY" Then
   Switch
       Case (Evento["KeyCode"] = -6 Or Evento["KeyCode"] = -147):
            If CHAVE=0
               Then Confirma()
                    If OK="S"
                       Then Del
                            PARAM_OPCAO("Inicio")
                            Campo="I_EMPRESA"
                    EndIf
            EndIf
       Case Evento["KeyCode"] = 9:
            Temp=False
       Case Evento["KeyCode"] = -59:
            If Campo="I_EMPRESA" Or
               Campo="I_DESTINACAO" Or
               Campo="I_TABELA_PRECO" Or
               Campo="I_TRANSPORTADORA" Or
               Campo="I_FORMA_PAGTO"
               Then
                    Dynarray WinArray5[]
                    Window Handle Dialog to JANELA
                    Window GetAttributes JANELA To WinArray5
                    WinArray5["FLOATING"]=False
                    Window SetAttributes JANELA From WinArray5

                    If Campo="I_EMPRESA"        Then Moveto [Codigo_Empresa       ] EndIf
                    If Campo="I_DESTINACAO"     Then Moveto [Codigo_Destinacao    ] EndIf
                    If Campo="I_TABELA_PRECO"   Then Moveto [Tabela_Preco         ] EndIf
                    If Campo="I_TRANSPORTADORA" Then Moveto [Codigo_Transportadora] EndIf
                    If Campo="I_FORMA_PAGTO"    Then Moveto [Codigo_Forma_Pagto   ] EndIf
                    ConsultaF1()

                    Window Select JANELA
                    WinArray5["FLOATING"]=True
                    Window SetAttributes JANELA From WinArray5

                    echo Normal
                    echo off

                    Switch
                      Case Campo="I_EMPRESA":
                           VSD_EMPRESA=[Codigo_Empresa]
                      Case Campo="I_DESTINACAO":
                           VSD_DESTINACAO=[Codigo_Destinacao]
                      Case Campo="I_TABELA_PRECO":
                           VSD_TABELA_PRECO=[Tabela_Preco]
                      Case Campo="I_TRANSPORTADORA":
                           VSD_TRANSPORTADORA=[Codigo_Transportadora]
                      Case Campo="I_FORMA_PAGTO":
                           VSD_FORMA_PAGTO=[Codigo_Forma_Pagto]
                    EndSwitch
           EndIf
      Case Evento["KeyCode"] = 27:
           Switch
             Case Campo="I_EMPRESA"             :
                  If IsBlank([Codigo_Empresa])
                     Then Del
                  EndIf
                  Home
                  If IsBlank([Codigo_Empresa])
                     Then Del
                  EndIf
                  CancelDialog
             Case Campo="I_DESTINACAO"          :
                  If Chave=1
                     Then Moveto [Codigo_Empresa]
                          Locate VSD_EMPRESA
                          Del
                  EndIf
                  PARAM_OPCAO("Inicio")
                  Campo="I_EMPRESA"
             Case Campo="I_TABELA_PRECO"      : Campo= "I_DESTINACAO"
             Case Campo="I_TRANSPORTADORA"    : Campo= "I_TABELA_PRECO"
             Case Campo="I_FORMA_PAGTO"       : Campo= "I_TRANSPORTADORA"
             Case Campo="I_DATAS_VENCTOS"     : Campo= "I_FORMA_PAGTO"
             Case Campo="I_COR_TECIDO"        : Campo= "I_DATAS_VENCTOS"
             Case Campo="I_TAMANHO"           : Campo= "I_COR_TECIDO"
             Case Campo="I_VOLUMES"           : Campo= "I_TAMANHO"
             Case Campo="I_SUBSTICMS"         : Campo= "I_VOLUMES"
             Case Campo="I_IMPOSTOS"          : Campo= "I_SUBSTICMS"
             Case Campo="I_CALCIMPOSTOS"      : Campo= "I_IMPOSTOS"
             Case Campo="I_VISITA"            : Campo= "I_CALCIMPOSTOS"

             Case Campo="I_DESCTO"            : Campo= "I_VISITA"
             Case Campo="I_TPDESCTO"          : Campo="I_DESCTO"
             Case Campo="I_TXDESCTO"          : Campo="I_TPDESCTO"

             Case Campo="I_DESCUNIT"          : Campo="I_DESCTO"
             Case Campo="I_DESCTOUNIT"        : Campo="I_DESCUNIT"
             Case Campo="I_TPDESCTOUNIT"      : Campo="I_DESCTOUNIT"
             Case Campo="I_TXDESCTOUNIT"      : Campo="I_TPDESCTOUNIT"

             Case Campo="I_COMIS_ITEM"        : Campo="I_DESCUNIT"
             Case Campo="I_COMIS_MARCA"       : Campo= "I_COMIS_ITEM"
             Case Campo="I_TABPR_ITEM"        : Campo= "I_COMIS_MARCA"
             Case Campo="I_CPGTO_ITEM"        : Campo= "I_TABPR_ITEM"
             Case Campo="I_COMIS_VENCTO"      : Campo="I_CPGTO_ITEM"
             Case Campo="I_EXIBE_CUSTO"       : Campo="I_COMIS_VENCTO"
             Case Campo="I_TABPR_CLIENTE"     : Campo="I_EXIBE_CUSTO"
             Case Campo="I_TABPR_REPRES"      : Campo="I_TABPR_CLIENTE"
             Case Campo="I_TABPR_CPAGTO"      : Campo="I_TABPR_REPRES"
             Case Campo="I_ALTERA_PRECO"      : Campo="I_TABPR_CPAGTO"
             Case Campo="I_EXPEDICQTDE"       : Campo="I_ALTERA_PRECO"
             Case Campo="I_EXPEDICITEM"       : Campo="I_EXPEDICQTDE"
             Case Campo="I_CONDPAGTO"         : Campo="I_EXPEDICITEM"
             Case Campo="I_PEDIDOIMP"         : Campo="I_CONDPAGTO"
             Case Campo="I_DADOS_ITEM_RESUMO" : Campo="I_PEDIDOIMP"
             Case Campo="I_IMPRESSAO"         : Campo="I_DADOS_ITEM_RESUMO"
             Case Campo="I_IMPRESSAOS"        : Campo="I_IMPRESSAO"
             Case Campo="I_IMPRESSAOG"        : Campo="I_IMPRESSAOS"
             Case Campo="I_IMPRESSAOGS"       : Campo="I_IMPRESSAOG"
             Case Campo="I_IMPRESSAOGS"       : Campo="I_IMPRESSAOG"
           EndSwitch

      Case Evento["KeyCode"] = 13:
           Switch
             Case Campo="I_EMPRESA":
                  VSD_EMPRESA=ControlValue("I_EMPRESA")
                  If Not IsBlank(VSD_EMPRESA)
                     Then VSD_EMPRESA=Alinhm(VSD_EMPRESA,4)
                          Moveto [Codigo_Empresa]
                          Ativa_Lookup()
                          Locate VSD_EMPRESA
                          If Not RetVal
                             Then Mensagem("Codigo n„o Cadastrado !")
                                  KeyPress "ESC"
                             Else VSD_EMPRESA=[Codigo da Empresa]
                                  KeyPress "ESC"
                                  Chave()
                                  Campo="I_DESTINACAO"
                          EndIf
                  EndIf
             Case Campo="I_DESTINACAO":
                  VSD_DESTINACAO=ControlValue("I_DESTINACAO")
                  If Not IsBlank(VSD_DESTINACAO)
                     Then VSD_DESTINACAO=AlinhM(VSD_DESTINACAO,3)
                          Moveto [Codigo_Destinacao]
                          Ativa_Lookup()
                          Moveto [Codigo da Destinacao]
                          Locate VSD_DESTINACAO
                          If RetVal
                             Then Campo= "I_TABELA_PRECO"
                             Else Mensagem("Destina‡„o n„o Cadastrada !")
                                  VSD_DESTINACAO=""
                          EndIf
                          KeyPress "ESC"
                     Else Campo= "I_TABELA_PRECO"
                  EndIf
             Case Campo="I_TABELA_PRECO":
                  VSD_TABELA_PRECO=ControlValue("I_TABELA_PRECO")
                  If Not IsBlank(VSD_TABELA_PRECO)
                     Then Moveto [Tabela_Preco]
                          Ativa_Lookup()
                          Moveto [Codigo da Tabela]
                          Locate VSD_TABELA_PRECO
                          If RetVal
                             Then Campo= "I_TRANSPORTADORA"
                             Else Mensagem("Tabela de Pre‡o n„o Cadastrada !")
                                  VSD_TABELA_PRECO=""
                          EndIf
                          KeyPress "ESC"
                     Else Campo= "I_TRANSPORTADORA"
                  EndIf
             Case Campo="I_TRANSPORTADORA":
                  VSD_TRANSPORTADORA=ControlValue("I_TRANSPORTADORA")
                  If Not IsBlank(VSD_TRANSPORTADORA)
                     Then VSD_TRANSPORTADORA=Alinhm(VSD_TRANSPORTADORA,4)
                          Moveto [Codigo_Transportadora]
                          Ativa_Lookup()
                          Moveto [Codigo da Transportadora]
                          Locate VSD_TRANSPORTADORA
                          If RetVal
                             Then Campo= "I_FORMA_PAGTO"
                             Else Mensagem("Transportadora n„o Cadastrada !")
                                  VSD_TRANSPORTADORA=""
                          EndIf
                          KeyPress "ESC"
                     Else Campo= "I_DATAS_VENCTOS"
                  EndIf
             Case Campo="I_FORMA_PAGTO":
                  VSD_FORMA_PAGTO=ControlValue("I_FORMA_PAGTO")
                  If Not IsBlank(VSD_FORMA_PAGTO)
                     Then VSD_FORMA_PAGTO=Alinhm(VSD_FORMA_PAGTO,2)
                          Moveto [Codigo_Forma_Pagto]
                          Ativa_Lookup()
                          Moveto [Tipo do Pagamento]
                          Locate VSD_FORMA_PAGTO
                          If RetVal
                             Then Campo= "I_DATAS_VENCTOS"
                             Else Mensagem("Forma de Pagamento nĆo Cadastrada!")
                                  VSD_FORMA_PAGTO=""
                          EndIf
                          KeyPress "ESC"
                     Else Campo= "I_DATAS_VENCTOS"
                  EndIf
             Case Campo="I_DATAS_VENCTOS":
                  VSD_DATAS_VENCTOS=ControlValue("I_DATAS_VENCTOS")
                  If IsBlank(VSD_DATAS_VENCTOS)
                     Then VSD_DATAS_VENCTOS="C"
                  EndIf
                  Campo= "I_COR_TECIDO"
             Case Campo="I_COR_TECIDO":
                  VSD_COR_TECIDO=ControlValue("I_COR_TECIDO")
                  If IsBlank(VSD_COR_TECIDO)
                     Then VSD_COR_TECIDO="N"
                  EndIf
                  Campo= "I_TAMANHO"
             Case Campo="I_TAMANHO":
                  VSD_TAMANHO=ControlValue("I_TAMANHO")
                  If IsBlank(VSD_TAMANHO)
                     Then VSD_TAMANHO="N"
                  EndIf
                  Campo= "I_VOLUMES"
             Case Campo="I_VOLUMES":
                  VSD_VOLUMES=ControlValue("I_VOLUMES")
                  If IsBlank(VSD_VOLUMES)
                     Then VSD_VOLUMES="N"
                  EndIf
                  Campo= "I_SUBSTICMS"
             Case Campo="I_SUBSTICMS":
                  VSD_SUBSTICMS=ControlValue("I_SUBSTICMS")
                  If IsBlank(VSD_SUBSTICMS)
                     Then VSD_SUBSTICMS="N"
                  EndIf
                  Campo= "I_IMPOSTOS"
             Case Campo="I_IMPOSTOS":
                  VSD_IMPOSTOS=ControlValue("I_IMPOSTOS")
                  If IsBlank(VSD_IMPOSTOS)
                     Then VSD_IMPOSTOS="S"
                  EndIf
                  Campo= "I_CALCIMPOSTOS"
             Case Campo="I_CALCIMPOSTOS":
                  VSD_CALCIMPOSTOS=ControlValue("I_CALCIMPOSTOS")
                  If IsBlank(VSD_CALCIMPOSTOS)
                     Then VSD_CALCIMPOSTOS="S"
                  EndIf
                  Campo= "I_VISITA"
             Case Campo="I_VISITA":
                  VSD_VISITA=ControlValue("I_VISITA")
                  If IsBlank(VSD_VISITA)
                     Then VSD_VISITA="N"
                  EndIf
                  Campo="I_DESCTO"

             Case Campo="I_DESCTO":
                  VSD_DESCTO=ControlValue("I_DESCTO")
                  If IsBlank(VSD_DESCTO)
                     Then VSD_DESCTO="N"
                  EndIf
                  If VSD_DESCTO="N"
                     Then VSD_TPDESCTO=""
                          VSD_TXDESCTO=BlankNum()
                          Campo= "I_DESCUNIT"
                     Else Campo="I_TPDESCTO"
                  EndIf
             Case Campo="I_TPDESCTO":
                  VSD_TPDESCTO=ControlValue("I_TPDESCTO")
                  If IsBlank(VSD_TPDESCTO)
                     Then VSD_TPDESCTO="I"
                  EndIf
                  If VSD_TPDESCTO="I"
                     Then Campo="I_TXDESCTO"
                     Else VSD_TXDESCTO=BlankNum()
                          Campo= "I_DESCUNIT"
                  EndIf
             Case Campo="I_TXDESCTO":
                  VSD_TXDESCTO=ControlValue("I_TXDESCTO")
                  Campo= "I_DESCUNIT"
             Case Campo="I_DESCUNIT":
                  VSD_DESCUNIT=ControlValue("I_DESCUNIT")
                  If IsBlank(VSD_DESCUNIT) Or
                     VSD_DESCUNIT="N"
                     Then VSD_DESCUNIT    ="N"
                          VSD_DESCTOUNIT  ="N"
                          VSD_TPDESCTOUNIT=""
                          VSD_TXDESCTOUNIT=BlankNum()
                          Campo="I_COMIS_ITEM"
                     Else Campo="I_DESCTOUNIT"
                  EndIf
             Case Campo="I_DESCTOUNIT":
                  VSD_DESCTOUNIT=ControlValue("I_DESCTOUNIT")
                  If IsBlank(VSD_DESCTOUNIT)
                     Then VSD_DESCTOUNIT="N"
                  EndIf
                  If VSD_DESCTOUNIT="N"
                     Then VSD_TPDESCTOUNIT=""
                          VSD_TXDESCTOUNIT=BlankNum()
                          Campo="I_COMIS_ITEM"
                     Else Campo="I_TPDESCTOUNIT"
                  EndIf
             Case Campo="I_TPDESCTOUNIT":
                  VSD_TPDESCTOUNIT=ControlValue("I_TPDESCTOUNIT")
                  If IsBlank(VSD_TPDESCTOUNIT)
                     Then VSD_TPDESCTOUNIT="I"
                  EndIf
                  If VSD_TPDESCTOUNIT="I"
                     Then Campo="I_TXDESCTOUNIT"
                     Else VSD_TXDESCTOUNIT=BlankNum()
                          Campo="I_COMIS_ITEM"
                  EndIf
             Case Campo="I_TXDESCTOUNIT":
                  VSD_TXDESCTOUNIT=ControlValue("I_TXDESCTOUNIT")
                  Campo="I_COMIS_ITEM"

             Case Campo="I_COMIS_ITEM":
                  VSD_COMIS_ITEM=ControlValue("I_COMIS_ITEM")
                  If IsBlank(VSD_COMIS_ITEM)
                     Then VSD_COMIS_ITEM="N"
                  EndIf
                  Campo= "I_COMIS_MARCA"
             Case Campo="I_COMIS_MARCA":
                  VSD_COMIS_MARCA=ControlValue("I_COMIS_MARCA")
                  If IsBlank(VSD_COMIS_MARCA)
                     Then VSD_COMIS_MARCA="N"
                  EndIf
                  Campo= "I_TABPR_ITEM"
             Case Campo="I_TABPR_ITEM":
                  VSD_TABPR_ITEM=ControlValue("I_TABPR_ITEM")
                  If IsBlank(VSD_TABPR_ITEM)
                     Then VSD_TABPR_ITEM="N"
                  EndIf
                  Campo= "I_CPGTO_ITEM"
             Case Campo="I_CPGTO_ITEM":
                  VSD_CPGTO_ITEM=ControlValue("I_CPGTO_ITEM")
                  If IsBlank(VSD_CPGTO_ITEM)
                     Then VSD_CPGTO_ITEM="N"
                  EndIf
                  Campo= "I_COMIS_VENCTO"       
             Case Campo="I_COMIS_VENCTO":
                  VSD_COMIS_VENCTO=ControlValue("I_COMIS_VENCTO")
                  If IsBlank(VSD_COMIS_VENCTO)
                     Then VSD_COMIS_VENCTO="N"
                  EndIf
                  Campo="I_EXIBE_CUSTO"
             Case Campo="I_EXIBE_CUSTO":
                  VSD_EXIBE_CUSTO=ControlValue("I_EXIBE_CUSTO")
                  If IsBlank(VSD_EXIBE_CUSTO)
                     Then VSD_EXIBE_CUSTO="N"
                  EndIf
                  Campo="I_TABPR_CLIENTE"  
             Case Campo="I_TABPR_CLIENTE":
                  VSD_TABPR_CLIENTE=ControlValue("I_TABPR_CLIENTE")
                  If IsBlank(VSD_TABPR_CLIENTE)
                     Then VSD_TABPR_CLIENTE="N"
                  EndIf
                  Campo="I_TABPR_REPRES"
             Case Campo="I_TABPR_REPRES":
                  VSD_TABPR_REPRES=ControlValue("I_TABPR_REPRES")
                  If IsBlank(VSD_TABPR_REPRES)
                     Then VSD_TABPR_REPRES="N"
                  EndIf
                  Campo="I_TABPR_CPAGTO"
             Case Campo="I_TABPR_CPAGTO":
                  VSD_TABPR_CPAGTO=ControlValue("I_TABPR_CPAGTO")
                  If IsBlank(VSD_TABPR_CPAGTO)
                     Then VSD_TABPR_CPAGTO="N"
                  EndIf
                  Campo="I_ALTERA_PRECO"
             Case Campo="I_ALTERA_PRECO":
                  VSD_ALTERA_PRECO=ControlValue("I_ALTERA_PRECO")
                  If IsBlank(VSD_ALTERA_PRECO)
                     Then VSD_ALTERA_PRECO="S"
                  EndIf
                  Campo="I_EXPEDICQTDE"
             Case Campo="I_EXPEDICQTDE":
                  VSD_EXPEDICQTDE=ControlValue("I_EXPEDICQTDE")
                  If IsBlank(VSD_EXPEDICQTDE)
                     Then VSD_EXPEDICQTDE="S"
                  EndIf
                  Campo="I_EXPEDICITEM"
             Case Campo="I_EXPEDICITEM":
                  VSD_EXPEDICITEM=ControlValue("I_EXPEDICITEM")
                  If IsBlank(VSD_EXPEDICITEM)
                     Then VSD_EXPEDICITEM="S"
                  EndIf 
                  Campo="I_CONDPAGTO"
             Case Campo="I_CONDPAGTO":
                  VSD_CONDPAGTO=ControlValue("I_CONDPAGTO")
                  If IsBlank(VSD_CONDPAGTO)
                     Then VSD_CONDPAGTO="N"
                  EndIf 
                  Campo="I_PEDIDOIMP"
             Case Campo="I_PEDIDOIMP":
                  VSD_PEDIDOIMP=ControlValue("I_PEDIDOIMP")
                  If IsBlank(VSD_PEDIDOIMP)
                     Then VSD_PEDIDOIMP="S"
                  EndIf              
                  Campo="I_DADOS_ITEM_RESUMO"
             Case Campo="I_DADOS_ITEM_RESUMO" :     
                  VSD_DADOS_ITEM_RESUMO = ControlValue("I_DADOS_ITEM_RESUMO")
                  If IsBlank(VSD_DADOS_ITEM_RESUMO)
                     Then VSD_DADOS_ITEM_RESUMO="N"
                  EndIf
                  Campo="I_IMPRESSAO"
             Case Campo="I_IMPRESSAO":
                  VSD_IMPRESSAO=ControlValue("I_IMPRESSAO")
                  Campo="I_IMPRESSAOS"
             Case Campo="I_IMPRESSAOS":
                  VSD_IMPRESSAOS=ControlValue("I_IMPRESSAOS")
                  Campo="I_IMPRESSAOG"
             Case Campo="I_IMPRESSAOG":
                  VSD_IMPRESSAOG=ControlValue("I_IMPRESSAOG")
                  Campo="I_IMPRESSAOGS"
             Case Campo="I_IMPRESSAOGS":
                  VSD_IMPRESSAOGS=ControlValue("I_IMPRESSAOGS")
                  ConfGeral("Confirma novos parametros?")
                  If OK="S"
                     Then PARAM_OPCAO("Gravar")
                     Else If Chave=1
                             Then Moveto [Codigo_Empresa]
                                  Locate VSD_EMPRESA
                                  Del
                          EndIf
                  EndIf
                  PARAM_OPCAO("Inicio")
                  Campo="I_EMPRESA"

           EndSwitch
      Case Evento["KeyCode"] = -81:
           If Campo<>"I_EMPRESA" And Chave=0
              Then ConfGeral("Confirma novos parametros?")
                   If OK="S"
                      Then PARAM_OPCAO("Gravar")
                   EndIf
                   PARAM_OPCAO("Inicio")
                   Campo="I_EMPRESA"
           EndIf
   EndSwitch
EndIf

RefreshDialog
SelectControl Campo
TECLA="//Esc=Retornar  "
If Campo="I_EMPRESA" Or
   Campo="I_DESTINACAO" Or
   Campo="I_TABELA_PRECO" Or
   Campo="I_TRANSPORTADORA" Or
   Campo="I_FORMA_PAGTO"
   Then TECLA=TECLA+"F1=Tabelas  "
EndIf

If Campo<>"I_EMPRESA" And Chave=0
   Then TECLA=TECLA+"Ctrl+Del=Excluir  PgDn=Finalizar  "
   Else TECLA=TECLA+"                  PgDn=Finalizar  "
EndIf
MSGCAMPO="Utiliza este recurso? Sim/N„o"
Switch
  Case Campo="I_EMPRESA":
       MSGCAMPO="Codigo da Empresa Padr„o"
  Case Campo="I_DESTINACAO":
       MSGCAMPO="Codigo da Destina‡„o Padr„o"
  Case Campo="I_TABELA_PRECO":
       MSGCAMPO="Codigo da Tabela de Preco Padr„o"
  Case Campo="I_TRANSPORTADORA":
       MSGCAMPO="Codigo da Transportadora Padr„o"
  Case Campo="I_FORMA_PAGTO":
       MSGCAMPO="Codigo da Forma de Pagamento Padr„o"
  Case Campo="I_DATAS_VENCTOS":
       MSGCAMPO="Data dos vencimentos c/ dias? Fixo/Continuo"
  Case Campo="I_COR_TECIDO":
       MSGCAMPO="Utiliza controle de Cor ? Sim/N„o/Destacar"
	Case Campo="I_IMPRESSAO":
       MSGCAMPO="Script de Impressao de Pedidos Normal - Gerencial"
	Case Campo="I_IMPRESSAOS":
       MSGCAMPO="Script de Impressao de Pedidos Normal - Expedi‡Ćo"
  Case Campo="I_IMPRESSAOG":
       MSGCAMPO="Script de Impressao de Pedidos Grade  - Gerencial"
  Case Campo="I_IMPRESSAOGS":
       MSGCAMPO="Script de Impressao de Pedidos Grade  - Expedi‡Ćo"
  Case Campo="I_TABPR_CPAGTO":
       MSGCAMPO="Utilizar Pre‡o da Tabela conforme Cond.Pagto ? Sim/N„o"
  Case Campo="I_ALTERA_PRECO":
       MSGCAMPO="Utiliza Altera‡„o do Pre‡o Unitario do Item? Sim/N„o/Permiss„o"
  Case Campo="I_COMIS_ITEM":
       MSGCAMPO="Utiliza Altera‡„o da Comiss„o do Item? Sim/N„o/Permiss„o"

  Case Campo="I_DESCTO":
       MSGCAMPO="Utiliza Bloqueio Desconto Total? Sim/N„o/Permiss„o"
  Case Campo="I_TPDESCTO":
       MSGCAMPO="Qual Tipo Desconto Total? Informar/Condi‡„o Pagto"
  Case Campo="I_TXDESCTO":
       MSGCAMPO="Informe % M xima de Desconto Total Permitida"

  Case Campo="I_DESCTOUNIT":
       MSGCAMPO="Utiliza bloqueio desconto unit rio? Sim/N„o/Permiss„o"
  Case Campo="I_TPDESCTOUNIT":
       MSGCAMPO="Qual tipo desconto unit rio? Informar/Condi‡„o pagto/Produto"
  Case Campo="I_TXDESCTOUNIT":
       MSGCAMPO="Informe % m xima de desconto unit rio permitida"
  Case Campo="I_CONDPAGTO":
       MSGCAMPO="Utiliza Condi‡„o Pagto e Forma de Pagto conforme cliente? Sim/N„o"
  Case Campo="I_PEDIDOIMP":
       MSGCAMPO="Altera pedido p˘s impresso? Sim/N„o"
  Case Campo="I_EXIBE_CUSTO"  :
       MSGCAMPO="Exibe Custo na Consulta do Item? Sim/N„o"
   Case Campo="I_DADOS_ITEM_RESUMO" : 
       MSGCAMPO="Digita‡„o dos dados dos itens resumidamente? Sim/N„o"          
EndSwitch

;@ 24,0 ?? TECLA+Spaces(80-Len(TECLA))
;PaintCanvas Attribute 31 24,0,24,79
;Message(MSGCAMPO)

Monta_Prompt(MSGCAMPO,TECLA)

Return TEMP
EndProc   ;(Param_Dialog)

;*******************************************************************************
;* Rotina Gravacao ou Leitura dos Parametros                                   *
;*******************************************************************************
Proc PARAM_OPCAO(OP)
Private OP
Switch
  Case OP = "Gravar":
       Moveto [Codigo_Empresa]
       Locate VSD_EMPRESA
       [Codigo_Destinacao        ] = VSD_DESTINACAO
       [Tabela_Preco             ] = VSD_TABELA_PRECO
       [Codigo_Transportadora    ] = VSD_TRANSPORTADORA
       [Codigo_Forma_Pagto       ] = VSD_FORMA_PAGTO
       [Datas_Vencimentos        ] = VSD_DATAS_VENCTOS
       [Cor_Tecido               ] = VSD_COR_TECIDO
       [Tamanho                  ] = VSD_TAMANHO
       [Volumes                  ] = VSD_VOLUMES
       [Substituicao ICMS        ] = VSD_SUBSTICMS
       [Impostos                 ] = VSD_IMPOSTOS
       [Utiliza_Calculo_Impostos ] = VSD_CALCIMPOSTOS
       [Utiliza_Visita           ] = VSD_VISITA
       [Comissao_Item            ] = VSD_COMIS_ITEM
       [Utiliza_Comissao_Marca   ] = VSD_COMIS_MARCA
       [Utiliza_Tabela_Preco_Item] = VSD_TABPR_ITEM
       [Calcula_Comissao_Vencto  ] = VSD_COMIS_VENCTO
       [Utiliza_TabPreco_CLiente ] = VSD_TABPR_CLIENTE
       [Utiliza_TabPreco_Repres  ] = VSD_TABPR_REPRES
       [Pega_Preco_Tabela_CPagto ] = VSD_TABPR_CPAGTO
       [Script_Impressao         ] = VSD_IMPRESSAO
       [Script_Impressao_S       ] = VSD_IMPRESSAOS
       [Script_ImpressaoG        ] = VSD_IMPRESSAOG
       [Script_ImpressaoG_S      ] = VSD_IMPRESSAOGS
       [Utiliza_Alteracao_Preco  ] = VSD_ALTERA_PRECO
       [Altera_Qtde_Expedic      ] = VSD_EXPEDICQTDE
       [Inclui_Item_Expedic      ] = VSD_EXPEDICITEM
  
       [Utiliza_Bloqueio_Descto  ] = VSD_DESCTO
       [Tipo_Bloqueio_Descto     ] = VSD_TPDESCTO
       [Taxa_Bloqueio_Descto     ] = VSD_TXDESCTO

       [Desconto Unitario        ] = VSD_DESCUNIT
       [Utiliza_Bloqueio_DesctoUn] = VSD_DESCTOUNIT
       [Tipo_Bloqueio_DesctoUn   ] = VSD_TPDESCTOUNIT
       [Taxa_Bloqueio_DesctoUn   ] = VSD_TXDESCTOUNIT

       [Utiliza CP e FP Cliente  ] = VSD_CONDPAGTO
       [Altera Pedido PosImpresso] = VSD_PEDIDOIMP
       [Dig_DadosItem_Resumo     ] = VSD_DADOS_ITEM_RESUMO
       [Exibe_Custo_Item_Consulta] = VSD_EXIBE_CUSTO
       UnLockRecord
       
  Case OP = "Ler":
       VSD_EMPRESA       =[Codigo_Empresa           ]
       VSD_DESTINACAO    =[Codigo_Destinacao        ]
       VSD_TABELA_PRECO  =[Tabela_Preco             ]
       VSD_TRANSPORTADORA=[Codigo_Transportadora    ]
       VSD_FORMA_PAGTO   =[Codigo_Forma_Pagto       ]
       VSD_DATAS_VENCTOS =[Datas_Vencimentos        ]
       VSD_COR_TECIDO    =[Cor_Tecido               ]
       VSD_TAMANHO       =[Tamanho                  ]
       VSD_VOLUMES       =[Volumes                  ]
       VSD_SUBSTICMS     =[Substituicao ICMS        ]
       VSD_IMPOSTOS      =[Impostos                 ]
       VSD_CALCIMPOSTOS  =[Utiliza_Calculo_Impostos ]
       VSD_VISITA        =[Utiliza_Visita           ]
       VSD_COMIS_ITEM    =[Comissao_Item            ]
       VSD_COMIS_MARCA   =[Utiliza_Comissao_Marca   ]
       VSD_TABPR_ITEM    =[Utiliza_Tabela_Preco_Item]
       VSD_CPGTO_ITEM    ="N" ;nao utilizar mais condicao de pagto no item
       VSD_COMIS_VENCTO  =[Calcula_Comissao_Vencto  ]
       VSD_TABPR_CLIENTE =[Utiliza_TabPreco_Cliente ]
       VSD_TABPR_REPRES  =[Utiliza_TabPreco_Repres  ]
       VSD_TABPR_CPAGTO  =[Pega_Preco_Tabela_CPagto ]
       VSD_IMPRESSAO     =[Script_Impressao         ]
       VSD_IMPRESSAOS    =[Script_Impressao_S       ]
       VSD_IMPRESSAOG    =[Script_ImpressaoG        ]
       VSD_IMPRESSAOGS   =[Script_ImpressaoG_S      ]
       VSD_ALTERA_PRECO  =[Utiliza_Alteracao_Preco  ]
       VSD_EXPEDICQTDE   =[Altera_Qtde_Expedic      ]
       VSD_EXPEDICITEM   =[Inclui_Item_Expedic      ]
       
       VSD_DESCTO        = [Utiliza_Bloqueio_Descto  ]
       VSD_TPDESCTO      = [Tipo_Bloqueio_Descto     ]
       VSD_TXDESCTO      = [Taxa_Bloqueio_Descto     ]

       VSD_DESCUNIT      = [Desconto Unitario        ]
       VSD_DESCTOUNIT    = [Utiliza_Bloqueio_DesctoUn]
       VSD_TPDESCTOUNIT  = [Tipo_Bloqueio_DesctoUn   ]
       VSD_TXDESCTOUNIT  = [Taxa_Bloqueio_DesctoUn   ]

       VSD_CONDPAGTO     = [Utiliza CP e FP Cliente  ]
       VSD_PEDIDOIMP     = [Altera Pedido PosImpresso]
       VSD_EXIBE_CUSTO   = [Exibe_Custo_Item_Consulta]
       VSD_DADOS_ITEM_RESUMO = [Dig_DadosItem_Resumo ]
       
  Case OP = "Inicio":
       VSD_DESTINACAO    =""
       VSD_TABELA_PRECO  =""
       VSD_TRANSPORTADORA=""
       VSD_FORMA_PAGTO   =""
       VSD_DATAS_VENCTOS =""
       VSD_COR_TECIDO    =""
       VSD_TAMANHO       =""
       VSD_VOLUMES       =""
       VSD_SUBSTICMS     =""
       VSD_IMPOSTOS      =""
       VSD_CALCIMPOSTOS  =""
       VSD_VISITA        =""
       VSD_COMIS_ITEM    =""
       VSD_COMIS_MARCA   =""
       VSD_TABPR_ITEM    =""
       VSD_CPGTO_ITEM    =""
       VSD_COMIS_VENCTO  =""
       VSD_TABPR_CLIENTE =""
       VSD_TABPR_REPRES  =""
       VSD_TABPR_CPAGTO  =""
			 VSD_IMPRESSAO		 =""
			 VSD_IMPRESSAOS 	 =""
       VSD_IMPRESSAOG    =""
       VSD_IMPRESSAOGS   =""
       VSD_ALTERA_PRECO  =""
       VSD_EXPEDICQTDE   =""
       VSD_EXPEDICITEM   =""
       VSD_CONDPAGTO     =""
       VSD_PEDIDOIMP     =""
       VSD_EXIBE_CUSTO   =""
       VSD_DADOS_ITEM_RESUMO= ""
       VSD_DESCTO           = ""
       VSD_TPDESCTO         = ""
       VSD_TXDESCTO         = BlankNum()

       VSD_DESCUNIT         =""
       VSD_DESCTOUNIT       = ""
       VSD_TPDESCTOUNIT     = ""
       VSD_TXDESCTOUNIT     = BlankNum()

EndSwitch
If OP<>"Ler" Then Posiciona() EndIf
EndProc   ; (Param_Opcao)

;*******************************************************************************
;* Rotina Localiza_Registro                                                    *
;*******************************************************************************
Proc Chave()
Moveto [Codigo_Empresa]
Del
Locate VSD_EMPRESA
If RetVal
   Then While True
          If Not IsLockRecord() Then QuitLoop EndIf
        EndWhile
        Chave=0
        PARAM_OPCAO("Ler")
   Else Chave=1
        End Down
        [Codigo_Empresa]=VSD_EMPRESA
        PARAM_OPCAO("Inicio")
EndIf

EndProc  ; (Chave)

;*******************************************************************************
;* Rotina para posicionar registro                                             *
;*******************************************************************************
Proc Posiciona()
If IsBlank([Codigo_Empresa])
   Then Del
EndIf
Moveto [Codigo_Empresa]
End Down
EndProc    ;  (Posiciona)

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"
If Not IsAssigned(SYS_EMPRESA_DEFAULT) Then SYS_EMPRESA_DEFAULT="" EndIf
VSD_EMPRESA=SYS_EMPRESA_DEFAULT
If Not Checa_Supervisor()
   Then Return
EndIf
CoEdit NoWindow "P_Pedido"
Chave=8
INICIO_DIALOGO=True
PARAM_OPCAO("Inicio")
Posiciona()

Showdialog "Configura‡„o Pedido" Proc "Param_Dialog"
   Trigger "OPEN","ARRIVE"
    Key "F1","TAB","ReverseTab","ENTER","ESC","F4","ClearArea","PGDN"
     @ 02,0 height 22 width 80

   Label  @ 00,00 "Empresa" for "I_EMPRESA"
   Accept @ 01,01 Width 07 "A4" picture "#*#" Tag "I_EMPRESA" to VSD_EMPRESA

   Label  @ 00,09 "Destina‡„o" for "I_DESTINACAO"
   Accept @ 01,10 Width 06 "A3" picture "#*#" Tag "I_DESTINACAO" to VSD_DESTINACAO

   Label  @ 00,21 "Tabela Pre‡o" for "I_TABELA_PRECO"
   Accept @ 01,22 Width 08 "A5" picture "#*#" Tag "I_TABELA_PRECO" to VSD_TABELA_PRECO

   Label  @ 00,35 "Transportadora" for "I_TRANSPORTADORA"
   Accept @ 01,36 Width 07 "A4" picture "#*#" Tag "I_TRANSPORTADORA" to VSD_TRANSPORTADORA

   Label  @ 00,51 "F.Pagto" for "I_FORMA_PAGTO"
   Accept @ 01,52 Width 05 "A2" picture "&*&" Tag "I_FORMA_PAGTO" to VSD_FORMA_PAGTO

   Label  @ 03,00 "[    ] Data Vencimento" for "I_DATAS_VENCTOS"
   Accept @ 03,02 Width 04 "A1" picture "F,C" Tag "I_DATAS_VENCTOS" to VSD_DATAS_VENCTOS

   Label  @ 04,00 "[    ] Cor Tecido" for "I_COR_TECIDO"
   Accept @ 04,02 Width 04 "A1" picture "S,N,D" Tag "I_COR_TECIDO" to VSD_COR_TECIDO

   Label  @ 05,00 "[    ] Tamanho" for "I_TAMANHO"
   Accept @ 05,02 Width 04 "A1" picture "S,N" Tag "I_TAMANHO" to VSD_TAMANHO

   Label  @ 06,00 "[    ] Volumes" for "I_VOLUMES"
   Accept @ 06,02 Width 04 "A1" picture "S,N" Tag "I_VOLUMES" to VSD_VOLUMES

   Label  @ 07,00 "[    ] Substitui‡„o ICMS" for "I_SUBSTICMS"
   Accept @ 07,02 Width 04 "A1" picture "S,N" Tag "I_SUBSTICMS" to VSD_SUBSTICMS

   Label  @ 08,00 "[    ] Digita Impostos" for "I_IMPOSTOS"
   Accept @ 08,02 Width 04 "A1" picture "S,N" Tag "I_IMPOSTOS" to VSD_IMPOSTOS

   Label  @ 09,00 "[    ] Calcula Impostos" for "I_CALCIMPOSTOS"
   Accept @ 09,02 Width 04 "A1" picture "S,N" Tag "I_CALCIMPOSTOS" to VSD_CALCIMPOSTOS

   Label  @ 10,00 "[    ] Utiliza Visita" for "I_VISITA"
   Accept @ 10,02 Width 04 "A1" picture "S,N" Tag "I_VISITA" to VSD_VISITA

   Label  @ 11,00 "[    ] Bloqueia Desconto Total" for "I_DESCTO"
   Accept @ 11,02 Width 04 "A1" picture "S,N,P" Tag "I_DESCTO" to VSD_DESCTO

   Label  @ 12,00 "[    ] Origem % Desconto Total" for "I_TPDESCTO"
   Accept @ 12,02 Width 04 "A1" picture "I,C" Tag "I_TPDESCTO" to VSD_TPDESCTO

   Label  @ 13,00 "[          ] % Desconto Total" for "I_TXDESCTO"
   Accept @ 13,02 Width 10 "N" picture "#*#.[####]" Tag "I_TXDESCTO" to VSD_TXDESCTO

   Label  @ 14,00 "[    ] Desconto Unitario" for "I_DESCUNIT"
   Accept @ 14,02 Width 04 "A1" picture "S,N" Tag "I_DESCUNIT" to VSD_DESCUNIT

   Label  @ 15,00 "[    ] Bloqueia Desconto Unit rio" for "I_DESCTOUNIT"
   Accept @ 15,02 Width 04 "A1" picture "S,N,P" Tag "I_DESCTOUNIT" to VSD_DESCTOUNIT

   Label  @ 16,00 "[    ] Origem % Desconto Unit rio" for "I_TPDESCTOUNIT"
   Accept @ 16,02 Width 04 "A1" picture "I,C,P" Tag "I_TPDESCTOUNIT" to VSD_TPDESCTOUNIT

   Label  @ 17,00 "[          ] % Desconto Unit rio" for "I_TXDESCTOUNIT"
   Accept @ 17,02 Width 10 "N" picture "#*#.[####]" Tag "I_TXDESCTOUNIT" to VSD_TXDESCTOUNIT

   Label  @ 18,00 "[    ] Altera Comiss„o Item" for "I_COMIS_ITEM"
   Accept @ 18,02 Width 04 "A1" picture "S,N,P" Tag "I_COMIS_ITEM" to VSD_COMIS_ITEM

   Label  @ 19,00 "[    ] Comiss„o Marca" for "I_COMIS_MARCA"
   Accept @ 19,02 Width 04 "A1" picture "S,N" Tag "I_COMIS_MARCA" to VSD_COMIS_MARCA

   Label  @ 03,35 "[    ] Tabela Pre‡o/Item" for "I_TABPR_ITEM"
   Accept @ 03,37 Width 04 "A1" picture "S,N" Tag "I_TABPR_ITEM" to VSD_TABPR_ITEM

   Label  @ 04,35 "[    ] ..." for "I_CPGTO_ITEM" ; nĆo utiliza mais condi‡Ćo pagto por item
   Accept @ 04,37 Width 04 "A1" picture "S,N" Tag "I_CPGTO_ITEM" to VSD_CPGTO_ITEM

   Label  @ 05,35 "[    ] Calcula Comiss„o/Vencto" for "I_COMIS_VENCTO"
   Accept @ 05,37 Width 04 "A1" picture "S,N" Tag "I_COMIS_VENCTO" to VSD_COMIS_VENCTO                      
                                                                                                    
   Label  @ 06,35 "[    ] Exibe Custo no Item/Consulta" for "I_EXIBE_CUSTO"
   Accept @ 06,37 Width 4 "A1" picture "S,N" Tag "I_EXIBE_CUSTO" to VSD_EXIBE_CUSTO

   Label  @ 07,35 "[    ] Utiliza TabPreco Cliente/Item" for "I_TABPR_CLIENTE"
   Accept @ 07,37 Width 04 "A1" picture "S,N" Tag "I_TABPR_CLIENTE" to VSD_TABPR_CLIENTE

   Label  @ 08,35 "[    ] Utiliza TabPreco Repres/Item" for "I_TABPR_REPRES"
   Accept @ 08,37 Width 04 "A1" picture "S,N" Tag "I_TABPR_REPRES" to VSD_TABPR_REPRES

   Label  @ 09,35 "[    ] Utiliza Pre‡o Tab. Cond.Pagto" for "I_TABPR_CPAGTO"
   Accept @ 09,37 Width 4 "A1" picture "S,N" Tag "I_TABPR_CPAGTO" to VSD_TABPR_CPAGTO

   Label  @ 10,35 "[    ] Altera Pre‡o Unitario" for "I_ALTERA_PRECO"
   Accept @ 10,37 Width 04 "A1" picture "S,N,P" Tag "I_ALTERA_PRECO" to VSD_ALTERA_PRECO

   Label  @ 11,35 "[    ] Qtdade Expedida > Qtdade Pedido" for "I_EXPEDICQTDE"
   Accept @ 11,37 Width 4 "A1" picture "S,N" Tag "I_EXPEDICQTDE" to VSD_EXPEDICQTDE

   Label  @ 12,35 "[    ] Inclui item na Expedi‡Ćo" for "I_EXPEDICITEM"
   Accept @ 12,37 Width 04 "A1" picture "S,N,P" Tag "I_EXPEDICITEM" to VSD_EXPEDICITEM     
              
   Label  @ 13,35 "[    ] Utiliza CP e FP conforme Cliente" for "I_CONDPAGTO"
   Accept @ 13,37 Width 04 "A1" picture "S,N" Tag "I_CONDPAGTO" to VSD_CONDPAGTO
              
   Label  @ 14,35 "[    ] Altera Pedido P˘s Impress„o" for "I_PEDIDOIMP"
   Accept @ 14,37 Width 04 "A1" picture "S,N" Tag "I_PEDIDOIMP" to VSD_PEDIDOIMP
   
   Label  @ 15,35 "[    ] Dados do Item Resumidos" for "I_DADOS_ITEM_RESUMO"
   Accept @ 15,37 Width 04 "A1" picture "S,N" Tag "I_DADOS_ITEM_RESUMO" to VSD_DADOS_ITEM_RESUMO
     
   Label  @ 16,35 "[           ] Script Normal Gerencial" for "I_IMPRESSAO"
   Accept @ 16,37 Width 11 "A8" picture "!*!" Tag "I_IMPRESSAO" to VSD_IMPRESSAO

   Label  @ 17,35 "[           ] Script Normal Expedi‡„o" for "I_IMPRESSAOS"
   Accept @ 17,37 Width 11 "A8" picture "!*!" Tag "I_IMPRESSAOS" to VSD_IMPRESSAOS

   Label  @ 18,35 "[           ] Script Grade  Gerencial" for "I_IMPRESSAOG"
   Accept @ 18,37 Width 11 "A8" picture "!*!" Tag "I_IMPRESSAOG" to VSD_IMPRESSAOG

   Label  @ 19,35 "[           ] Script Grade  Expedi‡„o" for "I_IMPRESSAOGS"
   Accept @ 19,37 Width 11 "A8" picture "!*!" Tag "I_IMPRESSAOGS" to VSD_IMPRESSAOGS

Enddialog
Do_It!
ClearAll
Release Vars All
Release Procs All
