;** P_Troca ********************************************************************
;*  Configuracao de Paramentos p/ Troca                                        *
;*******************************************************************************
;Autor: Visao/Vise
;Desenvolvido    : 17/05/2001 por Anivel Augusto Rodrigues
;Ultima Alteracao: 29/11/2005 por Anivel Augusto Rodrigues
;Motivo Alteracao: ALTERA_PRECO com permissao
;Ultima Alteracao: 05/12/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao Docto NF/ROM/DUP
;Ultima Alteracao: 11/07/2008 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao Tipo_Consulta_Cliente
;Ultima Alteracao: 07/05/2009 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Conta<>Empresa
;Ultima Alteracao: 07/10/2009 por Bruno Carvalho
;Motivo Alteracao: Inclusao Script Boleto
;Ultima Alteracao: 16/05/2011 por Karina Andrade
;Motivo Alteracao: Inclusao Bloqueio Cancelamento
;Ultima Alteracao: 17/06/2011 por Karina Andrade
;Motivo Alteracao: Ajustes TECLAS
;Ultima Alteracao: 22/07/2011 por Karina Andrade
;Motivo Alteracao: Ajustes Gera Vendas A Vista automatico e Duplicata A Vista
;Ultima Alteracao: 09/11/2011 por Karina Andrade
;Motivo Alteracao: Inclusao Bloqueio Altera‡Æo
;Ultima Alteracao: 23/04/2012 por Karina Andrade
;Motivo Alteracao: Ajustes Gera Vendas A Vista automatico e Duplicata A Vista
;Ultima Alteracao: 26/04/2012 por Bruno Carvalho
;Motivo Alteracao: Inclusao "Utiliza Bloqueio SPC"
;Ultima Alteracao: 04/02/2013 por Karina Andrade
;Motivo Alteracao: Ajustes op‡Æo "P" para LIMITE_CREDITO
;Ultima Alteracao: 24/09/2013 por Karina Andrade
;Motivo Alteracao: Inclusao Bloqueio ImpressÆo 2¦ via
;Ultima Alteracao: 01/10/2013 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes 
;Ultima Alteracao: 12/11/2013 por Andrey Fillipe
;Motivo Alteracao: Inclusao parametro rateio de comissao  
;Ultima Alteracao: 09/12/2015 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao Utiliza_Titulo_Credito N/T         
;Ultima Alteracao: 29/02/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Utiliza condicao e Forma de Pagamento do cliente s¢ Sim/NÆo
;Ultima Alteracao: 03/03/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes tirar sombra janela e layout
;Ultima Alteracao: 13/06/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: inclusÆo Informa_Data_CalcVenctos
;Ultima Alteracao: 12/07/2019 por Kamila Gomes
;Motivo Alteracao: Ajustes picture do campo Cliente para aceitar letras
;Ultima Alteracao: 29/10/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado [Utiliza_Resgate_Pontos]
;Ultima Alteracao: 04/05/2021 por Bruno Carvalho
;Motivo Alteracao: Adicionado parƒmetro VSD_UTILIZA_EMAIL 

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

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

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

