;** P_Fac    *******************************************************************
;*  Configuracao de Paramentos p/ FACCAO                                       *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 05/08/2007 por Anivel Augusto Rodrigues
;Ultima Alteracao: 11/05/2009 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao Lavanderia/Outros
;Ultima Alteracao: 25/09/2009 por Bruno Carvalho
;Motivo Alteracao: Inclusao Conta Caixa

;*******************************************************************************
;* 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() EndIf
If Disparo="EVENT" And DynArraySize(Evento)>0 And Evento["Type"]="KEY" Then
   Switch
      Case Evento["KeyCode"] = 9 Or
           Evento["KeyCode"] =-15:
           Temp=False

       Case Evento["KeyCode"] = -59:
            If Campo="I_EMPRESA" Or
               Campo="I_CONTA_CAIXA"
               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_CONTA_CAIXA"  Then Moveto [Codigo_Conta_Caixa] 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_CONTA_CAIXA": VSD_CONTA_CAIXA=[Codigo_Conta_Caixa]
                    EndSwitch
           EndIf
      Case Evento["KeyCode"] = -6:
           If CHAVE=0
              Then Confirma()
                   If OK="S"
                      Then Del
                           PARAM_OPCAO("Inicio")
                           Campo="I_EMPRESA"
                   EndIf
           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_CONTA_CAIXA"   : Campo="I_EMPRESA"
                  If Chave=1
                     Then Del
                  EndIf
                  PARAM_OPCAO("Inicio")
                  Campo="I_EMPRESA"
             Case Campo="I_EXPLODEMP_PRODCORT"   : Campo="I_CONTA_CAIXA"
             Case Campo="I_IMPRESSAO_PROGCORT"   : Campo="I_EXPLODEMP_PRODCORT"
             Case Campo="I_IMPRESSAO_PRODCORT"   : Campo="I_IMPRESSAO_PROGCORT"
             Case Campo="I_IMPRESSAO_SALDCORT"   : Campo="I_IMPRESSAO_PRODCORT"
             Case Campo="I_TPITEM_RETFAC"        : Campo="I_IMPRESSAO_SALDCORT"
             Case Campo="I_EXPLODEMP_PRODFAC"    : Campo="I_TPITEM_RETFAC"
             Case Campo="I_IMPRESSAO_PROGFAC"    : Campo="I_EXPLODEMP_PRODFAC"
             Case Campo="I_IMPRESSAO_PRODFAC"    : Campo="I_IMPRESSAO_PROGFAC"
             Case Campo="I_IMPRESSAO_SALDFAC"    : Campo="I_IMPRESSAO_PRODFAC"
             Case Campo="I_BXESTQ_ESTAMP"        : Campo="I_IMPRESSAO_SALDFAC"
             Case Campo="I_BXESTQ_BORDAR"        : Campo="I_BXESTQ_ESTAMP"
             Case Campo="I_BXESTQ_FACCAO"        : Campo="I_BXESTQ_BORDAR"
             Case Campo="I_BXESTQ_INTERNO"       : Campo="I_BXESTQ_FACCAO"
             Case Campo="I_BXESTQ_LAVAND"        : Campo="I_BXESTQ_INTERNO"
             Case Campo="I_BXESTQ_OUTROS"        : Campo="I_BXESTQ_LAVAND"
             Case Campo="I_COR_TECIDO"           : Campo="I_BXESTQ_OUTROS"
             Case Campo="I_ATUALIZA_CTAPAG"      : Campo="I_COR_TECIDO"
           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_CONTA_CAIXA"
                          EndIf
                  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)
                          Moveto [Codigo_Conta_Caixa]
                          If BUSCA_LOOKUP("Codigo da Conta",VSD_CONTA_CAIXA,"Conta n„o Cadastarda !")
                             Then If REG_BUSCA_LOOKUP["Codigo da Empresa"]<>[Codigo_Empresa]
                                     Then Mensagem("Conta nÆo configurada para Empresa")
                                          VSD_CONTA_CAIXA=""
                                     Else Campo= "I_EXPLODEMP_PRODCORT"
                                  EndIf
                             Else VSD_CONTA_CAIXA=""
                          EndIf
                     Else Campo= "I_EXPLODEMP_PRODCORT"
                  EndIf
             Case Campo="I_EXPLODEMP_PRODCORT"   : Campo="I_IMPRESSAO_PROGCORT"
                  VSD_EXPLODEMP_PRODCORT=ControlValue("I_EXPLODEMP_PRODCORT")
             Case Campo="I_IMPRESSAO_PROGCORT"   : Campo="I_IMPRESSAO_PRODCORT"
                  VSD_IMPRESSAO_PROGCORT =ControlValue("I_IMPRESSAO_PROGCORT")
             Case Campo="I_IMPRESSAO_PRODCORT"   : Campo="I_IMPRESSAO_SALDCORT"
                  VSD_IMPRESSAO_PRODCORT =ControlValue("I_IMPRESSAO_PRODCORT")
             Case Campo="I_IMPRESSAO_SALDCORT"   : Campo="I_TPITEM_RETFAC"
                  VSD_IMPRESSAO_SALDCORT =ControlValue("I_IMPRESSAO_SALDCORT")
             Case Campo="I_TPITEM_RETFAC"        : Campo="I_EXPLODEMP_PRODFAC"
                  VSD_TPITEM_RETFAC      =ControlValue("I_TPITEM_RETFAC")
             Case Campo="I_EXPLODEMP_PRODFAC"    : Campo="I_IMPRESSAO_PROGFAC"
                  VSD_EXPLODEMP_PRODFAC =ControlValue("I_EXPLODEMP_PRODFAC")
             Case Campo="I_IMPRESSAO_PROGFAC"    : Campo="I_IMPRESSAO_PRODFAC"
                  VSD_IMPRESSAO_PROGFAC  =ControlValue("I_IMPRESSAO_PROGFAC")
             Case Campo="I_IMPRESSAO_PRODFAC"    : Campo="I_IMPRESSAO_SALDFAC"
                  VSD_IMPRESSAO_PRODFAC  =ControlValue("I_IMPRESSAO_PRODFAC")
             Case Campo="I_IMPRESSAO_SALDFAC"    : Campo="I_BXESTQ_ESTAMP"
                  VSD_IMPRESSAO_SALDFAC  =ControlValue("I_IMPRESSAO_SALDFAC")
             Case Campo="I_BXESTQ_ESTAMP"        : Campo="I_BXESTQ_BORDAR"
                  VSD_BXESTQ_ESTAMP      =ControlValue("I_BXESTQ_ESTAMP")
             Case Campo="I_BXESTQ_BORDAR"        : Campo="I_BXESTQ_FACCAO"
                  VSD_BXESTQ_BORDAR      =ControlValue("I_BXESTQ_BORDAR")
             Case Campo="I_BXESTQ_FACCAO"        : Campo="I_BXESTQ_INTERNO"
                  VSD_BXESTQ_FACCAO      =ControlValue("I_BXESTQ_FACCAO")
             Case Campo="I_BXESTQ_INTERNO"       : Campo="I_BXESTQ_LAVAND"
                  VSD_BXESTQ_INTERNO     =ControlValue("I_BXESTQ_INTERNO")

             Case Campo="I_BXESTQ_LAVAND"        : Campo="I_BXESTQ_OUTROS"
                  VSD_BXESTQ_LAVAND      =ControlValue("I_BXESTQ_LAVAND")
             Case Campo="I_BXESTQ_OUTROS"        : Campo="I_COR_TECIDO"
                  VSD_BXESTQ_OUTROS      =ControlValue("I_BXESTQ_OUTROS")

             Case Campo="I_COR_TECIDO"           : Campo="I_ATUALIZA_CTAPAG"
                  VSD_COR_TECIDO         =ControlValue("I_COR_TECIDO")
             Case Campo="I_ATUALIZA_CTAPAG"      :
                  VSD_ATUALIZA_CTAPAG    =ControlValue("I_ATUALIZA_CTAPAG")

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

