ALIAS DIC_FORN
OUTROARQ SE_PROD SEIP_C PCOD

VARIAVEL LST_TP = 58
VARIAVEL zNprod = 0 
VARIAVEL zFgAssocia='S'
T 10,10,14,74,Parametros
T2,2,Atualizo Referencias de Fabrica pelas Entradas de XML ?,1,zFgAssocia,!

COMANDO DURANTE zPcod     = dic_forn->pCod
COMANDO DURANTE zFound    = se_prod->(DbSeek(zPcod))
COMANDO DURANTE zFgUpdate = (zFgAssocia='S' .and. zPcod=se_prod->pcod .and. empty(se_prod->pRefFab) )
COMANDO DURANTE zNprod    = zNprod + if(zFgUpdate, 1, 0)
COMANDO DURANTE z_nil     = if(zFgUpdate, se_prod->(RegLock()), '')
COMANDO DURANTE z_nil     = if(zFgUpdate, se_prod->(Put_Var('pRefFab',Dic_Forn->cProd)), '')
COMANDO DURANTE z_nil     = if(zFgUpdate, se_prod->(DbCommit()), '')
COMANDO DURANTE z_nil     = if(zFgUpdate, se_prod->(DbUnlock()), '')
COMANDO DURANTE zStrZera  = if(zFgUpdate, '**Associou Ref.Fabrica**', '')

C[Empresa]
CReferencias de Fabrica Atualizadas
CCod    Apresentacao                   Cod.Barras      Ref_Fabrica
*999999 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 99999999999999] [pRefFab]
C[Repl("-",80)]

FILTROIMP zFgUpdate
D[PCOD 999999] [PDESC @S30] [PDIC6 99999999999999] [pRefFab]

ULTPAG 
ULTPAG PRODUTOS ATUALIZADOS: [zNprod 999999]