If Disparo="EVENT" And DynArraySize(Evento)>0 And Evento["Type"]="KEY" Then
   Temp=False
   Switch
     Case (Evento["KeyCode"] = -6 Or Evento["KeyCode"] = -147):
          If CHAVE=0
             Then Confirma()
                  If OK="S"
                     Then Del
                          CancelDialog
                          Chave=9
                  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_CONTA_CAIXA" Or
               Campo="I_CLIENTE" Or
               Campo="I_VENDEDOR" Or
               Campo="I_COND_PAGTO" Or
               Campo="I_FORMA_PAGTO" Or
               Campo="I_DOC_NF" Or
               Campo="I_DOC_ROM" Or
               Campo="I_DOC_DUP"
               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_CONTA_CAIXA"    Then Moveto [Codigo_Conta_Caixa   ] EndIf
                    If Campo="I_CLIENTE"        Then Moveto [Codigo_Cliente       ] EndIf
                    If Campo="I_VENDEDOR"       Then Moveto [Codigo_Vendedor      ] EndIf
                    If Campo="I_COND_PAGTO"     Then Moveto [Codigo_Cond_Pagto    ] EndIf
                    If Campo="I_FORMA_PAGTO"    Then Moveto [Codigo_Forma_Pagto   ] EndIf

                    If Campo="I_DOC_NF"         Then Moveto [Not_Codigo do Documento] EndIf
                    If Campo="I_DOC_ROM"        Then Moveto [Rom_Codigo do Documento] EndIf
                    If Campo="I_DOC_DUP"        Then Moveto [Dup_Codigo do Documento] 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_CONTA_CAIXA":
                           VSD_CONTA_CAIXA=[Codigo_Conta_Caixa]
                      Case Campo="I_CLIENTE":
                           VSD_CLIENTE=[Codigo_Cliente]
                      Case Campo="I_VENDEDOR":
                           VSD_VENDEDOR=[Codigo_Vendedor]
                      Case Campo="I_COND_PAGTO":
                           VSD_COND_PAGTO=[Codigo_Cond_Pagto]
                      Case Campo="I_FORMA_PAGTO":
                           VSD_FORMA_PAGTO=[Codigo_Forma_Pagto]

                      Case Campo="I_DOC_NF":
                           VSD_DOC_NF=[Not_Codigo do Documento]
                      Case Campo="I_DOC_ROM":
                           VSD_DOC_ROM=[Rom_Codigo do Documento]
                      Case Campo="I_DOC_DUP":
                           VSD_DOC_DUP=[Dup_Codigo do Documento]
                    EndSwitch
           EndIf
      Case Evento["KeyCode"] = 27:
          Switch
             Case Campo="I_EMPRESA"                 :
                  Del          ; Registro Novo
                  Finalizar=True
                  CancelDialog
             Case Campo="I_DESTINACAO"              :
                  If Chave=1
                     Then Del  ; Registro Novo
                     Else Undo ; Registro Existente
                  EndIf
                  Chave=9
                  CancelDialog
						 Case Campo="I_DESTINACAO"          : Campo="I_EMPRESA"
						 Case Campo="I_TABELA_PRECO"        : Campo="I_DESTINACAO"
						 Case Campo="I_TRANSPORTADORA"      : Campo="I_TABELA_PRECO"
						 Case Campo="I_CONTA_CAIXA"         : Campo="I_TRANSPORTADORA"
						 Case Campo="I_CLIENTE"             : Campo="I_CONTA_CAIXA"
						 Case Campo="I_VENDEDOR"            : Campo="I_CLIENTE"
             Case Campo="I_COND_PAGTO"          : Campo="I_VENDEDOR"
						 Case Campo="I_FORMA_PAGTO"         : Campo="I_COND_PAGTO"
             Case Campo="I_DOC_NF"              : Campo="I_FORMA_PAGTO"
             Case Campo="I_DOC_ROM"             : Campo="I_DOC_NF"
             Case Campo="I_DOC_DUP"             : Campo="I_DOC_ROM"
             Case Campo="I_DATAS_VENCTOS"       : Campo="I_DOC_DUP"
             Case Campo="I_DATA_BASE"           : Campo="I_DATAS_VENCTOS"
             Case Campo="I_UTILIZAVENDEDOR"     : Campo="I_DATA_BASE"
             Case Campo="I_VISITA"              : Campo="I_UTILIZAVENDEDOR"
             Case Campo="I_LIMITE_CREDITO"      : Campo="I_VISITA"
             Case Campo="I_DIAS_ATRASO"         : Campo="I_LIMITE_CREDITO"
             Case Campo="I_BLOQAUT"             : Campo="I_DIAS_ATRASO"
             Case Campo="I_BLOQUEIA_NEG"        : Campo="I_BLOQAUT" 
             Case Campo="I_AVISTAAUTOMAT"       : Campo="I_BLOQUEIA_NEG"
             Case Campo="I_APRAZOAUTOMAT"       : Campo="I_AVISTAAUTOMAT"
             Case Campo="I_AVISTADUPLIC"        : Campo="I_APRAZOAUTOMAT"
             Case Campo="I_DUPLIC_NUMERO"       : Campo="I_AVISTADUPLIC"
             Case Campo="I_FORMA_TXJUROS"       : Campo="I_DUPLIC_NUMERO"
             Case Campo="I_TXJUROS"             : Campo="I_FORMA_TXJUROS"
             Case Campo="I_CCHEQUE"             : Campo="I_TXJUROS"
             Case Campo="I_NLINF"               : Campo="I_CCHEQUE"
             Case Campo="I_UTILIZACDBARRA"      : Campo="I_NLINF"
             Case Campo="I_NVIAS_ROMANEIO"      : Campo="I_UTILIZACDBARRA"
             Case Campo="I_BLOQUEIA_CANCEL"     : Campo="I_NVIAS_ROMANEIO"
             Case Campo="I_BLOQUEIA_ALTERA"     : Campo="I_BLOQUEIA_CANCEL"
             Case Campo="I_BLOQUEIA_NF"         : Campo="I_BLOQUEIA_ALTERA"
             Case Campo="I_BLOQUEIA_IMP"        : Campo="I_BLOQUEIA_NF"
             Case Campo="I_RATEIO_COMIS_VEND"   : Campo="I_BLOQUEIA_IMP"
             
             Case Campo="I_NOTA"                :
                  NewCampo="I_DESTINACAO"
                  CancelDialog
             Case Campo="I_ROMANEIO"            : Campo="I_NOTA"
             Case Campo="I_NPROMISSORIA"        : Campo="I_ROMANEIO"
             Case Campo="I_CARNE"               : Campo="I_NPROMISSORIA"
             Case Campo="I_BOLETO"              : Campo="I_CARNE"
             Case Campo="I_COR_TECIDO"          : Campo="I_BOLETO"
						 Case Campo="I_TAMANHO"             : Campo="I_COR_TECIDO"
             Case Campo="I_IMPOSTOS"            : Campo="I_TAMANHO"
             Case Campo="I_ALTERA_PRECO"        : Campo="I_IMPOSTOS"
             Case Campo="I_DESCUNIT"            : Campo="I_ALTERA_PRECO"
						 Case Campo="I_VOLUMES"             : Campo="I_DESCUNIT"
             Case Campo="I_TABPR_CPAGTO"        : Campo="I_VOLUMES"
             Case Campo="I_TABPR_CLIENTE"       : Campo="I_VOLUMES"
             Case Campo="I_TABPR_REPRES"        : Campo="I_TABPR_CLIENTE"
             Case Campo="I_TPCONS_CLIENTE"      : Campo="I_TABPR_REPRES"
             Case Campo="I_NBLOQUEIO_SPC"       : Campo="I_TPCONS_CLIENTE"
             Case Campo="I_CONDPAGTO"           : Campo="I_NBLOQUEIO_SPC" 
             Case Campo="I_TITCRED"             : Campo="I_CONDPAGTO"
             Case Campo="I_RESGPTO"             : Campo="I_TITCRED"
             Case Campo="I_UTILIZA_EMAIL"       : Campo="I_RESGPTO"
           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")
                  Campo="I_TABELA_PRECO"
             Case Campo="I_TABELA_PRECO":
                  VSD_TABELA_PRECO=ControlValue("I_TABELA_PRECO")
                  Campo="I_TRANSPORTADORA"
             Case Campo="I_TRANSPORTADORA":
									VSD_TRANSPORTADORA=ControlValue("I_TRANSPORTADORA")
                  Campo="I_CONTA_CAIXA"
             Case Campo="I_CONTA_CAIXA":
                  VSD_CONTA_CAIXA=ControlValue("I_CONTA_CAIXA")
                  Campo= "I_CLIENTE"
						 Case Campo="I_CLIENTE":
                  VSD_CLIENTE=ControlValue("I_CLIENTE")
                  Campo="I_VENDEDOR"
             Case Campo="I_VENDEDOR":
                  VSD_VENDEDOR=ControlValue("I_VENDEDOR")
                  Campo="I_COND_PAGTO"
						 Case Campo="I_COND_PAGTO":
                  VSD_COND_PAGTO=ControlValue("I_COND_PAGTO")
                  Campo="I_FORMA_PAGTO"
						 Case Campo="I_FORMA_PAGTO":
                  VSD_FORMA_PAGTO=ControlValue("I_FORMA_PAGTO")
                  Campo="I_DOC_NF"

             Case Campo="I_DOC_NF":
                  VSD_DOC_NF=ControlValue("I_DOC_NF")
                  If Not IsBlank(VSD_DOC_NF)
                     Then Moveto [Not_Codigo Do Documento]
                          Ativa_Lookup()
                          Moveto [Codigo do Documento]
                          Locate VSD_DOC_NF
                          If Not RetVal
                             Then Mensagem("Tipo de Documento nÆo Cadastrado/Nota Fiscal !")
                             Else VSD_DOC_NF=[Codigo do Documento]
                                  VSD_TIP_NF=[Tipo do Documento  ]
                                  VSD_SER_NF=[Serie do Documento ]
                                  Campo= "I_DOC_ROM"
                          EndIf
                          KeyPress "ESC"
                     Else Mensagem("Informe o Codigo de Documento para/Nota Fiscal !")
                  EndIf

             Case Campo="I_DOC_ROM":
                  VSD_DOC_ROM=ControlValue("I_DOC_ROM")
                  If Not IsBlank(VSD_DOC_ROM)
                     Then Moveto [Not_Codigo Do Documento]
                          Ativa_Lookup()
                          Moveto [Codigo do Documento]
                          Locate VSD_DOC_ROM
                          If Not RetVal
                             Then Mensagem("Tipo de Documento nÆo Cadastrado/Romaneio !")
                             Else VSD_DOC_ROM=[Codigo do Documento]
                                  VSD_TIP_ROM=[Tipo do Documento  ]
                                  VSD_SER_ROM=[Serie do Documento ]
                                  Campo= "I_DOC_DUP"
                          EndIf
                          KeyPress "ESC"
                     Else Mensagem("Informe o Codigo de Documento para/Romaneio !")
                  EndIf

             Case Campo="I_DOC_DUP":
                  VSD_DOC_DUP=ControlValue("I_DOC_DUP")
                  If Not IsBlank(VSD_DOC_DUP)
                     Then Moveto [Not_Codigo Do Documento]
                          Ativa_Lookup()
                          Moveto [Codigo do Documento]
                          Locate VSD_DOC_DUP
                          If Not RetVal
                             Then Mensagem("Tipo de Documento nÆo Cadastrado/Duplicata !")
                             Else VSD_DOC_DUP=[Codigo do Documento]
                                  VSD_TIP_DUP=[Tipo do Documento  ]
                                  VSD_SER_DUP=[Serie do Documento ]
                                  Campo= "I_DATAS_VENCTOS"
                          EndIf
                          KeyPress "ESC"
                     Else Mensagem("Informe o Codigo de Documento para/Duplicata !")
                  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_DATA_BASE"
             Case Campo="I_DATA_BASE":
                  VSD_DATA_BASE=ControlValue("I_DATA_BASE")
                  If IsBlank(VSD_DATA_BASE)
                     Then VSD_DATA_BASE="N"
                  EndIf
                  Campo= "I_UTILIZAVENDEDOR"
             Case Campo="I_UTILIZAVENDEDOR":
                  VSD_UTILIZAVENDEDOR=ControlValue("I_UTILIZAVENDEDOR")
                  If IsBlank(VSD_UTILIZAVENDEDOR)
                     Then VSD_UTILIZAVENDEDOR="N"
                  EndIf
									Campo="I_VISITA"
						 Case Campo="I_VISITA":
									VSD_VISITA=ControlValue("I_VISITA")
                  If IsBlank(VSD_VISITA)
                     Then VSD_VISITA="N"
                  EndIf
                  Campo="I_LIMITE_CREDITO"
             Case Campo="I_LIMITE_CREDITO":
                  VSD_LIMITE_CREDITO=ControlValue("I_LIMITE_CREDITO")
                  If IsBlank(VSD_LIMITE_CREDITO)
                     Then VSD_LIMITE_CREDITO="N"
                  EndIf
									Campo="I_DIAS_ATRASO"
             Case Campo="I_DIAS_ATRASO":
                  VSD_DIAS_ATRASO=ControlValue("I_DIAS_ATRASO")
                  If IsBlank(VSD_DIAS_ATRASO)
                     Then VSD_DIAS_ATRASO="N"
                  EndIf
                  Campo="I_BLOQAUT"
             Case Campo="I_BLOQAUT":
                  VSD_BLOQAUT=ControlValue("I_BLOQAUT")
                  If IsBlank(VSD_BLOQAUT)
                     Then VSD_BLOQAUT="N"
                  EndIf
                  Campo="I_BLOQUEIA_NEG"  
             Case Campo="I_BLOQUEIA_NEG":
                  VSD_BLOQUEIA_NEG=ControlValue("I_BLOQUEIA_NEG")
                  If IsBlank(VSD_BLOQUEIA_NEG)
                     Then VSD_BLOQUEIA_NEG="N"
                  EndIf
                  Campo="I_AVISTAAUTOMAT"
             Case Campo="I_AVISTAAUTOMAT":
                  VSD_AVISTAAUTOMAT=ControlValue("I_AVISTAAUTOMAT")
                  If IsBlank(VSD_AVISTAAUTOMAT)
                     Then VSD_AVISTAAUTOMAT="N"
                  EndIf
                  If VSD_AVISTADUPLIC="S" And VSD_AVISTAAUTOMAT="S"
                    Then Mensagem("Configurado para gerar Duplicatas A Vista. // Parametro informado nÆo permitido !")
                          VSD_AVISTAAUTOMAT="N"
                  EndIf  
                  Campo="I_APRAZOAUTOMAT"
             Case Campo="I_APRAZOAUTOMAT":
                  VSD_APRAZOAUTOMAT=ControlValue("I_APRAZOAUTOMAT")
                  If IsBlank(VSD_APRAZOAUTOMAT)
                     Then VSD_APRAZOAUTOMAT="N"
                  EndIf
                  Campo="I_AVISTADUPLIC"
             Case Campo="I_AVISTADUPLIC":
                  VSD_AVISTADUPLIC=ControlValue("I_AVISTADUPLIC")
                  If IsBlank(VSD_AVISTADUPLIC)
                     Then VSD_AVISTADUPLIC="N"
                  EndIf
                  If VSD_AVISTADUPLIC="S" And VSD_AVISTAAUTOMAT="S"
                    Then Mensagem("Configurado para gerar Vendas A Vista autom tico. // Parametro informado nÆo permitido !")
                          VSD_AVISTADUPLIC="N"
                  EndIf                  
                  Campo="I_DUPLIC_NUMERO"
             Case Campo="I_DUPLIC_NUMERO":
                  VSD_DUPLIC_NUMERO=ControlValue("I_DUPLIC_NUMERO")
                  If IsBlank(VSD_DUPLIC_NUMERO)
                     Then VSD_DUPLIC_NUMERO="I"
                  EndIf
                  Campo="I_FORMA_TXJUROS"
             Case Campo="I_FORMA_TXJUROS":
                  VSD_FORMA_TXJUROS=ControlValue("I_FORMA_TXJUROS")
                  If IsBlank(VSD_FORMA_TXJUROS)
                     Then Campo="I_CCHEQUE"
                     Else Campo="I_TXJUROS"
                  EndIf
             Case Campo="I_TXJUROS":
                  VSD_TXJUROS=ControlValue("I_TXJUROS")
                  If IsBlank(VSD_TXJUROS)
                     Then VSD_FORMA_TXJUROS=""
                  EndIf
                  Campo="I_CCHEQUE"
             Case Campo="I_CCHEQUE":
                  VSD_CCHEQUE=ControlValue("I_CCHEQUE")
                  If IsBlank(VSD_CCHEQUE)
                     Then VSD_CCHEQUE="N"
                  EndIf
									Campo="I_NLINF"
						 Case Campo="I_NLINF":
									VSD_NLINF=ControlValue("I_NLINF")
                  If IsBlank(VSD_NLINF)
                     Then VSD_NLINF="N"
                  EndIf
                  Campo="I_UTILIZACDBARRA"
             Case Campo="I_UTILIZACDBARRA":
                  VSD_UTILIZACDBARRA=ControlValue("I_UTILIZACDBARRA")
                  If IsBlank(VSD_UTILIZACDBARRA)
                     Then VSD_UTILIZACDBARRA="N"
                  EndIf
									Campo="I_NVIAS_ROMANEIO"
             Case Campo="I_NVIAS_ROMANEIO":
                  VSD_NVIAS_ROMANEIO=ControlValue("I_NVIAS_ROMANEIO")
                  If IsBlank(VSD_NVIAS_ROMANEIO) Or VSD_NVIAS_ROMANEIO<=0
                     Then VSD_NVIAS_ROMANEIO=1
                  EndIf
                  Campo="I_BLOQUEIA_CANCEL"
             Case Campo="I_BLOQUEIA_CANCEL":
                  VSD_BLOQUEIA_CANCEL=ControlValue("I_BLOQUEIA_CANCEL")
                  If IsBlank(VSD_BLOQUEIA_CANCEL)
                     Then VSD_BLOQUEIA_CANCEL="N"
                  EndIf     
                  Campo="I_BLOQUEIA_ALTERA"
             Case Campo="I_BLOQUEIA_ALTERA":
                  VSD_BLOQUEIA_ALTERA=ControlValue("I_BLOQUEIA_ALTERA")
                  If IsBlank(VSD_BLOQUEIA_ALTERA)
                     Then VSD_BLOQUEIA_ALTERA="N"
                  EndIf                
                  Campo="I_BLOQUEIA_NF" 
             Case Campo="I_BLOQUEIA_NF":
                  VSD_BLOQUEIA_NF=ControlValue("I_BLOQUEIA_NF")
                  If IsBlank(VSD_BLOQUEIA_NF)
                     Then VSD_BLOQUEIA_NF="N"
                  EndIf
                  Campo="I_BLOQUEIA_IMP"
             Case Campo="I_BLOQUEIA_IMP":
                  VSD_BLOQUEIA_IMP=ControlValue("I_BLOQUEIA_IMP")
                  If IsBlank(VSD_BLOQUEIA_IMP)
                     Then VSD_BLOQUEIA_IMP="N"
                  EndIf
                  Campo="I_RATEIO_COMIS_VEND"
						 Case Campo="I_RATEIO_COMIS_VEND":
                  VSD_RATEIO_COMIS_VEND=ControlValue("I_RATEIO_COMIS_VEND")
                  If IsBlank(VSD_RATEIO_COMIS_VEND)
                     Then VSD_RATEIO_COMIS_VEND="N"
                  EndIf
                  AcceptDialog			
             Case Campo="I_NOTA":
                  VSD_NOTA=ControlValue("I_NOTA")
                  Campo="I_ROMANEIO"
             Case Campo="I_ROMANEIO":
                  VSD_ROMANEIO=ControlValue("I_ROMANEIO")
                  Campo="I_NPROMISSORIA"
             Case Campo="I_NPROMISSORIA":
                  VSD_NPROMISSORIA=ControlValue("I_NPROMISSORIA")
                  Campo="I_CARNE"
             Case Campo="I_CARNE":
                  VSD_CARNE=ControlValue("I_CARNE")
                  Campo="I_BOLETO"
             Case Campo="I_BOLETO":
                  VSD_BOLETO=ControlValue("I_BOLETO")
									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_IMPOSTOS"
             Case Campo="I_IMPOSTOS":
                  VSD_IMPOSTOS=ControlValue("I_IMPOSTOS")
                  If IsBlank(VSD_IMPOSTOS)
                     Then VSD_IMPOSTOS="S"
                  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_DESCUNIT"
             Case Campo="I_DESCUNIT":
                  VSD_DESCUNIT=ControlValue("I_DESCUNIT")
                  If IsBlank(VSD_DESCUNIT)
                     Then VSD_DESCUNIT="N"
                  EndIf
									Campo="I_VOLUMES"
             Case Campo="I_VOLUMES":
                  VSD_VOLUMES=ControlValue("I_VOLUMES")
                  If IsBlank(VSD_VOLUMES)
                     Then VSD_VOLUMES="N"
                  EndIf
                  VSD_TABPR_CPAGTO ="N"
                  Campo="I_TABPR_CLIENTE"
             Case Campo="I_TABPR_CPAGTO":
                  VSD_TABPR_CPAGTO=ControlValue("I_TABPR_CPAGTO")
                  VSD_TABPR_CPAGTO ="N"
                  Campo="I_TABPR_CLIENTE"

             Case Campo="I_TABPR_CLIENTE":
                  VSD_TABPR_CLIENTE=ControlValue("I_TABPR_CLIENTE")
                  VSD_TABPR_CLIENTE="N"
                  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_TPCONS_CLIENTE"
             Case Campo="I_TPCONS_CLIENTE":
                  VSD_TPCONS_CLIENTE=ControlValue("I_TPCONS_CLIENTE")
                  If IsBlank(VSD_TPCONS_CLIENTE)
                     Then VSD_TPCONS_CLIENTE="P"
                  EndIf
                  Campo="I_NBLOQUEIO_SPC"
             Case Campo="I_NBLOQUEIO_SPC":
                  VSD_NBLOQUEIO_SPC=ControlValue("I_NBLOQUEIO_SPC")
                  If IsBlank(VSD_NBLOQUEIO_SPC)
                     Then VSD_NBLOQUEIO_SPC=BlankNum()
                  EndIf        
                  Campo="I_CONDPAGTO"
             Case Campo="I_CONDPAGTO": 
                  VSD_CONDPAGTO=ControlValue("I_CONDPAGTO")
                  If IsBlank(VSD_CONDPAGTO)
                     Then VSD_CONDPAGTO="N"
                  EndIf
                  Campo="I_TITCRED"                  
             Case Campo="I_TITCRED":
                  VSD_TITCRED=ControlValue("I_TITCRED")
                  If IsBlank(VSD_TITCRED)
                     Then VSD_TITCRED="N"
                  EndIf
                  Campo="I_RESGPTO"
             Case Campo="I_RESGPTO" : 
                  VSD_RESGPTO=ControlValue("I_RESGPTO")
                  If IsBlank(VSD_RESGPTO) Then VSD_RESGPTO="N" EndIf
                  Campo="I_UTILIZA_EMAIL"
             Case Campo="I_UTILIZA_EMAIL":
                  VSD_UTILIZA_EMAIL=ControlValue("I_UTILIZA_EMAIL")
                  If IsBlank(VSD_UTILIZA_EMAIL) Then VSD_UTILIZA_EMAIL="N" EndIf
                  ConfGeral("Confirma novos parametros ?")
                  If OK="S"
                     Then PARAM_OPCAO("Gravar")
                     Else If Chave=1
                             Then Del   ; Registro Novo
                             Else Undo  ; Registro Existente
                          EndIf
                  EndIf
                  Chave=9
                  AcceptDialog
           EndSwitch

      Case Evento["KeyCode"] = -73:
           Verifica2()
           If Not Show_Tela1
              Then CancelDialog
                   NewCampo="I_DESTINACAO"
           EndIf
      Case Evento["KeyCode"] = -81:
           If Show_Tela1
              Then If Verifica() And Campo<>"I_EMPRESA"
                      Then AcceptDialog
                   EndIf
              Else ConfGeral("Confirma novos parametros?")
                   If OK="S"
                      Then Verifica2()
                           PARAM_OPCAO("Gravar")
                      Else If Chave=1
                              Then Del  ; Registro Novo
                              Else Undo ; Registro Existente
                           EndIf
                   EndIf
                   Chave=9
                   AcceptDialog
           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_CONTA_CAIXA"    Or
   Campo="I_CLIENTE"        Or
   Campo="I_VENDEDOR"       Or
   Campo="I_COND_PAGTO"     Or
   Campo="I_FORMA_PAGTO" Or
   Campo="I_DOC_NF" Or
   Campo="I_DOC_ROM" Or
   Campo="I_DOC_DUP"
   Then TECLA=TECLA+"F1=Tabelas  "