RefreshDialog
SelectControl Campo
TECLA=" Esc=Retornar  "
If Campo="I_EMPRESA" Or
   Campo="I_CONTA_CAIXA"
   Then TECLA=TECLA+"F1=Tabelas  "
EndIf

If Campo<>"I_EMPRESA" And Chave=0
   Then TECLA=TECLA+"Ctrl+Del=Excluir  PgDn=Finalizar  "
EndIf
MSGCAMPO=""
Switch
  Case Campo="I_EMPRESA"              : MSGCAMPO="Codigo da Empresa Padr„o"
  Case Campo="I_CONTA_CAIXA"          : MSGCAMPO="Codigo da Conta Caixa Padr„o"
  Case Campo="I_EXPLODEMP_PRODCORT"   : MSGCAMPO="Utiliza este recurso? Sim/N„o"
  Case Campo="I_TPITEM_RETFAC"        : MSGCAMPO="P=Produto Acabado  S=Semi-Acabado"
  Case Campo="I_EXPLODEMP_PRODFAC"    : MSGCAMPO="Utiliza este recurso? Sim/N„o"
  Case Campo="I_BXESTQ_ESTAMP"        : MSGCAMPO="Utiliza este recurso? Sim/N„o"
  Case Campo="I_BXESTQ_BORDAR"        : MSGCAMPO="Utiliza este recurso? Sim/N„o"
  Case Campo="I_BXESTQ_FACCAO"        : MSGCAMPO="Utiliza este recurso? Sim/N„o"
  Case Campo="I_BXESTQ_INTERNO"       : MSGCAMPO="Utiliza este recurso? Sim/N„o"
  Case Campo="I_BXESTQ_LAVAND"        : MSGCAMPO="Utiliza este recurso? Sim/N„o"
  Case Campo="I_BXESTQ_OUTROS"        : MSGCAMPO="Utiliza este recurso? Sim/N„o"
  Case Campo="I_COR_TECIDO"           : MSGCAMPO="Utiliza este recurso? Sim/N„o"
  Case Campo="I_ATUALIZA_CTAPAG"      : MSGCAMPO="Utiliza este recurso? Sim/N„o"
