;* P_Balcao ********************************************************************
;*  Configuracao de Paramentos p/ Balcao                                       *
;*******************************************************************************
;Autor: Visao/Vise
;Desenvolvido    : 17/05/2001 por Anivel Augusto Rodrigues
;Ultima Alteracao: 06/06/2006 por Anivel Augusto Rodrigues
;Motivo Alteracao: Comissao Item
;Ultima Alteracao: 20/12/2006 por Anivel Augusto Rodrigues
;Motivo Alteracao: PARAM_EXIBECUSTO
;Ultima Alteracao: 05/09/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Controle Descto Unitario
;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: 02/04/2009 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao Bloqueio_Meses_SemVenda - Rolamentos
;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: 12/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: 25/04/2012 por Bruno Carvalho
;Motivo Alteracao: Inclusao "Utiliza Bloqueio SPC"
;Ultima Alteracao: 01/08/2012 por Bruno Carvalho
;Motivo Alteracao: AJustes, deslocamento do campo BLOQUEIA_REEMISAO para o final da segunda tela.
;Ultima Alteracao: 28/12/2012 por Bruno Carvalho
;Motivo Alteracao: Inclusao "Utiliza Valor de Entrada"
;Ultima Alteracao: 28/08/2013 por Bruno Carvalho                           
;Motivo Alteracao: Ajustes UTILIZA_ENTRADA
;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: 24/06/2014 por Bruno Carvalho
;Motivo Alteracao: Adicionado uma terceira tela para adi‡Æo de parƒmetros 
;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: 27/07/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes nÆo usar condi‡Æo pagamento por item
;Ultima Alteracao: 12/07/2019 por Kamila Gomes
;Motivo Alteracao: Ajustes picture do campo Cliente para aceitar letras
;Ultima Alteracao: 19/10/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado [Utiliza_Resgate_Pontos]

