VB_PAC;Pacientes SNGPC;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL Z_DAT1 = ctod("")
VARIAVEL Z_dat2 = ctod("")
VARIAVEL zCpf   = ""
variavel zBlkAutorizacoes = #TEXTO_FONTE
  if QuickDialog("vb_pac_fpop", "Intervalo",{{"Data Inicial:","@Z_DAT1",@Z_DAT1,"99.99.9999","",""},{"Data Final..:","@Z_DAT2",@Z_DAT2,"99.99.9999","",""}} )
      if Select("vb_fpop") > 0
         Vb_fpop->(DbCloseArea())
      endif
      ABRA("0NOIDX", r_siga, "se_prod", "se_prod", "seip_dc6","pdic6")
      ABRA("0NOIDX", r_siga, "VB_FPOP", "VB_FPOP", "VB_FPOP", "CPF")
      zCpf:=Pad( Vb_Pac->cr_rg,len(cpf) )
      if DbSeek(zCpf)
         ordscope(0,zCpf)
         ordscope(1,zCpf)
         if day(z_dat1)>0
            DbSetFilter( {||(fdataemi>=Z_DAT1.AND.FDATAEMI<=Z_DAT2)}, "fdataemi>=Z_DAT1.AND.FDATAEMI<=Z_DAT2")
         endif
         DbSeek(zCpf)
         brow_db("PVBPACX",.t.)
      else
         Alert("O paciente nao tem autorizacoes do Farmacia Popular")
      endif
      Vb_fpop->(DbCloseArea())
      se_prod->(DbCloseArea())
      DbSelectArea("VB_PAC")
  endif
#FIM_TEXTO_FONTE

COMANDO ANTES DBSEEK("A")
:TBMT
 13;eVal(zBlkAutorizacoes);Enter-Autorizacoes ;
 22;tb_insert(D_OB,"VB_PAC1");Ins-Inclui ;
 -1;tb_insert(D_OB);F2-Inclui_Ficha ;
 65;tb_update(D_OB);A-Altera ;
  7;tb_del(D_ob);DEL-DELeta ;
 32;tb_cons();Barra-Exibe ;
 73;lst_alias(D_OB);I-Imprime ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 76;tb_locate(D_oB);L-Busca_Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 79;tb_index(D_OB);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
:TBFI
Paciente;PACIENTE;C;@s30; 30;;
Sexo;pac_sexo;C;x;4;S;
Idade;pac_idade;N;9999;4;S;
M/A ?;PAC_unidid;C;X;5;S;
CPF/RG;CR_RG;C;@S14; 14;;
Fones;Cr_Fone;C;@s11; 13;;
Idade Result;if(pac_idade>0,lTrim(Str(pac_idade,5))+" "+if(PAC_unidid="M","Meses",if(PAC_unidid="A","Anos",""))," ?");C;@S11; 11;N;
Cod Cliente;CR_COD_CLI;N;99999; 11;;