VARIAVEL Z_CAD   = "SE_PROD "
VARIAVEL Z_CHAVE = "PCOD      "
VARIAVEL Z_C1    = "          "
VARIAVEL Z_C2    = "          "
VARIAVEL Z_C3    = "          "
VARIAVEL Z_C4    = "          "
VARIAVEL Z_C5    = "          "
VARIAVEL Z_C6    = "          "
VARIAVEL Z_C7    = "          "
VARIAVEL Z_C8    = "          "
VARIAVEL Z_C9    = "          "
VARIAVEL Z_C10   = "          "
*-
VARIAVEL Z_BLK_CHAVE = ""
VARIAVEL Z_BLK_C1    = ""
VARIAVEL Z_BLK_C2    = ""
VARIAVEL Z_BLK_C3    = ""
VARIAVEL Z_BLK_C4    = ""
VARIAVEL Z_BLK_C5    = ""
VARIAVEL Z_BLK_C6    = ""
VARIAVEL Z_BLK_C7    = ""
VARIAVEL Z_BLK_C8    = ""
VARIAVEL Z_BLK_C9    = ""
VARIAVEL Z_BLK_C10   = ""
VARIAVEL Z_NL        = 0
*-
T5,20,20,70,Parametros
T2, 2,Nome do Cadastro a Importar:,8,Z_CAD,@S8
T3, 2,Chave para Importacao......:,10,z_chave,@s10
T4, 2,Campo01 a Importar.........:,10,z_c1,@s10
T5, 2,Campo02 a Importar.........:,10,z_c2,@s10
T6, 2,Campo03 a Importar.........:,10,z_c3,@s10
T7, 2,Campo04 a Importar.........:,10,z_c4,@s10
T8, 2,Campo05 a Importar.........:,10,z_c5,@s10
T9, 2,Campo06 a Importar.........:,10,z_c6,@s10
T10,2,Campo07 a Importar.........:,10,z_c7,@s10
T11,2,Campo08 a Importar.........:,10,z_c8,@s10
T12,2,Campo09 a Importar.........:,10,z_c9,@s10
T13,2,Campo10 a Importar.........:,10,z_c10,@s10

COMANDO ANTES Z_BLK_CHAVE = if(!Empty(Z_CHAVE),_CreateBlock(Z_CHAVE),"")
COMANDO ANTES Z_BLK_C1    = if(!Empty(z_c1),_CreateBlock(Z_C1),"")
COMANDO ANTES Z_BLK_C2    = if(!Empty(Z_C2),_CreateBlock(Z_C2),"")
COMANDO ANTES Z_BLK_C3    = if(!Empty(Z_C3),_CreateBlock(Z_C3),"")
COMANDO ANTES Z_BLK_C4    = if(!Empty(Z_C4),_CreateBlock(Z_C4),"")
COMANDO ANTES Z_BLK_C5    = if(!Empty(Z_C5),_CreateBlock(Z_C5),"")
COMANDO ANTES Z_BLK_C6    = if(!Empty(Z_C6),_CreateBlock(Z_C6),"")
COMANDO ANTES Z_BLK_C7    = if(!Empty(Z_C7),_CreateBlock(Z_C7),"")
COMANDO ANTES Z_BLK_C8    = if(!Empty(Z_C8),_CreateBlock(Z_C8),"")
COMANDO ANTES Z_BLK_C9    = if(!Empty(Z_C9),_CreateBlock(Z_C9),"")
COMANDO ANTES Z_BLK_C10   = if(!Empty(z_c10),_CreateBlock(Z_C10),"")

COMANDO ANTES DBGOBOTTOM()