EndIf
If Campo<>"I_EMPRESA"
   Then If Chave=0
           Then TECLA=TECLA+"Ctrl+Del=Excluir  "
           Else TECLA=TECLA+"                  "
        EndIf
        
        If Show_Tela1
           Then TECLA=TECLA+"             PgDn=Avan‡ar    "
           Else TECLA=TECLA+"PgUp=Voltar  PgDn=Finalizar  "
        EndIf
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_CONTA_CAIXA"       : MSGCAMPO="Codigo da Conta Caixa Padr„o"
  Case Campo="I_CLIENTE"           : MSGCAMPO="Codigo do Cliente Padr„o"
  Case Campo="I_VENDEDOR"          : MSGCAMPO="Codigo do Vendedor Padr„o"
  Case Campo="I_COND_PAGTO"        : MSGCAMPO="Condi‡„o de Pagamento Padr„o"
  Case Campo="I_FORMA_PAGTO"       : MSGCAMPO="Forma de Pagamento Padr„o"
  Case Campo="I_DOC_NF"            : MSGCAMPO="Codigo do Documento para gera‡„o de Nota Fiscal"
  Case Campo="I_DOC_ROM"           : MSGCAMPO="Codigo do Documento para gera‡„o de Romaneio"
  Case Campo="I_DOC_DUP"           : MSGCAMPO="Codigo do Documento para gera‡„o de Duplicata"
  Case Campo="I_DATAS_VENCTOS"     : MSGCAMPO="Data dos vencimentos c/ dias? Fixo/Continuo"
  Case Campo="I_DATA_BASE"     : MSGCAMPO="Informa data base para c lculo de vencimentos? Sim/NÆo"
  Case Campo="I_NVIAS_ROMANEIO"    : MSGCAMPO="Numero de Vias Romaneio a Imprimir"
  Case Campo="I_ALTERA_PRECO"      : MSGCAMPO="Utiliza Altera‡„o do Pre‡o Unitario do Item? Sim/N„o/Permiss„o"
  Case Campo="I_BLOQUEIA_NF"       : MSGCAMPO="Bloqueia Reemiss„o/Regera‡Æo da Nota Fiscal? Sim/N„o"
  Case Campo="I_BLOQUEIA_IMP"      : MSGCAMPO="Bloqueia ImpressÆo 2¦ via da Nota Fiscal? Sim/N„o/Permiss„o"  
  Case Campo="I_RATEIO_COMIS_VEND" : MSGCAMPO="Forma de rateio comiss„o? N„o usa/Total nota/por Item"
  Case Campo="I_DUPLIC_NUMERO"     : MSGCAMPO="Gera Numero da Duplicata? Igual/Diferente da NF"
  Case Campo="I_FORMA_TXJUROS"     : MSGCAMPO="Forma da Taxa de Juros? Dia/Mes/Ano"
  Case Campo="I_TXJUROS"           : MSGCAMPO="Informe a Taxa de Juros"
  Case Campo="I_NOTA"              : MSGCAMPO="Informe o Script para Impressao da Nota Fiscal"
  Case Campo="I_ROMANEIO"          : MSGCAMPO="Informe o Script para Impressao do Romaneio"
  Case Campo="I_NPROMISSORIA"      : MSGCAMPO="Informe o Script para Impressao da Nota Promissoria"
  Case Campo="I_CARNE"             : MSGCAMPO="Informe o Script para Impressao do Carn‰"
  Case Campo="I_BOLETO"            : MSGCAMPO="Informe o Script para Impressao do Boleto"  		 
  Case Campo="I_TABPR_CPAGTO"      : MSGCAMPO="Utilizar Pre‡o da Tabela conforme Cond.Pagto ? Sim/N„o"
  Case Campo="I_TABPR_CLIENTE"     : MSGCAMPO="Utilizar Pre‡o da Tabela conforme Cliente ? Sim/N„o"
  Case Campo="I_TABPR_REPRES"      : MSGCAMPO="Utilizar Pre‡o da Tabela conforme Representante? Sim/N„o"
  Case Campo="I_TPCONS_CLIENTE"    : MSGCAMPO="Tipo consulta: P=padr„o  S=sele‡„o"
  Case Campo="I_BLOQUEIA_CANCEL"   : MSGCAMPO="Bloqueia Cancelamento da Nota Fiscal? Sim/N„o/Permiss„o"
  Case Campo="I_BLOQUEIA_ALTERA"   : MSGCAMPO="Bloqueia Altera‡Æo da Nota Fiscal? Sim/N„o/Permiss„o"
  Case Campo="I_NBLOQUEIO_SPC"     : MSGCAMPO="N£mero de Dias p/ Bloqueio de Cadastro no SPC"
  Case Campo="I_LIMITE_CREDITO"    : MSGCAMPO="Bloqueia Limite de Credito? Sim/N„o/Permiss„o"
  Case Campo="I_CONDPAGTO"         : MSGCAMPO="Utiliza Cond/Forma Pagto do cliente? Sim/N„o"  
  Case Campo="I_TITCRED"           : MSGCAMPO="Utiliza T¡tulo de Cr‚dito ? N=NÆo  T=Valor Total"
  Case Campo="I_RESGPTO"           : MSGCAMPO="Utiliza Resgate de Pontos ? Sim/N„o"
  Case Campo="I_UTILIZA_EMAIL"     : MSGCAMPO="Utiliza Email: (H)abilitado (D)esabilitado (N)Æo Utiliza Email"
