ARR_TRN1;Transitos por Previsao de Chegada;sys_tbbrow; 3; 16;23;79;arr_trn1;;
:SKEL
VARIAVEL W_footSEP = "="
VARIAVEL z_xBlk = "Z_Sele:=Select(),"
VARIAVEL z_xBlk = z_xBlk + 'w_chave:=v_vnd[nrow,5],'
VARIAVEL z_xBlk = z_xBlk + "ordCondSet( 'w_chave=pffor', _CreateBlock('w_chave=pffor'),,,,, RECNO()),"
VARIAVEL z_xBlk = z_xBlk + "ordCreate(r_siga-'tmp\_sdtrn0',,'str(pffor,4)+pref', _CreateBlock('str(pffor,4)+pref')),"
VARIAVEL z_xBlk = z_xBlk + "Brow_Db('ARR_TRN0',.t.),"
VARIAVEL z_xBlk = z_xBlk + "ferase(r_siga-'tmp\_sdtrn0'-OrdBagExt()),"
VARIAVEL z_xBlk = z_xBlk + "DbSelectArea(z_sele)"
VARIAVEL z_Blk13 = _CreateBlock( z_xBlk )
VARIAVEL z_xBlk = ""

:TBMT
13;Eval(z_Blk13);Enter-Referencias/Pedidos ;
:TBFI
Forn;v_vnd[nrow,5];N;9999;7;N;
Referencias;v_vnd[nrow,2];N;999,999;11;;
Unidades;v_vnd[nrow,3];N;999,999;7;;
.     Valor;v_vnd[nrow,4];N;999,999,999.99;14;;
:TBFO
" ";
Transform( x_tmp [1,2]+x_tmp [2,2], "999,999");
Transform( x_tmp [1,3]+x_tmp [2,3], "999,999");
Transform( x_tmp [1,4]+x_tmp [2,4], "999,999,999.99");
