SP_MOVF;Produtos a Receber;sys_tbbrow; 8; 24;21;79;sp_movfn;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
//COMANDO ANTES abra_arq("sccpfab")
//COMANDO ANTES DbSelectArea("SP_MOVF")
//COMANDO DEPOIS sccpfab->(DbCloseArea())
// VARIAVEL z_blkdsp = 'zpcod:=pcod,zseek:=zpcod<>se_prod->pcod,znil:=prd_dados("DAGO"),znil:=if(zseek,se_prod->(DbSeek(zpcod)),NIL),zlab:=se_prod->pprincforn,sccpfab->(DbGoto(zlab)),'
// VARIAVEL z_blkdsp = z_blkdsp + 'znil:=if(zseek.and.se_prod->pitens>1,alert_tef("Produto fracionado!",1),NIL),zcor:=SetColor("R/W"),DevPos(6,41),DevOut("Fabr:"+sccpfab->cp_fantasi),SetColor(ZCOR)'
// VARIAVEL z_blkdsp = _CreateBlock( z_blkdsp )
VARIAVEL z_blkdsp = 'zpcod:=pcod,zseek:=zpcod<>se_prod->pcod,znil:=prd_dados("DAGO"),znil:=if(zseek,se_prod->(DbSeek(zpcod)),NIL),zlab:=se_prod->pprincforn,'
VARIAVEL z_blkdsp = z_blkdsp + 'znil:=if(zseek.and.se_prod->pitens>1,alert_tef("Produto fracionado!",1),NIL),zcor:=SetColor("R/W"),SetColor(ZCOR)'
VARIAVEL z_blkdsp = _CreateBlock( z_blkdsp )
comando durante znil = eval(z_blkdsp)
COMANDO ANTES DBGOTOP()
//VARIAVEL w_colsep = " "+chr(179)
// 22;ins_prd(D_oB,"R");Ins-Inclui ;
//Pedida;unid_Fech;N;9999;  4;N;
//Frc;pitens;N;999;  3;N;
//Pr Total;MvALor;N;99999.99;8;N;
//DataVenc;data_venc;D;;8;S;
:TBMT
 22;ins_prd(D_oB,"R",.T.,.t.);Ins-Inclui ;
 13;pf_DoGet(D_oB,"R");Enter-Altera ;
  7;tb_del(D_oB);Del-Cancela ;
 73;Lst_alias(D_OB);I-Imprime Pedido ;
 66;pf_ean(nrow,d_ob);B-Cod_Barras ;
 82;pfrecquant(D_oB);R-Confirma_Todos ;
 86;pfvalor(D_oB);V-Valor_Pedido ;
 63;chk_sp_movf(,,,"CALCULA_VALOR");?-Valor_NF ;
 47;chk_sp_movf(,,D_oB,"AJUSTA_TODOS");/-Ajusta_Valores ;
 32;OrdSetFocus(0);Barra-Ordem_Digitacao ;
 79;tb_index(D_OB);O-Ordena ;
:TBFI
Lotes;plote;C;@s10;10;S;
Receb;mqatend;N;999999;  6;S;
Desc;PDESC;C;@S24; 22;N;
Cod;PCOD;N;99999;  5;N;