ALIAS SE_PROD
INDEX SEIP_C PCOD

VARIAVEL zFgDeleta='N'
VARIAVEL zFgNovoCod='N'
T 10,10,14,70,Parametros
T2,2,Devo Cancelar o Codigo Nativo Duplicado     ?,1,zFgDeleta,!
T3,2,Devo Gerar Novo Codigo para o Cod.Duplicado ?,1,zFgNovoCod,!

COMANDO DURANTE Z_OLDCOD  = PCOD
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 Z_NEWCOD  = PCOD
COMANDO DURANTE Z_NEWDESC = PDESC
COMANDO DURANTE Z_NEWPEATUAL = PEATUAL
COMANDO DURANTE Z_NEWPVLUVENDA = PVLUVENDA

COMANDO DURANTE zFgUpdate = ( (zFgDeleta='S'.or.zFgNovoCod='S') .And. Z_OLDCOD=Z_NEWCOD )
COMANDO DURANTE z_nil = if(zFgUpdate, RegLock(), '')
COMANDO DURANTE z_nil = if(zFgUpdate .and. zFgDeleta='S',  DbDelete(), '')
COMANDO DURANTE z_nil = if(zFgUpdate .and. zFgNovoCod='S', DbGoBottom(), '')
COMANDO DURANTE Z_NewPcod = if(zFgUpdate .and. zFgNovoCod='S', Pcod+1, 0)
COMANDO DURANTE z_nil = if(zFgUpdate .and. zFgNovoCod='S', RegLock(), '')
COMANDO DURANTE z_nil = if(zFgUpdate .and. zFgNovoCod='S', Put_Var('pCod',Z_NewPcod), '')
COMANDO DURANTE z_nil = if(zFgUpdate, DbCommit(), '')
COMANDO DURANTE z_nil = if(zFgUpdate, DbUnlock(), '')
COMANDO DURANTE zStrZera = if(zFgUpdate, if(zFgDeleta='S','**Apagou o Duplicado**', '**Gerou Novo Codigo: '+Ltrim(Str(Z_NewPcod,14)) ) , '')

COMANDO DURANTE DbGoto(ZRecnoOld)

VARIAVEL LST_TP = 58                           

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

FILTROIMP Z_OLDCOD=Z_NEWCOD
D[Z_OLDCOD 99999] [Z_OLDDESC] [Z_OLDPEATUAL 999,999] [Z_OLDPVLUVENDA 999,999.99]
FILTROIMP Z_OLDCOD=Z_NEWCOD
D[Z_NEWCOD 99999] [Z_NEWDESC] [Z_NEWPEATUAL 999,999] [Z_NEWPVLUVENDA 999,999.99]
FILTROIMP Z_OLDCOD=Z_NEWCOD
D