OUTROARQ SE_DIC5 SE_DIC5 PCPRODFORN
VARIAVEL LST_TP = 58
VARIAVEL Z_NP = 0                           



COMANDO DURANTE Z_PcProdForn = IF( TYPE("MED_ABC")="C", VAL(MED_ABC), MED_ABC)
COMANDO DURANTE Z_FgInsert   = !SE_DIC5->(DbSeek(Z_PcProdForn))
COMANDO DURANTE Z_PDESC      = IF(Z_FGINSERT,ALLTRIM(MED_DES)+" "+MED_APR,NIL)
COMANDO DURANTE Z_CP_FANTASI = IF(Z_FGINSERT,LAB_NOM,NIL)
COMANDO DURANTE Z_NIL = IF(Z_FGINSERT, SE_DIC5->(AppendBlank()) ,NIL)
COMANDO DURANTE Z_NIL = IF(Z_FGINSERT, SE_DIC5->(PUT_VAR("pcprodforn",z_pcprodforn)) ,NIL)
COMANDO DURANTE Z_NIL = IF(Z_FGINSERT, SE_DIC5->(PUT_VAR("pdesc",z_pdesc)) ,NIL)
COMANDO DURANTE Z_NIL = IF(Z_FGINSERT, SE_DIC5->(PUT_VAR("cp_fantasi",z_cp_fantasi)) ,NIL)

COMANDO DURANTE Z_NP = Z_NP + IF(Z_FGINSERT,1,0)

C[Empresa]
CProdutos Adicionados ao Dicionario de Codigos ABCFARMA em [s_datual] as [time()]
C  Cod Dic  Fabricante      Apresentacao
*999999999 xxxxxyyyyyxxxxx
C[Repl("-",80)]

FILTROIMP Z_FgInsert
D[Z_PCPRODFORN 999999999] [Z_CP_FANTASI] [Z_PDESC]

ULTPAG
ULTPAG *** Numero de Produtos Adicionados: [z_np 999999]
