Procedure baixar_titulo()
IF YesNo("Deseja Baixar os titulos") THEN
FOR EACH ROW OF TABLE_Retorno
Message(TABLE_Retorno.COL_86_nosso_numero_banco)
IF TABLE_Retorno.COL_109_cod_ocorrencia="06" THEN
HReadSeekFirst(duplicata_receber,cobranca_numero_banco,TABLE_Retorno.COL_86_nosso_numero_banco)
IF HFound(duplicata_receber) THEN
IF duplicata_receber.data_pagamento="" THEN
duplicata_receber.data_pagamento=TABLE_Retorno.COL_296_data_credito
duplicata_receber.observacao_pagamento="Baixado Titulo Pelo Sistema Retorno "
HModify(duplicata_receber)
ELSE
Info("Titulo Já tem data de Pagamento"+CR+duplicata_receber.titulo)
END
END
END
END
END
Info("Finalizado ")