EndSwitch

@ 24,0 ?? TECLA+Spaces(80-Len(TECLA))
;@ 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 para Verificar Parametros                                            *
;*******************************************************************************
Proc Verifica()

WV=True

VSD_EMPRESA=ControlValue("I_EMPRESA")

VSD_DESTINACAO=ControlValue("I_DESTINACAO")
If Not IsBlank(VSD_DESTINACAO)
   Then VSD_DESTINACAO=Alinhm(VSD_DESTINACAO,3)
        Moveto [Codigo_Destinacao]
        Ativa_Lookup()
        Locate VSD_DESTINACAO
        If Not RetVal
           Then Mensagem("Codigo da Destinac„o n„o Cadastrado !")
                Campo="I_DESTINACAO"
                KeyPress "ESC"
                Return False
           Else VSD_DESTINACAO=[Codigo da Destinacao]
        EndIf
        KeyPress "ESC"
EndIf

VSD_TABELA_PRECO=ControlValue("I_TABELA_PRECO")
If Not IsBlank(VSD_TABELA_PRECO)
   Then Moveto [Tabela_Preco]
        Ativa_Lookup()
        Locate VSD_TABELA_PRECO
        If Not RetVal
           Then Mensagem("Codigo da Tabela de Preco n„o Cadastrado !")
                Campo="I_TABELA_PRECO"
                KeyPress "ESC"
                Return False
           Else VSD_TABELA_PRECO=[Codigo da Tabela]
        EndIf
        KeyPress "ESC"
EndIf

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 Not RetVal
           Then Mensagem("Transportadora n„o Cadastrada !")
                Campo="I_TRANSPORTADORA"
                KeyPress "ESC"
                Return False
           Else VSD_TRANSPORTADORA=[Codigo da Transportadora]
        EndIf
        KeyPress "ESC"
EndIf

VSD_CONTA_CAIXA=ControlValue("I_CONTA_CAIXA")
If Not IsBlank(VSD_CONTA_CAIXA)
   Then VSD_CONTA_CAIXA=AlinhM(ControlValue("I_CONTA_CAIXA"),4)
        Moveto [Codigo_Conta_Caixa]
        Ativa_Lookup()
        Locate VSD_CONTA_CAIXA
        If Not RetVal
           Then Mensagem("Codigo da Conta Caixa n„o Cadastrado !")
                Campo="I_CONTA_CAIXA"
                KeyPress "ESC"
                Return False
           Else Switch
                  Case [Tipo da Conta]<>"X":
                       Mensagem("Conta Invalida Somente Conta Caixa !")
                       Campo="I_CONTA_CAIXA"
                       KeyPress "ESC"
                       Return False
                EndSwitch
        EndIf
        KeyPress "ESC"
EndIf

VSD_CLIENTE=ControlValue("I_CLIENTE")
If Not IsBlank(VSD_CLIENTE)
   Then VSD_CLIENTE=Alinhm(VSD_CLIENTE,4)
        Moveto [Codigo_Cliente]
        Ativa_Lookup()
        Locate VSD_CLIENTE
        If Not RetVal
           Then Mensagem("Codigo do Cliente n„o Cadastrado !")
                WV=False
           Else If [Tipo]="C"
                   Then VSD_CLIENTE=[Codigo]
                   Else Mensagem("Somente Cliente Tipo->C !")
                        Campo="I_CLIENTE"
                        KeyPress "ESC"
                        Return False
                EndIf
        EndIf
        KeyPress "ESC"
EndIf

VSD_VENDEDOR=ControlValue("I_VENDEDOR")
If Not IsBlank(VSD_VENDEDOR)
   Then VSD_VENDEDOR=Alinhm(VSD_VENDEDOR,4)
        Moveto [Codigo_Vendedor]
        Ativa_Lookup()
        Locate VSD_VENDEDOR
        If Not RetVal
           Then Mensagem("Codigo do Vendedor n„o Cadastrado !")
                Campo="I_VENDEDOR"
                KeyPress "ESC"
                Return False
           Else VSD_VENDEDOR=[Codigo do Representante]
        EndIf
        KeyPress "ESC"
EndIf

VSD_COND_PAGTO=ControlValue("I_COND_PAGTO")
If Not IsBlank(VSD_COND_PAGTO)
   Then VSD_COND_PAGTO=Alinhm(VSD_COND_PAGTO,2)
        Moveto [Codigo_Cond_Pagto]
        Ativa_Lookup()
        Locate VSD_COND_PAGTO
        If Not RetVal
           Then Mensagem("Codigo da Cond.Pagto n„o Cadastrado !")
                Campo="I_COND_PAGTO"
                KeyPress "ESC"
                Return False
           Else VSD_COND_PAGTO=[Condicao de Pagamento]
        EndIf
        KeyPress "ESC"
EndIf

VSD_FORMA_PAGTO=ControlValue("I_FORMA_PAGTO")
If Not IsBlank(VSD_FORMA_PAGTO)
   Then Moveto [Codigo_Forma_Pagto]
        Ativa_Lookup()
        Locate VSD_FORMA_PAGTO
        If Not RetVal
           Then Mensagem("Codigo da Forma Pagto n„o Cadastrado !")
                Campo="I_FORMA_PAGTO"
                KeyPress "ESC"
                Return False
           Else VSD_FORMA_PAGTO=[Tipo do Pagamento]
        EndIf
        KeyPress "ESC"
