[RESOLVIDO] Pesquisa travando ao executar Update com Data

kleberdomingos · Janeiro 6, 2011

Prezados boa tarde!

Sei que a duvida é basica, mas sempre que tenho dar um update com data, o progress trava...

Segue codigo que estou utilizando:

def var fornecedor like compl_impto_retid_ap.cdn_fornecedor.
def var codigo-declarante as char .
def var prestador-exterior as char initial "N".
def var base-calculo as dec.
def var valor-titulo as dec.
def var aliquota as dec.
def var valor-imposto as dec.
def var municipio-pres AS CHAR.
def var tipo-servico as char initial "NFS".
def var data-imposto like compl_impto_retid_ap.dat_vencto_tit_ap.

/***************** CAMPO PARA PESQUISA ********************/

update data-imposto with 1 column.
/* update fornecedor with 1 column. */

/**************** SAIDA DO ARQUIVO *********************/

output to \eiss\testeimposto.txt.

/*************** FOR EACH ************************/

for each compl_impto_retid_ap
/* where compl_impto_retid_ap.cdn_fornecedor = fornecedor no-lock */,
each tit_ap
where compl_impto_retid_ap.num_id_tit_ap = tit_ap.num_id_tit_ap
and compl_impto_retid_ap.dat_vencto_tit_ap = data-imposto
and tit_ap.cod_espec_docto= "ISS" no-lock,
each emsuni.fornecedor
where emsuni.fornecedor.cdn_fornecedor = compl_impto_retid_ap.cdn_fornecedor no-lock,
each pessoa_jurid
where emsuni.fornecedor.cod_id_feder = emsuni.pessoa_jurid.cod_id_feder no-lock.
Clique para expandir...

Alguem poderia me ajudar?

Agradeço desde já.

Kleber Domingos

kleberdomingos · Janeiro 6, 2011

Pessoal, boa noite.

Problema resolvido, amanha postarei a correcao.

Obrigado mesmo assim

Kleber Domingos

Logar ou Criar uma Conta

[RESOLVIDO] Pesquisa travando ao executar Update com Data

kleberdomingos Sem Pontuação

kleberdomingos Sem Pontuação

Compartilhe esta Página