;*******************************************************************************
;* 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"] = -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_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_MULT_BCICMS"             : Campo="I_DATA_BASE"
             Case Campo="I_SUBSTICMS"               : Campo="I_MULT_BCICMS"
             Case Campo="I_PEDIDO"                  : Campo="I_SUBSTICMS"
             Case Campo="I_ORCAMENTO"               : Campo="I_PEDIDO"
             Case Campo="I_ORDEM_SERVICO"           : Campo="I_ORCAMENTO"
             Case Campo="I_CUPOM_FISCAL"            : Campo="I_ORDEM_SERVICO"
             Case Campo="I_UTILIZAVENDEDOR"         : Campo="I_CUPOM_FISCAL"
             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_ENTREGA"                 : Campo="I_DIAS_ATRASO"
             Case Campo="I_BLOQAUT"                 : Campo="I_ENTREGA"
             Case Campo="I_FATURA_NUMERO"           : Campo="I_BLOQAUT"
             Case Campo="I_AVISTAAUTOMAT"           : Campo="I_FATURA_NUMERO"
             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_COMIS_VENCTO"            : Campo="I_TXJUROS"
             Case Campo="I_CCHEQUE"                 : Campo="I_COMIS_VENCTO"
             Case Campo="I_NLINF"                   : Campo="I_CCHEQUE"
             Case Campo="I_UTILIZA_COMIS_VEND"      : Campo="I_NLINF"
             Case Campo="I_UTILIZA_COMIS_VEND_RT"   : Campo="I_UTILIZA_COMIS_VEND"
             Case Campo="I_RATEIO_COMIS_VEND"       : Campo="I_UTILIZA_COMIS_VEND_RT"
             Case Campo="I_NOTA"                    : Campo="I_NVIAS_ROMANEIO"
             Case Campo="I_NVIAS_ROMANEIO"          :
                  NewCampo="I_DESTINACAO"
                  Show_Tela1 = True
                  Show_Tela2 = False
                  Show_Tela3 = False
                  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_SENTREGA"                : Campo="I_BOLETO"
             Case Campo="I_PENTREGA"                : Campo="I_SENTREGA"
             Case Campo="I_DESCTO"                : Campo="I_SENTREGA"
             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_BLOQUEIA_NEG"          : Campo="I_DESCTOUNIT"
             Case Campo="I_UTILIZACDBARRA"          : Campo="I_BLOQUEIA_NEG"
             Case Campo="I_COR_TECIDO"              : Campo="I_UTILIZACDBARRA"
             Case Campo="I_TAMANHO"                 : Campo="I_COR_TECIDO"
             Case Campo="I_TPITEM"                  : Campo="I_TAMANHO"
             Case Campo="I_CPITEM"                  : Campo="I_TPITEM"
             Case Campo="I_CMARCA"                  : Campo="I_CPITEM"
             Case Campo="I_COMISIT"                 : Campo="I_CMARCA"
             Case Campo="I_ALTERA_PRECO"            : Campo="I_COMISIT"
             Case Campo="I_IMPOSTOS"                : Campo="I_ALTERA_PRECO"
             Case Campo="I_VOLUMES"                 : Campo="I_IMPOSTOS"
             Case Campo="I_ULTCTT"                  : Campo="I_VOLUMES"
             Case Campo="I_TABPR_CLIENTE"           : Campo="I_ULTCTT"
             Case Campo="I_TABPR_REPRES"            : Campo="I_TABPR_CLIENTE"
             Case Campo="I_TABPR_CPAGTO"            : Campo="I_TABPR_REPRES"
             Case Campo="I_EXIBE_CUSTO"             : Campo="I_TABPR_CPAGTO"
             Case Campo="I_TPCONS_CLIENTE"          : Campo="I_EXIBE_CUSTO"
             Case Campo="I_MESES_SEMVENDA"          : Campo="I_TPCONS_CLIENTE"
             Case Campo="I_BLOQUEIA_CANCEL"         : Campo="I_MESES_SEMVENDA"
             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_ENTRADA"                 : Campo="I_BLOQUEIA_IMP"
             Case Campo="I_NBLOQUEIO_SPC"           : Campo="I_ENTRADA"
             Case Campo="I_CONDPAGTO"               : Campo="I_NBLOQUEIO_SPC"

             Case Campo="I_BLOQVRVENCTO"            :
                  NewCampo="I_NOTA"
                  Show_Tela1 = False
                  Show_Tela2 = True
                  Show_Tela3 = False
                  CancelDialog             
             Case Campo="I_TITCRED"                 : Campo="I_BLOQVRVENCTO"
             Case Campo="I_RESGPTO"                 : Campo="I_TITCRED"
             Case Campo="I_QTD_SOLICITADA"          : 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)
                          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")
                  If Not IsBlank(VSD_FORMA_PAGTO)
                     Then Moveto [Codigo_Forma_Pagto]
                          Ativa_Lookup()
                          Locate VSD_FORMA_PAGTO
                          If Not RetVal
                             Then Mensagem("Codigo n„o Cadastrado !")
                             Else VSD_FORMA_PAGTO=[Tipo do Pagamento]
                                  Campo="I_DOC_NF"
                          EndIf
                          KeyPress "ESC"
                     Else Campo="I_DOC_NF"
                  EndIf

             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_MULT_BCICMS"  									
             Case Campo="I_MULT_BCICMS":
                  VSD_MULT_BCICMS=ControlValue("I_MULT_BCICMS")
                  If IsBlank(VSD_MULT_BCICMS)
                     Then VSD_MULT_BCICMS="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_PEDIDO"
            Case Campo="I_PEDIDO":
                 VSD_PEDIDO=ControlValue("I_PEDIDO")
                  If IsBlank(VSD_PEDIDO)
                     Then VSD_PEDIDO="N"
                  EndIf
                 Campo="I_ORCAMENTO"
             Case Campo="I_ORCAMENTO":
                  VSD_ORCAMENTO=ControlValue("I_ORCAMENTO")
                  If IsBlank(VSD_ORCAMENTO)
                     Then VSD_ORCAMENTO="N"
                  EndIf
                  If VSD_ORCAMENTO="S"
                     Then VSD_ORDEM_SERVICO="N"
                          Campo="I_CUPOM_FISCAL"
                     Else Campo="I_ORDEM_SERVICO"
                  EndIf
             Case Campo="I_ORDEM_SERVICO":
                  VSD_ORDEM_SERVICO=ControlValue("I_ORDEM_SERVICO")
                  If IsBlank(VSD_ORDEM_SERVICO)
                     Then VSD_ORDEM_SERVICO="N"
                  EndIf
                  If VSD_ORDEM_SERVICO="S"
                     Then VSD_ORCAMENTO="N"
                  EndIf
                  Campo="I_CUPOM_FISCAL"
             Case Campo="I_CUPOM_FISCAL":
                  VSD_CUPOM_FISCAL=ControlValue("I_CUPOM_FISCAL")
                  If IsBlank(VSD_CUPOM_FISCAL)
                     Then VSD_CUPOM_FISCAL="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_ENTREGA"
             Case Campo="I_ENTREGA":
                  VSD_ENTREGA=ControlValue("I_ENTREGA")
                  If IsBlank(VSD_ENTREGA)
                     Then VSD_ENTREGA="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_FATURA_NUMERO"
             Case Campo="I_FATURA_NUMERO":
                  VSD_FATURA_NUMERO=ControlValue("I_FATURA_NUMERO")
                  If IsBlank(VSD_FATURA_NUMERO)
                     Then VSD_FATURA_NUMERO="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_COMIS_VENCTO"
                     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_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_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_UTILIZA_COMIS_VEND"
             Case Campo="I_UTILIZA_COMIS_VEND":
                  VSD_UTILIZA_COMIS_VEND=ControlValue("I_UTILIZA_COMIS_VEND")
                  If IsBlank(VSD_UTILIZA_COMIS_VEND)
                     Then VSD_UTILIZA_COMIS_VEND="N"
                  EndIf
                  Campo="I_UTILIZA_COMIS_VEND_RT"
             Case Campo="I_UTILIZA_COMIS_VEND_RT":
                  VSD_UTILIZA_COMIS_VEND_RT=ControlValue("I_UTILIZA_COMIS_VEND_RT")
                  If IsBlank(VSD_UTILIZA_COMIS_VEND_RT)
                     Then VSD_UTILIZA_COMIS_VEND_RT="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
                  Show_Tela1 = False
                  Show_Tela2 = True
                  Show_Tela3 = False
                  AcceptDialog                


             Case Campo="I_NVIAS_ROMANEIO":
                  VSD_NVIAS_ROMANEIO=ControlValue("I_NVIAS_ROMANEIO")
                  Campo="I_NOTA"

             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_SENTREGA"
             Case Campo="I_SENTREGA":
                  VSD_SENTREGA=ControlValue("I_SENTREGA")
                  If Not IsBlank(VSD_SENTREGA)
                     Then Campo="I_PENTREGA"
                     Else Campo="I_DESCTO"
                  EndIf 
             Case Campo="I_PENTREGA":
                  VSD_PENTREGA=ControlValue("I_PENTREGA")
                  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_BLOQUEIA_NEG"
                     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_BLOQUEIA_NEG"
                     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_BLOQUEIA_NEG"
                  EndIf
             Case Campo="I_TXDESCTOUNIT":
                  VSD_TXDESCTOUNIT=ControlValue("I_TXDESCTOUNIT")
                  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_UTILIZACDBARRA"
             Case Campo="I_UTILIZACDBARRA":
                  VSD_UTILIZACDBARRA=ControlValue("I_UTILIZACDBARRA")
                  If IsBlank(VSD_UTILIZACDBARRA)
                     Then VSD_UTILIZACDBARRA="N"
                  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_TPITEM"
             Case Campo="I_TPITEM":
                  VSD_TPITEM=ControlValue("I_TPITEM")
                  If IsBlank(VSD_TPITEM)
                     Then VSD_TPITEM="N"
                  EndIf
                  Campo="I_CPITEM"
             Case Campo="I_CPITEM":
                  VSD_CPITEM=ControlValue("I_CPITEM")
                  If IsBlank(VSD_CPITEM)
                     Then VSD_CPITEM="N"
                  EndIf
									Campo="I_CMARCA"
						 Case Campo="I_CMARCA":
									VSD_CMARCA=ControlValue("I_CMARCA")
									If IsBlank(VSD_CMARCA)
										 Then VSD_CMARCA="N"
                  EndIf
                  Campo="I_COMISIT"
             Case Campo="I_COMISIT":
                  VSD_COMISIT=ControlValue("I_COMISIT")
                  If IsBlank(VSD_COMISIT)
                     Then VSD_COMISIT="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_IMPOSTOS"
             Case Campo="I_IMPOSTOS":
                  VSD_IMPOSTOS=ControlValue("I_IMPOSTOS")
                  If IsBlank(VSD_IMPOSTOS)
                     Then VSD_IMPOSTOS="S"
                  EndIf
									Campo="I_VOLUMES"
             Case Campo="I_VOLUMES":
                  VSD_VOLUMES=ControlValue("I_VOLUMES")
                  If IsBlank(VSD_VOLUMES)
                     Then VSD_VOLUMES="N"
                  EndIf
                  Campo= "I_ULTCTT"
             Case Campo="I_ULTCTT":
                  VSD_ULTCTT=ControlValue("I_ULTCTT")
                  If IsBlank(VSD_ULTCTT)
                     Then VSD_ULTCTT="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_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_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_MESES_SEMVENDA"
             Case Campo="I_MESES_SEMVENDA":
                  VSD_MESES_SEMVENDA=ControlValue("I_MESES_SEMVENDA")
                  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_ENTRADA" 
             Case Campo="I_ENTRADA" :
                  VSD_ENTRADA=ControlValue("I_ENTRADA")
                  If IsBlank(VSD_ENTRADA)
                     Then VSD_ENTRADA="3"
                  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
                  Show_Tela1 = False
                  Show_Tela2 = False
                  Show_Tela3 = True                  
                  AcceptDialog  
                  
             Case Campo="I_BLOQVRVENCTO": 
                  VSD_BLOQVRVENCTO = ControlValue("I_BLOQVRVENCTO")
                  If IsBlank(VSD_BLOQVRVENCTO)
                     Then VSD_BLOQVRVENCTO="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_QTD_SOLICITADA"
             Case Campo="I_QTD_SOLICITADA" : 
                  VSD_QTD_SOLICITADA = ControlValue("I_QTD_SOLICITADA")
                  If IsBlank(VSD_QTD_SOLICITADA)
                     Then VSD_QTD_SOLICITADA="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
                  Show_Tela1 = True
                  Show_Tela2 = False
                  Show_Tela3 = False  
                  Chave=9
                  AcceptDialog
                  
           EndSwitch
      Case Evento["KeyCode"] = -73:  
           Switch
             Case Show_Tela2 : Verifica2() 
             Case Show_Tela3 : Verifica3()           
           EndSwitch
           Switch
             Case Show_Tela2 : CancelDialog
                               NewCampo="I_DESTINACAO"
                               Show_Tela1 = True
                               Show_Tela2 = False
                               Show_Tela3 = False  
             Case Show_Tela3 : CancelDialog
                               NewCampo="I_NVIAS_ROMANEIO"
                               Show_Tela1 = False
                               Show_Tela2 = True
                               Show_Tela3 = False                    
           Endswitch
      Case Evento["KeyCode"] = -81: 
           Switch
             Case Show_Tela1 : If Verifica() And Campo<>"I_EMPRESA"
                                  Then Show_Tela1 = False
                                       Show_Tela2 = True
                                       Show_Tela3 = False
                                       AcceptDialog
                               EndIf
             Case Show_Tela2 : If Verifica2() And Campo<>"I_NVIAS_ROMANEIO"
                                  Then Show_Tela1 = False
                                       Show_Tela2 = False
                                       Show_Tela3 = True
                                       AcceptDialog
                               EndIf                                
             OtherWise       : ConfGeral("Confirma novos parametros?")
                               If OK="S"
                                  Then If Verifica3()
                                          Then PARAM_OPCAO("Gravar")
                                       EndIf   
                                  Else If Chave=1
                                          Then Del  ; Registro Novo
                                          Else Undo ; Registro Existente
                                       EndIf
                               EndIf
                               Show_Tela1 = True
                               Show_Tela2 = False
                               Show_Tela3 = False
                               Chave=9
                               AcceptDialog
           EndSwitch
   EndSwitch
