;** Rm_0200  *******************************************************************
;*                                                                             *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 28/03/2005 por Davi Pereira Carrano
;Ultima Alteracao:   /  /     por
;Motivo Alteracao:

;*******************************************************************************
;* Rotina p/ Selecionar e Order Registros                                      *
;*******************************************************************************
Proc Seleciona()
ClearAll
DynArray REGTAB[]
p=false

While True
  ;*** Contas a Pagar que nao gerou Caixa/Banco ***
  If IsTable("\\Sistemas\\Ctapag\\Titbaixa")
     Then
         {Ask} TypeIn "\\Sistemas\\Ctapag\\Titbaixa" Enter
         Moveto [Numero do Lancamento      ] Check
         Moveto [Sequencia da Baixa        ] Check
         Moveto [Codigo da Empresa         ] Check "~VSDGEMPRESA.."
         Moveto [Lancamento Conta Corrente ] Check "as \"Numero do Doc_Lanc\""
         Moveto [Tipo da Baixa             ] TypeIn "NORMAL"
         Moveto [Data_Inclusao             ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
         Moveto [Codigo_Usuario            ] Check
         Moveto [Hora_Inclusao             ] Check
         Do_It!
         ClearAll

         If IsEmpty("Answer")
            Then QuitLoop
         EndIf

         {Modify} {Restructure} {Answer}
         Moveto [Field Name]
         End Down
         "Consistente" Enter "A1"
         Do_It!
         ClearAll

         View "\\Sistemas\\Ctacor\\Movcont"
         Coedit "Answer"
         Scan
           CONSISTE=False
           CopyToArray REGTAB
           Moveto "\\Sistemas\\Ctacor\\Movcont"
           Moveto [Numero do Lancamento]
           Locate REGTAB["Numero do Doc_Lanc"]
           If RetVal
              Then CONSISTE=True
           EndIf
           Moveto "Answer"
           If CONSISTE
              Then [Consistente]="S"
              Else [Consistente]="N"
           EndIf
         EndScan
         Do_It!
         ClearAll


         {Ask} {Answer}
         Moveto [Numero do Lancamento      ] Example "l"
         Moveto [Codigo da Empresa         ] Example "emp"
         Moveto [Numero do Doc_Lanc        ] Example "lanc"
         Moveto [Data_Inclusao             ] Example "data"
         Moveto [Codigo_Usuario            ] Example "usu"
         Moveto [Hora_Inclusao             ] Example "hora"
         Moveto [Sequencia da Baixa        ] Example "seq"
         Moveto [Consistente               ] Example "cons"
         {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
         Moveto [Documento                 ] Example "l"
         Moveto [Codigo da Empresa         ] Example "emp"
         Moveto [Numero do Doc_Lanc        ] Example "lanc"
         Moveto [Data_Inclusao             ] Example "data"
         Moveto [Codigo_Usuario            ] Example "usu"
         Moveto [Hora_Inclusao             ] Example "hora"
         Moveto [Descricao                 ] TypeIn "Contas a Pagar que n„o gerou Caixa/Banco"
         Moveto [Sequencia                 ] Example "seq"
         Moveto [Consistente               ] Example "cons"
         Moveto [Nome Fantasia Empresa     ] TypeIn VSDGNOMEMP
         Do_It!
         ClearAll
  EndIf
  QuitLoop
EndWhile



While True
  ;*** Contas a Receber que nao gerou Caixa/Banco ***
  If IsTable("\\Sistemas\\Ctarec\\Dupbaixa")
     Then
         {Ask} TypeIn "\\Sistemas\\Ctarec\\Duplic"   Enter
         Moveto [Numero do Lancamento ] Example "lanc"
         Moveto [Tipo do Lancamento   ] TypeIn "Not A"
         {Ask} TypeIn "\\Sistemas\\Ctarec\\Dupbaixa" Enter
         Moveto [Numero do Lancamento      ] Check Example "lanc"
         Moveto [Sequencia da Baixa        ] Check
         Moveto [Lancamento Conta Corrente ] Check "as \"Numero do Doc_Lanc\""
         Moveto [Codigo da Empresa         ] Check "~VSDGEMPRESA.."
         Moveto [Tipo da Baixa             ] TypeIn "NORMAL"
         Moveto [Data_Inclusao             ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
         Moveto [Codigo_Usuario            ] Check
         Moveto [Hora_Inclusao             ] Check
         Do_It!
         ClearAll

         If IsEmpty("Answer")
            Then QuitLoop
         EndIf

         {Modify} {Restructure} {Answer}
         Moveto [Field Name]
         End Down
         "Consistente" Enter "A1"
         Do_It!
         ClearAll

         View "\\Sistemas\\Ctacor\\Movcont"
         Coedit "Answer"
         Scan
           CONSISTE=False
           CopyToArray REGTAB
           Moveto "\\Sistemas\\Ctacor\\Movcont"
           Moveto [Numero do Lancamento]
           Locate REGTAB["Numero do Doc_Lanc"]
           If RetVal
              Then CONSISTE=True
           EndIf
           Moveto "Answer"
           If CONSISTE
              Then [Consistente]="S"
              Else [Consistente]="N"
           EndIf
         EndScan
         Do_It!
         ClearAll


         {Ask} {Answer}
         Moveto [Numero do Lancamento      ] Example "l"
         Moveto [Codigo da Empresa         ] Example "emp"
         Moveto [Numero do Doc_Lanc        ] Example "lanc"
         Moveto [Data_Inclusao             ] Example "data"
         Moveto [Codigo_Usuario            ] Example "usu"
         Moveto [Hora_Inclusao             ] Example "hora"
         Moveto [Sequencia da Baixa        ] Example "seq"
         Moveto [Consistente               ] Example "cons"
         {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
         Moveto [Documento                 ] Example "l"
         Moveto [Codigo da Empresa         ] Example "emp"
         Moveto [Numero do Doc_Lanc        ] Example "lanc"
         Moveto [Data_Inclusao             ] Example "data"
         Moveto [Codigo_Usuario            ] Example "usu"
         Moveto [Hora_Inclusao             ] Example "hora"
         Moveto [Descricao                 ] TypeIn "Contas a Receber que n„o gerou Caixa/Banco"
         Moveto [Sequencia                 ] Example "seq"
         Moveto [Consistente               ] Example "cons"
         Moveto [Nome Fantasia Empresa     ] TypeIn VSDGNOMEMP
         Do_It!
         ClearAll

  EndIf
  QuitLoop
EndWhile


While True
  ;*** Caixa/Banco s/ Origem no Contas a Pagar ***
  If IsTable("\\Sistemas\\Ctacor\\Movcont")
     Then
         {Ask} TypeIn "\\Sistemas\\Ctacor\\Movcont" Enter
         Moveto [Numero do Lancamento ] Check
         Moveto [Codigo da Conta      ] Check
         Moveto [Codigo da Empresa    ] Check "~VSDGEMPRESA.."
         Moveto [Lancamento Gerador   ] Check "as \"Numero do Doc_Lanc\""
         Moveto [Sequencia Gerador    ] Check
         Moveto [Sistema Gerador      ] TypeIn "CP"
         Moveto [Data_Inclusao        ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
         Moveto [Codigo_Usuario       ] Check
         Moveto [Hora_Inclusao        ] Check
         Do_It!
         ClearAll

         If IsEmpty("Answer")
            Then QuitLoop
         EndIf

         {Modify} {Restructure} {Answer}
         Moveto [Field Name]
         End Down
         "Consistente" Enter "A1"
         Do_It!
         ClearAll


         View "\\Sistemas\\Ctapag\\Titbaixa"
         Coedit "Answer"
         Scan
           CONSISTE=False
           CopyToArray REGTAB
           Moveto "\\Sistemas\\Ctapag\\Titbaixa"
           Moveto [Numero do Lancamento]
           Locate REGTAB["Numero do Doc_Lanc"]
           If RetVal
              Then CONSISTE=True
           EndIf
           Moveto "Answer"
           If CONSISTE
              Then [Consistente]="S"
              Else [Consistente]="N"
           EndIf
         EndScan
         Do_It!
         ClearAll


         {Ask} {Answer}
         Moveto [Numero do Lancamento ] Example "l"
         Moveto [Codigo da Empresa    ] Example "emp"
         Moveto [Numero do Doc_Lanc   ] Example "lanc"
         Moveto [Sequencia Gerador    ] Example "seq"
         Moveto [Data_Inclusao        ] Example "data"
         Moveto [Codigo_Usuario       ] Example "usu"
         Moveto [Hora_Inclusao        ] Example "hora"
         Moveto [Consistente          ] Example "cons"
         {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
         Moveto [Documento            ] Example "l"
         Moveto [Codigo da Empresa    ] Example "emp"
         Moveto [Numero do Doc_Lanc   ] Example "lanc"
         Moveto [Sequencia 2          ] Example "seq"
         Moveto [Data_Inclusao        ] Example "data"
         Moveto [Codigo_Usuario       ] Example "usu"
         Moveto [Hora_Inclusao        ] Example "hora"
         Moveto [Consistente          ] Example "cons"
         Moveto [Descricao            ] TypeIn "Caixa/Banco sem origem no Contas a Pagar"
         Moveto [Nome Fantasia Empresa] TypeIn VSDGNOMEMP
         Do_It!
         ClearAll
  EndIf
  QuitLoop
EndWhile


While True
  ;*** Caixa/Banco s/ Origem no Contas a Receber ***
  If IsTable("\\Sistemas\\Ctacor\\Movcont")
     Then
         {Ask} TypeIn "\\Sistemas\\Ctacor\\Movcont" Enter
         Moveto [Numero do Lancamento ] Check
         Moveto [Codigo da Conta      ] Check
         Moveto [Codigo da Empresa    ] Check "~VSDGEMPRESA.."
         Moveto [Lancamento Gerador   ] Check "as \"Numero do Doc_Lanc\""
         Moveto [Sequencia Gerador    ] Check
         Moveto [Sistema Gerador      ] TypeIn "CR"
         Moveto [Data_Inclusao        ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
         Moveto [Codigo_Usuario       ] Check
         Moveto [Hora_Inclusao        ] Check
         Do_It!
         ClearAll

         If IsEmpty("Answer")
            Then QuitLoop
         EndIf

         {Modify} {Restructure} {Answer}
         Moveto [Field Name]
         End Down
         "Consistente" Enter "A1"
         Do_It!
         ClearAll


         View "\\Sistemas\\Ctarec\\Dupbaixa"
         Coedit "Answer"
         Scan
           CONSISTE=False
           CopyToArray REGTAB
           Moveto "\\Sistemas\\Ctarec\\Dupbaixa"
           Moveto [Numero do Lancamento]
           Locate REGTAB["Numero do Doc_Lanc"]
           If RetVal
              Then CONSISTE=True
           EndIf
           Moveto "Answer"
           If CONSISTE
              Then [Consistente]="S"
              Else [Consistente]="N"
           EndIf
         EndScan
         Do_It!
         ClearAll



         {Ask} {Answer}
         Moveto [Numero do Lancamento  ] Example "l"
         Moveto [Codigo da Empresa     ] Example "emp"
         Moveto [Numero do Doc_Lanc    ] Example "lanc"
         Moveto [Sequencia Gerador     ] Example "seq"
         Moveto [Data_Inclusao         ] Example "data"
         Moveto [Codigo_Usuario        ] Example "usu"
         Moveto [Hora_Inclusao         ] Example "hora"
         Moveto [Consistente           ] Example "cons"
         {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
         Moveto [Documento             ] Example "l"
         Moveto [Codigo da Empresa     ] Example "emp"
         Moveto [Numero do Doc_Lanc    ] Example "lanc"
         Moveto [Sequencia 2           ] Example "seq"
         Moveto [Data_Inclusao         ] Example "data"
         Moveto [Codigo_Usuario        ] Example "usu"
         Moveto [Hora_Inclusao         ] Example "hora"
         Moveto [Descricao             ] TypeIn "Caixa/Banco sem origem no Contas a Receber"
         Moveto [Consistente           ] Example "cons"
         Moveto [Nome Fantasia Empresa ] TypeIn VSDGNOMEMP
         Do_It!
         ClearAll

  EndIf
  QuitLoop
EndWhile


View "\\Sistemas\\Estoque\\P_Entra"
Moveto [Codigo_Empresa]
Locate VSDGEMPRESA
If RetVal
   Then If [Atualiza_Caixa_Banco]="S"
           Then
                While True
                  ;*** Caixa/Banco s/ Origem no Notas de Entrada ***
                  If IsTable("\\Sistemas\\Ctacor\\Movcont")
                     Then
                         {Ask} TypeIn "\\Sistemas\\Ctacor\\Movcont" Enter
                         Moveto [Numero do Lancamento ] Check
                         Moveto [Codigo da Conta      ] Check
                         Moveto [Codigo da Empresa    ] Check "~VSDGEMPRESA.."
                         Moveto [Sistema Gerador      ] TypeIn "NE"
                         Moveto [Sequencia Gerador    ] Check
                         Moveto [Lancamento Gerador   ] Check "as \"Numero do Doc_Lanc\""
                         Moveto [Data_Inclusao        ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
                         Moveto [Codigo_Usuario       ] Check
                         Moveto [Hora_Inclusao        ] Check
                         Do_It!
                         ClearAll

                         If IsEmpty("Answer")
                            Then QuitLoop
                         EndIf

                         {Modify} {Restructure} {Answer}
                         Moveto [Field Name]
                         End Down
                         "Consistente" Enter "A1"
                         Do_It!
                         ClearAll

                         View "\\Sistemas\\Estoque\\Notaec"
                         Coedit "Answer"
                         Scan
                           CONSISTE=False
                           CopyToArray REGTAB
                           Moveto "\\Sistemas\\Estoque\\Notaec"
                           Moveto [Numero do Lancamento]
                           Locate REGTAB["Numero do Doc_Lanc"]
                           If RetVal
                              Then CONSISTE=True
                           EndIf
                           Moveto "Answer"
                           If CONSISTE
                              Then [Consistente]="S"
                              Else [Consistente]="N"
                           EndIf
                         EndScan
                         Do_It!
                         ClearAll



                         {Ask} {Answer}
                         Moveto [Numero do Lancamento  ] Example "l"
                         Moveto [Codigo da Empresa     ] Example "emp"
                         Moveto [Data_Inclusao         ] Example "data"
                         Moveto [Numero do Doc_Lanc    ] Example "lanc"
                         Moveto [Sequencia Gerador     ] Example "seq"
                         Moveto [Codigo_Usuario        ] Example "usu"
                         Moveto [Hora_Inclusao         ] Example "hora"
                         Moveto [Consistente           ] Example "cons"
                         {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
                         Moveto [Documento             ] Example "l"
                         Moveto [Codigo da Empresa     ] Example "emp"
                         Moveto [Data_Inclusao         ] Example "data"
                         Moveto [Numero do Doc_Lanc    ] Example "lanc"
                         Moveto [Sequencia 2           ] Example "seq"
                         Moveto [Codigo_Usuario        ] Example "usu"
                         Moveto [Hora_Inclusao         ] Example "hora"
                         Moveto [Descricao             ] TypeIn "Caixa/Banco sem origem no Estoque/Notas de Entrada"
                         Moveto [Consistente           ] Example "cons"
                         Moveto [Nome Fantasia Empresa ] TypeIn VSDGNOMEMP
                         Do_It!
                         ClearAll

                  EndIf
                  QuitLoop
                EndWhile

                While True
                  ;*** Notas de Entrada que nÆo gerou Caixa/Banco ***
                  If IsTable("\\Sistemas\\Estoque\\Notaec")
                     Then
                         {Ask} TypeIn "\\Sistemas\\Estoque\\Notaec" Enter
                         Moveto [Numero do Lancamento    ] Check "as \"Numero do Doc_Lanc\""
                         Moveto [Codigo da Empresa       ] Check "~VSDGEMPRESA.."
                         Moveto [Data_Inclusao           ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
                         Moveto [Codigo_Usuario          ] Check
                         Moveto [Hora_Inclusao           ] Check
                         Do_It!
                         ClearAll

                          If IsEmpty("Answer")
                             Then QuitLoop
                          EndIf

                         {Modify} {Restructure} {Answer}
                         Moveto [Field Name]
                         End Down
                         "Consistente" Enter "A1"
                         Do_It!
                         ClearAll

                         View "\\Sistemas\\Ctacor\\Movcont"
                         Coedit "Answer"
                         Scan
                           CONSISTE=False
                           CopyToArray REGTAB
                           Moveto "\\Sistemas\\Ctacor\\Movcont"
                           Moveto [Lancamento Gerador]
                           Locate REGTAB["Numero do Doc_Lanc"]
                           If RetVal
                              Then CONSISTE=True
                           EndIf
                           Moveto "Answer"
                           If CONSISTE
                              Then [Consistente]="S"
                              Else [Consistente]="N"
                           EndIf
                         EndScan
                         Do_It!
                         ClearAll

                         {Ask} {Answer}
                         Moveto [Codigo da Empresa     ] Example "emp"
                         Moveto [Data_Inclusao         ] Example "data"
                         Moveto [Numero do Doc_Lanc    ] Example "lanc"
                         Moveto [Codigo_Usuario        ] Example "usu"
                         Moveto [Hora_Inclusao         ] Example "hora"
                         Moveto [Consistente           ] Example "cons"
                         {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
                         Moveto [Documento             ] Example "lanc"
                         Moveto [Codigo da Empresa     ] Example "emp"
                         Moveto [Data_Inclusao         ] Example "data"
                         Moveto [Numero do Doc_Lanc    ] Example "lanc"
                         Moveto [Codigo_Usuario        ] Example "usu"
                         Moveto [Hora_Inclusao         ] Example "hora"
                         Moveto [Descricao             ] TypeIn "Estoque/Notas de Entrada que n„o gerou Caixa/Banco"
                         Moveto [Consistente           ] Example "cons"
                         Moveto [Nome Fantasia Empresa ] TypeIn VSDGNOMEMP
                         Do_It!
                         ClearAll

                  EndIf
                  QuitLoop
                EndWhile
        EndIf
EndIf
ClearAll



View "\\Sistemas\\Estoque\\P_Entra"
Moveto [Codigo_Empresa]
Locate VSDGEMPRESA
If RetVal
   Then If [Atualiza_Contas_Pagar]="S"
           Then

                While True
                  ;*** Contas a Pagar s/ Origem no Notas de Entrada ***
                  If IsTable("\\Sistemas\\Ctapag\\Titulos")
                     Then
                         {Ask} TypeIn "\\Sistemas\\Ctapag\\Titulos" Enter
                         Moveto [Numero do Lancamento ] Check
                         Moveto [Codigo da Empresa    ] Check "~VSDGEMPRESA.."
                         Moveto [Sistema Gerador      ] TypeIn "NE"
                         Moveto [Lancamento Gerador   ] Check "as \"Numero do Doc_Lanc\""
                         Moveto [Sequencia Gerador    ] Check
                         Moveto [Data_Inclusao        ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
                         Moveto [Codigo_Usuario       ] Check
                         Moveto [Hora_Inclusao        ] Check
                         Do_It!
                         ClearAll

                         If IsEmpty("Answer")
                            Then QuitLoop
                         EndIf

                         {Modify} {Restructure} {Answer}
                         Moveto [Field Name]
                         End Down
                         "Consistente" Enter "A1"
                         Do_It!
                         ClearAll

                         View "\\Sistemas\\Estoque\\Notaecp"
                         Coedit "Answer"
                         Scan
                           CONSISTE=False
                           CopyToArray REGTAB
                           Moveto "\\Sistemas\\Estoque\\Notaecp"
                           Moveto [Numero do Lancamento]
                           Locate REGTAB["Numero do Doc_Lanc"]
                           If RetVal
                              Then CONSISTE=True
                           EndIf
                           Moveto "Answer"
                           If CONSISTE
                              Then [Consistente]="S"
                              Else [Consistente]="N"
                           EndIf
                         EndScan
                         Do_It!
                         ClearAll


                         {Ask} {Answer}
                         Moveto [Numero do Lancamento  ] Example "l"
                         Moveto [Codigo da Empresa     ] Example "emp"
                         Moveto [Data_Inclusao         ] Example "data"
                         Moveto [Numero do Doc_Lanc    ] Example "lanc"
                         Moveto [Sequencia Gerador     ] Example "seq"
                         Moveto [Codigo_Usuario        ] Example "usu"
                         Moveto [Hora_Inclusao         ] Example "hora"
                         Moveto [Consistente           ] Example "cons"
                         {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
                         Moveto [Documento             ] Example "l"
                         Moveto [Codigo da Empresa     ] Example "emp"
                         Moveto [Data_Inclusao         ] Example "data"
                         Moveto [Numero do Doc_Lanc    ] Example "lanc"
                         Moveto [Sequencia 2           ] Example "seq"
                         Moveto [Codigo_Usuario        ] Example "usu"
                         Moveto [Hora_Inclusao         ] Example "hora"
                         Moveto [Descricao             ] TypeIn "Contas a Pagar sem origem no Estoque/Notas de Entrada"
                         Moveto [Consistente           ] Example "cons"
                         Moveto [Nome Fantasia Empresa ] TypeIn VSDGNOMEMP
                         Do_It!
                         ClearAll
                  EndIf
                  QuitLoop
                EndWhile

                While True
                  ;*** Notas de Entrada que nÆo gerou Contas a Pagar ***
                  If IsTable("\\Sistemas\\Estoque\\Notaecp")
                     Then
                         {Ask} TypeIn "\\Sistemas\\Estoque\\Notaec" Enter
                         Moveto [Numero do Lancamento      ] Example "lanc"
                         Moveto [Data_Inclusao             ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
                         Moveto [Codigo_Usuario            ] Check
                         Moveto [Hora_Inclusao             ] Check
                         {Ask} TypeIn "\\Sistemas\\Estoque\\Notaecp" Enter
                         Moveto [Numero do Lancamento      ] Check Example "lanc"
                         Moveto [Sequencia do Lancamento   ] Check
                         Moveto [Numero Lancamento Titulos ] Check "as \"Numero do Doc_Lanc\""
                         Moveto [Codigo da Empresa         ] Check "~VSDGEMPRESA.."
                         Do_It!
                         ClearAll

                          If IsEmpty("Answer")
                             Then QuitLoop
                          EndIf

                         {Modify} {Restructure} {Answer}
                         Moveto [Field Name]
                         End Down
                         "Consistente" Enter "A1"
                         Do_It!
                         ClearAll

                         View "\\Sistemas\\Ctapag\\Titulos"
                         Coedit "Answer"
                         Scan
                           CONSISTE=False
                           CopyToArray REGTAB
                           Moveto "\\Sistemas\\Ctapag\\Titulos"
                           Moveto [Numero do Lancamento]
                           Locate REGTAB["Numero do Doc_Lanc"]
                           If RetVal
                              Then CONSISTE=True
                           EndIf
                           Moveto "Answer"
                           If CONSISTE
                              Then [Consistente]="S"
                              Else [Consistente]="N"
                           EndIf
                         EndScan
                         Do_It!
                         ClearAll


                         {Ask} {Answer}
                         Moveto [Codigo da Empresa         ] Example "emp"
                         Moveto [Data_Inclusao             ] Example "data"
                         Moveto [Numero do Lancamento      ] Example "lanc"
                         Moveto [Sequencia do Lancamento   ] Example "seq"
                         Moveto [Codigo_Usuario            ] Example "usu"
                         Moveto [Hora_Inclusao             ] Example "hora"
                         Moveto [Numero do Doc_Lanc        ] Example "l"
                         Moveto [Consistente               ] Example "cons"
                         {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
                         Moveto [Documento                 ] Example "lanc"
                         Moveto [Sequencia                 ] Example "seq"
                         Moveto [Codigo da Empresa         ] Example "emp"
                         Moveto [Data_Inclusao             ] Example "data"
                         Moveto [Numero do Doc_Lanc        ] Example "l"
                         Moveto [Codigo_Usuario            ] Example "usu"
                         Moveto [Hora_Inclusao             ] Example "hora"
                         Moveto [Descricao                 ] TypeIn "Estoque/Notas de Entrada que n„o gerou Contas a Pagar"
                         Moveto [Consistente               ] Example "cons"
                         Moveto [Nome Fantasia Empresa     ] TypeIn VSDGNOMEMP
                         Do_It!
                         ClearAll
                  EndIf
                  QuitLoop
                EndWhile
        EndIf
EndIf
ClearAll


For i from 1 to 3
  Switch
    case i=1:
         TAB_PARAM  ="P_Fatura"
         SIST_GER   ="FT"
         DESTIN     ="..VEND.."
    case i=2:
         TAB_PARAM  ="P_Balcao"
         SIST_GER   ="BA"
         DESTIN     ="..VEND.."
    case i=3:
         TAB_PARAM  ="P_Troca"
         SIST_GER   ="TR"
         DESTIN     ="..VENDA\TROCA.."
  EndSwitch


  View "\\Sistemas\\Vendas\\"+TAB_PARAM
  Moveto [Codigo_Empresa]
  Locate VSDGEMPRESA
  If RetVal
     Then If [Gera_VendasVista_Automat]="S"
             Then
                  While True
                    ;*** Caixa/Banco s/ Origem na Troca\Balcao\Faturamento ***
                    If IsTable("\\Sistemas\\Ctacor\\Movcont")
                       Then
                           {Ask} TypeIn "\\Sistemas\\Ctacor\\Movcont" Enter
                           Moveto [Numero do Lancamento ] Check
                           Moveto [Codigo da Conta      ] Check
                           Moveto [Codigo da Empresa    ] Check "~VSDGEMPRESA.."
                           Moveto [Numero do Documento  ] Check "as \"Numero do Doc_Lanc\""
                           Moveto [Sistema Gerador      ] TypeIn SIST_GER
                           Moveto [Data_Inclusao        ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
                           Moveto [Hora_Inclusao        ] Check
                           Moveto [Codigo_Usuario       ] Check
                           Do_It!
                           ClearAll

                           If IsEmpty("Answer")
                              Then QuitLoop
                           EndIf

                           {Modify} {Restructure} {Answer}
                           Moveto [Field Name]
                           End Down
                           "Consistente" Enter "A1"
                           Do_It!
                           ClearAll

                           View "\\Sistemas\\Vendas\\Notac"
                           Coedit "Answer"
                           Scan
                             CONSISTE=False
                             CopyToArray REGTAB
                             Moveto "\\Sistemas\\Vendas\\Notac"
                             Moveto [Numero do Documento]
                             Locate REGTAB["Numero do Doc_Lanc"]
                             If RetVal
                                Then CONSISTE=True
                             EndIf
                             Moveto "Answer"
                             If CONSISTE
                                Then [Consistente]="S"
                                Else [Consistente]="N"
                             EndIf
                           EndScan
                           Do_It!
                           ClearAll


                           {Ask} {Answer}
                           Moveto [Numero do Lancamento  ] Example "l"
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Consistente           ] Example "cons"
                           {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
                           Moveto [Documento             ] Example "l"
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Descricao             ] TypeIn "Caixa/Banco sem origem no Faturamento/Digitacao"
                           Moveto [Consistente           ] Example "cons"
                           Moveto [Nome Fantasia Empresa ] TypeIn VSDGNOMEMP
                           Do_It!
                           ClearAll

                    EndIf
                    QuitLoop
                  EndWhile

                  While True
                    ;*** Troca/Balcao/Fatura que nÆo geraou Caixa/Banco ***
                    If IsTable("\\Sistemas\\Vendas\\Notac")
                       Then
                           {Ask} TypeIn "\\Sistemas\\Vendas\\Notac" Enter
                           Moveto [Codigo da Empresa       ] Check "~VSDGEMPRESA.."
                           Moveto [Numero do Documento     ] Check "as \"Numero do Doc_Lanc\""
                           Moveto [Serie do Documento      ] Check
                           Moveto [Descricao da Destinacao ] TypeIn DESTIN
                           Moveto [Sistema Gerador         ] TypeIn SIST_GER
                           Moveto [Data_Inclusao           ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
                           Moveto [Hora_Inclusao           ] Check
                           Moveto [Codigo_Usuario          ] Check
                           Do_It!
                           ClearAll

                           If IsEmpty("Answer")
                              Then QuitLoop
                           EndIf

                           {Modify} {Restructure} {Answer}
                           Moveto [Field Name]
                           End Down
                           "Consistente" Enter "A1"
                           Do_It!
                           ClearAll

                           View "\\Sistemas\\Ctacor\\Movcont"
                           Coedit "Answer"
                           Scan
                             CONSISTE=False
                             CopyToArray REGTAB
                             Moveto "\\Sistemas\\Ctacor\\Movcont"
                             Moveto [Numero do Documento]
                             Locate REGTAB["Numero do Doc_Lanc"]
                             If RetVal
                                Then CONSISTE=True
                             EndIf
                             Moveto "Answer"
                             If CONSISTE
                                Then [Consistente]="S"
                                Else [Consistente]="N"
                             EndIf
                           EndScan
                           Do_It!
                           ClearAll

                           {Ask} {Answer}
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Consistente           ] Example "cons"
                           {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Documento             ] Example "doc"
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Descricao             ] TypeIn "Faturamento/Digitacao que n„o gerou Caixa/Banco"
                           Moveto [Consistente           ] Example "cons"
                           Moveto [Nome Fantasia Empresa ] TypeIn VSDGNOMEMP
                           Do_It!
                           ClearAll
                    EndIf
                    QuitLoop
                  EndWhile
          EndIf
  EndIf
EndFor
ClearAll



For i from 1 to 3
  Switch
    case i=1:
         TAB_PARAM  ="P_Fatura"
         SIST_GER   ="FT"
         DESTIN     ="..VEND.."
    case i=2:
         TAB_PARAM  ="P_Balcao"
         SIST_GER   ="BA"
         DESTIN     ="..VEND.."
    case i=3:
         TAB_PARAM  ="P_Troca"
         SIST_GER   ="TR"
         DESTIN     ="..VENDA\TROCA.."
  EndSwitch


  View "\\Sistemas\\Vendas\\"+TAB_PARAM
  Moveto [Codigo_Empresa]
  Locate VSDGEMPRESA
  If RetVal
     Then If [Gera_VendasPrazo_Automat]="S"
             Then
                  While True
                    ;*** Contas a Receber s/ Origem no Faturamento/Balcao/Troca ***
                    If IsTable("\\Sistemas\\Ctarec\\Duplic")
                       Then
                           {Ask} TypeIn "\\Sistemas\\Ctarec\\Duplic" Enter
                           Moveto [Numero do Lancamento ] Check
                           Moveto [Codigo da Empresa    ] Check "~VSDGEMPRESA.."
                           Moveto [Numero Docto Gerador ] Check "as \"Numero do Doc_Lanc\""
                           Moveto [Serie do Documento   ] Check
                           Moveto [Sistema Gerador      ] TypeIn SIST_GER
                           Moveto [Sequencia Gerador    ] Check
                           Moveto [Data_Inclusao        ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
                           Moveto [Hora_Inclusao        ] Check
                           Moveto [Codigo_Usuario       ] Check
                           Do_It!
                           ClearAll

                           If IsEmpty("Answer")
                              Then QuitLoop
                           EndIf

                           {Modify} {Restructure} {Answer}
                           Moveto [Field Name]
                           End Down
                           "Consistente" Enter "A1"
                           Do_It!
                           ClearAll

                           View "\\Sistemas\\Vendas\\Notav"
                           Coedit "Answer"
                           Scan
                             CONSISTE=False
                             CopyToArray REGTAB
                             Moveto "\\Sistemas\\Vendas\\Notav"
                             Moveto [Codigo da Empresa]
                             Locate REGTAB["Codigo da Empresa"],REGTAB["Numero do Doc_Lanc"],REGTAB["Serie do Documento"],REGTAB["Sequencia Gerador"]
                             If RetVal
                                Then CONSISTE=True
                             EndIf
                             Moveto "Answer"
                             If CONSISTE
                                Then [Consistente]="S"
                                Else [Consistente]="N"
                             EndIf
                           EndScan
                           Do_It!
                           ClearAll

                           {Ask} {Answer}
                           Moveto [Numero do Lancamento  ] Example "l"
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Sequencia Gerador     ] Example "seq"
                           Moveto [Consistente           ] Example "cons"
                           {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
                           Moveto [Documento             ] Example "l"
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Sequencia 2           ] Example "seq"
                           Moveto [Consistente           ] Example "cons"
                           Moveto [Descricao             ] TypeIn "Contas a Receber sem origem no Faturamento/Digitacao"
                           Moveto [Nome Fantasia Empresa ] TypeIn VSDGNOMEMP
                           Do_It!
                           ClearAll

                    EndIf
                    QuitLoop
                  EndWhile


                  While True
                    ;*** Faturamento,balcao,troca que nÆo gerou Contas a Receber ***
                    If IsTable("\\Sistemas\\Vendas\\Notac") and
                       IsTable("\\Sistemas\\Vendas\\Notav")
                       Then
                           {Ask} TypeIn "\\Sistemas\\Vendas\\Notac" Enter
                           Moveto [Codigo da Empresa       ] Example "emp"
                           Moveto [Numero do Documento     ] Example "num"
                           Moveto [Serie do Documento      ] Example "ser"
                           Moveto [Descricao da Destinacao ] TypeIn DESTIN
                           Moveto [Sistema Gerador         ] Check TypeIn SIST_GER
                           Moveto [Data_Inclusao           ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
                           Moveto [Hora_Inclusao           ] Check
                           Moveto [Codigo_Usuario          ] Check
                           {Ask} TypeIn "\\Sistemas\\Vendas\\Notav" Enter
                           Moveto [Codigo da Empresa       ] Check Example "emp" TypeIn ",~VSDGEMPRESA.."
                           Moveto [Numero do Documento     ] Check Example "num" TypeIn ",as \"Numero do Doc_Lanc\""
                           Moveto [Serie do Documento      ] Check Example "ser"
                           Moveto [Sequencia               ] Check
                           Do_It!
                           ClearAll

                           If IsEmpty("Answer")
                              Then QuitLoop
                           EndIf

                           {Modify} {Restructure} {Answer}
                           Moveto [Field Name]
                           End Down
                           "Consistente" Enter "A1"
                           Do_It!
                           ClearAll

                           View "\\Sistemas\\Ctarec\\Duplic"
                           Coedit "Answer"
                           Scan
                             CONSISTE=False
                             CopyToArray REGTAB
                             Moveto "\\Sistemas\\Ctarec\\Duplic"
                             Moveto [Sistema Gerador]
                             Locate IndexOrder by "Inddup2" REGTAB["Sistema Gerador"],REGTAB["Numero do Doc_Lanc"], REGTAB["Sequencia"]
                             If RetVal
                                Then CONSISTE=True
                             EndIf
                             Moveto "Answer"
                             If CONSISTE
                                Then [Consistente]="S"
                                Else [Consistente]="N"
                             EndIf
                           EndScan
                           Do_It!
                           ClearAll

                           {Ask} {Answer}
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Sequencia             ] Example "seq"
                           Moveto [Consistente           ] Example "cons"
                           {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Documento             ] Example "doc"
                           Moveto [Consistente           ] Example "cons"
                           Moveto [Sequencia             ] Example "seq"
                           Moveto [Descricao             ] TypeIn "Faturamento/Digitacao que n„o gerou Contas a Receber"
                           Moveto [Nome Fantasia Empresa ] TypeIn VSDGNOMEMP
                           Do_It!
                           ClearAll

                    EndIf
                    QuitLoop
                  EndWhile
          EndIf
  EndIf
EndFor
ClearAll


For i from 1 to 3
  Switch
     case i=1:
         TAB_PARAM="P_Fatura"
         SIST_GER ="FT"
    case i=2:
         TAB_PARAM="P_Balcao"
         SIST_GER ="BA"
    case i=3:
         TAB_PARAM="P_Troca"
         SIST_GER ="TR"
  EndSwitch

  View "\\Sistemas\\Vendas\\"+TAB_PARAM
  Moveto [Codigo_Empresa]
  Locate VSDGEMPRESA
  If RetVal
     Then If [Utiliza_Controle_Cheques]="S"
             Then
                  While True
                    ;*** Cheques s/ Origem no Faturamento/BalcÆo/Troca ***
                    If IsTable("\\Sistemas\\Cheqrec\\Chequec") And
                       IsTable("\\Sistemas\\Cheqrec\\Chequei") ;davi
                       Then
                           {Ask} TypeIn "\\Sistemas\\Cheqrec\\Chequec" Enter
                           Moveto [Numero do Lancamento ] Example "lanc"
                           Moveto [Codigo da Empresa    ] Check TypeIn "~VSDGEMPRESA.."
                           Moveto [Sistema Gerador      ] TypeIn SIST_GER
                           Moveto [Serie Docto Gerador  ] Check
                           {Ask} TypeIn "\\Sistemas\\Cheqrec\\Chequei" Enter
                           Moveto [Numero do Lancamento ] Check Example "lanc"
                           Moveto [Sequencia do Cheque  ] Check
                           Moveto [Numero do Documento  ] Check "as \"Numero do Doc_Lanc\""
                           Moveto [Data_Inclusao        ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
                           Moveto [Hora_Inclusao        ] Check
                           Moveto [Codigo_Usuario       ] Check
                           Do_It!
                           ClearAll

                           If IsEmpty("Answer")
                              Then QuitLoop
                           EndIf

                           {Modify} {Restructure} {Answer}
                           Moveto [Field Name]
                           End Down
                           "Consistente" Enter "A1"

                           Moveto [Field Name]
                           Locate "Sequencia do Cheque"
                           If RetVal
                              Then Enter CtrlBackSpace "A2" Enter
                           EndIf

                           Moveto [Field Name]
                           Locate "Numero do Lancamento"
                           If RetVal
                              Then Enter CtrlBackSpace "A10" Enter
                           EndIf
                           Do_It!
                           ClearAll

                           View "\\Sistemas\\Vendas\\Notav"
                           Coedit "Answer"
                           Scan
                             CONSISTE=False
                             CopyToArray REGTAB
                             Moveto "\\Sistemas\\Vendas\\Notav"
                             Moveto [Codigo da Empresa]
                             Locate REGTAB["Codigo da Empresa"],REGTAB["Numero do Doc_Lanc"],REGTAB["Serie Docto Gerador"],AlinhM(StrVal(REGTAB["Sequencia do Cheque"]),2)
                             If RetVal
                                Then CONSISTE=True
                             EndIf
                             Moveto "Answer"
                             If CONSISTE
                                Then [Consistente]="S"
                                Else [Consistente]="N"
                             EndIf
                           EndScan
                           Do_It!
                           ClearAll

                           {Ask} {Answer}
                           Moveto [Numero do Lancamento  ] Example "l"
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Sequencia do Cheque   ] Example "seq"
                           Moveto [Consistente           ] Example "cons"
                           {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
                           Moveto [Documento             ] Example "l"
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Sequencia             ] Example "seq"
                           Moveto [Sequencia 2           ] Example "seq"
                           Moveto [Consistente           ] Example "cons"
                           Moveto [Descricao             ] TypeIn "Cheques sem origem no Faturamento/Digitacao"
                           Moveto [Nome Fantasia Empresa ] TypeIn VSDGNOMEMP
                           Do_It!
                           ClearAll

                    EndIf
                    QuitLoop
                  EndWhile
                  While True
                    ;*** Faturamento/BalcÆo/Troca que nÆo gerou Cheques ***
                    If IsTable("\\Sistemas\\Vendas\\Notac") and
                       IsTable("\\Sistemas\\Vendas\\Notav")
                       Then
                           {Ask} TypeIn "\\Sistemas\\Vendas\\Notac" Enter
                           Moveto [Codigo da Empresa       ] Example "emp"
                           Moveto [Numero do Documento     ] Example "num"
                           Moveto [Serie do Documento      ] Example "ser"
                           Moveto [Descricao da Destinacao ] TypeIn "..VENDA.."
                           Moveto [Sistema Gerador         ] Check TypeIn SIST_GER
                           Moveto [Data_Inclusao           ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
                           Moveto [Hora_Inclusao           ] Check
                           Moveto [Codigo_Usuario          ] Check
                           {Ask} TypeIn "\\Sistemas\\Vendas\\Notav" Enter
                           Moveto [Codigo da Empresa       ] Check Example "emp" TypeIn ",~VSDGEMPRESA.."
                           Moveto [Numero do Documento     ] Check Example "num" TypeIn ",as \"Numero do Doc_Lanc\""
                           Moveto [Serie do Documento      ] Check Example "ser"
                           Moveto [Sequencia               ] Check
                           Do_It!
                           ClearAll

                           If IsEmpty("Answer")
                              Then QuitLoop
                           EndIf

                           {Modify} {Restructure} {Answer}
                           Moveto [Field Name]
                           End Down
                           "Consistente" Enter "A1"
                           Do_It!
                           ClearAll

                           View "\\Sistemas\\Cheqrec\\Chequei"
                           View "\\Sistemas\\Cheqrec\\Chequec"
                           Coedit "Answer"
                           Scan
                             CONSISTE=False
                             CopyToArray REGTAB
                             Moveto "\\Sistemas\\Cheqrec\\Chequec"
                             Moveto [Numero Docto Gerador]
                             Locate IndexOrder by "Indchc01" REGTAB["Numero do Doc_Lanc"],REGTAB["Serie do Documento"]
                             If RetVal
                                Then NUMLANC=[Numero do Lancamento]
                                     Moveto "\\Sistemas\\Cheqrec\\Chequei"
                                     Moveto [Numero do Lancamento]
                                     Locate NUMLANC
                                     If RetVal
                                        Then While NUMLANC=[Numero do Lancamento]
                                                If REGTAB["Numero do Doc_Lanc"]=[Numero do Documento] And
                                                   NumVal(REGTAB["Sequencia"])        =[Sequencia do Cheque]
                                                   Then CONSISTE=True
                                                        QuitLoop
                                                EndIf

                                                Skip
                                                If EOT() Then QuitLoop EndIf
                                             EndWhile
                                     EndIf
                             EndIf

                             Moveto "Answer"
                             If CONSISTE
                                Then [Consistente]="S"
                                Else [Consistente]="N"
                             EndIf
                           EndScan
                           Do_It!
                           ClearAll

                           {Ask} {Answer}
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Sequencia             ] Example "seq"
                           Moveto [Consistente           ] Example "cons"
                           {Ask} TypeIn TabelaR Enter TypeIn "Fast Insert"
                           Moveto [Codigo da Empresa     ] Example "emp"
                           Moveto [Data_Inclusao         ] Example "data"
                           Moveto [Codigo_Usuario        ] Example "usu"
                           Moveto [Hora_Inclusao         ] Example "hora"
                           Moveto [Numero do Doc_Lanc    ] Example "doc"
                           Moveto [Documento             ] Example "doc"
                           Moveto [Consistente           ] Example "cons"
                           Moveto [Sequencia             ] Example "seq"
                           Moveto [Sequencia 2           ] Example "seq"
                           Moveto [Descricao             ] TypeIn "Faturamento/Digitacao que n„o gerou Cheques"
                           Moveto [Nome Fantasia Empresa ] TypeIn VSDGNOMEMP
                           Do_It!
                           ClearAll

                    EndIf
                    QuitLoop
                  EndWhile
          EndIf
  EndIf
EndFor
ClearAll         


{Ask} TypeIn TabelaR Enter TypeIn "Delete"
Moveto [Consistente] TypeIn "S"
Do_It!
ClearAll

EndProc   ;(Seleciona)

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc SD_Dialog(Disparo,Campo,Evento,Elemento)
Temp=True
MSG_CAMPO=""
TECLA="F10=Parƒmetros"
If Disparo="OPEN"  Then AoCriarShowDialog() EndIf
If Disparo="EVENT" And Evento["Type"]="KEY" Then
   Switch
     Case Evento["KeyCode"] = 9: Temp=False
     Case Evento["KeyCode"] = -59: Dialog_F1()
     Case Evento["KeyCode"] =  27:
          Temp=False
          Switch
            Case Campo="TG_EMPRESA"       : Campo="NO"
            Case Campo="TG_DTINI"         : Campo="TG_EMPRESA"
            Case Campo="TG_DTFIM"         : Campo="TG_DTINI"
            Case Campo="YES" Or Campo="NO" :Campo="TG_EMPRESA"
          EndSwitch
     Case (Evento["KeyCode"] <= -104 And Evento["KeyCode"] >= -113) Or 
           Evento["KeyCode"]  = -139 Or  Evento["KeyCode"]  = -140:
           SYS_TECLA_ACIONADA=Evento["KeyCode"]
           Seta_Tecla_Acionada()
           CancelDialog
     Case Evento["KeyCode"] = 13:
          Temp=False
          If Checa_TAG()
             Then Switch
                    Case Campo="TG_EMPRESA" :
                         If IsBlank(VSDGEMPRESA)
                            Then Mensagem("Escolha a Empresa! ")
                                 VSDGNOMEMP=""
                            Else Campo="TG_DTINI"
                         EndIf
                    Case Campo="TG_DTINI"   : Campo="TG_DTFIM"
                    Case Campo="TG_DTFIM"   : Campo="YES"
                  EndSwitch
          EndIf
   EndSwitch
EndIf
Monta_Prompt(MSG_CAMPO,TECLA)
Return Temp
EndProc


;*******************************************************************************
;* ROTINA PRINCIPAL                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bib_Show,\\Sistemas\\Cadastro\\Bibliot"
LimpAguarde()

VSDGEMPRESA     = ""
VSDGDTINI       = BlankDate()
VSDGDTFIM       = BlankDate()

While True

  OP_SHOW="S"
  ShowDialog "Consistˆncia de Dados" Proc "SD_Dialog"
  Trigger "OPEN","ARRIVE"
  Key "F1","ENTER","ESC","TAB",
      -104, -105, -106, -107, -108, -109, -110, -111, -112, -113, -139, -140,-68
    @ 01,09 Height 09 Width 45

    Label  @ 00,00 "Empresa"  For "TG_EMPRESA"
    Accept @ 01,01 Width 07 "A4"  Picture "[&,#][#*#]" Tag "TG_EMPRESA"    To VSDGEMPRESA
    Accept @ 01,09 Width 23 "A20" Picture "!*!" Tag "TG_VSDGNOMEMP" To VSDGNOMEMP

    Label  @ 02,00 "Per¡odo Referente" For "TG_DTINI"
    Label  @ 03,00 "de" For "TG_DTINI"
    Accept @ 03,04 Width 13 "D"  Picture "#[#];.##;.##[##]" Tag "TG_DTINI" To VSDGDTINI
    Label  @ 03,17 "at‚" For "TG_DTFIM"
    Accept @ 03,22 Width 13 "D"  Picture "#[#];.##;.##[##]" Tag "TG_DTFIM" To VSDGDTFIM
    
    Pushbutton @ 05,07 width 11 "~O~k"      OK     Default Value "Ok" Tag "YES" To BottonValue
    Pushbutton @ 05,21 width 11 "~C~ancela" CANCEL                    Tag "NO"  To BottonValue

  EndDialog

  If Not RetVal Then QuitLoop EndIf
  If Not Valida_ShowDialog("") Then Loop EndIf

  If IsBlank(VSDGDTINI)    Or
     IsBlank(VSDGDTFIM)    Or
     (VSDGDTFIM<VSDGDTINI)
     Then Loop
  EndIf
  DISPOSITIVO()
  If OK="" Then Loop EndIf

  AGUARDE("Aguarde, Gerando o Relat¢rio")
  TabelaR=Cria_Temp(Privdir())
  Copy "\\Base\\Sistemas\\Cadastro\\Rm_0200" TabelaR

  Seleciona()

  If IsEmpty(TabelaR)
     Then MENSAGEM("N„o Existem Registros a Processar")
          Delete TabelaR
          Loop
  EndIf

  IMPRIREL(TabelaR,"R")
  Delete TabelaR

EndWhile
ClearAll
Release Vars All
Release Procs All
