SE_GREDI;("Vales Gas Disponiveis p/ "+Alltrim(Se_Prod->Pdesc));skip_blk(x); 3;23;22;78;x;;
:SKEL
VARIAVEL z_pcod = se_prod->pcod
VARIAVEL w_mensagem = "Sem mais opcoes"
VARIAVEL w_chave = Str(z_pcod,6)
VARIAVEL w_block = {|| w_chave <> Str(pcod,6) }
VARIAVEL zNil := ABRA("0NOIDX",r_siga,"sccrcli","sccrcli")
VARIAVEL zNil := DbSelectArea("VB_VLCMP")
VARIAVEL zbCli = {|nCli| sccrcli->(DbGoTo(nCli),cr_nome)}
comando saida if(select('sccrcli')>0,sccrcli->(DbCloseArea()),'')
comando saida znil := if( len(wVarAux1)>0, MyKeyb(Chr(27)), '')
:TBMT
 13;Qbe_Select("SET", D_OB);Enter-Seleciona ;
 32;psq_enter();Barra-Confirma ;
 80;tb_pesq(D_OB);P-Pesquisa;
:TBFI
*;if(Qbe_Select()," Ok ","");P;XXXX;4;;
ValeGas;pedicao;N;999999;7;N;
DtSaida;fDataSai;D;99.99.99;8;S;
Revendedor;eVal(zbCli,fCli);P;@S30;30;N;
DtAtend;fDataCheg;D;99.99.99;8;S;
Usuario Atendido;eVal(zbCli,mCodForc);P;@S30;30;N;
Valor;PVLUVEN2;N;99999.99;8;S;
Emissao;mdata;D;99.99.99;8;S;
Sit;MfgEs;C;!;3;S;
Produto;Pcod;N;999999;6;N;