EndIf
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  "
   Else TECLA=TECLA+"            "
EndIf
If Campo<>"I_EMPRESA"
   Then If Chave=0
           Then TECLA=TECLA+"Ctrl+Del=Excluir  "
           Else TECLA=TECLA+"                  "
        EndIf
        
        Switch
          Case Show_Tela1 Or 
               Show_Tela2  : TECLA=TECLA+"             PgDn=Avan‡ar    "
          OtherWise        : TECLA=TECLA+"PgUp=Voltar  PgDn=Finalizar  "
        EndSwitch
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_UTILIZA_COMIS_VEND": MSGCAMPO="Utiliza ComissÆo dos Vendedores? Sim/N„o"
  Case Campo="I_LIMITE_CREDITO"  : MSGCAMPO="Bloqueia Limite de Credito? Sim/N„o/Permiss„o"
  Case Campo="I_DIAS_ATRASO"     : MSGCAMPO="Bloqueia Dias em Atraso? Sim/N„o/Permiss„o"
  Case Campo="I_NVIAS_ROMANEIO"  : MSGCAMPO="Numero de Vias Romaneio a Imprimir"
  Case Campo="I_ENTREGA"         : MSGCAMPO="Entrega Mercadorias no Cliente? 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_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_RATEIO_COMIS_VEND": MSGCAMPO="Forma de rateio comiss„o? N„o usa/Total nota/por Item"
  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_SENTREGA"        : MSGCAMPO="Informe o Script para Impressao do Comprovante de Entrega"
  Case Campo="I_PENTREGA"        : MSGCAMPO="Informe a Porta de Impressao do Comprovante de Entrega"
  Case Campo="I_TABPR_CPAGTO"    : MSGCAMPO="Utilizar Pre‡o da Tabela conforme Cond.Pagto ? Sim/N„o"
  Case Campo="I_COMISIT"         : 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_TPCONS_CLIENTE"  : MSGCAMPO="Tipo consulta: P=padr„o  S=sele‡„o"
  Case Campo="I_MESES_SEMVENDA"  : MSGCAMPO="Quantidade de mes(es) sem venda para bloqueio ?"
  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_BLOQUEIA_NF"     : MSGCAMPO="Bloqueia Reemiss„o/Regera‡Æo da Nota Fiscal? Sim/N„o/Permiss„o"
  Case Campo="I_BLOQUEIA_IMP"    : MSGCAMPO="Bloqueia ImpressÆo 2¦ via da Nota Fiscal? Sim/N„o/Permiss„o"  
  Case Campo="I_ENTRADA"         : MSGCAMPO="Altera Valor Primeira Parcela? 1=Valor/Entrada 2=Entrada 3=N„o"
  Case Campo="I_NBLOQUEIO_SPC"   : MSGCAMPO="N£mero de Dias p/ Bloqueio de Cadastro no SPC"
  Case Campo="I_CONDPAGTO"       : MSGCAMPO="Utiliza Cond/Forma Pagto do cliente? Sim/N„o"
  Case Campo="I_BLOQVRVENCTO"    : MSGCAMPO="Bloqueia VrTotal diferente VrVencimentos? Sim/N„o/Permiss„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_QTD_SOLICITADA"  : MSGCAMPO="Utiliza Quantidade Solicitada na Digita‡Æo do Item? Sim/N„o"
EndSwitch

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_PEDIDO=ControlValue("I_PEDIDO")
If IsBlank(VSD_PEDIDO)
   Then VSD_PEDIDO="N"
EndIf

VSD_ORCAMENTO=ControlValue("I_ORCAMENTO")
If IsBlank(VSD_ORCAMENTO)
   Then VSD_ORCAMENTO="N"
EndIf

If VSD_ORCAMENTO="S"
   Then VSD_ORDEM_SERVICO="N"
EndIf

VSD_ORDEM_SERVICO=ControlValue("I_ORDEM_SERVICO")
If IsBlank(VSD_ORDEM_SERVICO)
   Then VSD_ORDEM_SERVICO="N"
EndIf

If VSD_ORDEM_SERVICO="S"
   Then VSD_ORCAMENTO="N"
EndIf