EndIf

VSD_DOC_NF=ControlValue("I_DOC_NF")
Moveto [Not_Codigo Do Documento]
Ativa_Lookup()
Moveto [Codigo do Documento]
Locate VSD_DOC_NF
If Not RetVal
   Then Mensagem("Tipo de Documento nÆo Cadastrado/Nota Fiscal !")
        Campo="I_DOC_NF"
        KeyPress "ESC"
        Return False
   Else VSD_DOC_NF=[Codigo do Documento]
        VSD_TIP_NF=[Tipo do Documento  ]
        VSD_SER_NF=[Serie do Documento ]
        KeyPress "ESC"
EndIf


VSD_DOC_ROM=ControlValue("I_DOC_ROM")
Moveto [Rom_Codigo Do Documento]
Ativa_Lookup()
Moveto [Codigo do Documento]
Locate VSD_DOC_ROM
If Not RetVal
   Then Mensagem("Tipo de Documento nÆo Cadastrado/Romaneio !")
        Campo="I_DOC_ROM"
        KeyPress "ESC"
        Return False
   Else VSD_DOC_ROM=[Codigo do Documento]
        VSD_TIP_ROM=[Tipo do Documento  ]
        VSD_SER_ROM=[Serie do Documento ]
        KeyPress "ESC"
EndIf

VSD_DOC_DUP=ControlValue("I_DOC_DUP")
Moveto [Dup_Codigo Do Documento]
Ativa_Lookup()
Moveto [Codigo do Documento]
Locate VSD_DOC_DUP
If Not RetVal
   Then Mensagem("Tipo de Documento nÆo Cadastrado/Duplicata !")
        Campo="I_DOC_DUP"
        KeyPress "ESC"
        Return False
   Else VSD_DOC_DUP=[Codigo do Documento]
        VSD_TIP_DUP=[Tipo do Documento  ]
        VSD_SER_DUP=[Serie do Documento ]
        KeyPress "ESC"
EndIf

 VSD_DATAS_VENCTOS=ControlValue("I_DATAS_VENCTOS")
 If IsBlank(VSD_DATAS_VENCTOS)
    Then VSD_DATAS_VENCTOS="C"
 EndIf

 VSD_DATA_BASE=ControlValue("I_DATA_BASE")
 If IsBlank(VSD_DATA_BASE)
    Then VSD_DATA_BASE="N"
 EndIf

 VSD_MULT_BCICMS=ControlValue("I_MULT_BCICMS")
 If IsBlank(VSD_MULT_BCICMS)
    Then VSD_MULT_BCICMS="N"
 EndIf

 VSD_SUBSTICMS=ControlValue("I_SUBSTICMS")
 If IsBlank(VSD_SUBSTICMS)
    Then VSD_SUBSTICMS="N"
 EndIf

 VSD_UTILIZAVENDEDOR=ControlValue("I_UTILIZAVENDEDOR")
 If IsBlank(VSD_UTILIZAVENDEDOR)
    Then VSD_UTILIZAVENDEDOR="N"
 EndIf

 VSD_VISITA=ControlValue("I_VISITA")
 If IsBlank(VSD_VISITA)
    Then VSD_VISITA="N"
 EndIf

 VSD_LIMITE_CREDITO=ControlValue("I_LIMITE_CREDITO")
 If IsBlank(VSD_LIMITE_CREDITO)
    Then VSD_LIMITE_CREDITO="N"
 EndIf

 VSD_DIAS_ATRASO=ControlValue("I_DIAS_ATRASO")
 If IsBlank(VSD_DIAS_ATRASO)
    Then VSD_DIAS_ATRASO="N"
 EndIf

 VSD_BLOQAUT=ControlValue("I_BLOQAUT")
 If IsBlank(VSD_BLOQAUT)
    Then VSD_BLOQAUT="N"
 EndIf

 VSD_BLOQUEIA_NF=ControlValue("I_BLOQUEIA_NF")
 If IsBlank(VSD_BLOQUEIA_NF)
    Then VSD_BLOQUEIA_NF="N"
 EndIf
 
 VSD_BLOQUEIA_IMP=ControlValue("I_BLOQUEIA_IMP")
 If IsBlank(VSD_BLOQUEIA_IMP)
    Then VSD_BLOQUEIA_IMP="N"
 EndIf
 
 VSD_AVISTAAUTOMAT=ControlValue("I_AVISTAAUTOMAT")
 If IsBlank(VSD_AVISTAAUTOMAT)
    Then VSD_AVISTAAUTOMAT="N"
 EndIf

 VSD_APRAZOAUTOMAT=ControlValue("I_APRAZOAUTOMAT")
 If IsBlank(VSD_APRAZOAUTOMAT)
    Then VSD_APRAZOAUTOMAT="N"
 EndIf

 VSD_AVISTADUPLIC=ControlValue("I_AVISTADUPLIC")
 If IsBlank(VSD_AVISTADUPLIC)
    Then VSD_AVISTADUPLIC="N"
 EndIf

 VSD_DUPLIC_NUMERO=ControlValue("I_DUPLIC_NUMERO")
 If IsBlank(VSD_DUPLIC_NUMERO)
    Then VSD_DUPLIC_NUMERO="I"
 EndIf

 VSD_FORMA_TXJUROS=ControlValue("I_FORMA_TXJUROS")

 VSD_TXJUROS=ControlValue("I_TXJUROS")
 If IsBlank(VSD_TXJUROS)
    Then VSD_FORMA_TXJUROS=""
 EndIf

 VSD_CCHEQUE=ControlValue("I_CCHEQUE")
 If IsBlank(VSD_CCHEQUE)
    Then VSD_CCHEQUE="N"
 EndIf

 VSD_NLINF=ControlValue("I_NLINF")
 If IsBlank(VSD_NLINF)
    Then VSD_NLINF="N"
 EndIf

 VSD_UTILIZACDBARRA=ControlValue("I_UTILIZACDBARRA")
 If IsBlank(VSD_UTILIZACDBARRA)
    Then VSD_UTILIZACDBARRA="N"
 EndIf

 VSD_NVIAS_ROMANEIO=ControlValue("I_NVIAS_ROMANEIO")
 If IsBlank(VSD_NVIAS_ROMANEIO) Or VSD_NVIAS_ROMANEIO<=0
    Then VSD_NVIAS_ROMANEIO=1
 EndIf
 
 VSD_BLOQUEIA_CANCEL=ControlValue("I_BLOQUEIA_CANCEL")
 If IsBlank(VSD_BLOQUEIA_CANCEL)
    Then VSD_BLOQUEIA_CANCEL="N"
 EndIf     

  VSD_BLOQUEIA_ALTERA=ControlValue("I_BLOQUEIA_ALTERA")
  If IsBlank(VSD_BLOQUEIA_ALTERA)
     Then VSD_BLOQUEIA_ALTERA="N"
  EndIf
  
  VSD_BLOQUEIA_NEG=ControlValue("I_BLOQUEIA_NEG")
  If IsBlank(VSD_BLOQUEIA_NEG)
    Then VSD_BLOQUEIA_NEG="N"
  EndIf

  VSD_RATEIO_COMIS_VEND=ControlValue("I_RATEIO_COMIS_VEND")
  If IsBlank(VSD_RATEIO_COMIS_VEND)
     Then VSD_RATEIO_COMIS_VEND="N"
  EndIf
  
Return WV

EndProc ; (Verifica)
;*******************************************************************************
;* Rotina Gravar                                                               *
;*******************************************************************************
Proc Verifica2()

    VSD_NOTA=ControlValue("I_NOTA")
    VSD_ROMANEIO=ControlValue("I_ROMANEIO")
    VSD_NPROMISSORIA=ControlValue("I_NPROMISSORIA")
    VSD_CARNE=ControlValue("I_CARNE")
    VSD_BOLETO=ControlValue("I_BOLETO")
    ;VSD_NITENS=ControlValue("I_NITENS")
    ;VSD_DITENS=ControlValue("I_DITENS")
    ;VSD_OBS=ControlValue("I_OBS")

    VSD_COR_TECIDO=ControlValue("I_COR_TECIDO")
    If IsBlank(VSD_COR_TECIDO)
       Then VSD_COR_TECIDO="N"
    EndIf

    VSD_TAMANHO=ControlValue("I_TAMANHO")
    If IsBlank(VSD_TAMANHO)
       Then VSD_TAMANHO="N"
    EndIf

    VSD_IMPOSTOS=ControlValue("I_IMPOSTOS")
    If IsBlank(VSD_IMPOSTOS)
       Then VSD_IMPOSTOS="S"
    EndIf

    VSD_ALTERA_PRECO=ControlValue("I_ALTERA_PRECO")
    If IsBlank(VSD_ALTERA_PRECO)
       Then VSD_ALTERA_PRECO="S"
    EndIf

    VSD_DESCUNIT=ControlValue("I_DESCUNIT")
    If IsBlank(VSD_DESCUNIT)
       Then VSD_DESCUNIT="N"
    EndIf

    VSD_VOLUMES=ControlValue("I_VOLUMES")
    If IsBlank(VSD_VOLUMES)
       Then VSD_VOLUMES="N"
    EndIf

    VSD_TABPR_CPAGTO=ControlValue("I_TABPR_CPAGTO")
    VSD_TABPR_CPAGTO="N"
 
    VSD_TABPR_CLIENTE=ControlValue("I_TABPR_CLIENTE")
    If IsBlank(VSD_TABPR_CLIENTE)
       Then VSD_TABPR_CLIENTE="N"
    EndIf
 
    VSD_TABPR_REPRES=ControlValue("I_TABPR_REPRES")
    If IsBlank(VSD_TABPR_REPRES)
       Then VSD_TABPR_REPRES="N"
    EndIf

  VSD_TPCONS_CLIENTE=ControlValue("I_TPCONS_CLIENTE")
  If IsBlank(VSD_TPCONS_CLIENTE)
     Then VSD_TPCONS_CLIENTE="P"
  EndIf
  
  VSD_NBLOQUEIO_SPC=ControlValue("I_NBLOQUEIO_SPC")
  If IsBlank(VSD_NBLOQUEIO_SPC)
     Then VSD_NBLOQUEIO_SPC=BlankNum()
  EndIf    

   VSD_TITCRED=ControlValue("I_TITCRED")
   If IsBlank(VSD_TITCRED)
      Then VSD_TITCRED="N"
   EndIf
   
   VSD_RESGPTO=ControlValue("I_RESGPTO")
   If IsBlank(VSD_RESGPTO)
     Then VSD_RESGPTO="N"
   EndIf
   
   VSD_UTILIZA_EMAIL=ControlValue("I_UTILIZA_EMAIL")
   If IsBlank(VSD_UTILIZA_EMAIL) 
      Then VSD_UTILIZA_EMAIL="N" 
   EndIf

