INDEX SEIP_dc6 Pdic6

VARIAVEL zFgZera='N'
T 10,10,14,60,Parametros
T2,2,Devo Zerar o Codigo De Barras Duplicado ?,1,zFgZera,!

filtro pdic6>0

COMANDO DURANTE ZpCod1    = pcod
COMANDO DURANTE Z_OLDCOD  = pdic6
COMANDO DURANTE Z_OLDDESC = PDESC
COMANDO DURANTE Z_OLDPEATUAL = PEATUAL
COMANDO DURANTE Z_OLDPVLUVENDA = PVLUVENDA
COMANDO DURANTE ZRecnoOld = Recno()
COMANDO DURANTE Z_NIL     = DBSKIP()
COMANDO DURANTE ZpCod2    = pcod
COMANDO DURANTE Z_NEWCOD  = Pdic6
COMANDO DURANTE Z_NEWDESC = PDESC
COMANDO DURANTE Z_NEWPEATUAL = PEATUAL
COMANDO DURANTE Z_NEWPVLUVENDA = PVLUVENDA
COMANDO DURANTE zFgZerou = (zFgZera<>'S' .and. Z_OLDCOD=Z_NEWCOD)
COMANDO DURANTE z_nil = if(zFgZerou.and.peatual=0, RegLock(), '')
COMANDO DURANTE z_nil = if(zFgZerou.and.peatual=0, Put_Var('pdic6',0), '')
COMANDO DURANTE z_nil = if(zFgZerou.and.peatual=0, DbCommit(), '')
COMANDO DURANTE z_nil = if(zFgZerou.and.peatual=0, DbUnlock(), '')
COMANDO DURANTE zStrZera = if(zFgZerou, '**Zerou o Codigo**', '')
// COMANDO DURANTE Z_NIL     = DBSKIP(-1)
COMANDO DURANTE DbGoto(ZRecnoOld)

VARIAVEL LST_TP = 58                           

C[Empresa]
CProdutos com Duplicidades de Codigos de BARRAS
CCodRed    Cod_Barras		 Apresentacao
C[Repl("-",80)]

FILTROIMP Z_OLDCOD=Z_NEWCOD
D[zpcod1 999999] [Z_OLDCOD] [Z_OLDDESC] [Z_OLDPEATUAL 999,999] [Z_OLDPVLUVENDA 999,999.99]
FILTROIMP Z_OLDCOD=Z_NEWCOD
D[zpcod2 999999] [Z_NEWCOD] [Z_NEWDESC] [Z_NEWPEATUAL 999,999] [Z_NEWPVLUVENDA 999,999.99] [zStrZera]
FILTROIMP Z_OLDCOD=Z_NEWCOD
D