VSD_CUPOM_FISCAL=ControlValue("I_CUPOM_FISCAL")
If IsBlank(VSD_CUPOM_FISCAL)
   Then VSD_CUPOM_FISCAL="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_ENTREGA=ControlValue("I_ENTREGA")
If IsBlank(VSD_ENTREGA)
   Then VSD_ENTREGA="N"
EndIf

VSD_BLOQAUT=ControlValue("I_BLOQAUT")
If IsBlank(VSD_BLOQAUT)
   Then VSD_BLOQAUT="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_FATURA_NUMERO=ControlValue("I_FATURA_NUMERO")
If IsBlank(VSD_FATURA_NUMERO)
   Then VSD_FATURA_NUMERO="N"
EndIf

VSD_FORMA_TXJUROS=ControlValue("I_FORMA_TXJUROS")

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

VSD_COMIS_VENCTO=ControlValue("I_COMIS_VENCTO")
If IsBlank(VSD_COMIS_VENCTO)
   Then VSD_COMIS_VENCTO="N"
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_UTILIZA_COMIS_VEND=ControlValue("I_UTILIZA_COMIS_VEND")
If IsBlank(VSD_UTILIZA_COMIS_VEND)
   Then VSD_UTILIZA_COMIS_VEND="N"
EndIf

VSD_UTILIZA_COMIS_VEND_RT=ControlValue("I_UTILIZA_COMIS_VEND_RT")
If IsBlank(VSD_UTILIZA_COMIS_VEND_RT)
   Then VSD_UTILIZA_COMIS_VEND_RT="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 para Gravar                                                           *
;*******************************************************************************
Proc Verifica2()

  WV=True

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


  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_SENTREGA=ControlValue("I_SENTREGA")
  VSD_PENTREGA=ControlValue("I_PENTREGA")
  ;VSD_NITENS=ControlValue("I_NITENS")
  ;VSD_DITENS=ControlValue("I_DITENS")
  ;VSD_OBS=ControlValue("I_OBS")

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

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

  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_TPITEM=ControlValue("I_TPITEM")
  If IsBlank(VSD_TPITEM)
     Then VSD_TPITEM="N"
  EndIf

  VSD_CPITEM=ControlValue("I_CPITEM")
  If IsBlank(VSD_CPITEM)
     Then VSD_CPITEM="N"
  EndIf

  VSD_CMARCA=ControlValue("I_CMARCA")
  If IsBlank(VSD_CMARCA)
     Then VSD_CMARCA="N"
  EndIf

  VSD_COMISIT=ControlValue("I_COMISIT")
  If IsBlank(VSD_COMISIT)
     Then VSD_COMISIT="N"
  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_IMPOSTOS=ControlValue("I_IMPOSTOS")
  If IsBlank(VSD_IMPOSTOS)
     Then VSD_IMPOSTOS="S"
  EndIf

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

	VSD_ULTCTT=ControlValue("I_ULTCTT")
	If IsBlank(VSD_ULTCTT)
		 Then VSD_ULTCTT="N"
	EndIf

  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_TABPR_CPAGTO=ControlValue("I_TABPR_CPAGTO")
  If IsBlank(VSD_TABPR_CPAGTO)
     Then VSD_TABPR_CPAGTO ="N"
  EndIf

   VSD_DESCTO=ControlValue("I_DESCTO")
   If IsBlank(VSD_DESCTO)
      Then VSD_DESCTO="N"
   EndIf
   If VSD_DESCTO="N"
      Then VSD_TPDESCTO=""
           VSD_TXDESCTO=BlankNum()
   EndIf

   VSD_DESCTOUNIT=ControlValue("I_DESCTOUNIT")
   If IsBlank(VSD_DESCTOUNIT)
      Then VSD_DESCTOUNIT="N"
   EndIf
   If VSD_DESCTOUNIT="N"
      Then VSD_TPDESCTOUNIT=""
           VSD_TXDESCTOUNIT=BlankNum()
   EndIf

  VSD_EXIBE_CUSTO=ControlValue("I_EXIBE_CUSTO")
  If IsBlank(VSD_EXIBE_CUSTO)
     Then VSD_EXIBE_CUSTO ="N"
  EndIf

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

  VSD_MESES_SEMVENDA=ControlValue("I_MESES_SEMVENDA")
  
  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_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_NBLOQUEIO_SPC=ControlValue("I_NBLOQUEIO_SPC")
  If IsBlank(VSD_NBLOQUEIO_SPC)
     Then VSD_NBLOQUEIO_SPC=BlankNum()
  EndIf  
  
   VSD_ENTRADA=ControlValue("I_ENTRADA")
   If IsBlank(VSD_ENTRADA)
      Then VSD_ENTRADA="3"
   EndIf  

  Return WV

EndProc ;Verifica2()

;*******************************************************************************
;* Rotina para Gravar                                                           *
;*******************************************************************************
Proc Verifica3()

WV=True

VSD_BLOQVRVENCTO=ControlValue("I_BLOQVRVENCTO")
If IsBlank(VSD_BLOQVRVENCTO)
   Then VSD_BLOQVRVENCTO="N"
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_QTD_SOLICITADA = ControlValue("I_QTD_SOLICITADA")
If IsBlank(VSD_QTD_SOLICITADA)
   Then VSD_QTD_SOLICITADA="N"
EndIf

Return WV

EndProc ;Verifica3()  