ARQUIVO SE_PROD
COMANDO ANTES Ferase( R_SIGA+"ntx\TEMP0001"+ORDBAGEXT() )
COMANDO ANTES Abra("0RO",R_SIGA,"tmp\"+z_cad,"PROD","temp0001",z_chave)
COMANDO ANTES DbSelectArea("SE_PROD")
COMANDO DURANTE Z_FGALTER = .F.
COMANDO DURANTE Z_NL = Z_NL + 1
COMANDO DURANTE Z_VAL_CHAVE = Eval(Z_BLK_CHAVE)
COMANDO DURANTE z_fgok = ( prod->(DbSeek(Z_Val_Chave)) .And. se_prod->(Eval(Z_BLK_CHAVE))==prod->(Eval(Z_BLK_CHAVE)) )
COMANDO DURANTE Z_Nil  = If(z_FgOk , RegLock() ,"")
COMANDO DURANTE z_c1_old =if(!Empty(z_c1),Eval(z_blk_c1),"")
COMANDO DURANTE z_c2_old =if(!Empty(Z_C2),Eval(z_blk_c2),"")
COMANDO DURANTE z_c3_old =if(!Empty(Z_C3),Eval(z_blk_c3),"")
COMANDO DURANTE z_c4_old =if(!Empty(Z_C4),Eval(z_blk_c4),"")
COMANDO DURANTE z_c5_old =if(!Empty(Z_C5),Eval(z_blk_c5),"")
COMANDO DURANTE z_c6_old =if(!Empty(Z_C6),Eval(z_blk_c6),"")
COMANDO DURANTE z_c7_old =if(!Empty(Z_C7),Eval(z_blk_c7),"")
COMANDO DURANTE z_c8_old =if(!Empty(Z_C8),Eval(z_blk_c8),"")
COMANDO DURANTE z_c9_old =if(!Empty(Z_C9),Eval(z_blk_c9),"")
COMANDO DURANTE z_c10_old=if(!Empty(z_c10),Eval(z_blk_c10),"")
COMANDO DURANTE z_nil = if(z_Fgok.and.!Empty(z_c1) .and.z_c1_old <>prod->(Eval(z_blk_c1)), (Z_FGALTER:=.T.,Put_Var(z_c1,   prod->(Eval(z_blk_c1))) ),"")
COMANDO DURANTE z_nil = if(z_Fgok.and.!Empty(Z_C2) .and.z_c2_old <>prod->(Eval(z_blk_c2)), (Z_FGALTER:=.T.,Put_Var(z_c2,   prod->(Eval(z_blk_c2))) ),"")
COMANDO DURANTE z_nil = if(z_Fgok.and.!Empty(Z_C3) .and.z_c3_old <>prod->(Eval(z_blk_c3)), (Z_FGALTER:=.T.,Put_Var(z_c3,   prod->(Eval(z_blk_c3))) ),"")
COMANDO DURANTE z_nil = if(z_Fgok.and.!Empty(Z_C4) .and.z_c4_old <>prod->(Eval(z_blk_c4)), (Z_FGALTER:=.T.,Put_Var(z_c4,   prod->(Eval(z_blk_c4))) ),"")
COMANDO DURANTE z_nil = if(z_Fgok.and.!Empty(Z_C5) .and.z_c5_old <>prod->(Eval(z_blk_c5)), (Z_FGALTER:=.T.,Put_Var(z_c5,   prod->(Eval(z_blk_c5))) ),"")
COMANDO DURANTE z_nil = if(z_Fgok.and.!Empty(Z_C6) .and.z_c6_old <>prod->(Eval(z_blk_c6)), (Z_FGALTER:=.T.,Put_Var(z_c6,   prod->(Eval(z_blk_c6))) ),"")
COMANDO DURANTE z_nil = if(z_Fgok.and.!Empty(Z_C7) .and.z_c7_old <>prod->(Eval(z_blk_c7)), (Z_FGALTER:=.T.,Put_Var(z_c7,   prod->(Eval(z_blk_c7))) ),"")
COMANDO DURANTE z_nil = if(z_Fgok.and.!Empty(Z_C8) .and.z_c8_old <>prod->(Eval(z_blk_c8)), (Z_FGALTER:=.T.,Put_Var(z_c8,   prod->(Eval(z_blk_c8))) ),"")
COMANDO DURANTE z_nil = if(z_Fgok.and.!Empty(Z_C9) .and.z_c9_old <>prod->(Eval(z_blk_c9)), (Z_FGALTER:=.T.,Put_Var(z_c9,   prod->(Eval(z_blk_c9))) ),"")
COMANDO DURANTE z_nil = if(z_Fgok.and.!Empty(z_c10).and.z_c10_old<>prod->(Eval(z_blk_c10)),(Z_FGALTER:=.T.,Put_Var(z_c10, prod->(Eval(z_blk_c10))) ),"")
COMANDO DEPOIS prod->( DbCloseArea() )
COMANDO DEPOIS Ferase( R_SIGA+"ntx\TEMP0001"+ORDBAGEXT() )

FILTROIMP Z_NL = 1
D[Empresa]
FILTROIMP Z_NL = 1
DAlteracoes Efetuadas no Cadastro [z_cad], pela chave [z_chave], em [s_datual] as [time()]
FILTROIMP Z_NL = 1
D[Repl("-",80)]
FILTROIMP Z_NL = 1
Dampo     Conteudo Original       Conteudo Modificado
FILTROIMP Z_NL = 1
D[Repl("-",80)]

FILTROIMP Z_C1<>SPAC(10).AND.z_c1_old<>prod->(Eval(z_blk_c1))
D [Z_C1]:  Anterior: [z_c1_old]  Novo_Valor: [Eval(z_blk_c1)]
FILTROIMP Z_C2<>SPAC(10).AND.z_c2_old<>prod->(Eval(z_blk_c2))
D [Z_C2]:  Anterior: [z_c2_old]  Novo_Valor: [Eval(z_blk_c2)]
FILTROIMP Z_C3<>SPAC(10).AND.z_c3_old<>prod->(Eval(z_blk_c3))
D [Z_C3]:  Anterior: [z_c3_old]  Novo_Valor: [Eval(z_blk_c3)]
FILTROIMP Z_C4<>SPAC(10).AND.z_c4_old<>prod->(Eval(z_blk_c4))
D [Z_C4]:  Anterior: [z_c4_old]  Novo_Valor: [Eval(z_blk_c4)]
FILTROIMP Z_C5<>SPAC(10).AND.z_c5_old<>prod->(Eval(z_blk_c5))
D [Z_C5]:  Anterior: [z_c5_old]  Novo_Valor: [Eval(z_blk_c5)]
FILTROIMP Z_C6<>SPAC(10).AND.z_c6_old<>prod->(Eval(z_blk_c6))
D [Z_C6]:  Anterior: [z_c6_old]  Novo_Valor: [Eval(z_blk_c6)]
FILTROIMP Z_C7<>SPAC(10).AND.z_c7_old<>prod->(Eval(z_blk_c7))
D [Z_C7]:  Anterior: [z_c7_old]  Novo_Valor: [Eval(z_blk_c7)]
FILTROIMP Z_C8<>SPAC(10).AND.z_c8_old<>prod->(Eval(z_blk_c8))
D [Z_C8]:  Anterior: [z_c8_old]  Novo_Valor: [Eval(z_blk_c8)]
FILTROIMP Z_C9<>SPAC(10).AND.z_c9_old<>prod->(Eval(z_blk_c9))
D [Z_C9]:  Anterior: [z_c9_old]  Novo_Valor: [Eval(z_blk_c9)]
FILTROIMP Z_C10<>SPAC(10).AND.z_c10_old<>prod->(Eval(z_blk_c10))
D [Z_C10]:  Anterior: [z_c10_old]  Novo_Valor: [Eval(z_blk_c10)]
FILTROIMP Z_C10<>SPAC(10).AND.z_c10_old<>prod->(Eval(z_blk_c10))
D
ULTPAG
ULTPAG *** FIM DO PROCESSAMENTO ***