EndSwitch

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

;*******************************************************************************
;* Rotina Gravacao ou Leitura dos Parametros                                   *
;*******************************************************************************
Proc PARAM_OPCAO(OP)
Private OP
Switch
  Case OP = "Gravar":
       Moveto [Codigo_Empresa]
       Locate VSD_EMPRESA
       [Codigo_Empresa           ]=VSD_EMPRESA
       [Codigo_Conta_Caixa       ]=VSD_CONTA_CAIXA
       [Explosao_MatPrim_ProdCort]=VSD_EXPLODEMP_PRODCORT
       [Script_Impressao_ProgCort]=VSD_IMPRESSAO_PROGCORT
       [Script_Impressao_ProdCort]=VSD_IMPRESSAO_PRODCORT
       [Script_Impressao_SaldCort]=VSD_IMPRESSAO_SALDCORT
       [Retorno_TpItem_Faccao    ]=VSD_TPITEM_RETFAC
       [Explosao_MatPrim_ProdFac ]=VSD_EXPLODEMP_PRODFAC
       [Script_Impressao_ProgFac ]=VSD_IMPRESSAO_PROGFAC
       [Script_Impressao_ProdFac ]=VSD_IMPRESSAO_PRODFAC
       [Script_Impressao_SaldFac ]=VSD_IMPRESSAO_SALDFAC
       [Baixar_SemiAcab_Estamp   ]=VSD_BXESTQ_ESTAMP
       [Baixar_SemiAcab_Bordar   ]=VSD_BXESTQ_BORDAR
       [Baixar_SemiAcab_Faccao   ]=VSD_BXESTQ_FACCAO
       [Baixar_SemiAcab_ProdInt  ]=VSD_BXESTQ_INTERNO
       [Baixar_SemiAcab_Lavand   ]=VSD_BXESTQ_LAVAND
       [Baixar_SemiAcab_Outros   ]=VSD_BXESTQ_OUTROS
       [Cor_Tecido               ]=VSD_COR_TECIDO
       [Atualiza_Contas_Pagar    ]=VSD_ATUALIZA_CTAPAG
       UnLockRecord
  Case OP = "Ler":
       VSD_EMPRESA            =[Codigo_Empresa           ]
       VSD_CONTA_CAIXA        =[Codigo_Conta_Caixa       ]
       VSD_EXPLODEMP_PRODCORT =[Explosao_MatPrim_ProdCort]
       VSD_IMPRESSAO_PROGCORT =[Script_Impressao_ProgCort]
       VSD_IMPRESSAO_PRODCORT =[Script_Impressao_ProdCort]
       VSD_IMPRESSAO_SALDCORT =[Script_Impressao_SaldCort]
       VSD_TPITEM_RETFAC      =[Retorno_TpItem_Faccao    ]
       VSD_EXPLODEMP_PRODFAC  =[Explosao_MatPrim_ProdFac ]
       VSD_IMPRESSAO_PROGFAC  =[Script_Impressao_ProgFac ]
       VSD_IMPRESSAO_PRODFAC  =[Script_Impressao_ProdFac ]
       VSD_IMPRESSAO_SALDFAC  =[Script_Impressao_SaldFac ]
       VSD_BXESTQ_ESTAMP      =[Baixar_SemiAcab_Estamp   ]
       VSD_BXESTQ_BORDAR      =[Baixar_SemiAcab_Bordar   ]
       VSD_BXESTQ_FACCAO      =[Baixar_SemiAcab_Faccao   ]
       VSD_BXESTQ_INTERNO     =[Baixar_SemiAcab_ProdInt  ]
       VSD_BXESTQ_LAVAND      =[Baixar_SemiAcab_Lavand   ]
       VSD_BXESTQ_OUTROS      =[Baixar_SemiAcab_Outros   ]
       VSD_COR_TECIDO         =[Cor_Tecido               ]
       VSD_ATUALIZA_CTAPAG    =[Atualiza_Contas_Pagar    ]
  Case OP = "Inicio":
       VSD_CONTA_CAIXA        =""
       VSD_EXPLODEMP_PRODCORT =""
       VSD_IMPRESSAO_PROGCORT =""
       VSD_IMPRESSAO_PRODCORT =""
       VSD_IMPRESSAO_SALDCORT =""
       VSD_TPITEM_RETFAC      =""
       VSD_EXPLODEMP_PRODFAC  =""
       VSD_IMPRESSAO_PROGFAC  =""
       VSD_IMPRESSAO_PRODFAC  =""
       VSD_IMPRESSAO_SALDFAC  =""
       VSD_BXESTQ_ESTAMP      =""
       VSD_BXESTQ_BORDAR      =""
       VSD_BXESTQ_FACCAO      =""
       VSD_BXESTQ_INTERNO     =""
       VSD_BXESTQ_LAVAND      =""
       VSD_BXESTQ_OUTROS      =""
       VSD_COR_TECIDO         =""
       VSD_ATUALIZA_CTAPAG    =""
