SP_MOVF;Produtos do Pedido;sys_tbbrow; 8; 0;21;79;sp_movf;;
: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 )
comando durante znil = eval(z_blkdsp)
// 68;upd_dic(d_ob,,pcod);D-Dic_Altera ;
:TBMT
 22;ins_prd(D_oB,"P",.T.,.t.);Ins-Inclui ;
 13;pf_DoGet(D_oB,"P");Enter-Altera ;
 83;rep_movf();S-Sugestoes ;
 73;Lst_alias(D_OB);I-Imprime ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 86;pfvalor(D_oB);V-Valor_Pedido ;
 65;ALTProd();A-Altera_Prod ;
 93;disp_sdse(pcod);]-Demanda ;
 66;pf_ean(nrow,d_ob);B-Cod_Barras ;
 68;pf_madeira(nrow,d_ob,pCod);D-Desmembra ;
 79;tb_index(D_OB);O-Ordena ;
 69;dispent(pcod);E-Entradas ;
 76;lestmax(d_ob);L-Excessos ;
 67;checadic(pcod);C-Dic_Consulta ;
 32;pf_reserv(D_oB);Barra-Falta_No_Forn ;
 84;edit_txt(r_siga+"ped\"+w_pedido+".txt",0,7,23,73);T-Texto_Observacoes ;
 70;CiBrow("VB_FALTA",,"VB_FALT1") ;F-Faltas_do_Dia ;
 82;RedefineCfops(D_OB);R-RedefineCFOPs ;
:TBFI
Cod;PCOD;N;99999;5;N;
Desc;PDESC;C;@S28; 28;N;
Pedida;unid_Fech;N;9999;4;S;
Frc;pitens;N;999;3;N;
PrUnVen;pvluvenda;N;9999.99;7;S;
PrUnFab;pvluven3;N;9999.99;7;S;
Cfop;pCfop;C;9999;4;S;
Grade;Grade;C;@S!6;6;S;
Receb;mqatend;N;9999;  4;S;
falta;unid_Fech-mqatend;P;9999;4;S;  
PrTotVen;MVALor;N;99999.99;8;S;
PrTotFab;MVALor3;N;99999.99;8;S;
Cod Dic;Pdic;N;99999999;8;N;
eMIN;pemin;N;9999.99;7;S;
eMAX;pemax;N;9999.99;7;S;
m30d;pemincl*30;N;9999.99;7;N;
MedMes;pmedia;N;9999.99;7;N;
UndVen;unid_Fech*pitens;N;999999;6;N;
