VARIAVEL Z_NUMDIC = 5

T10,20,14,70,Parametros
T2,2,Codigo de Dicionario:,1,Z_numdic,9

COMANDO ANTES DBGOBOTTOM()

ARQUIVO SE_PROD
COMANDO ANTES Z_CODDIC = IF(Z_NUMDIC=0,"PCPRODFORN","PDIC"+Str(Z_NUMDIC,1) )
COMANDO ANTES FERASE( R_SIGA+"TMP\TEMP0001"+ORDBAGEXT() )
COMANDO ANTES SE_PROD->( DbCloseArea() )
COMANDO ANTES ABRA("0RO",R_SIGA,"Se_Dic"+Str(Z_NUMDIC,1),"Se_Dic","Se_Dic"+Str(Z_NUMDIC,1),"PCPRODFORN")
COMANDO ANTES ABRA("0RO",R_SIGA,"SE_PROD","SE_PROD","temp0001",z_coddic)
COMANDO ANTES DBGOTOP()
COMANDO DURANTE Z_OLDCOD  = PCOD
COMANDO DURANTE Z_OLDDIC  = Eval(_CreateBlock(Z_CodDic))
COMANDO DURANTE Z_OLDDESC = PDESC
COMANDO DURANTE Z_OLDPEATUAL = PEATUAL
COMANDO DURANTE Z_OLDPVLUVENDA = PVLUVENDA
COMANDO DURANTE Z_NIL     = DBSKIP()
COMANDO DURANTE Z_NEWCOD  = PCOD
COMANDO DURANTE Z_NEWDIC  = Eval(_CreateBlock(Z_CodDic))
COMANDO DURANTE Z_NEWDESC = PDESC
COMANDO DURANTE Z_NEWPEATUAL = PEATUAL
COMANDO DURANTE Z_NEWPVLUVENDA = PVLUVENDA
COMANDO DURANTE se_dic->(DbSeek(z_olddic))
COMANDO DURANTE Z_DESC_DIC = Lower(Se_Dic->Pdesc)
COMANDO DURANTE Z_NIL = DBSKIP(-1)

VARIAVEL LST_TP = 58                           

C[Empresa]
CDuplicidades de Codigos no Dicionario [z_numdic 9] em [s_datual] as [time()]
CProd   Cod Dic     Apresentacao                      Estoq    PrVenda
C[Repl("-",80)]

FILTROIMP Z_OLDdic=Z_NEWdic .and. z_olddic>0
D[Z_OLDCOD 99999] [z_olddic] [Z_OLDDESC] [Z_OLDPEATUAL 999,999] [Z_OLDPVLUVENDA 999,999.99]
FILTROIMP Z_OLDdic=Z_NEWdic .and. z_olddic>0
D[Z_NEWCOD 99999] [z_newdic] [Z_NEWDESC] [Z_NEWPEATUAL 999,999] [Z_NEWPVLUVENDA 999,999.99]
FILTROIMP Z_OLDdic=Z_NEWdic .and. z_olddic>0
D     Desc.Dic.:[Z_DESC_DIC]
FILTROIMP Z_OLDdic=Z_NEWdic .and. z_olddic>0
D
