ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Programa ³ NOVA286 ³ Autor ³ Heraildo C. de Freitas³ Data ³ 26/03/12 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ CONSULTA HISTÓRICO DE ALTERAÇÕES CADASTRAIS ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
#include "rwmake.ch"
#include "topconn.ch"
user function nova286(_ctabela,_cchave)
_aarea:=getarea()
_cfilszq:=xfilial("SZQ")
_cdirdocs:=msdocpath()
_carq:="historico_de_alteracoes_cadastrais.htm"
if file(_cdirdocs+"\"+_carq)
ferase(_cdirdocs+"\"+_carq)
endif
_nhandle:=fcreate(_cdirdocs+"\"+_carq,0)
fwrite(_nhandle,''+chr(13)+chr(10))
fwrite(_nhandle,''+chr(13)+chr(10))
fwrite(_nhandle,''+chr(13)+chr(10))
fwrite(_nhandle,''+chr(13)+chr(10))
fwrite(_nhandle,'HISTÓRICO DE ALTERAÇÕES CADASTRAIS'+chr(13)+chr(10))
fwrite(_nhandle,''+chr(13)+chr(10))
fwrite(_nhandle,''+chr(13)+chr(10))
fwrite(_nhandle,'HISTÓRICO DE ALTERAÇÕES CADASTRAIS
'+chr(13)+chr(10))
fwrite(_nhandle,'
'+chr(13)+chr(10))
if _ctabela=="SA1"
fwrite(_nhandle,'CLIENTE: '+sa1->a1_cod+'/'+sa1->a1_loja+'-'+alltrim(sa1->a1_nome)+'
'+chr(13)+chr(10))
elseif _ctabela=="SA2"
fwrite(_nhandle,'FORNECEDOR: '+sa2->a2_cod+'/'+sa2->a2_loja+'-'+alltrim(sa2->a2_nome)+'
'+chr(13)+chr(10))
elseif _ctabela=="SB1"
//02/04/2012 - João Paulo - Inclusao do campo apresentacao na descricao do produto
//fwrite(_nhandle,'PRODUTO: '+sb1->b1_cod+'-'+alltrim(sb1->b1_desc)+'
'+chr(13)+chr(10))
fwrite(_nhandle,'PRODUTO: '+sb1->b1_cod+'-'+alltrim(sb1->b1_desc)+" "+alltrim(sb1->b1_apresen)+'
'+chr(13)+chr(10))
//02/04/2012 - João Paulo - Fim de - Inclusao do campo apresentacao na descricao do produto
elseif _ctabela=="SF4"
fwrite(_nhandle,'PRODUTO: '+sf4->f4_codigo+' - '+sf4->f4_texto+' - FINALIDADE: '+sf4->f4_finalid+'
'+chr(13)+chr(10))
elseif _ctabela=="QE6"
fwrite(_nhandle,'PRODUTO: '+qe6->qe6_produt+' - '+qe6->qe6_descpo+' - REVISAO: '+alltrim(qe6->qe6_revi)+'
'+chr(13)+chr(10))
endif
fwrite(_nhandle,''+chr(13)+chr(10))
fwrite(_nhandle,''+chr(13)+chr(10))
fwrite(_nhandle,'DATA | '+chr(13)+chr(10))
fwrite(_nhandle,'HORA | '+chr(13)+chr(10))
fwrite(_nhandle,'USUÁRIO | '+chr(13)+chr(10))
fwrite(_nhandle,'CAMPO | '+chr(13)+chr(10))
fwrite(_nhandle,'CONTEÚDO ANTERIOR | '+chr(13)+chr(10))
fwrite(_nhandle,'CONTEÚDO ATUAL | '+chr(13)+chr(10))
fwrite(_nhandle,'MOTIVO | '+chr(13)+chr(10))
fwrite(_nhandle,'
'+chr(13)+chr(10))
szq->(dbsetorder(1))
szq->(dbseek(_cfilszq+_ctabela+_cchave))
while ! szq->(eof()) .and.;
szq->zq_filial==_cfilszq .and.;
szq->zq_tabela==_ctabela .and.;
substr(szq->zq_chave,1,len(_cchave))==_cchave
sx3->(dbsetorder(2))
sx3->(dbseek(szq->zq_campo))
_ccontant:=szq->zq_contant
_ccontatu:=szq->zq_contatu
_cmotivo :=szq->zq_motivo
fwrite(_nhandle,''+chr(13)+chr(10))
fwrite(_nhandle,''+dtoc(szq->zq_data)+' | '+chr(13)+chr(10))
fwrite(_nhandle,''+szq->zq_hora+' | '+chr(13)+chr(10))
fwrite(_nhandle,''+alltrim(szq->zq_usuario)+' | '+chr(13)+chr(10))
fwrite(_nhandle,''+alltrim(sx3->x3_titulo)+' | '+chr(13)+chr(10))
fwrite(_nhandle,''+_ccontant+' | '+chr(13)+chr(10))
fwrite(_nhandle,''+_ccontatu+' | '+chr(13)+chr(10))
fwrite(_nhandle,''+_cmotivo+' | '+chr(13)+chr(10))
fwrite(_nhandle,'
'+chr(13)+chr(10))
szq->(dbskip())
end
fwrite(_nhandle,'
'+chr(13)+chr(10))
fwrite(_nhandle,''+chr(13)+chr(10))
fwrite(_nhandle,''+chr(13)+chr(10))
fclose(_nhandle)
_cpathtmp:=alltrim(gettemppath())
if file(_cpathtmp+_carq)
ferase(_cpathtmp+_carq)
endif
cpys2t(_cdirdocs+"\"+_carq,_cpathtmp,.t.)
shellexecute("open",_carq,"",_cpathtmp,1)
restarea(_aarea)
return()