;** P_Cupom ********************************************************************
;*  Configuracao de Paramentos p/ Cupom                                        *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 18/07/2003 por Karen Lauar Nery
;Ultima Alteracao: 05/08/2003 por Karen Lauar Nery
;Motivo Alteracao: Ajustes
;Ultima Alteracao: 15/04/2010 por Antonio Marcelo Alves
;Motivo Alteracao: Inclusao I_UTILIZA_AFERICAO
;Ultima Alteracao: 17/06/2011 por Karina Andrade
;Motivo Alteracao: Ajustes TECLAS
;Ultima Alteracao: 16/08/2014 por Andrey Fillipe
;Motivo Alteracao: Adicionado Rateio de Comissao
;Ultima Alteracao: 03/03/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes tirar sombra janela e layout
;Ultima Alteracao: 12/07/2019 por Kamila Gomes
;Motivo Alteracao: Ajustes picture do campo Cliente para aceitar letras

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

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

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

If Disparo="EVENT" And DynArraySize(Evento)>0 And Evento["Type"]="KEY" Then
   Temp=False
   Switch
     Case (Evento["KeyCode"] = -6 Or Evento["KeyCode"] = -147):
          If CHAVE=0
             Then Confirma()
                  If OK="S"
                     Then Del
                          PARAM_OPCAO("Inicio")
                          Campo="I_EMPRESA"
                  EndIf
           EndIf
       Case Evento["KeyCode"] = -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_FAMICOM"       Or
               Campo="I_DOC_NFCEN"     Or
               Campo="I_DOC_DUPNFCEN"
               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 [Codigo_Tabela_Preco   ] EndIf
                    If Campo="I_TRANSPORTADORA" Then Moveto [Codigo_Transportadora ] EndIf
                    If Campo="I_CONTA_CAIXA"    Then Moveto [Numero_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_FAMICOM"        Then Moveto [Codigo_Familia_Combust] EndIf
                    If Campo="I_DOC_NFCEN"      Then Moveto [NFEN_Codigo do Docto    ] EndIf
                    If Campo="I_DOC_DUPNFCEN"   Then Moveto [NFEN Dup_Codigo do Docto] 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=[Codigo_Tabela_Preco]
                      Case Campo="I_TRANSPORTADORA":
                           VSD_TRANSPORTADORA=[Codigo_Transportadora]
                      Case Campo="I_CONTA_CAIXA":
                           VSD_CONTA_CAIXA=[Numero_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_FAMICOM":
                           VSD_FAMICOM=[Codigo_Familia_Combust]
                      Case Campo="I_DOC_NFCEN": 
                           VSD_DOC_NFCEN=[NFEN_Codigo do Docto]
                      Case Campo="I_DOC_DUPNFCEN":
                           VSD_DOC_DUPNFCEN=[NFEN Dup_Codigo do Docto]
                    EndSwitch
           EndIf
      Case Evento["KeyCode"] = 27:
           Switch
             Case Campo="I_EMPRESA"             :
                  If IsBlank([Codigo_Empresa])
                     Then Del
                  EndIf
                  Home
                  If IsBlank([Codigo_Empresa])
                     Then Del
                  EndIf
                  CancelDialog
             Case Campo="I_DESTINACAO"          :
                  If Chave=1
                     Then Moveto [Codigo_Empresa]
                          Locate VSD_EMPRESA
                          Del
                  EndIf
                  PARAM_OPCAO("Inicio")
                  Campo="I_EMPRESA"
						 Case Campo="I_TABELA_PRECO"          : Campo="I_DESTINACAO"
						 Case Campo="I_TRANSPORTADORA"        : Campo="I_TABELA_PRECO"
						 Case Campo="I_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_FAMICOM"               : Campo="I_FORMA_PAGTO"
             Case Campo="I_DATAS_VENCTOS"         : Campo="I_FAMICOM"
             Case Campo="I_PFORMA"                : Campo="I_DATAS_VENCTOS"
             Case Campo="I_UTILIZAVENDEDOR"       : Campo="I_PFORMA"
             Case Campo="I_IFORMA"                : Campo="I_UTILIZAVENDEDOR"
             Case Campo="I_RECIBO"                : Campo="I_IFORMA"
             Case Campo="I_VENCTO"                : Campo="I_RECIBO"
             Case Campo="I_DRIVE"                 : Campo="I_VENCTO"
             Case Campo="I_CALCULAR"              : Campo="I_DRIVE"
             Case Campo="I_VERAO"                 : Campo="I_CALCULAR"
             Case Campo="I_DIAS_ATRASO"           : Campo="I_VERAO"
             Case Campo="I_TABELA"                : Campo="I_DIAS_ATRASO"
             Case Campo="I_NSERIE"                : Campo="I_TABELA"
             Case Campo="I_IMPRESSORA"            : Campo="I_NSERIE"
             Case Campo="I_PORTA"                 : Campo="I_IMPRESSORA"
             Case Campo="I_INTERVENCAO"           : Campo="I_PORTA"
             Case Campo="I_NECF"                  : Campo="I_INTERVENCAO"
             Case Campo="I_BLOQUEIA_NEG"          : Campo="I_NECF"
             Case Campo="I_APRECO"                : Campo="I_BLOQUEIA_NEG"
             Case Campo="I_DESCUNIT"              : Campo="I_APRECO"
             Case Campo="I_SCLIENTE"              : Campo="I_DESCUNIT"
             Case Campo="I_NLINF"                 : Campo="I_SCLIENTE"
             Case Campo="I_UTILIZACDBARRA"        : Campo="I_NLINF"
             Case Campo="I_DESCTO"                : Campo="I_UTILIZACDBARRA"
             Case Campo="I_BICO"                  : Campo="I_DESCTO"
             Case Campo="I_UTILIZA_AFERICAO"      : Campo="I_BICO"
             Case Campo="I_TURNOS"                : Campo="I_UTILIZA_AFERICAO"
             Case Campo="I_TATUAL"                : Campo="I_TURNOS"
             Case Campo="I_DATUAL"                : Campo="I_TATUAL"
             Case Campo="I_TFECHADO"              : Campo="I_DATUAL"
             Case Campo="I_RATEIO_COMIS_VEND"     : Campo="I_TFECHADO"
             Case Campo="I_DOC_NFCEN"              : Campo="I_RATEIO_COMIS_VEND"
             Case Campo="I_DOC_DUPNFCEN"           : Campo="I_DOC_NFCEN"
             ;Case Campo="I_DESCTO"              : Campo="I_TFECHADO"
             ;Case Campo="I_BICO"                : Campo="I_DESCTO"
           EndSwitch
      Case Evento["KeyCode"] = 13:
           Switch
             Case Campo="I_EMPRESA":

                  VSD_EMPRESA=ControlValue("I_EMPRESA")
                  If Not IsBlank(VSD_EMPRESA)
                     Then VSD_EMPRESA=Alinhm(VSD_EMPRESA,4)
                          Moveto [Codigo_Empresa]
                          Ativa_Lookup()
                          Locate VSD_EMPRESA
                          If Not RetVal
                             Then Mensagem("Codigo n„o Cadastrado !")
                                  KeyPress "ESC"
                             Else VSD_EMPRESA=[Codigo da Empresa]
                                  KeyPress "ESC"
                                  Chave()
                                  Campo="I_DESTINACAO"
                          EndIf
                  EndIf
             Case Campo="I_DESTINACAO":
                  VSD_DESTINACAO=ControlValue("I_DESTINACAO")
                  If Not IsBlank(VSD_DESTINACAO)
                     Then VSD_DESTINACAO=Alinhm(VSD_DESTINACAO,3)
                          Moveto [Codigo_Destinacao]
                          Ativa_Lookup()
                          Locate VSD_DESTINACAO
                          If Not RetVal
                             Then Mensagem("Codigo n„o Cadastrado !")
                             Else VSD_DESTINACAO=[Codigo da Destinacao]
                                  Campo="I_TABELA_PRECO"
                          EndIf
                          KeyPress "ESC"
                     Else Campo="I_TABELA_PRECO"
                  EndIf
             Case Campo="I_TABELA_PRECO":
                  VSD_TABELA_PRECO=ControlValue("I_TABELA_PRECO")
                  If Not IsBlank(VSD_TABELA_PRECO)
                     Then Moveto [Codigo_Tabela_Preco]
                          Ativa_Lookup()
                          Locate VSD_TABELA_PRECO
                          If Not RetVal
                             Then Mensagem("Codigo n„o Cadastrado !")
                             Else VSD_TABELA_PRECO=[Codigo da Tabela]
                                  Campo="I_TRANSPORTADORA"
                          EndIf
                          KeyPress "ESC"
                     Else Campo="I_TRANSPORTADORA"
                  EndIf
             Case Campo="I_TRANSPORTADORA":
									VSD_TRANSPORTADORA=ControlValue("I_TRANSPORTADORA")
                  If Not IsBlank(VSD_TRANSPORTADORA)
                     Then VSD_TRANSPORTADORA=Alinhm(VSD_TRANSPORTADORA,4)
                          Moveto [Codigo_Transportadora]
                          Ativa_Lookup()
                          Locate VSD_TRANSPORTADORA
                          If Not RetVal
                             Then Mensagem("Codigo n„o Cadastrado !")
                             Else VSD_TRANSPORTADORA=[Codigo da Transportadora]
                                  Campo="I_CONTA_CAIXA"
                          EndIf
                          KeyPress "ESC"
                     Else Campo="I_CONTA_CAIXA"
                  EndIf
             Case Campo="I_CONTA_CAIXA":
                  VSD_CONTA_CAIXA=ControlValue("I_CONTA_CAIXA")
                  If Not IsBlank(VSD_CONTA_CAIXA)
                     Then VSD_CONTA_CAIXA=Alinhm(VSD_CONTA_CAIXA,4)
                          If Verifica()
                             Then Campo="I_CLIENTE"
                          EndIf
                     Else Campo="I_CLIENTE"
                  EndIf
						 Case Campo="I_CLIENTE":
                  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 n„o Cadastrado !")
                             Else VSD_CLIENTE=[Codigo]
                                  Campo="I_VENDEDOR"
                          EndIf
                          KeyPress "ESC"
                     Else Campo="I_VENDEDOR"
                  EndIf
             Case Campo="I_VENDEDOR":
                  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 n„o Cadastrado !")
                             Else VSD_VENDEDOR=[Codigo do Representante]
                                  Campo="I_COND_PAGTO"
                          EndIf
                          KeyPress "ESC"
                     Else Campo="I_COND_PAGTO"
                  EndIf
						 Case Campo="I_COND_PAGTO":
                  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 n„o Cadastrado !")
                             Else VSD_COND_PAGTO=[Condicao de Pagamento]
                                  Campo="I_FORMA_PAGTO"
                          EndIf
                          KeyPress "ESC"
                     Else Campo="I_FORMA_PAGTO"
                  EndIf
						 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_FAMICOM"
                          EndIf
                          KeyPress "ESC"
                     Else Campo="I_FAMICOM"
                  EndIf
             Case Campo="I_FAMICOM":
                  VSD_FAMICOM=ControlValue("I_FAMICOM")
                  If Not IsBlank(VSD_FAMICOM)
                     Then Moveto [Codigo_Familia_Combust]
                          Ativa_Lookup()
                          Locate VSD_FAMICOM
                          If Not RetVal
                             Then Mensagem("Codigo n„o Cadastrado !")
                             Else VSD_FAMICOM=[Codigo da Familia]
                                  Campo="I_DATAS_VENCTOS"
                          EndIf
                          KeyPress "ESC"
                     Else Campo="I_DATAS_VENCTOS"
                  EndIf
             Case Campo="I_DATAS_VENCTOS":
                  VSD_DATAS_VENCTOS=ControlValue("I_DATAS_VENCTOS")
                  If IsBlank(VSD_DATAS_VENCTOS)
                     Then VSD_DATAS_VENCTOS="C"
                  EndIf
                  Campo="I_PFORMA"
             Case Campo="I_PFORMA":
                  VSD_PFORMA=ControlValue("I_PFORMA")
                  If IsBlank(VSD_PFORMA)
                     Then VSD_PFORMA="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_IFORMA"
             Case Campo="I_IFORMA":
                  VSD_IFORMA=ControlValue("I_IFORMA")
                  If IsBlank(VSD_IFORMA)
                     Then VSD_IFORMA="N"
                  EndIf
                  Campo="I_RECIBO"
             Case Campo="I_RECIBO":
                  VSD_RECIBO=ControlValue("I_RECIBO")
                  If IsBlank(VSD_RECIBO)
                     Then VSD_RECIBO="N"
                  EndIf
                  Campo="I_VENCTO"
             Case Campo="I_VENCTO":
                  VSD_VENCTO=ControlValue("I_VENCTO")
                  If IsBlank(VSD_VENCTO)
                     Then VSD_VENCTO="N"
                  EndIf
                  Campo="I_DRIVE"
            Case Campo="I_DRIVE":
                  VSD_DRIVE=ControlValue("I_DRIVE")
                  If IsBlank(VSD_DRIVE)
                     Then VSD_DRIVE="V"
                  EndIf
                  Campo="I_CALCULAR"
            Case Campo="I_CALCULAR":
                  VSD_CALCULAR=ControlValue("I_CALCULAR")
                  If IsBlank(VSD_CALCULAR)
                     Then VSD_CALCULAR="A"
                  EndIf
                  Campo="I_VERAO"
            Case Campo="I_VERAO":
                  VSD_VERAO=ControlValue("I_VERAO")
                  If IsBlank(VSD_VERAO)
                     Then VSD_VERAO="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_TABELA"
             Case Campo="I_TABELA":
                  VSD_TABELA=ControlValue("I_TABELA")
                  If IsBlank(VSD_TABELA)
                     Then VSD_TABELA="N"
                  EndIf
                  Campo="I_NSERIE"
             Case Campo="I_NSERIE":
                  VSD_NSERIE=ControlValue("I_NSERIE")
                  If Not IsBlank(VSD_NSERIE)
                      Then Campo="I_IMPRESSORA" 
                  EndIf
             Case Campo="I_IMPRESSORA":
                  VSD_IMPRESSORA=ControlValue("I_IMPRESSORA")
                  If Not IsBlank(VSD_IMPRESSORA)
                     Then Campo="I_PORTA"
                  EndIf
             Case Campo="I_PORTA":
                  VSD_PORTA=ControlValue("I_PORTA")
                  If Not IsBlank(VSD_PORTA)
                     Then Campo="I_INTERVENCAO"
                  EndIf   
             Case Campo="I_INTERVENCAO":
                  VSD_INTERVENCAO=ControlValue("I_INTERVENCAO")
                  If Not IsBlank(VSD_INTERVENCAO)
                     Then Campo="I_NECF"
                   EndIf           
             Case Campo="I_NECF":
                  VSD_NECF=AlinhM(ControlValue("I_NECF"),2)
                  If Not IsBlank(VSD_NECF)        
                     Then Campo="I_BLOQUEIA_NEG"
                  EndIf
             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_APRECO"
             Case Campo="I_APRECO":
                  VSD_APRECO=ControlValue("I_APRECO")
                  If IsBlank(VSD_APRECO)
                     Then VSD_APRECO="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_SCLIENTE"
             Case Campo="I_SCLIENTE":
                  VSD_SCLIENTE=ControlValue("I_SCLIENTE")
                  If IsBlank(VSD_SCLIENTE)
                     Then VSD_SCLIENTE="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_DESCTO"
             Case Campo="I_DESCTO":
                  VSD_DESCTO=ControlValue("I_DESCTO")
                  If IsBlank(VSD_DESCTO)
                     Then VSD_DESCTO="N"
                  EndIf
                  Campo="I_BICO"
             Case Campo="I_BICO":
                  VSD_BICO=ControlValue("I_BICO")
                  If IsBlank(VSD_BICO)
                     Then VSD_BICO="N"
                  EndIf
                  Campo="I_UTILIZA_AFERICAO"
             Case Campo="I_UTILIZA_AFERICAO":
                  VSD_UTILIZA_AFERICAO=ControlValue("I_UTILIZA_AFERICAO")
                  If IsBlank(VSD_UTILIZA_AFERICAO)
                     Then VSD_UTILIZA_AFERICAO="N"
                  EndIf
                  Campo="I_TURNOS"                  
             Case Campo="I_TURNOS":
                  VSD_TURNOS=ControlValue("I_TURNOS")
                  If IsBlank(VSD_TURNOS)
                     Then VSD_TURNOS="1"
                  EndIf
                  Campo="I_TATUAL"
             Case Campo="I_TATUAL":
                  VSD_TATUAL=ControlValue("I_TATUAL")
                  If IsBlank(VSD_TATUAL)
                     Then VSD_TATUAL="1"
                  EndIf
                  Campo="I_DATUAL"
             Case Campo="I_DATUAL":
                  VSD_DATUAL=ControlValue("I_DATUAL")
                  If Not IsBlank(VSD_DATUAL)
                     Then Campo="I_TFECHADO"
                 EndIf
                  Campo="I_TFECHADO"
             Case Campo="I_TFECHADO":
                  VSD_TFECHADO=ControlValue("I_TFECHADO")
                  If IsBlank(VSD_TFECHADO)
                     Then VSD_TFECHADO="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
                  Campo="I_DOC_NFCEN"       
             Case Campo="I_DOC_NFCEN":  
                  VSD_DOC_NFCEN=ControlValue("I_DOC_NFCEN")
                  If not IsBlank(VSD_DOC_NFCEN)
                     Then Moveto [NFEN_Codigo Do Docto]
                          Ativa_Lookup()
                          Moveto [Codigo do Documento]
                          Locate VSD_DOC_NFCEN
                          If Not RetVal
                             Then Mensagem("Tipo de Documento nÆo Cadastrado/NFCe Normal !")
                             Else VSD_DOC_NFCEN=[Codigo do Documento]
                                  VSD_TIP_NFCEN=[Tipo do Documento  ]
                                  VSD_SER_NFCEN=[Serie do Documento ]
                          EndIf
                          KeyPress "ESC"
                     Else VSD_TIP_NFCEN=""
                          VSD_SER_NFCEN=""
                  EndIf
                  Campo= "I_DOC_DUPNFCEN"
             Case Campo="I_DOC_DUPNFCEN"   : 
                  VSD_DOC_DUPNFEN=ControlValue("I_DOC_DUPNFCEN")
                  If Not IsBlank(VSD_DOC_DUPNFCEN)
                     Then Moveto [NFEN Dup_Codigo Do Docto]
                          Ativa_Lookup()
                          Moveto [Codigo do Documento]
                          Locate VSD_DOC_DUPNFCEN
                          If Not RetVal
                             Then Mensagem("Tipo de Documento nÆo Cadastrado/Duplicata NFCe Normal !")
                             Else VSD_DOC_DUPNFCEN=[Codigo do Documento]
                                  VSD_TIP_DUPNFCEN=[Tipo do Documento  ]
                                  VSD_SER_DUPNFCEN=[Serie do Documento ]
                          EndIf
                          KeyPress "ESC"
                     Else VSD_TIP_DUPNFCEN=""
                          VSD_SER_DUPNFCEN=""
                  EndIf
                  ConfGeral("Confirma novos parametros?")
                  If OK="S"
                     Then PARAM_OPCAO("Gravar")
                     Else If Chave=1
                             Then Moveto [Codigo_Empresa]
                                  Locate VSD_EMPRESA
                                  Del
                          EndIf
                  EndIf
                  PARAM_OPCAO("Inicio")
                  Campo="I_EMPRESA" 
           EndSwitch
      Case Evento["KeyCode"] = -81:
           If Verifica() And Campo<>"I_EMPRESA"; And Chave=0
              Then ConfGeral("Confirma novos parametros?")
                   If OK="S"
                      Then PARAM_OPCAO("Gravar")
                   EndIf
                   PARAM_OPCAO("Inicio")
                   Campo="I_EMPRESA"
           EndIf
   EndSwitch
EndIf
RefreshDialog
SelectControl Campo

TECLA="//Esc=Retornar  "
If Campo="I_EMPRESA"        Or
   Campo="I_DESTINACAO"     Or
   Campo="I_TABELA_PRECO"   Or
   Campo="I_TRANSPORTADORA" Or
   Campo="I_CONTA_CAIXA"    Or
   Campo="I_CLIENTE"        Or
   Campo="I_VENDEDOR"       Or
   Campo="I_COND_PAGTO"     Or
   Campo="I_FORMA_PAGTO"    Or
   Campo="I_FAMICOM"        Or
   Campo="I_DOC_NFCEN"      Or
   Campo="I_DOC_DUPNFCEN"
   Then TECLA=TECLA+"F1=Tabelas  "
EndIf
If Campo<>"I_EMPRESA"
   Then TECLA=TECLA+"Ctrl+Del=Excluir  PgDn=Finalizar  "
   Else TECLA=TECLA+"                  PgDn=Finalizar  "
EndIf
MSGCAMPO="Utiliza este recurso? Sim/N„o"
Switch
  Case Campo="I_EMPRESA":
       MSGCAMPO="Codigo da Empresa Padr„o"
  Case Campo="I_DESTINACAO":
       MSGCAMPO="Codigo da Destina‡„o Padr„o"
  Case Campo="I_TABELA_PRECO":
       MSGCAMPO="Codigo da Tabela de Preco Padr„o"
  Case Campo="I_TRANSPORTADORA":
       MSGCAMPO="Codigo da Transportadora Padr„o"
  Case Campo="I_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_FAMICOM":
       MSGCAMPO="Codigo da Familia Combustivel"
  Case Campo="I_DATAS_VENCTOS":
       MSGCAMPO="Data dos vencimentos c/ dias? Fixo/Continuo"
  Case Campo="I_DRIVE":
       MSGCAMPO="Drive do Sistema"
  Case Campo="I_CALCULAR":
       MSGCAMPO="Forma de Calcular A= Arredondar  T=Truncar"
  Case Campo="I_NSERIE":
       MSGCAMPO="Numero de Serie da Impressora"
  Case Campo="I_IMPRESSORA":
       MSGCAMPO="Modelo da Impressora"
  Case Campo="I_PORTA":
       MSGCAMPO="Porta da Impressora"
  Case Campo="I_INTERVENCAO":
       MSGCAMPO="Numero da Intervencao"
  Case Campo="I_NECF":
       MSGCAMPO="Numero da Impressora"
  Case Campo="I_TURNOS":
       MSGCAMPO="Numero de Turnos"
  Case Campo="I_TATUAL":
       MSGCAMPO="Numero do Turno Atual"
  Case Campo="I_DATUAL":
       MSGCAMPO="Data do Turno Atual"
  Case Campo="I_RATEIO_COMIS_VEND": 
       MSGCAMPO="Utiliza rateio comiss„o? N„o/Sim"     
  Case Campo="I_BICO":
       MSGCAMPO="V= A Vista  P= A Prazo"
  Case Campo="I_DOC_NFCEN"      : MSGCAMPO="Codigo do Docto p/ gera‡„o de NF Consumidor Final Eletr/Normal"
  Case Campo="I_DOC_DUPNFCEN"   : MSGCAMPO="Codigo do Documento para gera‡„o de Duplicata NFCe/Normal"
EndSwitch

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

Monta_Prompt(MSGCAMPO,TECLA)

Return TEMP
EndProc   ;(Param_Dialog)

;*******************************************************************************
;* Rotina para Verificar Parametros                                            *
;*******************************************************************************
Proc Verifica()
WV=False
If IsBlank(VSD_CONTA_CAIXA)
   Then Return True
EndIf

VSD_CONTA_CAIXA=AlinhM(ControlValue("I_CONTA_CAIXA"),4)
Moveto [Numero_Caixa]
Ativa_Lookup()
Locate VSD_CONTA_CAIXA
If Not RetVal
   Then Mensagem("Codigo da Conta Caixa n„o Cadastrado !")
   Else Switch
          Case VSD_EMPRESA<>[Codigo da Empresa]:
               Mensagem("Conta n„o Pertence a Esta Empresa !")
          Case [Tipo da Conta]<>"X":
               Mensagem("Conta Invalida Somente Conta Caixa !")
          OtherWise:
               WV=True
        EndSwitch
EndIf
KeyPress "ESC"

Return WV

EndProc ; (Verifica)

;*******************************************************************************
;* 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
       [Numero_Caixa             ] = VSD_CONTA_CAIXA
       [Datas_Vencimentos        ] = VSD_DATAS_VENCTOS
       [Desconto Unitario        ] = VSD_DESCUNIT
       [Bloqueia_Estoque_Negativo] = VSD_BLOQUEIA_NEG
       [Codigo_Tabela_Preco      ] = VSD_TABELA_PRECO
       [Codigo_Transportadora    ] = VSD_TRANSPORTADORA
       [Utiliza_Dias_Atraso      ] = VSD_DIAS_ATRASO

       [Codigo_Cliente           ] = VSD_CLIENTE
       [Codigo_Vendedor          ] = VSD_VENDEDOR
       [Codigo_Cond_Pagto        ] = VSD_COND_PAGTO
       [Codigo_Forma_Pagto       ] = VSD_FORMA_PAGTO
       [Codigo_Familia_Combust   ] = VSD_FAMICOM
       [Imprime_Vendedor         ] = VSD_UTILIZAVENDEDOR
       [Utiliza_Codigo_Barras    ] = VSD_UTILIZACDBARRA
       [Utiliza_Alteracao_Preco  ] = VSD_APRECO
       [Bloqueia_Cliente_Situacao] = VSD_SCLIENTE
       [NLCheque_Igual_NF        ] = VSD_NLINF
       [Numero_Porta             ] = VSD_PORTA
       [Imprime_Venctos_Pagtos   ] = VSD_VENCTO
       [Imprime_Formas_Pagtos    ] = VSD_IFORMA
       [Imprime_Recibo_Assinado  ] = VSD_RECIBO
       [Bloqueia_Estoque_Negativo] = VSD_BLOQUEIA_NEG
       [Drive do Sistema         ] = VSD_DRIVE
       [Forma_Calcular           ] = VSD_CALCULAR
       [Horario_Verao            ] = VSD_VERAO
       [Utiliza_Dias_Atraso      ] = VSD_DIAS_ATRASO
       [Informar_Tabela_Preco    ] = VSD_TABELA
       [Modelo_Impressora        ] = VSD_IMPRESSORA
       [Programa_Formas_Pagto    ] = VSD_PFORMA
       [Numero_Turnos            ] = VSD_TURNOS
       [Turno_Atual              ] = VSD_TATUAL
       [Data_Turno_Atual         ] = VSD_DATUAL
       [Turno_Atual_Fechado      ] = VSD_TFECHADO
       [Utiliza_Desconto_TotCF   ] = VSD_DESCTO
       [Bico_AVista_APrazo       ] = VSD_BICO
       [Gera_Controle_Afericao   ] = VSD_UTILIZA_AFERICAO
       [Numero_Serie_ECF         ] = VSD_NSERIE
       [Numero_Intervencao       ] = VSD_INTERVENCAO
       [Numero_ECF               ] = VSD_NECF
       [Utiliza_Rateio_Comissao  ] = VSD_RATEIO_COMIS_VEND
       [NFEN_Codigo do Docto     ] = VSD_DOC_NFCEN
       [NFEN_Tipo do Docto       ] = VSD_TIP_NFCEN
       [NFEN_Serie do Docto      ] = VSD_SER_NFCEN
       
       [NFEN Dup_Codigo do Docto ] = VSD_DOC_DUPNFCEN
       [NFEN Dup_Tipo do Docto   ] = VSD_TIP_DUPNFCEN
       [NFEN Dup_Serie do Docto  ] = VSD_SER_DUPNFCEN

       UnLockRecord

  Case OP = "Ler":

        VSD_DESTINACAO      = [Codigo_Destinacao         ]
        VSD_CONTA_CAIXA     = [Numero_Caixa              ]
        VSD_DATAS_VENCTOS   = [Datas_Vencimentos         ]
        VSD_DESCUNIT        = [Desconto Unitario         ]
        VSD_BLOQUEIA_NEG    = [Bloqueia_Estoque_Negativo ]
        VSD_TABELA_PRECO    = [Codigo_Tabela_Preco       ]
        VSD_TRANSPORTADORA  = [Codigo_Transportadora     ]
        VSD_DIAS_ATRASO     = [Utiliza_Dias_Atraso       ]

        VSD_CLIENTE         = [Codigo_Cliente            ]
        VSD_VENDEDOR        = [Codigo_Vendedor           ]
        VSD_COND_PAGTO      = [Codigo_Cond_Pagto         ]
        VSD_FORMA_PAGTO     = [Codigo_Forma_Pagto        ]
        VSD_FAMICOM         = [Codigo_Familia_Combust    ]
        VSD_UTILIZAVENDEDOR = [Imprime_Vendedor          ]
        VSD_UTILIZACDBARRA  = [Utiliza_Codigo_Barras     ]
        VSD_APRECO          = [Utiliza_Alteracao_Preco   ]
        VSD_SCLIENTE        = [Bloqueia_Cliente_Situacao ]
        VSD_NLINF           = [NLCheque_Igual_NF         ]
        VSD_PORTA           = [Numero_Porta              ]
        VSD_VENCTO          = [Imprime_Venctos_Pagtos    ]
        VSD_IFORMA          = [Imprime_Formas_Pagtos     ]
        VSD_RECIBO          = [Imprime_Recibo_Assinado   ]
        VSD_BLOQUEIA_NEG    = [Bloqueia_Estoque_Negativo ]
        VSD_DRIVE           = [Drive do Sistema          ]
        VSD_CALCULAR        = [Forma_Calcular            ]
        VSD_VERAO           = [Horario_Verao             ]
        VSD_DIAS_ATRASO     = [Utiliza_Dias_Atraso       ]
        VSD_TABELA          = [Informar_Tabela_Preco     ]
        VSD_IMPRESSORA      = [Modelo_Impressora         ]
        VSD_PFORMA          = [Programa_Formas_Pagto     ]
        VSD_TURNOS          = [Numero_Turnos             ]
        VSD_TATUAL          = [Turno_Atual               ]
        VSD_DATUAL          = [Data_Turno_Atual          ]
        VSD_TFECHADO        = [Turno_Atual_Fechado       ]
        VSD_DESCTO          = [Utiliza_Desconto_TotCF    ]
        VSD_BICO            = [Bico_AVista_APrazo        ]
        VSD_UTILIZA_AFERICAO= [Gera_Controle_Afericao    ]
        VSD_NSERIE          = [Numero_Serie_ECF          ]
        VSD_INTERVENCAO     = [Numero_Intervencao        ]
        VSD_NECF            = [Numero_ECF                ]
        VSD_RATEIO_COMIS_VEND=[Utiliza_Rateio_Comissao   ]
        VSD_DOC_NFCEN        = [NFEN_Codigo do Docto  ]  
        VSD_TIP_NFCEN        = [NFEN_Tipo do Docto    ]  
        VSD_SER_NFCEN        = [NFEN_Serie do Docto   ] 
       
        VSD_DOC_DUPNFCEN     = [NFEN Dup_Codigo do Docto  ]  
        VSD_TIP_DUPNFCEN     = [NFEN Dup_Tipo do Docto    ]  
        VSD_SER_DUPNFCEN     = [NFEN Dup_Serie do Docto   ]

  Case OP = "Inicio":

        VSD_DESTINACAO      = ""
        VSD_CONTA_CAIXA     = ""
        VSD_DATAS_VENCTOS   = ""
        VSD_DESCUNIT        = ""
        VSD_BLOQUEIA_NEG    = ""
        VSD_TABELA_PRECO    = ""
        VSD_TRANSPORTADORA  = ""
        VSD_DIAS_ATRASO     = ""
                              ""
        VSD_CLIENTE         = ""
        VSD_VENDEDOR        = ""
        VSD_COND_PAGTO      = ""
        VSD_FORMA_PAGTO     = ""
        VSD_FAMICOM         = ""
        VSD_UTILIZAVENDEDOR = ""
        VSD_UTILIZACDBARRA  = ""
        VSD_APRECO          = ""
        VSD_SCLIENTE        = ""
        VSD_NLINF           = ""
        VSD_PORTA           = ""
        VSD_VENCTO          = ""
        VSD_IFORMA          = ""
        VSD_RECIBO          = ""
        VSD_BLOQUEIA_NEG    = ""
        VSD_DRIVE           = ""
        VSD_CALCULAR        = ""
        VSD_VERAO           = ""
        VSD_DIAS_ATRASO     = ""
        VSD_TABELA          = ""
        VSD_IMPRESSORA      = ""
        VSD_PFORMA          = ""
        VSD_TURNOS          = BlankNum()
        VSD_TATUAL          = BlankNum()
        VSD_DATUAL          = BlankDate()
        VSD_TFECHADO        = ""
        VSD_DESCTO          = ""
        VSD_BICO            = ""
        VSD_UTILIZA_AFERICAO= ""
        VSD_NSERIE          = ""
        VSD_INTERVENCAO     = ""
        VSD_NECF            = ""
        VSD_DOC_NFCEN       = ""  
        VSD_TIP_NFCEN       = ""  
        VSD_SER_NFCEN       = "" 
                            
        VSD_DOC_DUPNFCEN    = ""  
        VSD_TIP_DUPNFCEN    = ""  
        VSD_SER_DUPNFCEN    = ""

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

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


;*******************************************************************************
;* 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 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_Cupom"
Chave=8
INICIO_DIALOGO=True
PARAM_OPCAO("Inicio")

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

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

   Label  @ 00,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  @ 02,52 "Fam.Combustivel" for "I_FAMICOM"
   Accept @ 03,53 Width 06 "A3" picture "#*#" Tag "I_FAMICOM" to VSD_FAMICOM


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

   Label  @ 05,00 "[    ] Programa Formas Pagtos" for "I_PFORMA"
   Accept @ 05,02 Width 04 "A1" picture "S,N" Tag "I_PFORMA" to VSD_PFORMA
   Label  @ 06,00 "[    ] Imprime Vendedor" for "I_UTILIZAVENDEDOR"
   Accept @ 06,02 Width 04 "A1" picture "S,N" Tag "I_UTILIZAVENDEDOR" to VSD_UTILIZAVENDEDOR

   Label  @ 07,00 "[    ] Imprime Formas Pagtos" for "I_IFORMA"
   Accept @ 07,02 Width 04 "A1" picture "S,N" Tag "I_IFORMA" to VSD_IFORMA
   Label  @ 08,00 "[    ] Imprime Recibo Assinado" for "I_RECIBO"
   Accept @ 08,02 Width 04 "A1" picture "S,N" Tag "I_RECIBO" to VSD_RECIBO
   Label  @ 09,00 "[    ] Imprime Venctos Pagtos" for "I_VENCTO"
   Accept @ 09,02 Width 04 "A1" picture "S,N" Tag "I_VENCTO" to VSD_VENCTO

   Label  @ 10,00"[    ] Drive do Sistema" for "I_DRIVE"
   Accept @ 10,02 Width 04 "A1" picture "!*!" Tag "I_DRIVE" to VSD_DRIVE

   Label  @ 11,00 "[    ] Forma de Calcular" for "I_CALCULAR"
   Accept @ 11,02 Width 04 "A1" picture "A,T" Tag "I_CALCULAR" to VSD_CALCULAR

   Label  @ 12,00 "[    ] Horario de Verao" for "I_VERAO"
   Accept @ 12,02 Width 04 "A1" picture "S,N" Tag "I_VERAO" to VSD_VERAO

   Label  @ 13,00 "[    ] Utiliza Dias em Atraso" for "I_DIAS_ATRASO"
   Accept @ 13,02 Width 04 "A1" picture "S,N" Tag "I_DIAS_ATRASO" to VSD_DIAS_ATRASO

   Label  @ 14,00 "[    ] Informar Tabela Pre‡o no Item" for "I_TABELA"
   Accept @ 14,02 Width 4 "A1" picture "S,N" Tag "I_TABELA" to VSD_TABELA

   Label  @ 15,00 "[                  ] Numero de Serie" for "I_NSERIE"
   Accept @ 15,02 Width 18 "A15" picture "!*!" Tag "I_NSERIE" to VSD_NSERIE
   
   Label  @ 16,00 "[                  ] Mod.Impressora" for "I_IMPRESSORA"
   Accept @ 16,02 Width 18 "A15" picture "!*!" Tag "I_IMPRESSORA" to VSD_IMPRESSORA

   Label  @ 17,00 "[        ] Numero da Porta" for "I_PORTA"
   Accept @ 17,02 Width 08 "A4" picture "!*!" Tag "I_PORTA" to VSD_PORTA
   
   Label  @ 18,00 "[        ] Numero da Interven‡„o" for "I_INTERVENCAO"
   Accept @ 18,02 Width 08 "S" picture "!*!" Tag "I_INTERVENCAO" to VSD_INTERVENCAO  

   Label  @ 19,00 "[        ] Numero do ECF" for "I_NECF"
   Accept @ 19,02 Width 08 "A2" picture "!*!" Tag "I_NECF" to VSD_NECF  

   Label  @ 04,37 "[    ] Bloqueia Estoque Negativo" for "I_BLOQUEIA_NEG"
   Accept @ 04,39 Width 04 "A1" picture "S,N" Tag "I_BLOQUEIA_NEG" to VSD_BLOQUEIA_NEG

   Label  @ 05,37 "[    ] Utiliza Alteracao Preco" for "I_APRECO"
   Accept @ 05,39  Width 04 "A1" picture "S,N" Tag "I_APRECO" to VSD_APRECO

   Label  @ 06,37 "[    ] Desconto Unitario" for "I_DESCUNIT"
   Accept @ 06,39 Width 04 "A1" picture "S,N" Tag "I_DESCUNIT" to VSD_DESCUNIT

   Label  @ 07,37 "[    ] Bloqueia Cliente P‚ssimo" for "I_SCLIENTE"
   Accept @ 07,39  Width 04 "A1" picture "S,N" Tag "I_SCLIENTE" to VSD_SCLIENTE

   Label  @ 08,37 "[    ] No.Lancto Cheque Igual NF" for "I_NLINF"
   Accept @ 08,39  Width 04 "A1" picture "S,N" Tag "I_NLINF" to VSD_NLINF

   Label  @ 09,37 "[    ] Utiliza C¢digo de Barras" for "I_UTILIZACDBARRA"
   Accept @ 09,39 Width 04 "A1" picture "S,N" Tag "I_UTILIZACDBARRA" to VSD_UTILIZACDBARRA

   Label  @ 10,37 "[    ] Utiliza Descto Total CF" for "I_DESCTO"
   Accept @ 10,39 Width 04 "A1" picture "S,N" Tag "I_DESCTO" to VSD_DESCTO
   Label  @ 11,37 "[    ] Bico" for "I_BICO"
   Accept @ 11,39 Width 04 "A1" picture "V,P" Tag "I_BICO" to VSD_BICO
   Label  @ 12,37 "[    ] Gera Controle Afericao" for "I_UTILIZA_AFERICAO"
   Accept @ 12,39 Width 04 "A1" picture "S,N" Tag "I_UTILIZA_AFERICAO" to VSD_UTILIZA_AFERICAO
   Label  @ 13,37 "[      ] Numero de Turnos" for "I_TURNOS"
   Accept @ 13,39 Width 06 "S" picture "#*#" Tag "I_TURNOS" to VSD_TURNOS

   Label  @ 14,37 "[      ] Turno Atual" for "I_TATUAL"
   Accept @ 14,39 Width 06 "S" picture "#*#" Tag "I_TATUAL" to VSD_TATUAL

   Label  @ 15,37 "[             ] Data Turno Atual" for "I_DATUAL"
   Accept @ 15,39 Width 13 "D"  Picture "#[#];.##;.##[##]" Tag "I_DATUAL" To VSD_DATUAL

   Label  @ 16,37 "[    ] Turno Atual Fechado" for "I_TFECHADO"
   Accept @ 16,39 Width 04 "A1" picture "S,N" Tag "I_TFECHADO" to VSD_TFECHADO

   Label  @ 17,37 "[    ] Utiliza Rateio Comiss„o" for "I_RATEIO_COMIS_VEND"
   Accept @ 17,39 Width 04 "A1" picture "N,S" Tag "I_RATEIO_COMIS_VEND" to VSD_RATEIO_COMIS_VEND
   
   Label  @ 18,37 "NFC Eletr/Normal[                 ]" for "I_DOC_NFCEN"
   Accept @ 18,55 Width 07 "A4" picture "!*!" Tag "I_DOC_NFCEN" to VSD_DOC_NFCEN
   Accept @ 18,60 Width 07 "A4" picture "!*!" Tag "I_TIP_NFCEN" to VSD_TIP_NFCEN
   Accept @ 18,65 Width 07 "A4" picture "!*!" Tag "I_SER_NFCEN" to VSD_SER_NFCEN

   Label  @ 19,37 "DPC Eletr/Normal[                 ]" for "I_DOC_DUPNFCEN"
   Accept @ 19,55 Width 07 "A4" picture "!*!" Tag "I_DOC_DUPNFCEN" to VSD_DOC_DUPNFCEN
   Accept @ 19,60 Width 07 "A4" picture "!*!" Tag "I_TIP_DUPNFCEN" to VSD_TIP_DUPNFCEN
   Accept @ 19,65 Width 07 "A4" picture "!*!" Tag "I_SER_DUPNFCEN" to VSD_SER_DUPNFCEN

Enddialog
Do_It!
ClearAll
Release Vars All
Release Procs All