EndSwitch
If OP<>"Ler" Then Posiciona() EndIf
EndProc   ; (Param_Opcao)

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

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

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

Showdialog "Config. Parametros Programa‡„o/Fac‡„o" Proc "Param_Dialog"
   Trigger "OPEN","ARRIVE"
    Key "F1","TAB","ReverseTab","ENTER","ESC","F4","ClearArea","PGDN"
     @ 02,01 height 21 width 76

   Label  @ 00,01 "Empresa" for "I_EMPRESA"
   Accept @ 01,02 Width 07 "A4" picture "#*#" Tag "I_EMPRESA" to VSD_EMPRESA
   Label  @ 00,10 "Conta Caixa" for "I_CONTA_CAIXA"
   Accept @ 01,11 Width 07 "A4" picture "#*#" Tag "I_CONTA_CAIXA" to VSD_CONTA_CAIXA
   
   Label  @ 02,00 "[    ] Explode Materia Prima Produ‡„o Corte" for "I_EXPLODEMP_PRODCORT"
   Accept @ 02,02 Width 04 "A1" picture "S,N" Tag "I_EXPLODEMP_PRODCORT" to VSD_EXPLODEMP_PRODCORT
   Label  @ 03,00 "[           ] Script Impress„o Programa‡„o/Corte" for "I_IMPRESSAO_PROGCORT"
   Accept @ 03,02 Width 11 "A8" picture "!*!" Tag "I_IMPRESSAO_PROGCORT" to VSD_IMPRESSAO_PROGCORT
   Label  @ 04,00 "[           ] Script Impress„o    Produ‡„o/Corte" for "I_IMPRESSAO_PRODCORT"
   Accept @ 04,02 Width 11 "A8" picture "!*!" Tag "I_IMPRESSAO_PRODCORT" to VSD_IMPRESSAO_PRODCORT
   Label  @ 05,00 "[           ] Script Impress„o       Saldo/Corte" for "I_IMPRESSAO_SALDCORT"
   Accept @ 05,02 Width 11 "A8" picture "!*!" Tag "I_IMPRESSAO_SALDCORT" to VSD_IMPRESSAO_SALDCORT

   Label  @ 06,00 "[    ] Produ‡„o Fac‡„o retorna como Produto Acabado ou Semi_Acabado" for "I_TPITEM_RETFAC"
   Accept @ 06,02 Width 04 "A1" picture "P,S" Tag "I_TPITEM_RETFAC" to VSD_TPITEM_RETFAC
   Label  @ 07,00 "[    ] Explode Materia Prima Produ‡„o Interna/Fac‡„o" for "I_EXPLODEMP_PRODFAC"
   Accept @ 07,02 Width 04 "A1" picture "S,N" Tag "I_EXPLODEMP_PRODFAC" to VSD_EXPLODEMP_PRODFAC
   Label  @ 08,00 "[           ] Script Impress„o Programa‡„o/Interna/Externa" for "I_IMPRESSAO_PROGFAC"
   Accept @ 08,02 Width 11 "A8" picture "!*!" Tag "I_IMPRESSAO_PROGFAC" to VSD_IMPRESSAO_PROGFAC
   Label  @ 09,00 "[           ] Script Impress„o    Produ‡„o/Interna/Externa" for "I_IMPRESSAO_PRODFAC"
   Accept @ 09,02 Width 11 "A8" picture "!*!" Tag "I_IMPRESSAO_PRODFAC" to VSD_IMPRESSAO_PRODFAC
   Label  @ 10,00 "[           ] Script Impress„o       Saldo/Interna/Externa" for "I_IMPRESSAO_SALDFAC"
   Accept @ 10,02 Width 11 "A8" picture "!*!" Tag "I_IMPRESSAO_SALDFAC" to VSD_IMPRESSAO_SALDFAC

   Label  @ 11,00 "[    ] Remessa para Estamparia Baixa Estoque Semi_Acabado" for "I_BXESTQ_ESTAMP"
   Accept @ 11,02 Width 04 "A1" picture "S,N" Tag "I_BXESTQ_ESTAMP" to VSD_BXESTQ_ESTAMP
   Label  @ 12,00 "[    ] Remessa para Bordaria   Baixa Estoque Semi_Acabado" for "I_BXESTQ_BORDAR"
   Accept @ 12,02 Width 04 "A1" picture "S,N" Tag "I_BXESTQ_BORDAR" to VSD_BXESTQ_BORDAR
   Label  @ 13,00 "[    ] Remessa para Fac‡„o     Baixa Estoque Semi_Acabado" for "I_BXESTQ_FACCAO"
   Accept @ 13,02 Width 04 "A1" picture "S,N" Tag "I_BXESTQ_FACCAO" to VSD_BXESTQ_FACCAO
   Label  @ 14,00 "[    ] Remessa para PrdInterna Baixa Estoque Semi_Acabado" for "I_BXESTQ_INTERNO"
   Accept @ 14,02 Width 04 "A1" picture "S,N" Tag "I_BXESTQ_INTERNO" to VSD_BXESTQ_INTERNO

   Label  @ 15,00 "[    ] Remessa para Lavanderia Baixa Estoque Semi_Acabado" for "I_BXESTQ_LAVAND"
   Accept @ 15,02 Width 04 "A1" picture "S,N" Tag "I_BXESTQ_LAVAND" to VSD_BXESTQ_LAVAND
   Label  @ 16,00 "[    ] Remessa para Outros     Baixa Estoque Semi_Acabado" for "I_BXESTQ_OUTROS"
   Accept @ 16,02 Width 04 "A1" picture "S,N" Tag "I_BXESTQ_OUTROS" to VSD_BXESTQ_OUTROS

   Label  @ 17,00 "[    ] 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 "[    ] Atualiza Contas a Pagar para Produ‡„o de Terceiros" for "I_ATUALIZA_CTAPAG"
   Accept @ 18,02 Width 04 "A1" picture "S,N" Tag "I_ATUALIZA_CTAPAG" to VSD_ATUALIZA_CTAPAG


Enddialog
Do_It!
ClearAll
Release Vars All
Release Procs All