EndProc

;*******************************************************************************
;* 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
       [Codigo_Conta_Caixa       ] = VSD_CONTA_CAIXA
       [Datas_Vencimentos        ] = VSD_DATAS_VENCTOS
       [Cor_Tecido               ] = VSD_COR_TECIDO
       [Tamanho                  ] = VSD_TAMANHO
       [Desconto Unitario        ] = VSD_DESCUNIT
       [Volumes                  ] = VSD_VOLUMES
       [Pega_Preco_Tabela_CPagto ] = VSD_TABPR_CPAGTO
       [Utiliza_TabPreco_Cliente ] = VSD_TABPR_CLIENTE
       [Utiliza_TabPreco_Repres  ] = VSD_TABPR_REPRES

       [Substituicao ICMS        ] = VSD_SUBSTICMS
       [Utiliza_Pedido           ] = VSD_PEDIDO
       [Utiliza_Orcamento        ] = VSD_ORCAMENTO
       [Bloqueia_Estoque_Negativo] = VSD_BLOQUEIA_NEG
       [Multiplas_BC_ICMS        ] = VSD_MULT_BCICMS
       [NVias_Romaneio           ] = VSD_NVIAS_ROMANEIO
       [Impostos                 ] = VSD_IMPOSTOS
       [Tabela_Preco             ] = VSD_TABELA_PRECO
       [Codigo_Transportadora    ] = VSD_TRANSPORTADORA
       [Utiliza_Limite_Credito   ] = VSD_LIMITE_CREDITO
       [Utiliza_Dias_Atraso      ] = VSD_DIAS_ATRASO
       [Utiliza_Cupom_Fiscal     ] = VSD_CUPOM_FISCAL

       [Codigo_Cliente           ] = VSD_CLIENTE
       [Codigo_Vendedor          ] = VSD_VENDEDOR
       [Codigo_Cond_Pagto        ] = VSD_COND_PAGTO
       [Codigo_Forma_Pagto       ] = VSD_FORMA_PAGTO
       [Utiliza_Vendedor         ] = VSD_UTILIZAVENDEDOR
       [Utiliza_Codigo_Barras    ] = VSD_UTILIZACDBARRA
       [Utiliza_Alteracao_Preco  ] = VSD_ALTERA_PRECO
       [Bloqueia_Reemissao_NF    ] = VSD_BLOQUEIA_NF
       [Bloqueia_Impressao_2via  ] = VSD_BLOQUEIA_IMP
       [Utiliza_Rateio_Comissao  ] = VSD_RATEIO_COMIS_VEND
       [Utiliza_OS               ] = VSD_ORDEM_SERVICO
       [Gera_VendasVista_Automat ] = VSD_AVISTAAUTOMAT
       [Gera_VendasPrazo_Automat ] = VSD_APRAZOAUTOMAT
       [Gera_Duplicatas_AVista   ] = VSD_AVISTADUPLIC
       [Duplicata_TxJuros        ] = VSD_TXJUROS
       [Duplicata_Forma_TxJuros  ] = VSD_FORMA_TXJUROS
       [Gera_Duplicatas_Numero   ] = VSD_DUPLIC_NUMERO
       [Utiliza_Controle_Cheques ] = VSD_CCHEQUE
       [Utiliza_Codigo_Barras    ] = VSD_UTILIZACDBARRA
       [Utiliza_Vendedor         ] = VSD_UTILIZAVENDEDOR
       [Bloqueia_Autorizados     ] = VSD_BLOQAUT
       [Script_Impressao_NF      ] = VSD_NOTA
       [Script_Impressao_Romaneio] = VSD_ROMANEIO
       [Script_Impressao_NP      ] = VSD_NPROMISSORIA
       [Numero_Itens             ] = VSD_NITENS
       [Tamanho_Descricao_Item   ] = VSD_DITENS
       [NLinhas_Obs_Campo_Itens  ] = VSD_OBS
       [Script_Carne             ] = VSD_CARNE
       [Script_Impressao_Boleto  ] = VSD_BOLETO
       [NLCheque_Igual_NF        ] = VSD_NLINF
       [Utiliza_Visita           ] = VSD_VISITA

       [Not_Codigo do Documento  ] = VSD_DOC_NF
       [Not_Tipo do Documento    ] = VSD_TIP_NF
       [Not_Serie do Documento   ] = VSD_SER_NF
       
       [Rom_Codigo do Documento  ] = VSD_DOC_ROM
       [Rom_Tipo do Documento    ] = VSD_TIP_ROM
       [Rom_Serie do Documento   ] = VSD_SER_ROM
       
       [Dup_Codigo do Documento  ] = VSD_DOC_DUP
       [Dup_Tipo do Documento    ] = VSD_TIP_DUP
       [Dup_Serie do Documento   ] = VSD_SER_DUP
       [Tipo_Consulta_Cliente    ] = VSD_TPCONS_CLIENTE
       [Bloqueia Cancelamento    ] = VSD_BLOQUEIA_CANCEL
       [Bloqueia_Alteracao_NF    ] = VSD_BLOQUEIA_ALTERA
       
       [NDias_Bloqueio_SPC       ] = VSD_NBLOQUEIO_SPC
       [Utiliza CP e FP Cliente  ] = VSD_CONDPAGTO
       [Utiliza_Titulo_Credito   ] = VSD_TITCRED
       [Informa_Data_CalcVenctos ] = VSD_DATA_BASE
       [Utiliza_Resgate_Pontos   ] = VSD_RESGPTO
       [Utiliza_Email            ] = VSD_UTILIZA_EMAIL
       
       [Utiliza_Email            ] = VSD_UTILIZA_EMAIL
       UnLockRecord

  Case OP = "Ler":
       VSD_EMPRESA       =[Codigo_Empresa           ]
       VSD_DESTINACAO    =[Codigo_Destinacao        ]
       VSD_CONTA_CAIXA   =[Codigo_Conta_Caixa       ]
       VSD_DATAS_VENCTOS =[Datas_Vencimentos        ]
       VSD_COR_TECIDO    =[Cor_Tecido               ]
       VSD_TAMANHO       =[Tamanho                  ]
       VSD_DESCUNIT      =[Desconto Unitario        ]
       VSD_VOLUMES       =[Volumes                  ]
       VSD_TABPR_CPAGTO  = [Pega_Preco_Tabela_CPagto]
       VSD_TABPR_CLIENTE =[Utiliza_TabPreco_Cliente ]
       VSD_TABPR_REPRES  =[Utiliza_TabPreco_Repres  ]
       
       VSD_SUBSTICMS     =[Substituicao ICMS        ]
       VSD_PEDIDO        =[Utiliza_Pedido           ]
       VSD_ORCAMENTO     =[Utiliza_Orcamento        ]
       VSD_BLOQUEIA_NEG  =[Bloqueia_Estoque_Negativo]
       VSD_MULT_BCICMS   =[Multiplas_BC_ICMS        ]
       VSD_NVIAS_ROMANEIO=[NVias_Romaneio           ]
       VSD_IMPOSTOS      =[Impostos                 ]
       VSD_TABELA_PRECO  =[Tabela_Preco             ]
       VSD_TRANSPORTADORA=[Codigo_Transportadora    ]
       VSD_LIMITE_CREDITO=[Utiliza_Limite_Credito   ]
       VSD_DIAS_ATRASO   =[Utiliza_Dias_Atraso      ]
       VSD_CUPOM_FISCAL  =[Utiliza_Cupom_Fiscal     ]

       VSD_CLIENTE         =[Codigo_Cliente           ]
       VSD_VENDEDOR        =[Codigo_Vendedor          ]
       VSD_COND_PAGTO      =[Codigo_Cond_Pagto        ]
       VSD_FORMA_PAGTO     =[Codigo_Forma_Pagto       ]
       VSD_UTILIZAVENDEDOR =[Utiliza_Vendedor         ]
       VSD_UTILIZACDBARRA  =[Utiliza_Codigo_Barras    ]
       VSD_ALTERA_PRECO    =[Utiliza_Alteracao_Preco  ]
       VSD_BLOQUEIA_NF     =[Bloqueia_Reemissao_NF    ]
       VSD_BLOQUEIA_IMP    =[Bloqueia_Impressao_2via  ] 
       VSD_RATEIO_COMIS_VEND=[Utiliza_Rateio_Comissao]
       VSD_ORDEM_SERVICO   =[Utiliza_OS               ]
       VSD_AVISTAAUTOMAT   =[Gera_VendasVista_Automat ]
       VSD_APRAZOAUTOMAT   =[Gera_VendasPrazo_Automat ]
       VSD_AVISTADUPLIC    =[Gera_Duplicatas_AVista   ]
       VSD_TXJUROS         =[Duplicata_TxJuros        ]
       VSD_FORMA_TXJUROS   =[Duplicata_Forma_TxJuros  ]
       VSD_DUPLIC_NUMERO   =[Gera_Duplicatas_Numero   ]
       VSD_UTILIZAVENDEDOR =[Utiliza_Vendedor         ]
       VSD_CCHEQUE         =[Utiliza_Controle_Cheques ]
       VSD_UTILIZACDBARRA =[Utiliza_Codigo_Barras    ]
       VSD_BLOQAUT         =[Bloqueia_Autorizados     ]
       VSD_NOTA            =[Script_Impressao_NF      ]
       VSD_ROMANEIO        =[Script_Impressao_Romaneio]
       VSD_NPROMISSORIA    =[Script_Impressao_NP      ]
       VSD_NITENS          =[Numero_Itens             ]
       VSD_DITENS          =[Tamanho_Descricao_Item   ]
       VSD_OBS             =[NLinhas_Obs_Campo_Itens  ]
       VSD_CARNE           =[Script_Carne             ]
       VSD_BOLETO          =[Script_Impressao_Boleto  ]
       VSD_NLINF           =[NLCheque_Igual_NF        ]
       VSD_VISITA          =[Utiliza_Visita           ]

       VSD_DOC_NF  = [Not_Codigo do Documento  ]  
       VSD_TIP_NF  = [Not_Tipo do Documento    ]  
       VSD_SER_NF  = [Not_Serie do Documento   ]  
       
       VSD_DOC_ROM = [Rom_Codigo do Documento  ]  
       VSD_TIP_ROM = [Rom_Tipo do Documento    ]  
       VSD_SER_ROM = [Rom_Serie do Documento   ]  
       
       VSD_DOC_DUP = [Dup_Codigo do Documento  ]  
       VSD_TIP_DUP = [Dup_Tipo do Documento    ]  
       VSD_SER_DUP = [Dup_Serie do Documento   ]  
       VSD_TPCONS_CLIENTE = [Tipo_Consulta_Cliente]
       
       VSD_BLOQUEIA_CANCEL=[Bloqueia Cancelamento   ]
       VSD_BLOQUEIA_ALTERA=[Bloqueia_Alteracao_NF   ] 
       VSD_NBLOQUEIO_SPC  =[NDias_Bloqueio_SPC      ]
       VSD_CONDPAGTO      =[Utiliza CP e FP Cliente ] 
       VSD_TITCRED        =[Utiliza_Titulo_Credito  ]
       VSD_DATA_BASE      =[Informa_Data_CalcVenctos]
       VSD_RESGPTO        =[Utiliza_Resgate_Pontos  ]
       VSD_UTILIZA_EMAIL  =[Utiliza_Email           ]

  Case OP = "Inicio":
       NewCampo            ="I_EMPRESA"
       Moveto [Codigo_Empresa]
       End Down