;*******************************************************************************
;* Rotina Gravacao ou Leitura dos Parametros                                   *
;*******************************************************************************
Proc PARAM_OPCAO(OP)
Private OP
Switch
  Case OP = "Gravar":
       [Codigo_Destinacao        ] = VSD_DESTINACAO
       [Codigo_Conta_Caixa       ] = VSD_CONTA_CAIXA
       [Datas_Vencimentos        ] = VSD_DATAS_VENCTOS
       [Informa_Data_CalcVenctos ] = VSD_DATA_BASE
       [Cor_Tecido               ] = VSD_COR_TECIDO
       [Tamanho                  ] = VSD_TAMANHO
       [Desconto Unitario        ] = VSD_DESCUNIT
       [Volumes                  ] = VSD_VOLUMES
       [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
       [Entrega_Mercadoria       ] = VSD_ENTREGA
       [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
       [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
       [Calcula_Comissao_Vencto  ] = VSD_COMIS_VENCTO
       [Bloqueia_Autorizados     ] = VSD_BLOQAUT
       [Utiliza_Controle_Cheques ] = VSD_CCHEQUE
       [Comissao_Item            ] = VSD_COMISIT
       [Utiliza_Comissao_Vendedor] = VSD_UTILIZA_COMIS_VEND

       [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_Impressao_Carne   ] = VSD_CARNE
       [Script_Impressao_Boleto  ] = VSD_BOLETO
       [Script_Impressao_Entrega ] = VSD_SENTREGA
       [Porta_Impressao_Entrega  ] = VSD_PENTREGA
       [NLCheque_Igual_NF        ] = VSD_NLINF
       [Utiliza_Visita           ] = VSD_VISITA
       [Utiliza_Comissao_Marca   ] = VSD_CMARCA

       [Utiliza_Tabela_Preco_Item] = VSD_TPITEM
       [Gera_Fatura_Igual_OF     ] = VSD_FATURA_NUMERO
       [Utiliza_Comissao_Vendedor] = VSD_UTILIZA_COMIS_VEND
       [Utiliza_Rateio_Comissao  ] = VSD_RATEIO_COMIS_VEND
       [Utiliza_UltCust_Transfer ] = VSD_ULTCTT
       [Utiliza_Comissao_VendReal] = VSD_UTILIZA_COMIS_VEND_RT
       [Utiliza_TabPreco_Cliente ] = VSD_TABPR_CLIENTE
       [Utiliza_TabPreco_Repres  ] = VSD_TABPR_REPRES
       [Pega_Preco_Tabela_CPagto ] = VSD_TABPR_CPAGTO

       [Utiliza_Bloqueio_Descto  ] = VSD_DESCTO
       [Tipo_Bloqueio_Descto     ] = VSD_TPDESCTO
       [Taxa_Bloqueio_Descto     ] = VSD_TXDESCTO
       [Exibe_Custo_Item_Consulta] = VSD_EXIBE_CUSTO

       [Utiliza_Bloqueio_DesctoUn] = VSD_DESCTOUNIT
       [Tipo_Bloqueio_DesctoUn   ] = VSD_TPDESCTOUNIT
       [Taxa_Bloqueio_DesctoUn   ] = VSD_TXDESCTOUNIT

       
       [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
       [Bloqueio_Meses_SemVenda  ] = VSD_MESES_SEMVENDA
       [Bloqueia Cancelamento    ] = VSD_BLOQUEIA_CANCEL
       [Bloqueia_Reemissao_NF    ] = VSD_BLOQUEIA_NF
       [Bloqueia_Impressao_2via  ] = VSD_BLOQUEIA_IMP
       [Utiliza_Entrada          ] = VSD_ENTRADA
       [Bloqueia_Alteracao_NF    ] = VSD_BLOQUEIA_ALTERA
       
       [NDias_Bloqueio_SPC       ] = VSD_NBLOQUEIO_SPC
       [Utiliza CP e FP Cliente  ] = VSD_CONDPAGTO
       [Bloqueio Valor Vencto    ] = VSD_BLOQVRVENCTO
       [Utiliza_Titulo_Credito   ] = VSD_TITCRED
       [Utiliza_Resgate_Pontos   ] = VSD_RESGPTO
       [Utiliza_Qtd_Solicitada   ] = VSD_QTD_SOLICITADA 
       
       UnLockRecord

  Case OP = "Ler":
       VSD_EMPRESA         =[Codigo_Empresa           ]
       VSD_DESTINACAO      =[Codigo_Destinacao        ]
       VSD_CONTA_CAIXA     =[Codigo_Conta_Caixa       ]
       VSD_DATAS_VENCTOS   =[Datas_Vencimentos        ]
       VSD_DATA_BASE       =[Informa_Data_CalcVenctos ]
       VSD_COR_TECIDO      =[Cor_Tecido               ]
       VSD_TAMANHO         =[Tamanho                  ]
       VSD_DESCUNIT        =[Desconto Unitario        ]
       VSD_VOLUMES         =[Volumes                  ]
       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_ENTREGA         =[Entrega_Mercadoria       ]
       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_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_COMIS_VENCTO    =[Calcula_Comissao_Vencto  ]
       VSD_BLOQAUT         =[Bloqueia_Autorizados     ]
       VSD_CCHEQUE         =[Utiliza_Controle_Cheques ]
       VSD_COMISIT         =[Comissao_Item            ]
       VSD_UTILIZA_COMIS_VEND    = [Utiliza_Comissao_Vendedor]
       VSD_RATEIO_COMIS_VEND     = [Utiliza_Rateio_Comissao]
       VSD_UTILIZA_COMIS_VEND_RT = [Utiliza_Comissao_VendReal]
       VSD_TABPR_CLIENTE   =[Utiliza_TabPreco_Cliente ]
       VSD_TABPR_REPRES    =[Utiliza_TabPreco_Repres]
       VSD_TABPR_CPAGTO    =[Pega_Preco_Tabela_CPagto ]
       
       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_Impressao_Carne   ]
       VSD_BOLETO          =[Script_Impressao_Boleto  ]
       VSD_SENTREGA        =[Script_Impressao_Entrega ]
       VSD_PENTREGA        =[Porta_Impressao_Entrega  ]
       VSD_NLINF           =[NLCheque_Igual_NF        ]
       VSD_VISITA          =[Utiliza_Visita           ]
       VSD_CMARCA          =[Utiliza_Comissao_Marca   ]
       VSD_CPITEM          = "N" ;nao utilizar mais condicao de pagto no item
       VSD_TPITEM          =[Utiliza_Tabela_Preco_Item]
       VSD_ULTCTT          =[Utiliza_UltCust_Transfer ]

       VSD_FATURA_NUMERO   =[Gera_Fatura_Igual_OF     ]

       VSD_DESCTO          = [Utiliza_Bloqueio_Descto  ]
       VSD_TPDESCTO        = [Tipo_Bloqueio_Descto     ]
       VSD_TXDESCTO        = [Taxa_Bloqueio_Descto     ]
       VSD_EXIBE_CUSTO     = [Exibe_Custo_Item_Consulta]

       VSD_DESCTOUNIT      = [Utiliza_Bloqueio_DesctoUn]
       VSD_TPDESCTOUNIT    = [Tipo_Bloqueio_DesctoUn   ]
       VSD_TXDESCTOUNIT    = [Taxa_Bloqueio_DesctoUn   ]

       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_MESES_SEMVENDA = [Bloqueio_Meses_SemVenda]
       VSD_BLOQUEIA_CANCEL= [Bloqueia Cancelamento  ]
       VSD_BLOQUEIA_ALTERA= [Bloqueia_Alteracao_NF  ]
       VSD_BLOQUEIA_NF    = [Bloqueia_Reemissao_NF  ]
       VSD_BLOQUEIA_IMP   = [Bloqueia_Impressao_2via] 
       VSD_ENTRADA        = [Utiliza_Entrada        ]
       VSD_NBLOQUEIO_SPC  = [NDias_Bloqueio_SPC     ]
       VSD_CONDPAGTO      = [Utiliza CP e FP Cliente]
       VSD_BLOQVRVENCTO   = [Bloqueio Valor Vencto  ]
       VSD_TITCRED        = [Utiliza_Titulo_Credito ]
       VSD_RESGPTO        = [Utiliza_Resgate_Pontos ]
       VSD_QTD_SOLICITADA = [Utiliza_Qtd_Solicitada ]
         
  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
EndIf
EndProc  ; (Chave)

;*******************************************************************************
;* Rotina Primeira Tela                                                        *
;*******************************************************************************
Proc PriTela()
Show_Tela1    =True
INICIO_DIALOGO=True
Showdialog "Configura‡„o Balc„o"  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,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 "Conta Caixa" for "I_CONTA_CAIXA"
   Accept @ 01,52 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,09 "Vendedor" for "I_VENDEDOR"
   Accept @ 03,10 Width 07 "A4" picture "#*#" Tag "I_VENDEDOR" to VSD_VENDEDOR

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

   Label  @ 02,35 "Forma Pagto" for "I_FORMA_PAGTO"
   Accept @ 03,36 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  @ 08,00 "[    ] Data Vencimentos" for "I_DATAS_VENCTOS"
   Accept @ 08,02 Width 04 "A1" picture "F,C" Tag "I_DATAS_VENCTOS" to VSD_DATAS_VENCTOS
   Label  @ 09,00 "[    ] Informa Data p/ Calc Venc." for "I_DATA_BASE"
   Accept @ 09,02 Width 04 "A1" picture "S,N" Tag "I_DATA_BASE" to VSD_DATA_BASE   
   
   Label  @ 10,00 "[    ] Utiliza Multiplas BC ICMS" for "I_MULT_BCICMS"
   Accept @ 10,02 Width 04 "A1" picture "S,N" Tag "I_MULT_BCICMS" to VSD_MULT_BCICMS
   Label  @ 11,00 "[    ] Utiliza Substitui‡„o ICMS" for "I_SUBSTICMS"
   Accept @ 11,02 Width 04 "A1" picture "S,N" Tag "I_SUBSTICMS" to VSD_SUBSTICMS

   Label  @ 12,00 "[    ] Utiliza Pedido" for "I_PEDIDO"
   Accept @ 12,02 Width 04 "A1" picture "S,N" Tag "I_PEDIDO" to VSD_PEDIDO
   Label  @ 13,00 "[    ] Utiliza Or‡amento" for "I_ORCAMENTO"
   Accept @ 13,02 Width 04 "A1" picture "S,N" Tag "I_ORCAMENTO" to VSD_ORCAMENTO
   Label  @ 14,00 "[    ] Utiliza Ordem de Servi‡o" for "I_ORDEM_SERVICO"
   Accept @ 14,02 Width 04 "A1" picture "S,N" Tag "I_ORDEM_SERVICO" to VSD_ORDEM_SERVICO
   Label  @ 15,00 "[    ] Utiliza Cupom Fiscal" for "I_CUPOM_FISCAL"
   Accept @ 15,02 Width 04 "A1" picture "S,N" Tag "I_CUPOM_FISCAL" to VSD_CUPOM_FISCAL

   Label  @ 16,00 "[    ] Utiliza Vendedor" for "I_UTILIZAVENDEDOR"
   Accept @ 16,02 Width 04 "A1" picture "S,N" Tag "I_UTILIZAVENDEDOR" to VSD_UTILIZAVENDEDOR
   Label  @ 17,00 "[    ] Utiliza Tipo Visita" for "I_VISITA"
   Accept @ 17,02 Width 4 "A1" picture "S,N" Tag "I_VISITA" to VSD_VISITA
   Label  @ 18,00 "[    ] Utiliza Limite de Cr‚dito" for "I_LIMITE_CREDITO"
   Accept @ 18,02 Width 04 "A1" picture "S,N,P" Tag "I_LIMITE_CREDITO" to VSD_LIMITE_CREDITO
   Label  @ 19,00 "[    ] Utiliza Dias em Atraso" for "I_DIAS_ATRASO"
   Accept @ 19,02 Width 04 "A1" picture "S,N,P" Tag "I_DIAS_ATRASO" to VSD_DIAS_ATRASO

   Label  @ 05,35 "[    ] Utiliza Entrega Mercadorias" for "I_ENTREGA"
   Accept @ 05,37 Width 04 "A1"  picture "S,N" Tag "I_ENTREGA" to VSD_ENTREGA
   Label  @ 06,35 "[    ] Bloqueia Autorizados" for "I_BLOQAUT"
   Accept @ 06,37  Width 04 "A1" picture "S,N" Tag "I_BLOQAUT" to VSD_BLOQAUT
   Label  @ 07,35 "[    ] Gerar Numera‡„o Fatura=OF" for "I_FATURA_NUMERO"
   Accept @ 07,37 Width 04 "A1" picture "S,N" Tag "I_FATURA_NUMERO" to VSD_FATURA_NUMERO
   Label  @ 08,35 "[    ] Gera Vendas a Vista Autom tica" for "I_AVISTAAUTOMAT"
   Accept @ 08,37 Width 04 "A1" picture "S,N" Tag "I_AVISTAAUTOMAT" to VSD_AVISTAAUTOMAT
   Label  @ 09,35 "[    ] Gera Vendas a Prazo Autom tica" for "I_APRAZOAUTOMAT"
   Accept @ 09,37 Width 04 "A1" picture "S,N" Tag "I_APRAZOAUTOMAT" to VSD_APRAZOAUTOMAT
   Label  @ 10,35 "[    ] Gera Duplicatas a Vista" for "I_AVISTADUPLIC"
   Accept @ 10,37 Width 04 "A1" picture "S,N" Tag "I_AVISTADUPLIC" to VSD_AVISTADUPLIC
   Label  @ 11,35 "[    ] Gerar Numera‡„o Duplicatas" for "I_DUPLIC_NUMERO"
   Accept @ 11,37 Width 04 "A1" picture "I,D" Tag "I_DUPLIC_NUMERO" to VSD_DUPLIC_NUMERO
   Label  @ 12,35 "[    ] Tipo Taxa de Juros Duplicata" for "I_FORMA_TXJUROS"
   Accept @ 12,37 Width 04 "A1" picture "D,M,A" Tag "I_FORMA_TXJUROS" to VSD_FORMA_TXJUROS
   Label  @ 13,35 "[       ] Taxa de Juros Duplicata" for "I_TXJUROS"
   Accept @ 13,37  Width 07 "N" picture "#*#.[##]" Tag "I_TXJUROS" to VSD_TXJUROS

   Label  @ 14,35 "[    ] Rateio de Comiss„o/Vencimentos" for "I_COMIS_VENCTO"
   Accept @ 14,37 Width 04 "A1" picture "S,N" Tag "I_COMIS_VENCTO" to VSD_COMIS_VENCTO

   Label  @ 15,35 "[    ] Utiliza Controle de Cheques" for "I_CCHEQUE"
   Accept @ 15,37  Width 04 "A1" picture "S,N" Tag "I_CCHEQUE" to VSD_CCHEQUE
   Label  @ 16,35 "[    ] Gerar Numera‡„o Cheques Igual NF" for "I_NLINF"
   Accept @ 16,37 Width 4 "A1" picture "S,N" Tag "I_NLINF" to VSD_NLINF

   Label  @ 17,35 "[    ] Utiliza Comiss„o/Vend/Desct" for "I_UTILIZA_COMIS_VEND"
   Accept @ 17,37 Width 04 "A1" picture "S,N" Tag "I_UTILIZA_COMIS_VEND" to VSD_UTILIZA_COMIS_VEND

   Label  @ 18,35 "[    ] Utiliza Comiss„o/Vend/Desct/Real" for "I_UTILIZA_COMIS_VEND_RT"
   Accept @ 18,37 Width 04 "A1" picture "S,N" Tag "I_UTILIZA_COMIS_VEND_RT" to VSD_UTILIZA_COMIS_VEND_RT

   Label  @ 19,35 "[    ] Rateio de Comiss„o/Vendedor" for "I_RATEIO_COMIS_VEND"
   Accept @ 19,37 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
Show_Tela2     = True
INICIO_DIALOGO = True

NewCampo="I_NVIAS_ROMANEIO"
Showdialog "Configura‡„o Balc„o"  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 "[    ] N§ de Vias Romaneio" for "I_NVIAS_ROMANEIO"
   Accept @ 00,02 Width 04 "S"  picture "#*#" Tag "I_NVIAS_ROMANEIO" to VSD_NVIAS_ROMANEIO
   Label  @ 01,00 "[           ] Script Nota Fiscal" for "I_NOTA"
   Accept @ 01,02 Width 11 "A8" picture "!*!" Tag "I_NOTA" to VSD_NOTA
   Label  @ 02,00 "[           ] Script Romaneio" for "I_ROMANEIO"
   Accept @ 02,02 Width 11 "A8" picture "!*!" Tag "I_ROMANEIO" to VSD_ROMANEIO
   Label  @ 03,00 "[           ] Script Promiss¢ria" for "I_NPROMISSORIA"
   Accept @ 03,02 Width 11 "A8" picture "!*!" Tag "I_NPROMISSORIA" to VSD_NPROMISSORIA
   Label  @ 04,00 "[           ] Script Carnˆ" for "I_CARNE"
   Accept @ 04,02 Width 11 "A8" picture "!*!" Tag "I_CARNE" to VSD_CARNE
   Label  @ 05,00 "[           ] Script Boleto" for "I_BOLETO"
   Accept @ 05,02 Width 11 "A8" picture "!*!" Tag "I_BOLETO" to VSD_BOLETO
   Label  @ 06,00 "[           ] Script Entrega" for "I_SENTREGA"
   Accept @ 06,02 Width 11 "A8" picture "!*!" Tag "I_SENTREGA" to VSD_SENTREGA
   Label  @ 07,00 "[           ] Porta Imp. Entrega" for "I_PENTREGA"
   Accept @ 07,02 Width 11 "A4" picture "!*!" Tag "I_PENTREGA" to VSD_PENTREGA
;08   
   Label  @ 08,00 "[    ] Bloqueia Desconto Total" for "I_DESCTO"
   Accept @ 08,02 Width 04 "A1" picture "S,N,P" Tag "I_DESCTO" to VSD_DESCTO
   Label  @ 09,00 "[    ] Origem % Desconto Total" for "I_TPDESCTO"
   Accept @ 09,02 Width 04 "A1" picture "I,C" Tag "I_TPDESCTO" to VSD_TPDESCTO
   Label  @ 10,00 "[          ] % Desconto Total" for "I_TXDESCTO"
   Accept @ 10,02 Width 10 "N" picture "#*#.[####]" Tag "I_TXDESCTO" to VSD_TXDESCTO

   Label  @ 11,00 "[    ] Desconto Unitario" for "I_DESCUNIT"
   Accept @ 11,02 Width 04 "A1" picture "S,N" Tag "I_DESCUNIT" to VSD_DESCUNIT
   Label  @ 12,00 "[    ] Bloqueia Desconto Unit rio" for "I_DESCTOUNIT"
   Accept @ 12,02 Width 04 "A1" picture "S,N,P" Tag "I_DESCTOUNIT" to VSD_DESCTOUNIT
   Label  @ 13,00 "[    ] Origem % Desconto Unit rio" for "I_TPDESCTOUNIT"
   Accept @ 13,02 Width 04 "A1" picture "I,C,P" Tag "I_TPDESCTOUNIT" to VSD_TPDESCTOUNIT
   Label  @ 14,00 "[          ] % Desconto Unit rio" for "I_TXDESCTOUNIT"
   Accept @ 14,02 Width 10 "N" picture "#*#.[####]" Tag "I_TXDESCTOUNIT" to VSD_TXDESCTOUNIT
   Label  @ 15,00 "[    ] Bloqueia Estoque Negativo" for "I_BLOQUEIA_NEG"
   Accept @ 15,02 Width 04 "A1" picture "S,N" Tag "I_BLOQUEIA_NEG" to VSD_BLOQUEIA_NEG
   Label  @ 16,00 "[    ] Utiliza C¢digo de Barras" for "I_UTILIZACDBARRA"
   Accept @ 16,02 Width 04 "A1" picture "S,N" Tag "I_UTILIZACDBARRA" to VSD_UTILIZACDBARRA
   Label  @ 17,00 "[    ] Utiliza Cor/Tecido" for "I_COR_TECIDO"
   Accept @ 17,02 Width 04 "A1" picture "S,N" Tag "I_COR_TECIDO" to VSD_COR_TECIDO
   Label  @ 18,00 "[    ] Utiliza Tamanho" for "I_TAMANHO"
   Accept @ 18,02 Width 04 "A1" picture "S,N" Tag "I_TAMANHO" to VSD_TAMANHO
   Label  @ 19,00 "[    ] Utiliza Tabela Pre‡o no Item" for "I_TPITEM"
   Accept @ 19,02 Width 4 "A1" picture "S,N" Tag "I_TPITEM" to VSD_TPITEM
   
   Label  @ 00,37 "[    ] ..." for "I_CPITEM" ; nÆo utiliza mais condi‡Æo pagto por item
   Accept @ 00,39 Width 4 "A1" picture "S,N" Tag "I_CPITEM" to VSD_CPITEM
   Label  @ 01,37 "[    ] Utiliza Comiss„o/Marca/Desct" for "I_CMARCA"
   Accept @ 01,39 Width 4 "A1" picture "S,N" Tag "I_CMARCA" to VSD_CMARCA
   Label  @ 02,37 "[    ] Altera Comiss„o no Item" for "I_COMISIT"
   Accept @ 02,39  Width 04 "A1" picture "S,N,P" Tag "I_COMISIT" to VSD_COMISIT
   Label  @ 03,37 "[    ] Altera Pre‡o Unit rio" for "I_ALTERA_PRECO"
   Accept @ 03,39 Width 04 "A1" picture "S,N,P" Tag "I_ALTERA_PRECO" to VSD_ALTERA_PRECO
   Label  @ 04,37 "[    ] Utiliza Impostos" for "I_IMPOSTOS"
   Accept @ 04,39 Width 04 "A1" picture "S,N" Tag "I_IMPOSTOS" to VSD_IMPOSTOS
   Label  @ 05,37 "[    ] Utiliza Volumes" for "I_VOLUMES"
   Accept @ 05,39 Width 04 "A1" picture "S,N" Tag "I_VOLUMES" to VSD_VOLUMES
   Label  @ 06,37 "[    ] Utiliza Ultimo Custo Transf." for "I_ULTCTT"
   Accept @ 06,39 Width 4 "A1" picture "S,N" Tag "I_ULTCTT" to VSD_ULTCTT
   Label  @ 07,37 "[    ] Utiliza TabPreco Cliente/Item" for "I_TABPR_CLIENTE"
   Accept @ 07,39 Width 4 "A1" picture "S,N" Tag "I_TABPR_CLIENTE" to VSD_TABPR_CLIENTE
   Label  @ 08,37 "[    ] Utiliza TabPreco Repres/Item" for "I_TABPR_REPRES"
   Accept @ 08,39 Width 4 "A1" picture "S,N" Tag "I_TABPR_REPRES" to VSD_TABPR_REPRES
   Label  @ 09,37 "[    ] Utiliza Pre‡o Tab. Cond.Pagto" for "I_TABPR_CPAGTO"
   Accept @ 09,39 Width 4 "A1" picture "S,N" Tag "I_TABPR_CPAGTO" to VSD_TABPR_CPAGTO
   Label  @ 10,37 "[    ] Exibe Custo no Item/Consulta" for "I_EXIBE_CUSTO"
   Accept @ 10,39 Width 4 "A1" picture "S,N" Tag "I_EXIBE_CUSTO" to VSD_EXIBE_CUSTO
   Label  @ 11,37 "[    ] Tipo Consulta Cliente [F1]" for "I_TPCONS_CLIENTE"
   Accept @ 11,39 Width 4 "A1" picture "P,S" Tag "I_TPCONS_CLIENTE" to VSD_TPCONS_CLIENTE
   Label  @ 12,37 "[    ] Bloqueio +Meses sem Venda" for "I_MESES_SEMVENDA"
   Accept @ 12,39 Width 04 "S" Tag "I_MESES_SEMVENDA" to VSD_MESES_SEMVENDA
   Label  @ 13,37 "[    ] Bloqueia Cancelamento" for "I_BLOQUEIA_CANCEL"
   Accept @ 13,39 Width 4 "A1" picture "S,N,P" Tag "I_BLOQUEIA_CANCEL" to VSD_BLOQUEIA_CANCEL
   Label  @ 14,37 "[    ] Bloqueia Altera‡Æo NF" for "I_BLOQUEIA_ALTERA"
   Accept @ 14,39 Width 4 "A1" picture "S,N,P" Tag "I_BLOQUEIA_ALTERA" to VSD_BLOQUEIA_ALTERA
   Label  @ 15,37 "[    ] Bloqueia Reemiss„o/Regera‡Æo NF" for "I_BLOQUEIA_NF"
   Accept @ 15,39 Width 04 "A1" picture "S,N,P" Tag "I_BLOQUEIA_NF" to VSD_BLOQUEIA_NF   
   Label  @ 16,37 "[    ] Bloqueia ImpressÆo 2¦ via NF" for "I_BLOQUEIA_IMP"
   Accept @ 16,39 Width 04 "A1" picture "S,N,P" Tag "I_BLOQUEIA_IMP" to VSD_BLOQUEIA_IMP   
   Label  @ 17,37 "[    ] Altera Valor Primeira Parcela" for "I_ENTRADA"
   Accept @ 17,39 Width 04 "A1" picture "1,2,3" Tag "I_ENTRADA" to VSD_ENTRADA 
   Label  @ 18,37 "[      ] NDias de Bloqueio SPC" for "I_NBLOQUEIO_SPC"
   Accept @ 18,39 Width 06 "S" picture "#*#" Tag "I_NBLOQUEIO_SPC" to VSD_NBLOQUEIO_SPC
   Label  @ 19,37 "[    ] Utiliza CP e FP do Cliente" for "I_CONDPAGTO"
   Accept @ 19,39 Width 04 "A1" picture "S,N" Tag "I_CONDPAGTO" to VSD_CONDPAGTO
      
EndDialog
EndProc  ;(SegTela)

;*******************************************************************************
;* Rotina Segunda Tela                                                        *
;*******************************************************************************
Proc SegTela2()
Show_Tela1     = False
Show_Tela2     = False
Show_Tela3     = True
INICIO_DIALOGO = True
                                                    
NewCampo="I_BLOQVRVENCTO"
Showdialog "Configura‡„o Balc„o"  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 "[    ] Bloqueia vr diferente venctos" for "I_BLOQVRVENCTO"
   Accept @ 00,02 Width 04 "A1" picture "S,P,N" Tag "I_BLOQVRVENCTO" to VSD_BLOQVRVENCTO
      
   Label  @ 01,00 "[    ] Utiliza T¡tulo de Cr‚dito" for "I_TITCRED"
   Accept @ 01,02 Width 04 "A1" picture "N,T" Tag "I_TITCRED" to VSD_TITCRED
   
   Label  @ 02,00 "[    ] Utiliza Resgate de Pontos" for "I_RESGPTO"
   Accept @ 02,02 Width 04 "A1" picture "S,N" Tag "I_RESGPTO" to VSD_RESGPTO
   
   Label  @ 03,00 "[    ] Utiliza Quantidade Solicitada" for "I_QTD_SOLICITADA"
   Accept @ 03,02 Width 04 "A1" picture "S,N" Tag "I_QTD_SOLICITADA" to VSD_QTD_SOLICITADA
   
EndDialog
EndProc  ;(SegTela)

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"
If Not IsAssigned(SYS_EMPRESA_DEFAULT) Then SYS_EMPRESA_DEFAULT="" EndIf

Show_Tela1     = True
VSD_EMPRESA    = SYS_EMPRESA_DEFAULT

If Not Checa_Supervisor()
   Then Return
EndIf

CoEdit NoWindow "P_Balcao"
Chave=9
Finalizar=False
While Not Finalizar
  If Chave=9
     Then PARAM_OPCAO("Inicio") ;Cria Registro Novo
          PARAM_OPCAO("Ler")    ;Limpa Tela
  EndIf
  Switch
    Case Show_Tela1 : PriTela()
    Case Show_Tela2 : SegTela() 
    Case Show_Tela3 : SegTela2()
  EndSwitch   
  If Finalizar Then QuitLoop EndIf
  If Chave=9   Then     Loop EndIf 
EndWhile
Do_It!
ClearAll
Release Vars All
Release Procs All