EndSwitch
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 Primeira Tela                                                        *
;*******************************************************************************
Proc PriTela()
Show_Tela1    =True
INICIO_DIALOGO=True
Showdialog "Configura‡„o Troca" Proc "Param_Dialog"
   Trigger "OPEN","ARRIVE"
    Key "F1","TAB","ReverseTab","ENTER","ESC","F4","ClearArea","PGDN"
     @ 01,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,10 "Destina‡„o" for "I_DESTINACAO"
   Accept @ 01,11 Width 06 "A3" picture "#*#" Tag "I_DESTINACAO" to VSD_DESTINACAO

   Label  @ 00,22 "Tabela Preco" for "I_TABELA_PRECO"
   Accept @ 01,23 Width 08 "A5" picture "#*#" Tag "I_TABELA_PRECO" to VSD_TABELA_PRECO

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

   Label  @ 00,52 "Conta Caixa" for "I_CONTA_CAIXA"
   Accept @ 01,53 Width 07 "A4" picture "#*#" Tag "I_CONTA_CAIXA" to VSD_CONTA_CAIXA

   Label  @ 02,00 "Cliente" for "I_CLIENTE"
   Accept @ 03,01 Width 07 "A4" picture "!*!" Tag "I_CLIENTE" to VSD_CLIENTE

   Label  @ 02,10 "Vendedor" for "I_VENDEDOR"
   Accept @ 03,11 Width 07 "A4" picture "#*#" Tag "I_VENDEDOR" to VSD_VENDEDOR

   Label  @ 02,22 "Cond. Pagto" for "I_COND_PAGTO"
   Accept @ 03,23 Width 05 "A2" picture "#*#" Tag "I_COND_PAGTO" to VSD_COND_PAGTO

   Label  @ 02,36 "Forma Pagto" for "I_FORMA_PAGTO"
   Accept @ 03,37 Width 05 "A2" picture "&*&" Tag "I_FORMA_PAGTO" to VSD_FORMA_PAGTO
   
   Label  @ 05,00 "Nota Fiscal [                  ]" for "I_DOC_NF"
   Accept @ 05,14 Width 07 "A4" picture "!*!" Tag "I_DOC_NF" to VSD_DOC_NF
   Accept @ 05,20 Width 07 "A4" picture "!*!" Tag "I_TIP_NF" to VSD_TIP_NF
   Accept @ 05,25 Width 07 "A4" picture "!*!" Tag "I_SER_NF" to VSD_SER_NF

   Label  @ 06,00 "Romaneio    [                  ]" for "I_DOC_ROM"
   Accept @ 06,14 Width 07 "A4" picture "!*!" Tag "I_DOC_ROM" to VSD_DOC_ROM
   Accept @ 06,20 Width 07 "A4" picture "!*!" Tag "I_TIP_ROM" to VSD_TIP_ROM
   Accept @ 06,25 Width 07 "A4" picture "!*!" Tag "I_SER_ROM" to VSD_SER_ROM

   Label  @ 07,00 "Duplicata   [                  ]" for "I_DOC_DUP"
   Accept @ 07,14 Width 07 "A4" picture "!*!" Tag "I_DOC_DUP" to VSD_DOC_DUP
   Accept @ 07,20 Width 07 "A4" picture "!*!" Tag "I_TIP_DUP" to VSD_TIP_DUP
   Accept @ 07,25 Width 07 "A4" picture "!*!" Tag "I_SER_DUP" to VSD_SER_DUP

   Label  @ 09,00 "[    ] Data Vencimentos" for "I_DATAS_VENCTOS"
   Accept @ 09,02 Width 04 "A1" picture "F,C" Tag "I_DATAS_VENCTOS" to VSD_DATAS_VENCTOS
   Label  @ 10,00 "[    ] Informa Data p/ Calc Venc." for "I_DATA_BASE"
   Accept @ 10,02 Width 04 "A1" picture "S,N" Tag "I_DATA_BASE" to VSD_DATA_BASE   

   Label  @ 11,00 "[    ] Multiplas Base Calculo Icms" for "I_MULT_BCICMS"
   Accept @ 11,02 Width 04 "A1" picture "S,N" Tag "I_MULT_BCICMS" to VSD_MULT_BCICMS
   Label  @ 12,00 "[    ] Substituicao ICMS" for "I_SUBSTICMS"
   Accept @ 12,02 Width 04 "A1" picture "S,N" Tag "I_SUBSTICMS" to VSD_SUBSTICMS

   Label  @ 13,00 "[    ] Utiliza Vendedor" for "I_UTILIZAVENDEDOR"
   Accept @ 13,02  Width 04 "A1" picture "S,N" Tag "I_UTILIZAVENDEDOR" to VSD_UTILIZAVENDEDOR
   Label  @ 14,00 "[    ] Utiliza Visita" for "I_VISITA"
   Accept @ 14,02 Width 4 "A1" picture "S,N" Tag "I_VISITA" to VSD_VISITA

   Label  @ 15,00 "[    ] Utiliza Limite de Credito" for "I_LIMITE_CREDITO"
   Accept @ 15,02 Width 04 "A1" picture "S,N,P" Tag "I_LIMITE_CREDITO" to VSD_LIMITE_CREDITO
   Label  @ 16,00 "[    ] Utiliza Dias de Atraso" for "I_DIAS_ATRASO"
   Accept @ 16,02 Width 04 "A1" picture "S,N" Tag "I_DIAS_ATRASO" to VSD_DIAS_ATRASO

   Label  @ 17,00 "[    ] Bloqueia Autorizados" for "I_BLOQAUT"
   Accept @ 17,02  Width 04 "A1" picture "S,N" Tag "I_BLOQAUT" to VSD_BLOQAUT
   Label  @ 18,00 "[    ] Bloqueia Estoque Negativo" for "I_BLOQUEIA_NEG"
   Accept @ 18,02 Width 04 "A1" picture "S,N" Tag "I_BLOQUEIA_NEG" to VSD_BLOQUEIA_NEG   

   Label  @ 05,37 "[    ] Gera Vendas a Vista Automatica" for "I_AVISTAAUTOMAT"
   Accept @ 05,39 Width 04 "A1" picture "S,N" Tag "I_AVISTAAUTOMAT" to VSD_AVISTAAUTOMAT
   Label  @ 06,37 "[    ] Gera Vendas a Prazo Automatica" for "I_APRAZOAUTOMAT"
   Accept @ 06,39 Width 04 "A1" picture "S,N" Tag "I_APRAZOAUTOMAT" to VSD_APRAZOAUTOMAT
   Label  @ 07,37 "[    ] Gera Duplicatas a Vista" for "I_AVISTADUPLIC"
   Accept @ 07,39 Width 04 "A1" picture "S,N" Tag "I_AVISTADUPLIC" to VSD_AVISTADUPLIC
   Label  @ 08,37 "[    ] Gera Numero Duplicatas" for "I_DUPLIC_NUMERO"
   Accept @ 08,39 Width 04 "A1" picture "I,D" Tag "I_DUPLIC_NUMERO" to VSD_DUPLIC_NUMERO
   Label  @ 09,37 "[    ] Forma Taxa de Juros Duplicata" for "I_FORMA_TXJUROS"
   Accept @ 09,39 Width 04 "A1" picture "D,M,A" Tag "I_FORMA_TXJUROS" to VSD_FORMA_TXJUROS
   Label  @ 10,37 "[       ] Taxa de Juros Duplicata" for "I_TXJUROS"
   Accept @ 10,39  Width 07 "N" picture "#*#.[##]" Tag "I_TXJUROS" to VSD_TXJUROS

   Label  @ 11,37 "[    ] Utiliza Controle de Cheques" for "I_CCHEQUE"
   Accept @ 11,39  Width 04 "A1" picture "S,N" Tag "I_CCHEQUE" to VSD_CCHEQUE
   Label  @ 12,37 "[    ] No.Lancto Cheque Igual NF" for "I_NLINF"
   Accept @ 12,39 Width 4 "A1" picture "S,N" Tag "I_NLINF" to VSD_NLINF

   Label  @ 13,37 "[    ] Utiliza Codigo de Barras" for "I_UTILIZACDBARRA"
   Accept @ 13,39 Width 04 "A1" picture "S,N" Tag "I_UTILIZACDBARRA" to VSD_UTILIZACDBARRA

   Label  @ 14,37 "[    ] Numero de Vias Romaneio" for "I_NVIAS_ROMANEIO"
   Accept @ 14,39 Width 04 "S"  picture "#*#" Tag "I_NVIAS_ROMANEIO" to VSD_NVIAS_ROMANEIO
   Label  @ 15,37 "[    ] Bloqueia Cancelamento NF" for "I_BLOQUEIA_CANCEL"
   Accept @ 15,39 Width 4 "A1" picture "S,N,P" Tag "I_BLOQUEIA_CANCEL" to VSD_BLOQUEIA_CANCEL
   Label  @ 16,37 "[    ] Bloqueia Altera‡Æo NF" for "I_BLOQUEIA_ALTERA"
   Accept @ 16,39 Width 4 "A1" picture "S,N,P" Tag "I_BLOQUEIA_ALTERA" to VSD_BLOQUEIA_ALTERA
   Label  @ 17,37 "[    ] Bloqueia Reemiss„o/Regera‡Æo NF" for "I_BLOQUEIA_NF"
   Accept @ 17,39 Width 04 "A1" picture "S,N,P" Tag "I_BLOQUEIA_NF" to VSD_BLOQUEIA_NF
   Label  @ 18,37 "[    ] Bloqueia ImpressÆo 2¦ via NF" for "I_BLOQUEIA_IMP"
   Accept @ 18,39 Width 04 "A1" picture "S,N,P" Tag "I_BLOQUEIA_IMP" to VSD_BLOQUEIA_IMP   
   Label  @ 19,37 "[    ] Rateio de Comiss„o/Vendedor" for "I_RATEIO_COMIS_VEND"
   Accept @ 19,39 Width 04 "A1" picture "N,T,I" Tag "I_RATEIO_COMIS_VEND" to VSD_RATEIO_COMIS_VEND
Enddialog

EndProc ;(PriTela)

;*******************************************************************************
;* Rotina Segunda Tela                                                        *
;*******************************************************************************
Proc SegTela()
Show_Tela1    =False
INICIO_DIALOGO=True
NewCampo="I_NOTA"
Showdialog "Configura‡„o Troca" Proc "Param_Dialog"
   Trigger "OPEN","ARRIVE"
    Key "F1","TAB","ReverseTab","ENTER","ESC","F4","ClearArea","PGDN","PGUP"
     @ 01,0 height 22 width 80

   Label  @ 00,00 "[           ] Script Nota Fiscal" for "I_NOTA"
   Accept @ 00,02 Width 11 "A8" picture "!*!" Tag "I_NOTA" to VSD_NOTA
   Label  @ 01,00 "[           ] Script Romaneio" for "I_ROMANEIO"
   Accept @ 01,02 Width 11 "A8" picture "!*!" Tag "I_ROMANEIO" to VSD_ROMANEIO
   Label  @ 02,00 "[           ] Script Promissoria" for "I_NPROMISSORIA"
   Accept @ 02,02 Width 11 "A8" picture "!*!" Tag "I_NPROMISSORIA" to VSD_NPROMISSORIA
   Label  @ 03,00 "[           ] Script Carnˆ" for "I_CARNE"
   Accept @ 03,02 Width 11 "A8" picture "!*!" Tag "I_CARNE" to VSD_CARNE
   Label  @ 04,00 "[           ] Script Boleto" for "I_BOLETO"
   Accept @ 04,02 Width 11 "A8" picture "!*!" Tag "I_BOLETO" to VSD_BOLETO

   ;Label  @ 07,00 "[      ] N§ Linhas de Itens" for "I_NITENS"
   ;Accept @ 07,02 Width 06 "S" picture "#*#" Tag "I_NITENS" to VSD_NITENS
   ;Label  @ 08,00 "[      ] Tamanho Descri‡„o do Item" for "I_DITENS"
   ;Accept @ 08,02 Width 06 "S" picture "#*#" Tag "I_DITENS" to VSD_DITENS
   ;
   ;Label  @ 09,00 "[      ] N§ Linhas p/ Observa‡„o" for "I_OBS"
   ;Accept @ 09,02 Width 06 "S" picture "#*#" Tag "I_OBS" to VSD_OBS

   Label  @ 05,00 "[    ] Utiliza Cor/Tecido" for "I_COR_TECIDO"
   Accept @ 05,02 Width 04 "A1" picture "S,N" Tag "I_COR_TECIDO" to VSD_COR_TECIDO
   Label  @ 06,00 "[    ] Utiliza Tamanho" for "I_TAMANHO"
   Accept @ 06,02 Width 04 "A1" picture "S,N" Tag "I_TAMANHO" to VSD_TAMANHO
   Label  @ 07,00 "[    ] Utiliza Impostos" for "I_IMPOSTOS"
   Accept @ 07,02 Width 04 "A1" picture "S,N" Tag "I_IMPOSTOS" to VSD_IMPOSTOS

   Label  @ 08,00 "[    ] Altera Pre‡o Unit rio" for "I_ALTERA_PRECO"
   Accept @ 08,02 Width 04 "A1" picture "S,N,P" Tag "I_ALTERA_PRECO" to VSD_ALTERA_PRECO
   Label  @ 09,00 "[    ] Utiliza Desconto Unit rio" for "I_DESCUNIT"
   Accept @ 09,02 Width 04 "A1" picture "S,N" Tag "I_DESCUNIT" to VSD_DESCUNIT

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

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

   Label  @ 12,00 "[    ] Utiliza TabPreco Cliente/Item" for "I_TABPR_CLIENTE"
   Accept @ 12,02 Width 4 "A1" picture "S,N" Tag "I_TABPR_CLIENTE" to VSD_TABPR_CLIENTE

   Label  @ 13,00 "[    ] Utiliza TabPreco Repres/Item" for "I_TABPR_REPRES"
   Accept @ 13,02 Width 4 "A1" picture "S,N" Tag "I_TABPR_REPRES" to VSD_TABPR_REPRES

   Label  @ 14,00 "[    ] Tipo Consulta Cliente [F1]" for "I_TPCONS_CLIENTE"
   Accept @ 14,02 Width 4 "A1" picture "P,S" Tag "I_TPCONS_CLIENTE" to VSD_TPCONS_CLIENTE
   
   Label  @ 15,00 "[      ] NDias de Bloqueio SPC" for "I_NBLOQUEIO_SPC"
   Accept @ 15,02 Width 06 "S" picture "#*#" Tag "I_NBLOQUEIO_SPC" to VSD_NBLOQUEIO_SPC

   Label  @ 16,00 "[    ] Utiliza CP e FP conforme Cliente" for "I_CONDPAGTO"
   Accept @ 16,02 Width 04 "A1" picture "S,N" Tag "I_CONDPAGTO" to VSD_CONDPAGTO
   
   Label  @ 17,00 "[    ] Utiliza T¡tulo de Cr‚dito" for "I_TITCRED"
   Accept @ 17,02 Width 04 "A1" picture "N,T" Tag "I_TITCRED" to VSD_TITCRED
   
   Label  @ 18,00 "[    ] Utiliza Resgate de Pontos" for "I_RESGPTO"
   Accept @ 18,02 Width 04 "A1" picture "S,N" Tag "I_RESGPTO" to VSD_RESGPTO
   
   Label  @ 19,00 "[    ] Utiliza E-Mail" for "I_UTILIZA_EMAIL"
   Accept @ 19,02 Width 4 "A1" picture "H,D,N" Tag "I_UTILIZA_EMAIL" to VSD_UTILIZA_EMAIL
   
EndDialog

EndProc  ;(SegTela)

;*******************************************************************************
;* 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_Troca"
Chave=9
Finalizar=False
While Not Finalizar
  If Chave=9
     Then PARAM_OPCAO("Inicio") ;Cria Registro Novo
          PARAM_OPCAO("Ler")    ;Limpa Tela
  EndIf
  PriTela()
  If Finalizar Then QuitLoop EndIf
  If Chave=9   Then     Loop EndIf ; Volta na Chave I_EMPRESA
  SegTela()
EndWhile
Do_It!
ClearAll
Release Vars All
Release Procs All
